4/1はIchigoJam記念日! 今年で8周年です。
リサージュ図形で「8」をたくさん描いてみました。
動画はこちら。
www.youtube.com
プログラムリスト
動画ではIchigoJam Rで動かしています。Sだとちょっと遅いです。
10 '*ANNIVERSARY 8 20 @LOOP 30 CLV:CLS 40 WAIT 30 50 LC 11,3:?"IchigoJam" 60 LC 10,20:?"Anniversary" 70 P=31:Q=23:M=6:N=M*2 80 GSB @D8 90 WAIT 180 100 @FLOWER 110 A=90 120 GSB @D8 130 WAIT 130 140 @RANDOM 150 CLS 160 FOR J=1 TO 16 170 P=RND(54)+5 180 Q=RND(38)+5 190 A=RND(8)*45 200 M=RND(8)+2 210 N=M*2 220 GSB @D8 230 WAIT 30 240 NEXT 250 WAIT 30 260 GOTO @LOOP 270 @D8 280 FOR T=0 TO 358 STEP 2 290 U=SIN(T*2)/N 300 V=COS(T)/M 310 X=(U*COS(A)-V*SIN(A))/1024 320 Y=(U*SIN(A)+V*COS(A))/1024 330 DRAW X+P,Y+Q 340 NEXT 350 RTN