REM "узоры лиссажу"

! R,H,Q,S - параметр-от 1 до  10
! центровка экрана, у меня 365 и 650
! размер, у меня 100

gr.open 255,200,200,200
gr.orientation 1
gr.screen w,h
gr.cls

INPUT,R

INPUT,H

INPUT,Q

INPUT,S

 FOR X=0 TO 255 STEP 0.1


AL=6.2632*H*X/255
BT=6.2632*Q*X/255
B=6.2632/S

Z=365+R*cos(AL)*100
V=650+R*sin(BT+B)*100

gr.color 255,0,0,0,0

gr.point nc1,Z,V

gr.render

  NEXT X

pausa 10000

end