色一覧

PanCake の色がどんな感じで出力されるかを

確認するために一覧表示します。

 

実行すると PanCake の画面になり、

左上から右に 0、1、2、3、……

右下 15 まで 16 色が表示されます。

キーを押して IchigoJam 画面へ戻ります。

 

初期の PanCake は色を塗りつぶす事ができないため、

1行ずつ LINE で線画させています。

 

PanCake 1.0 RC(開発版)で

固まってしまう事が確認されています。

145 の ' を外して RUN する事で、

正常に動作するようになります。
(これでも稀に固まる事があります)

 

10 'PanCake COLOR LIST
20 VIDEO 0
25 IF VER()>11000 UART 1
30 ?"PANCAKE VIDEO 01
40 ?"PANCAKE CLEAR 00
50 FOR C=0 TO 15
60 X=(C%4)*20
70 Y=(C/4)*11
80 FOR Z=0 TO 10
90 ?"PANCAKE LINE ";
100 ? HEX$(X,2);" ";
110 ? HEX$(Y+Z,2);" ";
120 ? HEX$(X+19,2);" ";
130 ? HEX$(Y+Z,2);" ";
140 ? HEX$(C,2)
150 NEXT
160 NEXT
170 IF INKEY()=0 GOTO 170
180 ?"PANCAKE VIDEO 00
190 VIDEO 1

MixJuice ダウンロード ?"MJ GET kidspod.club/mj/616

MicJack ダウンロード ?"MJ GKP 616


STAMP1 版

ほぼ同じ表示を LINE の代わりに STAMP1 で実現してみたバージョンです。

1.0 RC では 145 の ' を外して下さい。

 

10 'PanCake COLOR LIST - STAMP1
20 VIDEO 0
25 IF VER()>11000 UART 1
30 ?"PANCAKE VIDEO 01
40 ?"PANCAKE CLEAR 00
50 FOR C=0 TO 15
60 A=(C%4)*20
70 B=(C/4)*11
80 FOR X=0 TO 16 STEP 8
90 FOR Y=0 TO 8 STEP 8
100 ?"PANCAKE STAMP1 ";
110 ? HEX$(X+A,2);" ";
120 ? HEX$(Y+B,2);" ";
130 ? HEX$(C,2);" ";
140 ? "FFFFFFFFFFFFFFFF
145 'WAIT 8:'1.0 RC
150 NEXT
160 NEXT
170 NEXT
180 IF INKEY()=0 GOTO 180
190 ?"PANCAKE VIDEO 00
200 VIDEO 1

MixJuice ダウンロード ?"MJ GET kidspod.club/mj/617

MicJack ダウンロード ?"MJ GKP 617