大昔のコンピュータグラフィックス@クスクス

173 ：ナイコンさん：2012/04/25(水) 17:15:26.04 .net

シェイプで定義した正方形が回転しながら画面の中を周回。
アップルの整数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へ