Lissajous

Source Code

    5 INK 0: PAPER 7: BORDER 7: CLS 
   10 LET w=1
   20 LET m=1/w: LET n=m
  120 PLOT 0,0: DRAW 255,0: DRAW 0,175: DRAW -255,0: DRAW 0,-175
  130 LET a=0
  140 PLOT 134,92
  210 LET x1=127*SIN ((m+1)*a)+127
  220 LET y1=87*COS ((n+1)*a)+87
  310 LET x2=127*SIN (m*a)+127
  320 LET y2=87*COS (n*a)+87
  330 PLOT x1,y1: DRAW x2-x1,y2-y1
  340 LET a=a+.1
  350 LET w=w+1
  360 GO TO 200
 9998 SAVE "LISSAJOUS" LINE 5