uses gdip

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

single angle
single spd= 1.0 'deg

int i,j
int n=8
int r=100
new transforms2d tr
new polygon pt
'pt.ring n,r-20,r
pt.ring n,r-40,r,15,0
'
While not Key 27
  clsColor 45,45,70,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*4
  for i=0 to n-1
    'quads
    j=i*8 'pt.n*2*4
    FillPoly pt.q[j],4, ARGB 200,255,0,0
    Poly pt.q[j],4,1, ARGB 255,0,0,128
  next
  tr.popmatrix
  '
  angle += spd
  Flip
  SetFps 60
Wend
del pt
del pr
Ends