お絵かきツールを作ろう

オンライン教室用に作ったスライドですが、こちらでも紹介します。
IchigoJamの画面に絵をかく、お絵かきツールです。

お絵かきツールを作ろう from JuyushiClub

www.slideshare.net

使い方

• 矢印キーの上下左右でカーソルが移動、スペースキーでドットを描画／消去します。
• BackSpaceキーで画面をクリアします。
• 絵が描けたらEnterキーを押すと、プログラムと絵を一緒にSAVEします。SAVEしたプログラムをLOAD・RUNすると絵が再現されます。

プログラム

キャラクタ描画バージョン

10 CLV:CLS
15 COPY #900,#D00,768
20 LC X,Y:?CHR$(!SCR(X,Y));
30 WAIT 3
40 K=INKEY()
50 LC X,Y:?CHR$(!SCR(X,Y)^(K=32));
60 X=X-(K=28)+(K=29)
70 Y=Y-(K=30)+(K=31)
80 IF K=8 CLS
100 IF K!=10 GOTO 20
110 COPY #D00,#900,768:SAVE

web版はこちら。

プログラム本体を256バイト以内に収めて、それ以降のプログラムエリア768バイトに画面（絵）をコピーして保存しています。

グラフィック描画バージョン

キャラクタ描画バージョンを2行改造。ファームウェア1.4やIchigoJam web用です。2倍高精細な絵が描けます。

10 CLV:CLS
15 COPY #900,#D00,768
20 DRAW X,Y,2
30 WAIT 3
40 K=INKEY()
50 DRAW X,Y,!POINT(X,Y)^(K=32)
60 X=X-(K=28)+(K=29)
70 Y=Y-(K=30)+(K=31)
80 IF K=8 CLS
100 IF K!=10 GOTO 20
110 COPY #D00,#900,768:SAVE

web版はこちら。

テキスト

十勇士パソコンクラブのページに、プログラムやテキストがあります。
www.white.umic.jp