プチコンまとめWiki (初代/mkII)

パンくずリスト

• トップ
• Toukou
• EASY PAINTER

2013年2月5日投稿 / 投稿者 : らいむ / タグ : 投稿プログラム ゲーム QRコード mkII専用

概要

EASY GAME(子供向けゲーム)の３つ目です。

タッチパネルのみで描画できる簡単操作のお絵かきプログラムです。

アイコンの数の関係で機能が少ないですが、

GRPEDと違ってペンのサイズを変えても滑らかな線を描けるようにしてあります。

画面の説明　

左上のパレット　　→　タッチでカラーを選択します。

左の５つのアイコン　→　上から順に　ペン1x1,ペン2x2,ペン4x4,塗りつぶし,全消し　です。

　　　大きな枠　　　→　描画可能範囲です。

　　右上の×印　　　→　END

セーブ・ロード機能について

このプログラムは子供用のらくがきツールとして作ったので、セーブ機能はいらないかなと思いました。

でも一応作っておきました。

STARTボタンで上画面にメニューがでます。

　ロード　→　X

　セーブ　→　Y

　もどる　→　START

対応するボタンを押してファイル名を入力すればOKです。枠の中の絵だけ保存されます。

他のツール等で作った絵をロードしてもよいですが、枠外の部分は消されます。

QR コード

プチコンmkII 向けの QR コードです。

プログラムリスト

+

235行

’−ＥＡＳＹ　ＰＡＩＮＴＥＲ− ’（Ｃ）２０１３　ＲＡＩＭＵ ＰＮＬＴＹＰＥ　”ＯＦＦ ＡＣＬＳ：ＣＬＥＡＲ ＠ＰＡＩＮＴＳ ＧＰＡＧＥ　０：ＣＬＳ ＧＰＵＴＣＨＲ　３２，６４，”ＢＧＦ０”，６９，３，２ ＧＰＵＴＣＨＲ　４８，６４，”ＢＧＦ０”，６５，４，２ ＧＰＵＴＣＨＲ　６４，６４，”ＢＧＦ０”，８３，５，２ ＧＰＵＴＣＨＲ　８０，６４，”ＢＧＦ０”，８９，６，２ ＧＰＵＴＣＨＲ　１１０，６４，”ＢＧＦ０”，８０，７，２ ＧＰＵＴＣＨＲ　１２６，６４，”ＢＧＦ０”，６５，８，２ ＧＰＵＴＣＨＲ　１４２，６４，”ＢＧＦ０”，７３，９，２ ＧＰＵＴＣＨＲ　１５８，６４，”ＢＧＦ０”，７８，１０，２ ＧＰＵＴＣＨＲ　１７４，６４，”ＢＧＦ０”，８４，１１，２ ＧＰＵＴＣＨＲ　１９０，６４，”ＢＧＦ０”，６９，１２，２ ＧＰＵＴＣＨＲ　２０６，６４，”ＢＧＦ０”，８２，１３，２ ＬＯＣＡＴＥ　８，２２：？”↓　シタカ゛メン　ヲ　タッチ　↓ ＣＯＬＯＲ　２ ＬＯＣＡＴＥ　１８，１４：？”（Ｃ）２０１３　ＲＡＩＭＵ ＧＰＡＧＥ　１ ＧＦＩＬＬ　０，０，２５５，２５ ＧＦＩＬＬ　０，０，２７，１９１ ＧＦＩＬＬ　０，１９１，２５５，１８５ ＧＦＩＬＬ　２５５，０，２４９，１９１ ＦＯＲ　Ｘ＝０　ＴＯ　１５ 　ＧＦＩＬＬ　１２＊Ｘ＋８，８，１２＊Ｘ＋１９，１９，Ｘ ＮＥＸＴ ＧＢＯＸ　６，６，２０１，２１，１：ＧＢＯＸ　７，７，２００，２０，２９ ＧＰＳＥＴ　６，６：ＧＰＳＥＴ　２０１，６ ＧＰＳＥＴ　６，２１：ＧＰＳＥＴ　２０１，２１ ＧＢＯＸ　２３２，６，２４８，２２，１８ ＧＰＡＩＮＴ　２３３，７，２ ＧＬＩＮＥ　２３５，９，２４５，１９：ＧＬＩＮＥ　２３６，９，２４５，１８ ＧＬＩＮＥ　２３５，１０，２４４，１９：ＧＬＩＮＥ　２３５，１８，２４４，９ ＧＬＩＮＥ　２３５，１９，２４５，９：ＧＬＩＮＥ　２３６，１９，２４５，１０ ＧＰＳＥＴ　２３２，６：ＧＰＳＥＴ　２３２，２２ ＧＰＳＥＴ　２４８，６：ＧＰＳＥＴ　２４８，２２ ＧＢＯＸ　６，２７，２３，４４，１：ＧＢＯＸ　７，２８，２２，４３，２９ ＧＰＳＥＴ　６，２７：ＧＰＳＥＴ　２３，２７ ＧＰＳＥＴ　６，４４：ＧＰＳＥＴ　２３，４４ ＧＢＯＸ　６，４７，２３，６４，１：ＧＢＯＸ　７，４８，２２，６３，２９ ＧＰＳＥＴ　６，４７：ＧＰＳＥＴ　２３，４７ ＧＰＳＥＴ　６，６４：ＧＰＳＥＴ　２３，６４ ＧＢＯＸ　６，６７，２３，８４，１：ＧＢＯＸ　７，６８，２２，８３，２９ ＧＰＳＥＴ　６，６７：ＧＰＳＥＴ　２３，６７ ＧＰＳＥＴ　６，８４：ＧＰＳＥＴ　２３，８４ ＧＢＯＸ　６，８７，２３，１０４，１：ＧＢＯＸ　７，８８，２２，１０３，２９ ＧＰＳＥＴ　６，８７：ＧＰＳＥＴ　２３，８７ ＧＰＳＥＴ　６，１０４：ＧＰＳＥＴ　２３，１０４ ＧＢＯＸ　６，１０７，２３，１２４，１：ＧＢＯＸ　７，１０８，２２，１２３，２９ ＧＰＳＥＴ　６，１０７：ＧＰＳＥＴ　２３，１０７ ＧＰＳＥＴ　６，１２４：ＧＰＳＥＴ　２３，１２４ ＧＰＳＥＴ　１４，３５，１５ ＧＦＩＬＬ　１４，５５，１５，５６，１５ ＧＦＩＬＬ　１３，７４，１６，７７，１５ ＲＥＳＴＯＲＥ　＠ＢＫＴＤＴ ＦＯＲ　ＣＲＣ＝０　ＴＯ　１ 　ＦＯＲ　Ｙ＝０　ＴＯ　１１ 　　ＲＥＡＤ　Ｃ＄ 　　ＦＯＲ　Ｘ＝０　ＴＯ　９＋ＣＲＣ＊２ 　　　Ｃ＝ＶＡＬ（ＭＩＤ＄（Ｃ＄，Ｘ，１）） 　　　ＧＰＳＥＴ　１０＋Ｘ−ＣＲＣ，９０＋Ｙ＋ＣＲＣ＊２０，（Ｃ＝＝１）＊１５ 　　ＮＥＸＴ 　ＮＥＸＴ ＮＥＸＴ ＣＲ＝１５ ＠ＬＰ 　ＧＯＳＵＢ　＠ＴＣＨＰＮＬ 　ＧＯＳＵＢ　＠ＢＣＲＳＥＴ 　ＧＢＯＸ　２８，２６，２４８，１８４，１：ＧＢＯＸ　２９，２７，２４７，１８３，２９ 　ＧＢＯＸ　３０，２８，２４６，１８２，１５：ＧＢＯＸ　３１，２９，２４５，１８１，２９ 　ＧＰＳＥＴ　２８，２６：ＧＰＳＥＴ　２４８，２６ 　ＧＰＳＥＴ　２８，１８４：ＧＰＳＥＴ　２４８，１８４ 　ＩＦ　ＢＴＲＩＧ（）＝＝１０２４　ＴＨＥＮ　ＢＥＥＰ　２：ＧＯＴＯ　＠ＤＴＭ 　ＶＳＹＮＣ　１ ＧＯＴＯ　＠ＬＰ ＠ＢＣＲＳＥＴ 　ＧＢＯＸ　１２＊ＣＲ＋８，８，１２＊ＣＲ＋１９，１９，ＢＣＲ＋６４ 　ＧＢＯＸ　７，２８＋Ｓ＊２０，２２，４３＋Ｓ＊２０，ＢＣＲ＋６４ 　ＢＣＲ＝（ＢＣＲ＋１）％１６ ＲＥＴＵＲＮ ＠ＴＣＨＰＮＬ 　ＩＦ　ＴＣＨＳＴ＝＝０　ＴＨＥＮ　ＮＴ＝０：ＲＥＴＵＲＮ 　ＩＦ　ＮＴ＝＝０　ＴＨＥＮ　ＮＴ＝１：ＭＴＸ＝ＴＣＨＸ：ＭＴＹ＝ＴＣＨＹ 　ＩＦ　ＴＣＨＹ＜１９　ＡＮＤ　ＴＣＨＸ＞７　ＡＮＤ　ＴＣＨＸ＜２０２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＲＳＥＴ 　ＩＦ　ＴＣＨＸ＞５　ＡＮＤ　ＴＣＨＸ＜２３　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＣＨＡＮＧＥ 　ＩＦ　ＴＣＨＸ＞２３２　ＡＮＤ　ＴＣＨＸ＜２４８　ＡＮＤ　ＴＣＨＹ＞６　ＡＮＤ　ＴＣＨＹ＜２２　ＴＨＥＮ　ＢＥＥＰ　９：ＥＮＤ 　ＩＦ　ＴＣＨＸ＞２７＋Ｓ　ＡＮＤ　ＴＣＨＹ＞２５＋（Ｓ＝＝２）　ＡＮＤ　ＴＣＨＸ＜２４９−Ｓ　ＡＮＤ　ＴＣＨＹ＜１８５−Ｓ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＡＩＮＴ　ＥＬＳＥ　ＮＴ＝０ ＲＥＴＵＲＮ ＠ＣＲＳＥＴ 　ＧＢＯＸ　１２＊ＣＲ＋８，８，１２＊ＣＲ＋１９，１９，ＣＲ：ＣＲ＝ＦＬＯＯＲ（（ＴＣＨＸ−８）／１２） 　ＣＲ＝ＣＲ−（ＣＲ＝＝１６）＋（ＣＲ＝＝−１） ＲＥＴＵＲＮ ＠ＰＡＩＮＴ 　ＲＤ＝ＴＡＮ（ＡＴＡＮ（ＴＣＨＹ−ＭＴＹ，ＴＣＨＸ−ＭＴＸ）） 　ＩＦ　Ｓ＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＬＩＮＥ 　ＩＦ　Ｓ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＭＬＩＮＥ 　ＩＦ　Ｓ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＬＬＩＮＥ 　ＩＦ　Ｓ＝＝３　ＴＨＥＮ　ＧＰＡＩＮＴ　ＴＣＨＸ，ＴＣＨＹ，ＣＲ 　ＩＦ　Ｓ＝＝４　ＴＨＥＮ　ＧＦＩＬＬ　３２，３０，２４４，１８０，ＣＲ ＭＴＸ＝ＴＣＨＸ：ＭＴＹ＝ＴＣＨＹ ＲＥＴＵＲＮ ＠ＳＬＩＮＥ 　ＧＬＩＮＥ　ＴＣＨＸ，ＴＣＨＹ，ＭＴＸ，ＭＴＹ，ＣＲ ＲＥＴＵＲＮ ＠ＭＬＩＮＥ 　ＩＦ　ＲＤ＜０　ＴＨＥＮ　＠ＭＬ２ 　ＧＬＩＮＥ　ＴＣＨＸ，ＴＣＨＹ，ＭＴＸ＋１，ＭＴＹ＋１，ＣＲ 　ＧＬＩＮＥ　ＴＣＨＸ，ＴＣＨＹ＋１，ＭＴＸ，ＭＴＹ＋１，ＣＲ 　ＧＬＩＮＥ　ＴＣＨＸ＋１，ＴＣＨＹ，ＭＴＸ＋１，ＭＴＹ，ＣＲ ＲＥＴＵＲＮ ＠ＭＬ２ 　ＧＬＩＮＥ　ＴＣＨＸ，ＴＣＨＹ，ＭＴＸ−１，ＭＴＹ＋１，ＣＲ 　ＧＬＩＮＥ　ＴＣＨＸ−１，ＴＣＨＹ，ＭＴＸ−１，ＭＴＹ，ＣＲ 　ＧＬＩＮＥ　ＴＣＨＸ，ＴＣＨＹ＋１，ＭＴＸ，ＭＴＹ＋１，ＣＲ ＲＥＴＵＲＮ ＠ＬＬＩＮＥ 　ＩＦ　ＴＣＨＸ−ＭＴＸ＜＝０　ＴＨＥＮ　Ｘ１＝ＴＣＨＸ：Ｘ２＝ＭＴＸ：Ｙ１＝ＴＣＨＹ：Ｙ２＝ＭＴＹ 　ＩＦ　ＴＣＨＸ−ＭＴＸ＞０　ＴＨＥＮ　Ｘ１＝ＭＴＸ：Ｘ２＝ＴＣＨＸ：Ｙ１＝ＭＴＹ：Ｙ２＝ＴＣＨＹ 　ＩＦ　ＲＤ＜０　ＴＨＥＮ　＠ＬＬ２ 　ＧＬＩＮＥ　Ｘ１−１，Ｙ１−１，Ｘ２＋２，Ｙ２＋２，ＣＲ 　ＧＬＩＮＥ　Ｘ１，Ｙ１−１，Ｘ２＋２，Ｙ２＋１，ＣＲ 　ＧＬＩＮＥ　Ｘ１＋１，Ｙ１−１，Ｘ２＋２，Ｙ２，ＣＲ 　ＧＬＩＮＥ　Ｘ１＋２，Ｙ１−１，Ｘ２＋２，Ｙ２＋１，ＣＲ 　ＧＬＩＮＥ　Ｘ１−１，Ｙ１，Ｘ２＋１，Ｙ２＋２，ＣＲ 　ＧＬＩＮＥ　Ｘ１−１，Ｙ１＋１，Ｘ２，Ｙ２＋２，ＣＲ 　ＧＬＩＮＥ　Ｘ１−１，Ｙ１＋２，Ｘ２−１，Ｙ２＋２，ＣＲ ＲＥＴＵＲＮ ＠ＬＬ２ 　ＧＬＩＮＥ　Ｘ２＋１，Ｙ２−１，Ｘ１−２，Ｙ１＋２，ＣＲ 　ＧＬＩＮＥ　Ｘ２，Ｙ２−１，Ｘ１−２，Ｙ１＋１，ＣＲ 　ＧＬＩＮＥ　Ｘ２−１，Ｙ２−１，Ｘ１−２，Ｙ１，ＣＲ 　ＧＬＩＮＥ　Ｘ２−２，Ｙ２−１，Ｘ１−２，Ｙ１−１，ＣＲ 　ＧＬＩＮＥ　Ｘ２＋１，Ｙ２，Ｘ１−１，Ｙ１＋２，ＣＲ 　ＧＬＩＮＥ　Ｘ２＋１，Ｙ２＋１，Ｘ１，Ｙ１＋２，ＣＲ 　ＧＬＩＮＥ　Ｘ２＋１，Ｙ２＋２，Ｘ１＋１，Ｙ１＋２，ＣＲ ＲＥＴＵＲＮ ＠ＳＣＨＡＮＧＥ 　ＭＳ＝Ｓ 　ＩＦ　ＴＣＨＹ＞２６　ＡＮＤ　ＴＣＨＹ＜４４　ＡＮＤ　Ｓ！＝０　ＴＨＥＮ　ＢＥＥＰ　９：Ｓ＝０ 　ＩＦ　ＴＣＨＹ＞４６　ＡＮＤ　ＴＣＨＹ＜６４　ＡＮＤ　Ｓ！＝１　ＴＨＥＮ　ＢＥＥＰ　９：Ｓ＝１ 　ＩＦ　ＴＣＨＹ＞６６　ＡＮＤ　ＴＣＨＹ＜８４　ＡＮＤ　Ｓ！＝２　ＴＨＥＮ　ＢＥＥＰ　９：Ｓ＝２ 　ＩＦ　ＴＣＨＹ＞８６　ＡＮＤ　ＴＣＨＹ＜１０４　ＡＮＤ　Ｓ！＝３　ＴＨＥＮ　ＢＥＥＰ　９：Ｓ＝３ 　ＩＦ　ＴＣＨＹ＞１０６　ＡＮＤ　ＴＣＨＹ＜１２４　ＡＮＤ　Ｓ！＝４　ＴＨＥＮ　ＢＥＥＰ　９：Ｓ＝４ 　ＩＦ　ＭＳ！＝Ｓ　ＴＨＥＮ　ＧＢＯＸ　７，２８＋ＭＳ＊２０，２２，４３＋ＭＳ＊２０，２９ ＲＥＴＵＲＮ ＠ＤＴＭ ＧＰＡＧＥ　０：ＧＣＬＳ：ＣＬＳ ＧＰＡＧＥ　１ ＣＯＬＯＲ　０ ？：？”　ロ−ト゛・・・Ｘ ？：？”　セ−フ゛・・・Ｙ ？：？”　モト゛ル・・・ＳＴＡＲＴ ＠ＤＴＬ ＶＳＹＮＣ　１ ＩＦ　ＢＴＲＩＧ（）＝＝６４　ＴＨＥＮ　ＢＥＥＰ　３：ＧＯＴＯ　＠ＬＤ ＩＦ　ＢＴＲＩＧ（）＝＝１２８　ＴＨＥＮ　ＢＥＥＰ　３：ＧＯＴＯ　＠ＳＶ ＩＦ　ＢＴＲＩＧ（）＝＝１０２４　ＴＨＥＮ　ＢＥＥＰ　４：ＧＯＴＯ　＠ＰＡＩＮＴＳ ＧＯＴＯ　＠ＤＴＬ ＠ＬＤ ？：ＩＮＰＵＴ　”ナマエ（ロ−ト゛）”；Ｆ＄ ＧＯＳＵＢ　＠ＣＨＥＣＫ ＩＦ　ＥＲ！＝ＸＰ　ＯＲ　ＸＰ＞８　ＴＨＥＮ　ＢＥＥＰ　２：ＧＯＴＯ　＠ＰＡＩＮＴＳ ＬＯＡＤ”ＧＲＰ１：”＋Ｆ＄，ＦＡＬＳＥ ＧＯＴＯ　＠ＰＡＩＮＴＳ ＠ＳＶ ？：ＩＮＰＵＴ　”ナマエ（セ−フ゛）”；Ｆ＄ ＧＯＳＵＢ　＠ＣＨＥＣＫ ＩＦ　ＥＲ！＝ＸＰ　ＯＲ　ＸＰ＞８　ＴＨＥＮ　ＢＥＥＰ　２：ＧＯＴＯ　＠ＰＡＩＮＴＳ ＧＦＩＬＬ　０，０，２５５，２９ ＧＦＩＬＬ　０，０，３１，１９１ ＧＦＩＬＬ　０，１９１，２５５，１８１ ＧＦＩＬＬ　２５５，０，２４５，１９１ ＳＡＶＥ”ＧＲＰ１：”＋Ｆ＄ ＧＯＴＯ　＠ＰＡＩＮＴＳ ＠ＣＨＥＣＫ ＸＰ＝ＬＥＮ（Ｆ＄）：ＥＲ＝０ ＦＯＲ　Ｘ＝０　ＴＯ　ＸＰ−１ Ｍ＝ＡＳＣ（ＭＩＤ＄（Ｆ＄，Ｘ，１）） ＥＲ＝ＥＲ＋（Ｍ＞４７）＊（Ｍ＜５８）＋（Ｍ＞６４）＊（Ｍ＜９１）＋（Ｍ＝＝９５） ＮＥＸＴ ＲＥＴＵＲＮ ＠ＢＫＴＤＴ ＤＡＴＡ　”００００００１１００” ＤＡＴＡ　”０００００１００１０” ＤＡＴＡ　”０００１１１００１０” ＤＡＴＡ　”００１００１１０１０” ＤＡＴＡ　”０１０００１０１１０” ＤＡＴＡ　”１０００１０００１０” ＤＡＴＡ　”１１１１０００００１” ＤＡＴＡ　”１１１００００００１” ＤＡＴＡ　”１１０００００００１” ＤＡＴＡ　”１０１０００００１０” ＤＡＴＡ　”１００１０００１００” ＤＡＴＡ　”１０００１１１０００” ＤＡＴＡ　”００００００１１００００” ＤＡＴＡ　”０００００１１１１０００” ＤＡＴＡ　”００００１１１１１１００” ＤＡＴＡ　”０００１１１１１１１１０” ＤＡＴＡ　”００１１１１１１１１１１” ＤＡＴＡ　”０１０１１１１１１１１１” ＤＡＴＡ　”１０００１１１１１１１０” ＤＡＴＡ　”１００００１１１１１００” ＤＡＴＡ　”０１００００１１１０００” ＤＡＴＡ　”００１００００１００００” ＤＡＴＡ　”０００１００１０００００” ＤＡＴＡ　”００００１１００００００”

投票

正直な評価お願いします。

選択肢	投票
とても良い	1
良い	3
普通	2
悪い	0
とても悪い	0

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

• 名無しさん : いいねー参考にさせてもらうわ (2013/02/06 (水) 09:53:11)
• らいむ : スクリーンショットUP。 (2013/02/08 (金) 03:24:03)
• 道産子の初心者 : シンプルでいいですね！ (2013/02/11 (月) 13:01:14)

お名前: