ふっ、ふっ、ふうせんぅ〜〜〜 🎈😍 ←風船大好き
風船に version 2 登場です。
風船のキャラクターを生成しつつ、
ピクセル(ドット)単位での
スムーズなスクロールを実現しました。
PRINT 文で分かるとおり、CHR$(#E0)〜(#E2) の
3キャラクターを使用していますが、
POKE でキャラクターに書き込んでいるのは
2文字(+1ピクセル削除)です。
これを順番に POKE のアドレスを変更して、
上にずらしていく事によって
スムーズに飛んでいる状態にしています。
1文字単位でチラツキが発生しているのは、
スクロールによって1文字分ずれるため、
スクロール直前に風船部分(#E0)の線画を
消している影響です。
これを消すと風船が一瞬1文字上にも出てしまいます。
IchigoJam BASIC RPi では発生しません。
10 'フウセン ver 2
20 CLS:CLP:CLV
30 FOR I=7 TO 0 STEP -1
40 A=#E0*8+I
50 POKE A ,#38,#74,#FA,#FE
60 POKE A+4 ,#FE,#7C,#38,#10
70 POKE A+8 ,#10,#08,#08,#10
80 POKE A+12,#10,#08,#08,#10,0
90 NEXT
100 P=O:O=R
110 R=RND(30)+1
120 IF(P=R)+(O=R)GOTO 110
130 POKE #E0*8,0,0,0,0,0,0,0,0
140 SCROLL 0
150 LC R,23:? CHR$(#E0);
160 IF O LC O,23:? CHR$(#E1);
170 IF P LC P,23:? CHR$(#E2);
180 GOTO 30
IchigoJam web でプログラムを実行します。
このQRコードはアクセス解析のためにCookieを使用しています。
アクセス解析は匿名で収集されており、個人を特定するものではありません。
この機能はCookieを無効にすることで収集を拒否することができますので、
お使いのデバイスのブラウザの設定をご確認ください。
MixJuice ダウンロード ?"MJ GET kidspod.club/mj/600
MicJack ダウンロード ?"MJ GKP 600
IchigoJam R など、RISC-V プロセッサの IchigoJam では、次の 1 行を入れて下さい。
85 WAIT 1
IchigoJam BASIC RPi では、次の 1 行を入れて下さい。
85 WAIT 2
10 'フウセン ver 2
15 IF VER()>12233 VIDEO 3
20 CLS:CLP:CLV
30 FOR I=7 TO 0 STEP -1
40 A=#E0*8+I
50 POKE A ,#38,#74,#FA,#FE
60 POKE A+4 ,#FE,#7C,#38,#10
70 POKE A+8 ,#10,#08,#08,#10
80 POKE A+12,#10,#08,#08,#10,0
90 NEXT
100 P=O:O=R
110 R=RND(14)+1
120 IF(P=R)+(O=R)GOTO 110
130 POKE #E0*8,0,0,0,0,0,0,0,0
140 SCROLL 0
150 LC R,11:? CHR$(#E0);
160 IF O LC O,11:? CHR$(#E1);
170 IF P LC P,11:? CHR$(#E2);
180 GOTO 30
IchigoJam web でプログラムを実行します。
このQRコードはアクセス解析のためにCookieを使用しています。
アクセス解析は匿名で収集されており、個人を特定するものではありません。
この機能はCookieを無効にすることで収集を拒否することができますので、
お使いのデバイスのブラウザの設定をご確認ください。
MixJuice ダウンロード ?"MJ GET kidspod.club/mj/601
MicJack ダウンロード ?"MJ GKP 601
SkyBerryJAM は 栃木県立栃木工業高等学校 が管理する登録商標であり、
SkyBerryJAM は 栃木県立栃木工業高等学校 の商標です。
Raspberry Pi は
Raspberry Pi 財団 の登録商標です。
Raspberry Pi is a registered trademark or
trademark of
the Raspberry Pi Foundation.
"RISC-V" の商品名は RISC-Vインターナショナル が管理する登録商標です。
The “RISC-V” trade name is a registered trade mark of
RISC-V International.