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

投稿プログラム : ポリゴンアナログ時計

パンくずリスト

2013年1月27日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム 実用ツール 鑑賞プログラム QRコード

概要

針をポリゴンで描画したアナログ時計です。

操作方法

実行すると、上画面に時計が表示されます。十字キーまたは、ボタン操作で終了します。

プログラムについて

DDAによる直線補間 でポリゴンが描けないか試した習作です。 商と余剰を分離するよりは、そのまま割り算した方が速いと判断した処理となっています。 ついでに、塗りつぶされた円の描画処理も入っています。

円の描画はリアルタイムに表示するには遅い(１ライン毎に整数平方根を算出する必要がある)ため、 ページフリップの直後に盤面を描画しておき、秒の切り替えを待って針を描画しています。

処理速度にはまだまだ余裕があるため、装飾の強化や、リアルタイム更新など、 追加・改造する要素はまだありそうです。

色は見易さ優先で かなり適当です。申し訳ない…

プチコンに対するあれこれ

  1. ポリゴンはともかく、塗りつぶされた円は標準命令に入れて欲しかったです。
  2. このプログラムでは使用していませんが、描画の演算が ＸＯＲ しかないのがつらいです。
    1. 加減算・シフト効果 があれば、描画にも箔がつくとおもいます。
    2. 加えて、論理演算やキャリー機能もあれば、ＧＰＵ演算へのアプローチにもなります。
  3. 編集モード中 Ｌ＋← でソースコードが下画面に来たら、カーソル移動も楽になるかも…とも思いました。

スクリーンショット・動画

QR コード

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

POLYCLK.png

プログラムリスト

  1. ’　ホ゜リコ゛ン　ノ　アナロク゛ト゛ケイ
  2. ’緒・ＩＮＩＴ　緒
  3. ＣＬＥＡＲ：ＤＩＭ　ＳＣ（３６０），ＰＷＲ（２５６）
  4. ＰＮＬＴＹＰＥ　”ＰＮＬ”：ＧＰＡＧＥ　１，２，２：ＧＣＬＳ
  5. ＦＯＲ　Ｉ＝０　ＴＯ　３５９：ＳＣ（Ｉ）＝ＳＩＮ（ＰＩ（）＊Ｉ／１８０）＊８０：ＮＥＸＴ
  6. ＦＯＲ　Ｉ＝０　ＴＯ　２５５：ＰＷＲ（Ｉ）＝Ｉ＊Ｉ：ＮＥＸＴ　Ｉ
  7. ＡＣＬＳ’：ＧＤＲＡＷＭＤ　ＴＲＵＥ
  9. ’緒・ＢＯＡＲＤ　ＳＥＴＴＩＮＧ　緒
  10. ＦＯＲ　Ｌ＝０　ＴＯ　１
  11. 　　ＧＰＡＧＥ　０，１−Ｌ，Ｌ：ＧＣＬＳ
  12. 　　ＣＸ＝１２９：ＣＹ＝９７：ＣＳ＝９０：ＣＣ＝２５４
  13. 　　ＧＯＳＵＢ　＠ＦＩＬＣＩＲＣ
  14. ＮＥＸＴ
  15. ＧＯＳＵＢ　＠ＤＲＷＢＯＡＲＤ
  16. ’緒・ＭＡＩＮ　ＬＯＯＰ　緒
  17. ＦＯＲ　Ｌ＝０　ＴＯ　１
  18. ’緒・ＳＥＴ　ＮＥＥＤＬＥ　（ＤＥＧ）　緒
  19. ＢＦ＄＝ＴＩＭＥ＄
  20. ＴＳ＝ＶＡＬ（ＲＩＧＨＴ＄（ＢＦ＄，２））＊６
  21. ＴＭ＝ＶＡＬ（ＭＩＤ＄（ＢＦ＄，３，２））＊６＋ＦＬＯＯＲ（ＴＳ／６０）
  22. ＴＨ＝ＶＡＬ（ＬＥＦＴ＄（ＢＦ＄，２））＊３０＋ＦＬＯＯＲ（ＴＭ／１２）
  23. ＬＯＣＡＴＥ　０，０：？ＢＦ＄
  25. ＯＬ＝ＦＡＬＳＥ　’・ＯＵＴＬＩＮＥ
  27. ’緒・ＨＯＵＲ　緒
  28. ＮＡ＝ＴＨ：ＮＢ＝１４０：ＮＣ＝３６０−ＮＢ：ＮＤ＝１．５
  29. ＧＯＳＵＢ　＠ＳＥＴＮＤＬ
  30. ＰＣ＝４：ＧＯＳＵＢ　＠ＰＯＬＹ
  31. ’緒・ＭＩＮＵＴＥ　緒
  32. ＮＡ＝ＴＭ：ＮＢ＝１６０：ＮＣ＝３６０−ＮＢ：ＮＤ＝１
  33. ＧＯＳＵＢ　＠ＳＥＴＮＤＬ
  34. ＰＣ＝１０：ＧＯＳＵＢ　＠ＰＯＬＹ
  35. ’緒・ＳＥＣＯＮＤ　緒
  36. ＮＡ＝ＴＳ：ＮＢ＝１７０：ＮＣ＝３６０−ＮＢ：ＮＤ＝１
  37. ＧＯＳＵＢ　＠ＳＥＴＮＤＬ
  38. ＰＣ＝２：ＧＯＳＵＢ　＠ＰＯＬＹ
  40. ’緒・ＲＥＦＲＥＳＨ　緒
  41. ＧＰＡＧＥ　０，１−Ｐ，Ｐ：Ｐ＝１−Ｐ
  42. ＧＯＳＵＢ　＠ＤＲＷＢＯＡＲＤ
  44. ＦＯＲ　Ｉ＝０　ＴＯ　１：ＶＳＹＮＣ　１
  45. 　　Ｉ＝１−（ＢＦ＄＝＝ＴＩＭＥ＄）＋ＢＵＴＴＯＮ（）
  46. ＮＥＸＴ：Ｌ＝ＢＵＴＴＯＮ（）：ＮＥＸＴ
  47. ＥＮＤ
  49. ’緒・ＢＯＡＲＤ　緒
  50. ＠ＤＲＷＢＯＡＲＤ
  51. ＣＸ＝１２７：ＣＹ＝９５：ＣＳ＝９０：ＣＣ＝２５０
  52. ＧＯＳＵＢ　＠ＦＩＬＣＩＲＣ
  53. ＦＯＲ　Ｉ＝１　ＴＯ　１２
  54. 　　ＣＸ＝ＳＣ（（Ｉ＊３０）％３６０）＋１２８
  55. 　　ＣＹ＝９６−ＳＣ（（Ｉ＊３０＋９０）％３６０）
  56. 　　ＣＳ＝４：ＣＣ＝２５３
  57. 　　ＩＦ　Ｉ％３＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＩＬＣＩＲＣ：ＣＣ＝２５０
  58. 　　ＣＳ＝２：ＧＯＳＵＢ　＠ＦＩＬＣＩＲＣ
  59. ＮＥＸＴ
  60. ＲＥＴＵＲＮ
  62. ’聹・ＳＥＴ　ＮＥＥＤＬＥ　聹
  63. ’・ＳＡ：ＳＩＮ　ＡＮＧＬＥ　（ＰＩ／２）
  64. ’・ＮＡ：ＡＮＧＬＥ　・ＮＢ，ＮＣ：ＢＯＬＤ
  65. ’・ＮＤ：ＤＩＶＩＤＥ　ＬＥＮＧＴＨ
  67. ＠ＳＥＴＮＤＬ
  68. ＳＡ＝９０　’３６０／４
  69. Ｘ０＝０ＯＲ（１２８＋ＳＣ（（ＮＡ）％３６０）／ＮＤ）
  70. Ｙ０＝０ＯＲ（９６−ＳＣ（（ＮＡ＋ＳＡ）％３６０）／ＮＤ）
  71. Ｘ１＝０ＯＲ（１２８＋ＳＣ（（ＮＡ＋ＮＢ）％３６０）／６）
  72. Ｙ１＝０ＯＲ（９６−ＳＣ（（ＮＡ＋ＳＡ＋ＮＢ）％３６０）／６）
  73. Ｘ２＝０ＯＲ（１２８＋ＳＣ（（ＮＡ＋ＮＣ）％３６０）／６）
  74. Ｙ２＝０ＯＲ（９６−ＳＣ（（ＮＡ＋ＳＡ＋ＮＣ）％３６０）／６）
  75. ＲＥＴＵＲＮ
  77. ’聹・ＤＲＡＷ　ＰＯＬＹＧＯＮ　聹
  78. ＠ＰＯＬＹ
  79. ’ＳＯＲＴ　Ｙ
  80. ＩＦ　Ｙ０＞Ｙ１　ＴＨＥＮ　ＳＷＡＰ　Ｘ０，Ｘ１：ＳＷＡＰ　Ｙ０，Ｙ１
  81. ＩＦ　Ｙ０＞Ｙ２　ＴＨＥＮ　ＳＷＡＰ　Ｘ０，Ｘ２：ＳＷＡＰ　Ｙ０，Ｙ２
  82. ＩＦ　Ｙ１＞Ｙ２　ＴＨＥＮ　ＳＷＡＰ　Ｘ１，Ｘ２：ＳＷＡＰ　Ｙ１，Ｙ２
  84. Ｈ１＝Ｙ１−Ｙ０：Ｖ１＝Ｘ１−Ｘ０
  85. Ｈ２＝Ｙ２−Ｙ０：Ｖ２＝Ｘ２−Ｘ０
  86. ＬＸ＝Ｘ０＊Ｈ１：ＲＸ＝Ｘ０＊Ｈ２
  87. ＩＦ　Ｈ１＝＝０　ＴＨＥＮ　ＧＯＴＯ　＠ＰＯＬＳＫＩＰ１
  89. ’緒・ＤＲＡＷ　Ｙ０　ＴＯ　Ｙ１　緒
  90. ＦＯＲ　ＤＹ＝Ｙ０　ＴＯ　Ｙ１−１
  91. 　　ＧＦＩＬＬ　ＬＸ／Ｈ１，ＤＹ，ＲＸ／Ｈ２，ＤＹ，ＰＣ
  92. 　　ＬＸ＝ＬＸ＋Ｖ１：ＲＸ＝ＲＸ＋Ｖ２
  93. ＮＥＸＴ
  94. ＠ＰＯＬＳＫＩＰ１
  95. ’緒・ＶＥＣＴＯＲ　ＣＯＬＬＥＣＴ　緒
  96. Ｈ１＝Ｙ２−Ｙ１：Ｖ１＝Ｘ２−Ｘ１
  97. ＬＸ＝Ｘ１＊Ｈ１
  98. ’緒・ＤＲＡＷ　Ｙ１　ＴＯ　Ｙ２　緒
  99. ＩＦ　Ｈ１＝＝０　ＴＨＥＮ　ＧＯＴＯ　＠ＰＯＬＳＫＩＰ２
  100. ＦＯＲ　ＤＹ＝Ｙ１　ＴＯ　Ｙ２
  101. 　　ＧＦＩＬＬ　ＬＸ／Ｈ１，ＤＹ，ＲＸ／Ｈ２，ＤＹ，ＰＣ
  102. 　　ＬＸ＝ＬＸ＋Ｖ１：ＲＸ＝ＲＸ＋Ｖ２
  103. ＮＥＸＴ
  104. ＠ＰＯＬＳＫＩＰ２
  105. ＩＦ　ＯＬ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＯＬＹＯＬ
  106. ＲＥＴＵＲＮ
  108. ’聹・ＯＵＴＬＩＮＥ　聹
  109. ＠ＰＯＬＹＯＬ
  110. ＧＬＩＮＥ　Ｘ０，Ｙ０，Ｘ１，Ｙ１，１５
  111. ＧＬＩＮＥ　Ｘ０，Ｙ０，Ｘ２，Ｙ２，１５
  112. ＧＬＩＮＥ　Ｘ１，Ｙ１，Ｘ２，Ｙ２，１５
  114. ＲＥＴＵＲＮ
  116. ’聹・ＤＲＡＷ　ＦＩＬＬＥＤ　ＣＩＲＣＬＥ　聹
  118. ＠ＦＩＬＣＩＲＣ
  119. ＧＦＩＬＬ　ＣＸ−ＣＳ，ＣＹ，ＣＸ＋ＣＳ，ＣＹ，ＣＣ
  120. ＦＯＲ　ＣＩ＝１　ＴＯ　ＣＳ
  121. 　　ＣＺ＝ＰＯＷ（ＣＳ＋．３，２）
  122. 　　Ｚ＝ＦＬＯＯＲ（ＳＱＲ（ＣＺ−ＰＷＲ（ＣＩ）））
  123. 　　ＧＦＩＬＬ　ＣＸ−Ｚ，ＣＹ−ＣＩ，ＣＸ＋Ｚ，ＣＹ−ＣＩ，ＣＣ
  124. 　　ＧＦＩＬＬ　ＣＸ−Ｚ，ＣＹ＋ＣＩ，ＣＸ＋Ｚ，ＣＹ＋ＣＩ，ＣＣ
  125. ＮＥＸＴ　
  126. ＲＥＴＵＲＮ

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

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

  • 名無しさん : あああああQRほしいいいいい (2013/01/27 (日) 01:36:13)
  • 名無しさん : QR登録しましたドゾー (2013/01/27 (日) 01:40:33)
  • .EXE : すげーーーーーーー (2013/01/27 (日) 07:19:13)
  • 名無しさん : ポリゴン！？！？！？ (2013/01/27 (日) 20:17:46)
  • 名無しさん : 「プチコンへの要望」のページがあるので、希望はそちらに書いておいてもらえますか？ (2013/01/27 (日) 23:04:38)
  • 名無しさん : 要望、転記しました (2013/01/28 (月) 12:03:58)
  • Topaz : レイ・トレーシングの人ですか？ (2013/02/09 (土) 12:44:43)
  • 名無しさん : ポリゴンて3dだよな？ (2013/02/09 (土) 12:48:27)
  • アサツキ : ↑　もとは「多角形」という意味で、3D描画の要素として使われたのは後のことのようです。　参照：bit.ly/iYW0Fg (2013/02/09 (土) 14:35:32)
  • 名無しさん : す、すごい。まさに探してた時計だ (2013/03/29 (金) 02:06:36)
  • 道産子の初心者 : すごｗ (2013/03/29 (金) 09:15:08)
  • 小5 : どこが、ポリゴンww(笑) (2013/05/20 (月) 18:40:48)
  • 道産子 : 携帯のフルブラウザだとリストが文字化けww (2013/05/20 (月) 19:17:37)
  • 名無しさん : (作品に直接関係ない質問や雑談は掲示板へ) (2013/05/20 (月) 19:22:28)
  • 猫姫 : そういう意味のポリゴンですか!!??poli-gon。そういう意味なら、針はトリゴン?(そんな言葉あるの??) (2013/05/20 (月) 23:53:48)
  • キービィ : 道産子さんのOSもどきのアプリに使えそう。 (2013/05/21 (火) 11:07:28)
  • 名無しさん : 時計の針は二角形で描画するのが一番簡単 (2013/05/21 (火) 18:45:49)
  • サトシ : ポケモンGETだぜ!!!!!!!!!!!!!!!!!!！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！ (2013/05/30 (木) 17:10:10)
  • F−ZERO : ↑は？　この時計いいね！！ (2013/05/30 (木) 17:11:27)
  • 箱野隋一 : サトシ荒らしｗｗ　　すっ五ーーーイ (2013/05/30 (木) 17:17:09)
  • かず : 聹とか緒にバグってる！　ブラウザ:Google Chrome (2013/07/18 (木) 15:25:38)
  • かず : OSもどきにつかいますね！ (2013/07/18 (木) 15:27:28)
  • Shiftキー : ↑5アニメのポケモンたくさんの人が病院に運ばれて放送が一時中止になって大変な事になった話のポリゴンの事だろ？ (2013/07/18 (木) 17:07:30)
  • cmk、 : ↑その事はそっとしておいておこう。 (2013/07/18 (木) 19:37:38)
  • 名無しさん : ポリゴンは悪くない。悪いのは製作費けちってあんなのやった人 (2013/07/18 (木) 20:04:55)
  • .EXE : (視聴者を)殺ったぜ！ピカチュウ！のことだろ？この話題やめた方がいい。 (2013/07/18 (木) 20:30:56)
  • 名無しさん : サトシ・・・ (2013/08/31 (土) 21:02:45)
  • win : 聹と緒 (2014/04/02 (水) 14:33:18)
  • 名無しさん : すごい！ (2014/05/20 (火) 18:51:45)

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