Content
Image Gallery
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