gr.open 255,0,0,0
GR.ORIENTATION 1

gr.screen f,h

gr.set.stroke 4

k=0

for I=0 to 4

for s=k to 360 step 9

xc=190*sin(s/180*3.14)+200
yc=190*cos(s/180*3.14)+200

gr.color 255,255,255,255
gr.point c,xc,yc

gr.color 255,255,0,250,0
gr.point l1,20+s,200
gr.point l2,200,20+s

gr.color 255,255,255,0,0
gr.point l3,10+s,10+s
gr.point l4,400-s,10+s

gr.render

next s

k++

next I

do

until 0