100 CLS 3 110 CLEAR 120 WITDH 80,25 130 CONSOLE 0,25,0,1 140 COLOR 7,,,2 150 ' 160 FOR I=0 TO 100 170 X = RND * 640 180 Y = RND * 480 190 C = RND * 15+1 200 LINE -(X,Y),C 210 NEXT I 220 END
>>50をアップルの整数BASICで。 100 X0=Y0=COLR=I 110 INIT=-12288:PLOT=-11506 120 LINE=-11500 130 LET GREEN=42:VIOLET=85 140 WHITE=127:ORANGE=170 150 BLUE=213 160 CALL INIT: POKE -16302,0 170 DIM C(5) 180 C(1)=GREEN:C(2)=VIOLET 190 C(3)=WHITE:C(4)=ORANGE 200 C(5)=BLUE 210 X0=RND(280) 220 Y0=RND(192) 230 COLR=C(RND(5)+1) 240 CALL PLOT 250 FOR I=0 TO 100 260 X0=RND(280) 270 Y0=RND(192) 280 CALL LINE 290 COLR=C(RND(5)+1) 300 NEXT I 310 INPUT A$ 320 TEXT 330 END
170 : ナイコンさん[sage] : 2012/04/10(火) 19:11:17.76
万華鏡だと言い張ったあの頃。
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 続く…
172 : ナイコンさん[sage] : 2012/04/23(月) 00:25:37.68
…続き
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
シェイプで定義した正方形が回転しながら画面の中を周回。 アップルの整数BASICで。 100 REM CREATE SHAPE TABLE($0800) 110 POKE 2048,1 120 POKE 2049,0 130 POKE 2050,4 140 POKE 2051,0 150 POKE 2052,44: REM $2C 160 POKE 2053,62: REM $3E 170 POKE 2054,0 180 REM SET POINTER OF THAT SHAPE TABLE 190 REM $0328(808)=LOW BYTE $0329(809)=HI BYTE 200 POKE 808,2048 MOD 256: REM $00 210 POKE 809,2048/256: REM $08 220 REM SHIFT LOMEM TO SHAPE TABLE+1 230 POKE 74,(2048+7+1) MOD 256 240 POKE 75,(2048+7+1)/256 250 POKE 204, PEEK (74) 260 POKE 205, PEEK (75) 270 REM DEFINE VARIABLES 280 X0=Y0=COLR=SHAPE=ROT=SCALE 290 INIT=-12288:CLEAR=-12274:BKGND=-11471 300 POSN=-11527:PLOT=-11506:LINE=-11500 310 DRAW=-11465:DRAW1=-11462 320 BLACK=0:WHITE=127 330 SSWFULLSCR=-16302 340 REM INVOKE HGR W/O TEXT 350 CALL INIT: POKE SSWFULLSCR,0 Part2へ
174 : ナイコンさん[sage] : 2012/04/25(水) 17:17:03.91
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へ
175 : ナイコンさん[sage] : 2012/04/25(水) 17:18:50.32
Part3 620 FOR Y=53 TO 145 STEP 46 630 FOR R=48 TO 33 STEP -1 640 ROT=R 650 X0=279:Y0=Y 660 CALL DRAW 670 NEXT R: NEXT Y 680 NEXT L