投稿プログラム : PICエンコーダ
2011年12月09日投稿 / 2012年01月08日16x16バージョンに変更 / 投稿者 : 名無しさん / タグ : 投稿プログラム ツール 画像圧縮 初代対応 QRコード
概要
16x16のキャラ(スプライト用)データをPIC形式で圧縮するプログラムです。
http://fussy.web.fc2.com/algo/algo8-1.htm
上記パスのロジックを移植したものになります。
掲載のリストでは、SPU0の0〜31(1〜8キャラ目)をエンコードし、 ファンクションキーにDATA文を設定します。
デコーダを組み込んだプログラムに ファンクションに登録したDATA文をペーストするような使い方を想定しています。 デコーダはToukou/PICデコーダをご覧下さい。
データの仕様
以下のような形となります。1文字は0〜Fの16進に使われる文字です。
((前の変更点との距離((色)(縦への連鎖位置)*(3)))|0)*
アスタリスクは直前のデータが0個以上連続することを意味します。 クエスチョンマークは直前のデータが0個または1個あることを意味します。 パイプはORです。
1文字目は不要なデータです。形式上存在するだけ。(エンコーダ・デコーダを変更すれば削減できます) 2文字目以降に色、縦への連鎖位置、区切りを表す3が来て1つ分です。 連鎖位置は-7〜+7となります。 距離が0だった場合は、前の色が15個連続していることを表します。
展開確認
展開確認は、PICデコーダを使用してください。
改造など
配列のサイズやPWやPHを変更すれば、他のサイズの画像にも使用出来るはずです。
その他使いやすいように改造してくださって結構です。
QR コード
プチコンmkII 向けの QR コードです。
| PRG:PIC_ENC | |
|---|---|
| 1/2 | 2/2 |
 |  |
プログラムリスト
- ＣＬＥＡＲ：ＢＧＰＡＧＥ ０：ＧＰＡＧＥ ０：ＳＰＰＡＧＥ ０
- ＢＡＮＫ＄＝”ＳＰＵ０”
- ＣＯＦＳ＝０
- ＣＨＲＮ＝８
- ＤＩＭ ＰＩＣＦ（２５６），ＰＩＣＣ（２５６），ＰＩＣＤ（２５６），ＰＩＮ＄（４）
- ＫＥＹ １，”ＦＩＬＥＳ”
- ＫＥＹ ２，”ＬＯＡＤ”＋ＣＨＲ＄（３４）
- ＫＥＹ ３，”ＳＡＶＥ”＋ＣＨＲ＄（３４）
- ＫＥＹ ４，”ＣＯＮＴ”
- ＫＥＹ ５，”ＲＵＮ”
- ＰＰ＄＝””：ＳＵＭ＝０
- ＦＵＮＣ＝１
- ＦＯＲ ＣＨＮ＝０ ＴＯ ＣＨＲＮ−１
- ＦＯＲ ＣＣ＝０ ＴＯ ３
- ＣＨＲＲＥＡＤ（ＢＡＮＫ＄，ＣＣ＋（ＣＯＦＳ＋ＣＨＮ）＊４），ＰＩＮ＄（ＣＣ）
- ＮＥＸＴ
- ＧＯＳＵＢ ＠ＣＨＲＲＥＢ
- ＧＯＳＵＢ ＠ＰＩＣＰＡＣＫ
- ＳＵＭ＝ＳＵＭ＋ＬＥＮ（ＰＯＵＴ＄）
- Ｌ＝ＬＥＮ（ＰＯＵＴ＄）
- Ｌ＝Ｌ＋３
- Ｃ＝ＦＬＯＯＲ（Ｌ／９３）＋（Ｌ％９３＞０）
- ＩＦ ＦＵＮＣ＝＝５ ＡＮＤ ＬＥＮ（ＰＰ＄）＋ＬＥＮ（ＰＯＵＴ＄）＋３＋５＊Ｃ＞２５６ ＴＨＥＮ ？ＣＯＦＳ＋ＣＨＮ；”テ゛ チュウタ゛ン”：ＥＮＤ
- Ｐ＄＝”ＤＡＴＡ ”＋ＳＴＲ＄（Ｃ）＋”，”＋ＣＨＲ＄（３４）＋ＭＩＤ＄（ＰＯＵＴ＄，０，９１）＋ＣＨＲ＄（１３）
- ＰＯＳ＝９１
- ＩＦ ＬＥＮ（Ｐ＄）＋ＬＥＮ（ＰＰ＄）＞２５６ ＴＨＥＮ ＫＥＹ ＦＵＮＣ，ＰＰ＄：ＦＵＮＣ＝ＦＵＮＣ＋１：ＰＰ＄＝””
- ＰＰ＄＝ＰＰ＄＋Ｐ＄
- ＠ＰＬＰ
- ＩＦ ＰＯＳ＞＝ＬＥＮ（ＰＯＵＴ＄） ＴＨＥＮ ＠ＰＥＮＤ
- Ｐ＄＝”ＤＡＴＡ ”＋ＣＨＲ＄（３４）＋ＭＩＤ＄（ＰＯＵＴ＄，ＰＯＳ，９３）＋ＣＨＲ＄（１３）
- ＰＯＳ＝ＰＯＳ＋９３
- ＩＦ ＬＥＮ（Ｐ＄）＋ＬＥＮ（ＰＰ＄）＞２５６ ＴＨＥＮ ＫＥＹ ＦＵＮＣ，ＰＰ＄：ＦＵＮＣ＝ＦＵＮＣ＋１：ＰＰ＄＝””
- ＩＦ ＦＵＮＣ＝＝６ ＴＨＥＮ ？ＣＯＦＳ＋ＣＨＮ；”テ゛ チュウタ゛ン”：ＥＮＤ
- ＰＰ＄＝ＰＰ＄＋Ｐ＄
- ＧＯＴＯ ＠ＰＬＰ
- ＠ＰＥＮＤ
- ？ＣＯＦＳ＋ＣＨＮ；” ＯＫ． ２５６−＞”；ＬＥＮ（ＰＯＵＴ＄）／２５６＊１００；”％
- ＮＥＸＴ
- ？ＳＵＭ／（ＣＨＲＮ＊２５６）＊１００；”％”
- ＫＥＹ ＦＵＮＣ，ＰＰ＄
- ＥＮＤ
- ＠ＣＨＲＲＥＢ
- ＰＩＮ＄＝””：ＴＭＰ＄＝””
- ＦＯＲ Ｉ＝０ ＴＯ ７
- ＰＩＮ＄＝ＰＩＮ＄＋ＭＩＤ＄（ＰＩＮ＄（０），Ｉ＊８，８）
- ＰＩＮ＄＝ＰＩＮ＄＋ＭＩＤ＄（ＰＩＮ＄（１），Ｉ＊８，８）
- ＴＭＰ＄＝ＴＭＰ＄＋ＭＩＤ＄（ＰＩＮ＄（２），Ｉ＊８，８）
- ＴＭＰ＄＝ＴＭＰ＄＋ＭＩＤ＄（ＰＩＮ＄（３），Ｉ＊８，８）
- ＮＥＸＴ
- ＰＩＮ＄＝ＰＩＮ＄＋ＴＭＰ＄
- ＲＥＴＵＲＮ
- ＠ＰＩＣＰＡＣＫ
- ＰＷ＝１６：ＰＨ＝１６：ＰＬＥＮ＝１：ＰＤＰ＝０
- ＧＯＳＵＢ ＠ＳＣＨＧＰＴ
- ＦＯＲ ＿＿Ｙ＝０ ＴＯ ＰＨ−１
- ＦＯＲ ＿＿Ｘ＝０ ＴＯ ＰＷ−１
- ＿ＰＯＳ＝＿＿Ｘ＋＿＿Ｙ＊ＰＷ
- ＩＦ ＰＩＣＦ（＿ＰＯＳ）＝＝０ ＴＨＥＮ ＠ＰＰ２
- ＰＩＣＤ（ＰＤＰ）＝ＰＬＥＮ：ＰＤＰ＝ＰＤＰ＋１
- ＰＩＣＤ（ＰＤＰ）＝ＰＩＣＣ（＿ＰＯＳ）：ＰＤＰ＝ＰＤＰ＋１
- ＧＯＳＵＢ ＠ＳＣＨＮＰＴ
- ＰＬＥＮ＝０
- ＠ＰＰ２
- ＩＦ ＰＬＥＮ＝＝１５ ＴＨＥＮ ＰＩＣＤ（ＰＤＰ）＝０：ＰＬＥＮ＝０：ＰＤＰ＝ＰＤＰ＋１
- ＰＬＥＮ＝ＰＬＥＮ＋１
- ＮＥＸＴ
- ＮＥＸＴ
- ＰＯＵＴ＄＝””
- ＦＯＲ ＿Ｉ＝０ ＴＯ ＰＤＰ−１
- ＰＯＵＴ＄＝ＰＯＵＴ＄＋ＨＥＸ＄（ＰＩＣＤ（＿Ｉ） ＡＮＤ １５）
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ＠ＳＣＨＧＰＴ
- ＰＰＣ＝−１
- ＦＯＲ ＿ＳＹ＝０ ＴＯ ＰＨ−１
- ＦＯＲ ＿ＳＸ＝０ ＴＯ ＰＷ−１
- ＿ＰＯＳ＝＿ＳＸ＋＿ＳＹ＊ＰＷ
- ＿Ｃ＝ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（ＰＩＮ＄，＿ＰＯＳ，１））
- ＩＦ ＰＰＣ＝＝＿Ｃ ＴＨＥＮ ＠ＳＣＰ２
- ＰＩＣＦ（＿ＰＯＳ）＝１
- ＰＩＣＣ（＿ＰＯＳ）＝＿Ｃ
- ＰＰＣ＝＿Ｃ
- ＧＯＴＯ ＠ＳＣＰ３
- ＠ＳＣＰ２
- ＰＩＣＦ（＿ＰＯＳ）＝０
- ＠ＳＣＰ３
- ＮＥＸＴ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ＠ＳＣＨＮＰＴ
- ＿ＮＣ＝ＰＩＣＣ（＿ＰＯＳ）：＿ＳＸ＝＿＿Ｘ：＿ＳＹ＝＿＿Ｙ
- ＠ＳＣＰＬＰ
- ＿ＳＹ＝＿ＳＹ＋１
- ＩＦ ＿ＳＹ＞＝ＰＨ ＴＨＥＮ ＠ＳＣＬＰＯ
- ＿Ｉ＝−７：＿ＳＸ＝＿ＳＸ＋＿Ｉ
- ＠ＳＮＰ０
- ＩＦ ＿ＳＸ＜０ ＡＮＤ ＿Ｉ＜＝７ ＴＨＥＮ ＿Ｉ＝＿Ｉ＋１：＿ＳＸ＝＿ＳＸ＋１：ＧＯＴＯ ＠ＳＮＰ０
- ＠ＳＮＰ１
- ＩＦ ＿ＳＸ＞＝ＰＷ ＯＲ ＿Ｉ＞７ ＴＨＥＮ ＠ＳＮＰ２
- ＿ＰＯＳ＝＿ＳＸ＋＿ＳＹ＊ＰＷ
- ＩＦ ＰＩＣＦ（＿ＰＯＳ）＝＝０ ＯＲ ＿ＮＣ！＝ＰＩＣＣ（＿ＰＯＳ） ＴＨＥＮ ＠ＳＮＰ１０
- ＰＩＣＦ（＿ＰＯＳ）＝０
- ＧＯＴＯ ＠ＳＮＰ２
- ＠ＳＮＰ１０
- ＿Ｉ＝＿Ｉ＋１：＿ＳＸ＝＿ＳＸ＋１
- ＧＯＴＯ ＠ＳＮＰ１
- ＠ＳＮＰ２
- ＩＦ ＿ＳＸ＞＝ＰＷ ＴＨＥＮ ＠ＳＣＬＰＯ
- ＰＩＣＤ（ＰＤＰ）＝＿Ｉ：ＰＤＰ＝ＰＤＰ＋１
- ＩＦ ＿Ｉ＝＝８ ＴＨＥＮ ＠ＳＣＬＰＯ
- ＧＯＴＯ ＠ＳＣＰＬＰ
- ＠ＳＣＬＰＯ
- ＩＦ ＿ＳＸ＞＝ＰＷ ＯＲ ＿ＳＹ＞＝ＰＨ ＴＨＥＮ ＰＩＣＤ（ＰＤＰ）＝８：ＰＤＰ＝ＰＤＰ＋１
- ＲＥＴＵＲＮ
CHECKER FLAG (ひとことコメント)
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
- sou51 : 16x16版に変更しました (2012/01/08 (日) 11:21:03)
- 名無しさん : QRコード載せましょうか? (2012/04/03 (火) 21:19:05)
- 名無しさん : ↑お願いします (2012/04/08 (日) 11:04:36)
- 名無しさん : 載せました。(2012/04/08 (日) 14:04:36)
- 名無しさん : ↑↑ありがとうございました (2012/04/09 (月) 13:44:30)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.121 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:07 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30