風船 version 2


ふっ、ふっ、ふうせんぅ〜〜〜 🎈😍 ←風船大好き

風船に 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 15J.IN/600

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


 

IchigoJam R など、RISC-V プロセッサの IchigoJam では、次の 1 行を入れて下さい。

85 WAIT 1

 

IchigoJam BASIC RPi では、次の 1 行を入れて下さい。

85 WAIT 2

IchigoJam BIG・IchigoJam BASIC 1.2.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 15J.IN/601

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



他のバージョン