uses gdip

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

single y1, angle
single os=60, sc=40, spd= 0.05
int q[6]
int p={ 10,10,  250,10,  120,100 }
int n=3


While not Key 27
  clsColor 85,80,200,255
  sc=1
  os=0
  y1 =1.2+ sin(angle)
  scale p,q,n,y1,y1,20,100
  FillPoly q,n, ARGB 200,255,0,0
  Poly q,n,2, ARGB 255,0,0,128
  angle += spd
  Flip
  SetFps 60
Wend
Ends