福野泰介の一日一創

なめらかな横スクロールの秘密は、100-110行で、PCGを使って16コ定義したキャラクターです。190-200行で切り替えることでなめらかに動いているように見せています。

100 FORI=0TO7:V=1<<I-1:FORJ=0TO7:POKE#700+I*16+J,V:NEXT:NEXT 110 FORI=0TO7:V=~(1<<I-1):FORJ=0TO7:POKE#708+I*16+J,V:NEXT:NEXT 120 'FORI=0TO15STEP2:?CHR$(224+I);CHR$(224+I+1),I:NEXT 130 Z=15:VIDEO3:'Z=31 IF VIDEO1 140 S="MERRY XMAS! ":F=6:'8KANA 150 X=0 160 FORI=0TO7:C=PEEK(S+X/F):V=PEEK(C*8+I)>>(7-X%F)&1:C=PEEK(S+(X+1)/F):W=PEEK(C*8+I)>>(7-(X+1)%F)&1 170 P=(V!=W)*240+V 180 LCZ,2+I:?CHR$(P);:NEXT 190 FORI=1TO7:COPY240*8,224*8+16*I,16:WAIT2:NEXT 200 COPY240*8,224*8,16 210 SCROLL LEFT 220 X=X+1:IF X/F=LEN(S) X=0 230 GOTO160

アルファベット表示は、F=6として、隙間が空きすぎないように設定しています。

カタカナも表示できます。カタカナや絵文字を表示する場合は、Fを8にして、横8ドット分表示するモードにしましょう。

IchigoDyhookで作ったプログラム、ちょうど1画面に収まりました！ あえてUSBシリアルで転送せず、写真から打ち込みました。MSX時代が懐かしい！

「RUN on IchigoJam web」
IchigoJam webだと、ちょっとなめらかさに欠けるので、ぜひ実機でご覧ください！
プロジェクターで映すと、大きな看板替わりにもなりそう！

「IchigoJam - Qiita Advent Calendar 2025 - Qiita」
IchigoJam Advent Calendar 2025、みなさんのエントリー、ありがとうございました！

links
- IchigoJam
- IchigoJam - Qiita Advent Calendar 2025 - Qiita
- IchigoJam Advent Calendar 参加者募集!