Фигуры Лиссажу

' Траектории - фигуры Лиссажу

SCREEN 12

CONST Pi = 3.141593, KPi = Pi / 180

a1 = 300
b1 = 230
w1 = 19
w2 = 21

Alfa = Pi / 2

t1 = 0

DO
  x1 = a1 * COS(KPi * w1 * t1)
  y1 = b1 * SIN(KPi * w2 * t1 + Alfa)
  CIRCLE (320 + x1, 240 - y1), 2, 15
  t1 = t1 + .01
  IF t1 >= 360 THEN t1 = 0
LOOP WHILE INKEY$ = ""

SCREEN 0
END