uses gdip

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

single y1, angle
single os=60, sc=40, spd= 1.0 'deg

int n=8
int r=100
polypoints p,q,n,r
transforms2d tr
'
While not Key 27
  clsColor 85,80,200,255
  '
  tr.newmatrix
  tr.translate 180,100
  tr.rotate angle
  tr.scale 0.9,0.9
  tr.transform p,q,n
  FillPoly q,n, ARGB 200,255,0,0
  Poly q,n,1, ARGB 255,0,0,128
  '
  'angle xyscale xyoffset
  transform p,q,n,-angle,0.5,0.5,200,100
  FillPoly q,n, ARGB 200,255,255,255
  Poly q,n,1, ARGB 255,0,0,128
  '
  angle += spd
  Flip
  SetFps 60
Wend
Ends