Appears on
Library tape of the Indiana Sinclair Timex User’s Group.
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