uses gdip

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

single y1, angle
single os=60, sc=40, spd= 0.05

While not Key 27
  clsColor 85,80,200,255
  y1 = os + sin(angle) * sc
  Line 130,10,130,190,3,ARGB 255,0,0,255
  FillOval  80, y1, 100, 50, ARGB 200,255,0,0
  FillOval  80+25, y1+12.5, 50, 25, ARGB 255,255,255,255
  angle += spd
  Flip
  SetFps 60
Wend
Ends
