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

投稿プログラム : ワイヤーアニメーション

パンくずリスト

2014年12月19日投稿 / 投稿者 : J2 / タグ : 投稿プログラム 一発ネタ 鑑賞プログラム アニメーション QRコード mkII専用

作品について

線分に色情報を持たせることにより、下画面の画像を歪ませてアニメーションさせるためのプログラムです。 動作中に何かボタンを押すと終了します。

プチコン３号に移植されることを想定して作成しました。プチコン３号であれば、フルスキャン描画で60fps表示が可能な計算です。 若干の修正で初代にも移植可能と思われますが、速度の関係上、メリットはあまり無いでしょう。

発展させれば、炎や水面の表現、擬似ラスタースクロール効果、スキャニメイトシミュレータ などへの応用が可能でしょう。

イメージ画像

インターレース効果を駆使してアニメーションとして表示させるため、 単一の画像を用意できませんでした。申し訳ありません。

代わりに、「類希なる幸運よってドラえもんが下画面に表示された」場合を想定した、 それっぽいアスキーアートがありましたので、こちらをご覧下さい。

.　　　 / /　　　　　　　　　　　　　　　 ／
　　　/ /　 _.. ~'::""::''ヽ､　　　　　　/ /
　 ／／ ／:;r‐､:::::::__:::::::::::＼　　　 / /
／／　/:::ﾉ　・ _)(　･_｀つ､::::::ヽ､　 l　l
／　／::r（__ ノ´（:;;:)´__ノ〃ヽ:::::::}　|　|
　 /:::::ノ二ニ彡 ﾉ　三彡-､　）::ﾉ　|　|
　{::::（　 -_二 -‐''￣　　 　 ）（::/　ﾉ ﾉ
　ヽ:::ヽ（　　　　,r " ‐-‐′ﾉl／／
　　 ヽ ）`― ''′＿ .... _＿ノ／／
　　　　ゞﾆニ二 -（/∂-‐／／

注意

描画速度が追いつかないため、ちらつきが発生しています。描画密度が高まるほど、または、図形が複雑になるほど、速度が落ちます。 色変化が無いため、ポケモンフラッシュ効果はありませんが、映像効果によって酔う可能性は否定できません。 (LLではない)DSiでは、液晶の反応速度の関係上、色再現性が悪いようです。

下画面描画後、画像走査のために、動作し始めるまでに５秒程度の時間が掛かります。

改造したい場合

連絡不要。ご自由にどうぞ。
Mk2では、GLINE を GFILL に変更したほうが、描画面積が稼げると思います。

関数概要

使用しているサブルーチンの解説です。

  • @LNSET : 線分の座標を指定します。
  • @LNWRITE : @LNSET の座標を元に、模様を持った線分を描画します。
  • @GWRITE : 円を複数描画します。塗り忘れ防止のため、予め未使用色で描画します。
  • @GSCAN : @GWRITE の画像を走査し、変数へ格納します。1ラインあたり64個まで。それ以降は無視されます。

変数概要

使用している変数の解説です。
改造の足掛かりにどうぞ。

  • SP(64,192) : 線分探索のX座標を記録 (@GSCAN 内で記録、@LNWRITEで使用)
  • SC(64,192) : 線分探索の色情報を記録 (同上)
  • C : 描画密度 （全て表示する際は１、大きいほど高速。０以下の指定を禁止）
  • CT: Y軸開始位置 (変数 Y へ渡す)
  • R : フレームごとの三角関数開始値
  • S : 描画時の三角関数値 (除算を退避させると、精度割れします)
  • P : ページフリップ用
  • CF: フレームレート表示用
  • T : フレームレート計測用
  • P : 画像出力用 ループカウンタ (変数 C,CT の影響を受ける)
  • DC: 線の描画個数／フレーム計測用
  • WX,WY : 出力線分の開始座標
  • WV,WW : 出力線分の終了座標
  • SX,SY : 分割線の描画開始座標
  • SV,SW : 分割線の描画終了座標
  • MX,MY : ラスタライズ移動単位
  • M : 分割線の長さ
  • WC: 描画色
  • X,Y : 配列変数参照用ループカウンタ

QR コード

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

J2_SCANM.png

プログラムリスト

  1. ＣＬＥＡＲ：ＡＣＬＳ：ＰＮＬＴＹＰＥ　”ＯＦＦ”
  2. ＧＯＳＵＢ　＠ＧＷＲＩＴＥ
  3. ＤＩＭ　ＳＰ（６４，１９２），ＳＣ（６４，１９２）
  4. ＧＯＳＵＢ　＠ＧＳＣＡＮ
  5. ＧＰＡＧＥ　０，０，０：ＧＣＬＳ：Ｚ＝２４：Ｐ＝０
  6. Ｂ＝．０１２２：Ｃ＝１３：Ｗ＝Ｂ＊３
  7. ＦＯＲ　Ｉ＝０　ＴＯ　１
  8. 　ＣＴ＝（ＣＴ＋５）％Ｃ：Ｓ＝Ｒ＋Ｗ＊ＣＴ／Ｃ
  9. 　ＧＯＳＵＢ　＠ＬＮＳＥＴ
  10. 　ＧＰＡＧＥ　０，１−Ｐ，Ｐ：Ｐ＝１−Ｐ：ＧＣＬＳ　
  11. 　ＣＦ＝ＣＦ＋１：ＩＦ　Ｔ＜＝ＭＡＩＮＣＮＴＬ　ＴＨＥＮ　ＬＯＣＡＴＥ　０，０：？ＣＦ；”　”：ＣＦ＝０：Ｔ＝ＭＡＩＮＣＮＴＬ＋６０
  12. 　ＬＯＣＡＴＥ　８，０：？ＤＣ；”　”：ＤＣ＝０
  13. 　Ｒ＝Ｒ＋Ｂ：ＶＳＹＮＣ　２：Ｉ＝ＢＵＴＴＯＮ（）
  14. ＮＥＸＴ
  15. ＥＮＤ
  17. ＠ＬＮＳＥＴ
  18. 　ＦＯＲ　Ｙ＝ＣＴ　ＴＯ　１９１　ＳＴＥＰ　Ｃ
  19. 　　ＴＳ＝ＳＩＮ（Ｓ＊Ｃ）＊Ｚ：ＴＣ＝ＣＯＳ（Ｓ＊Ｃ＊．７）＊Ｚ
  20. 　　ＷＸ＝ＴＳ：ＷＹ＝Ｙ＋ＴＣ／２
  21. 　　ＷＶ＝２５５−ＴＣ：ＷＷ＝Ｙ＋ＴＳ／２
  22. 　　ＧＯＳＵＢ　＠ＬＮＷＲＩＴＥ
  23. 　　Ｓ＝Ｓ＋Ｗ
  24. 　ＮＥＸＴ
  25. ＲＥＴＵＲＮ
  27. ＠ＬＮＷＲＩＴＥ
  28. 　ＳＸ＝ＷＸ：ＳＹ＝ＷＹ
  29. 　ＭＸ＝（ＷＶ−ＷＸ）／２５６：ＭＹ＝（ＷＷ−ＷＹ）／２５６
  30. 　Ｍ＝ＳＰ（０，Ｙ）：ＷＣ＝ＳＣ（０，Ｙ）
  31. 　ＦＯＲ　Ｘ＝１　ＴＯ　６３
  32. 　　Ｍ＝ＳＰ（Ｘ，Ｙ）：ＳＶ＝ＳＸ：ＳＷ＝ＳＹ
  33. 　　ＳＸ＝ＷＸ＋ＭＸ＊Ｍ：ＳＹ＝ＷＹ＋ＭＹ＊Ｍ
  34. 　　ＩＦ　ＷＣ　ＴＨＥＮ　ＧＬＩＮＥ　ＳＶ，ＳＷ，ＳＸ，ＳＹ，ＷＣ：ＤＣ＝ＤＣ＋１
  35. 　　ＩＦ　Ｍ＞２５４　ＴＨＥＮ　Ｘ＝６３
  36. 　　ＷＣ＝ＳＣ（Ｘ，Ｙ）
  37. 　ＮＥＸＴ
  38. ＲＥＴＵＲＮ
  40. ＠ＧＷＲＩＴＥ
  41. 　　ＧＰＡＧＥ　１，３，３：ＧＣＬＳ
  42. 　　ＦＯＲ　Ｉ＝０　ＴＯ　７
  43. 　　　Ｘ＝ＲＮＤ（２５６）：Ｙ＝ＲＮＤ（１９２）
  44. 　　　Ｚ＝ＲＮＤ（５０）＋１０：Ｃ＝ＲＮＤ（２５４）
  45. 　　　ＧＣＩＲＣＬＥ　Ｘ，Ｙ，Ｚ，２５５
  46. 　　　ＧＰＡＩＮＴ　Ｘ，Ｙ，２５５，２５５
  47. 　　　ＧＣＩＲＣＬＥ　Ｘ，Ｙ，Ｚ，Ｃ
  48. 　　　ＧＰＡＩＮＴ　Ｘ，Ｙ，Ｃ，Ｃ
  49. 　　ＮＥＸＴ
  50. ＲＥＴＵＲＮ
  52. ＠ＧＳＣＡＮ
  53. 　ＦＯＲ　Ｙ＝０　ＴＯ　１９１
  54. 　　Ｂ＝ＧＳＰＯＩＴ（０，Ｙ）
  55. 　　ＳＰ（０，Ｙ）＝０：ＳＣ（０，Ｙ）＝Ｂ：Ｐ＝１
  56. 　　ＦＯＲ　Ｘ＝１　ＴＯ　２５５
  57. 　　　Ｃ＝ＧＳＰＯＩＴ（Ｘ，Ｙ）
  58. 　　　ＩＦ　Ｂ＝＝Ｃ　ＯＲ　Ｐ＞３０　ＴＨＥＮ　＠ＥＩ＿ＧＳＣＡＮ
  59. 　　　　ＳＰ（Ｐ，Ｙ）＝Ｘ：ＳＣ（Ｐ，Ｙ）＝Ｃ
  60. 　　　　Ｐ＝Ｐ＋１：Ｂ＝Ｃ
  61. 　　　＠ＥＩ＿ＧＳＣＡＮ
  62. 　　ＮＥＸＴ
  63. 　　ＳＰ（Ｐ，Ｙ）＝２５５：ＳＣ（Ｐ，Ｙ）＝Ｃ
  64. 　ＮＥＸＴ
  65. ＲＥＴＵＲＮ

注意

描画速度が追いつかないため、ちらつきが発生しています。 色変化は無いため、ポケモンフラッシュ効果はありませんが、 (LLではない)DSiでは、液晶の反応速度の関係上、色再現性が悪いようです。

下画面描画後、動作し始めるまでに５秒程度、時間がかかります。

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

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


表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.113 秒 | このページの最終更新 : 2022/09/20 (火) 12:43:55 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30