• IchigoJam

1 'MARUPANMAN
10 [3]=0:[4]=360:[5]=1:[6]=1
20 CLS
30 LET [0],23,32,24:GSB 200
40 LET [0],7,32,26:GSB 200
50 LET [0],9,18,26,-50,240:GSB200
60 LET [0],9,46,26,120,420:GSB200
70 LET [0],18,32,22,-20,20:GSB200
80 LET [0],6,24,13,120,240:GSB200
90 LET [0],6,38,13,120,240:GSB200
100 LET [0],3,24,13,0,360,8,1:GSB200
110 LET [0],3,38,13:GSB200
190 END
200 'DRAW CIRCLE
201 FOR D=[3] TO [4] STEP 4
210 DRAW SIN(D)*[0]/256/[5]+[1],COS(D)*[0]/256/[6]+[2] 
230 NEXT
240 RTN

Kidspod運営チーム2019/07/04 16:32:39

sin,cosをうまく利用して、書く量に対してコードがかなり少なくなってます。これは勉強になりますね。

Pagetop