uses gdip

Screen 320, 200, 1
SetCaption "Abst7"
SetSmoothMode 0

single angle
single spd= 1.0 'deg

int n=8
int r=100
transforms2d tr
points2d pt
pt.poly n,r
'
While not Key 27
  clsColor 85,80,200,255
  '
  tr.newmatrix
  tr.translate 180,100
  tr.pushmatrix
  tr.rotate angle
  tr.scale 0.9,0.9
  tr.transform pt.p,pt.q,pt.n
  FillPoly pt.q,pt.n, ARGB 200,255,0,0
  Poly pt.q,pt.n,1, ARGB 255,0,0,128
  tr.popmatrix
  '
  tr.pushmatrix
  tr.translate 30,0
  tr.rotate -angle*2
  tr.scale 0.5,0.5
  tr.transform pt.p,pt.q,pt.n
  FillPoly pt.q,pt.n, ARGB 200,255,255,128
  Poly pt.q,pt.n,1, ARGB 255,0,0,128
  tr.popmatrix
  '
  tr.pushmatrix
  tr.translate -100,0
  tr.rotate -angle*2
  tr.scale 0.125,0.5
  tr.transform pt.p,pt.q,pt.n
  FillPoly pt.q,pt.n, ARGB 255,0,0,128
  Poly pt.q,pt.n,1, ARGB 255,0,0,128
  tr.popmatrix
  '
  angle += spd
  Flip
  SetFps 60
Wend
pt.clear
Ends