10 GR 20 FOR A = 3 TO 50: FOR B = 1 TO 19: FOR C = 0 TO 19 30 D = B + C: COLOR= C * 3 / (B + 3) + B * A / 12 40 PLOT B,D: PLOT D,B: PLOT 40 - B,40 - D: PLOT 40 - D,40 - B 50 PLOT D,40 - B: PLOT 40 - B,D: PLOT B,40 - D: PLOT 40 - D,B 60 NEXT C: NEXT B: NEXT A: GOTO 20
10 REM CREATE FRAMES FIRST 20 B(1) = .5:C(1) = .5:C(2) = .25:C(3) = .75 30 B(4) = 1:C(4) = .25:B(5) = 1:C(5) = .75 40 B(6) = .5:B(7) = .5:C(7) = 1 50 FOR E = 1 TO 7 60 READ M: HGR :W = .588:R = .15:Y = .5:X = Y 70 FOR A = 1 TO 7: FOR B = 1 TO 7: FOR C = 1 TO 3 80 U = 140 - M * W + M * X 90 V = 90 + M * W - M * Y 100 ON (U < 0 OR U > 279 OR V < 0 OR V > 191) GOTO 120 110 HCOLOR= 7: HPLOT U,V 120 A(1) = A:A(2) = B:A(3) = 1 130 Z = A(C):H = B(Z):K = C(Z) 140 X = R * X + H:Y = R * Y + K 150 NEXT C: NEXT B: NEXT A 160 REM SAVE VRAM TO FILE ON RAMDISK 170 PRINT CHR$ (4)"BSAVE/RAM/P"M",A8192,L8192" 180 NEXT E 続く…
190 RESTORE 200 POKE 49234,0 210 DATA 129,167,217,282,366,475,617 220 REM ANIMATION LOOP 230 FOR A = 1 TO 999 240 FOR T = 1 TO 7 250 READ M 260 REM RESTORE VRAM FROM FILE 270 PRINT CHR$ (4)"BLOAD/RAM/P"M 280 NEXT T 290 RESTORE 300 NEXT A 310 TEXT 320 END
Part2 360 REM DRAW SHAPE 370 SCALE=46 380 COLR=BLACK 390 SHAPE=1 400 FOR L=0 TO 1 STEP 0 410 IF COLR=BLACK THEN GOTO 430 420 COLR=BLACK: GOTO 440 430 COLR=WHITE 440 FOR X=230 TO 1 STEP -46 450 FOR R=64 TO 49 STEP -1 460 ROT=R 470 X0=X:Y0=191 480 CALL DRAW 490 NEXT R: NEXT X 500 FOR Y=145 TO 53 STEP -46 510 FOR R=16 TO 1 STEP -1 520 ROT=R 530 X0=0:Y0=Y 540 CALL DRAW 550 NEXT R: NEXT Y 560 FOR X=46 TO 275 STEP 46 570 FOR R=32 TO 17 STEP -1 580 ROT=R 590 X0=X:Y0=7 600 CALL DRAW 610 NEXT R: NEXT X Part3へ