// yellow bars
//
HGR 
RAD  // Not Degrees!
thickness = 10
c = 0
CYCLE 
  PROC animation(TIME / 1000)
  UPDATE 
  c = c + 0.01
REPEAT 
//
//
DATA 0.0, 0.2, 0.5, 0.8, 0.7
DATA -1
//
DEF PROC animation (cx)
LOCAL phase, x, now
COLOUR = Black
RECT (0, 0, GWIDTH, GHEIGHT, 1)
RESTORE
CYCLE 
  colour = colour + 1
  READ phase
  IF phase = -1 THEN BREAK 
  x = GWIDTH / 2 + SIN (2 * PI * ((cx * 0.02) + phase)) * GWIDTH / 2
  RECT (x - thickness / 2, 0, thickness, GHEIGHT, 1)
REPEAT 
ENDPROC