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

投稿プログラム : 日本地図

パンくずリスト

2014年11月11日投稿 / 投稿者 : GrapeFactory / タグ : 投稿プログラム 一発ネタ 鑑賞プログラム 非実用ツール QRコード mkII専用

イメージ画像

ss.png

作品について

私、GrapeFactoryの初投稿作品です。
日本地図を描画、閲覧することができるプログラム。
実用的とは言えませんが、日本地図をプチコンで表示しようという挑戦にロマンを感じたらQRを読み込んでみましょう。

日本地図は下画面をタッチして見る場所を変えたり、十字ボタンで微調整することができます。

改造したい場合

改造して、自分のプログラムに使ったりして構いません。
その際は報告していただけるとありがたいです。

登録されている島の一覧

私の独断と偏見により、日本地図をぱっとみて「あ、目立つな」と思った島を登録しました。
登録した島は以下のとおりです。

  • 本州
  • 択捉島
  • 国後島
  • 色丹島
  • 志発島(歯舞群島)
  • 北海道本島
  • 礼文島
  • 利尻島
  • 佐渡島
  • 島後島(隠岐諸島)
  • 対馬
  • 淡路島
  • 小豆島
  • 伊豆大島
  • 三宅島
  • 八丈島
  • 四国
  • 九州
  • 平戸島(長崎県)
  • 福江島(五島列島)
  • 中通島(五島列島)
  • 種子島
  • 屋久島
  • 奄美大島
  • 徳之島(奄美諸島)
  • 沖永良部島
  • 沖縄本島
  • 久米島
  • 宮古島
  • 石垣島
  • 西表島
  • 南大東島(大東諸島)
  • 父島
  • 母島
  • 硫黄島

QR コード

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

qr.png

プログラムリスト

  1. ’┌─────────────────────────┐
  2. ’│ニホンチス゛　ｖ１．０　　　　　　　　　　　　　　│
  3. ’│ｐｒｏｄｕｃｔｅｄ　ｂｙ　ＧｒａｐｅＦａｃｔｏｒｙ│
  4. ’└─────────────────────────┘
  6. ’┝┿┿┿╂　　ショキカ　ショリ　　╂┿┿┿┸
  8. ＡＣＬＳ：ＣＬＥＡＲ：ＰＮＬＴＹＰＥ　”ＯＦＦ”
  9. ＩＮ＝３６：ＣＯＬ＄＝”Ｂ０Ｆ”：ＣＸ＝１２８：ＣＹ＝９６
  10. ＤＩＭ　ＩＸ０（ＩＮ，１００），ＩＹ０（ＩＮ，１００）
  11. ＤＩＭ　ＩＸ１（ＩＮ，１００），ＩＹ１（ＩＮ，１００）
  12. ＤＩＭ　ＳＰＸ（６４），ＳＰＹ（６４）
  13. ＤＩＭ　ＩＶ（ＩＮ）
  14. ＦＯＲ　Ｉ＝０　ＴＯ　ＩＮ−１
  15. 　ＩＦ　Ｉ　ＴＨＥＮ　ＲＥＡＤ　ＩＳＬ＄　ＥＬＳＥ　ＲＥＡＤ　Ａ＄，Ｂ＄：ＩＳＬ＄＝Ａ＄＋Ｂ＄
  16. 　ＩＶ（Ｉ）＝ＬＥＮ（ＩＳＬ＄）／２
  17. 　ＩＳＬ＄＝ＩＳＬ＄＋ＬＥＦＴ＄（ＩＳＬ＄，２）
  18. 　ＦＯＲ　Ｊ＝０　ＴＯ　ＩＶ（Ｉ）−１
  19. 　　ＩＸ０（Ｉ，Ｊ）＝ＡＳＣ（ＭＩＤ＄（ＩＳＬ＄，Ｊ＊２　　，１））
  20. 　　ＩＹ０（Ｉ，Ｊ）＝ＡＳＣ（ＭＩＤ＄（ＩＳＬ＄，Ｊ＊２＋１，１））
  21. 　　ＩＸ１（Ｉ，Ｊ）＝ＡＳＣ（ＭＩＤ＄（ＩＳＬ＄，Ｊ＊２＋２，１））
  22. 　　ＩＹ１（Ｉ，Ｊ）＝ＡＳＣ（ＭＩＤ＄（ＩＳＬ＄，Ｊ＊２＋３，１））
  23. 　ＮＥＸＴ
  24. ＮＥＸＴ
  26. ’┝┿┿┿╂　スフ゜ライトカキコミ　╂┿┿┿┸
  28. ＧＰＡＧＥ　０，３，０
  29. ＧＣＬＳ　１５
  30. ＣＯＬＯＲ　１
  31. ＬＯＣＡＴＥ　１３，２：？”ニホンチス゛”
  32. Ｓ＄＝”ｐｒｏｄｕｃｔｅｄ　ｂｙ　ＧｒａｐｅＦａｃｔｏｒｙ”
  33. ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（Ｓ＄）−１
  34. 　ＧＰＵＴＣＨＲ　５２＋Ｉ＊６，１２８，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（Ｓ＄，Ｉ，１）），１，１
  35. ＮＥＸＴ
  36. Ｄ＄＝”◇（ｈ（┌（ｔ；┠；◇Ｎ”：ＧＯＳＵＢ　＠ＣＩＲＣＬＥＤＲＡＷ
  37. Ｄ＄＝”｀ｑ〜ｑ｀ｇｕ＾ｕｇ┻＾┻ｇ┸＾｀ｇ｀ｑｕｇｕ＾┻ｇ┻＾〜ｑ〜＾”：ＧＯＳＵＢ　＠ＬＩＮＥＤＲＡＷ
  39. ＧＰＡＧＥ　０，０，３
  40. ＬＯＣＡＴＥ　２２，２３：？”キト゛ウチュウ．．．”；
  41. ＦＯＲ　Ｉ＝０　ＴＯ　１５
  42. 　ＬＯＣＡＴＥ　８，１９：？”■”＊Ｉ＋”□”＊（１６−Ｉ）
  43. 　ＧＣＬＳ　０
  44. 　ＦＯＲ　Ｊ＝０　ＴＯ　ＩＮ−１
  45. 　　ＭＸ＝（Ｉ％２）＊２５６
  46. 　　ＭＹ＝ＦＬＯＯＲ（Ｉ／２）＊６４
  47. 　　ＦＯＲ　Ｋ＝０　ＴＯ　ＩＶ（Ｊ）−１
  48. 　　　ＧＬＩＮＥ　ＩＸ０（Ｊ，Ｋ）＊２−ＭＸ，ＩＹ０（Ｊ，Ｋ）＊２−ＭＹ，ＩＸ１（Ｊ，Ｋ）＊２−ＭＸ，ＩＹ１（Ｊ，Ｋ）＊２−ＭＹ，２
  49. 　　ＮＥＸＴ
  50. 　ＮＥＸＴ
  51. 　ＧＰＡＩＮＴ　２５５＊（Ｉ＝＝９），０，１
  52. 　ＩＦ　Ｉ＝＝３　ＴＨＥＮ　ＧＰＡＩＮＴ　１２０，０，１
  53. 　ＩＦ　Ｉ＝＝５　ＴＨＥＮ　ＧＰＡＩＮＴ　２５５，０，１
  54. 　ＩＦ　Ｉ＝＝７　ＴＨＥＮ　ＧＰＡＩＮＴ　２５５，０，１
  55. 　ＩＦ　Ｉ＝＝１０ＴＨＥＮ　ＧＰＡＩＮＴ　１８０，１６，１
  56. 　ＦＯＲ　Ｊ＝０　ＴＯ　３
  57. 　　ＬＯＣＡＴＥ　８，２１：？”■”＊Ｊ＊４＋”□”＊（４−Ｊ）＊４
  58. 　　Ｆ＝０
  59. 　　ＦＯＲ　Ｋ＝０　ＴＯ　６３
  60. 　　　Ｃ＄＝””
  61. 　　　ＭＸ＝（Ｋ％８）＊８
  62. 　　　ＭＹ＝ＦＬＯＯＲ（Ｋ／８）＊８
  63. 　　　ＦＯＲ　Ｌ＝０　ＴＯ　６３
  64. 　　　　Ｃ＄＝Ｃ＄＋ＭＩＤ＄（ＣＯＬ＄，ＧＳＰＯＩＴ（Ｊ＊６４＋ＭＸ＋Ｌ％８，ＭＹ＋Ｌ／８），１）
  65. 　　　ＮＥＸＴ
  66. 　　　ＣＨＲＳＥＴ　”ＳＰＵ”＋ＨＥＸ＄（ＣＨＲＮ／４），ＣＨＲＮ＊６４％２５６＋Ｋ，Ｃ＄
  67. 　　　ＩＦ　Ｃ＄！＝”０”＊６４　ＴＨＥＮ　Ｆ＝１
  68. 　　ＮＥＸＴ
  69. 　　ＩＦ　Ｆ　ＴＨＥＮ　ＳＰＸ（ＣＨＲＮ）＝Ｉ％２＊２５６＋Ｊ＊６４：ＳＰＹ（ＣＨＲＮ）＝ＦＬＯＯＲ（Ｉ／２）＊６４：ＣＨＲＮ＝ＣＨＲＮ＋１
  70. 　ＮＥＸＴ
  71. 　ＬＯＣＡＴＥ　８，２１：？”■”＊１６
  72. ＮＥＸＴ
  73. ＣＬＳ
  75. ’┝┿┿┿╂　チス゛ノヒ゛ョウカ゛　╂┿┿┿┸
  77. ’スフ゜ライト
  78. ＦＯＲ　Ｉ＝０　ＴＯ　ＣＨＲＮ−１
  79. 　ＳＰＳＥＴ　Ｉ，Ｉ＊１６，０，０，０，０，６４，６４
  80. 　ＳＰＯＦＳ　Ｉ，ＳＰＸ（Ｉ）−ＣＸ，ＳＰＹ（Ｉ）−ＣＹ
  81. ＮＥＸＴ
  83. ’ク゛ラフィック
  84. ＧＣＬＳ　０
  85. ＧＰＡＧＥ　１，２，２：ＧＰＲＩＯ　２
  86. ＧＣＬＳ　０
  87. ＦＯＲ　Ｉ＝０　ＴＯ　ＩＮ−１
  88. 　ＦＯＲ　Ｊ＝０　ＴＯ　ＩＶ（Ｉ）−１
  89. 　　ＧＬＩＮＥ　ＩＸ０（Ｉ，Ｊ）／４＊３＋３２，ＩＹ０（Ｉ，Ｊ）／４＊３，ＩＸ１（Ｉ，Ｊ）／４＊３＋３２，ＩＹ１（Ｉ，Ｊ）／４＊３，１
  90. 　ＮＥＸＴ
  91. ＮＥＸＴ
  93. ’ＢＧ
  94. ＢＧＦＩＬＬ　０，０，０，６３，６３，４９９９８
  95. ＢＧＰＡＧＥ　１
  96. ＢＧＦＩＬＬ　１，０，０，３１，２３，６１７１５
  97. ＣＨＲＳＥＴ　”ＢＧＵ１Ｌ”，０，”０”＊５６＋”Ｆ”＊８
  98. ＣＨＲＳＥＴ　”ＢＧＵ１Ｌ”，１，”Ｆ”＊８＋”０”＊５６
  99. ＣＨＲＳＥＴ　”ＢＧＵ１Ｌ”，２，（”０”＊７＋”Ｆ”）＊８
  100. ＣＨＲＳＥＴ　”ＢＧＵ１Ｌ”，３，（”Ｆ”＋”０”＊７）＊８
  101. ＢＧＦＩＬＬ　０，１，０，１２，０，２５６
  102. ＢＧＦＩＬＬ　０，１，１０，１２，１０，２５７
  103. ＢＧＦＩＬＬ　０，０，１，０，９，２５８
  104. ＢＧＦＩＬＬ　０，１３，１，１３，９，２５９
  105. ＢＧＰＡＧＥ　０
  107. ’┝┿┿┿╂　　メイン　ル−フ゜　　╂┿┿┿┸
  109. ＠ＬＯＯＰ
  110. ＶＳＹＮＣ　１
  111. Ｂ＝ＢＵＴＴＯＮ（０）
  112. ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ　ＣＹ＝ＣＹ−１
  113. ＩＦ　Ｂ　ＡＮＤ　２　ＴＨＥＮ　ＣＹ＝ＣＹ＋１
  114. ＩＦ　Ｂ　ＡＮＤ　４　ＴＨＥＮ　ＣＸ＝ＣＸ−１
  115. ＩＦ　Ｂ　ＡＮＤ　８　ＴＨＥＮ　ＣＸ＝ＣＸ＋１
  116. ＩＦ　ＴＣＨＳＴ　ＴＨＥＮ　ＣＸ＝（ＴＣＨＸ−３２）＊８／３−１２８：ＣＹ＝ＴＣＨＹ＊８／３−９６
  117. ＦＯＲ　Ｉ＝０　ＴＯ　ＣＨＲＮ−１
  118. 　ＳＰＯＦＳ　Ｉ，ＳＰＸ（Ｉ）−ＣＸ，ＳＰＹ（Ｉ）−ＣＹ，１
  119. ＮＥＸＴ
  120. ＢＧＰＡＧＥ　０
  121. ＢＧＯＦＳ　０，ＣＸ，ＣＹ，１
  122. ＢＧＰＡＧＥ　１
  123. ＢＧＯＦＳ　０，８−３２−ＣＸ／８＊３，８−ＣＹ／８＊３，１
  124. ＧＯＴＯ　＠ＬＯＯＰ
  126. ’┝┿┿┿╂　　サフ゛　ル−チン　　╂┿┿┿┸
  128. ＠ＣＩＲＣＬＥＤＲＡＷ
  129. ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（Ｄ＄）／２−１
  130. 　Ｘ＝ＡＳＣ（ＭＩＤ＄（Ｄ＄，Ｉ＊２，１））
  131. 　Ｙ＝ＡＳＣ（ＭＩＤ＄（Ｄ＄，Ｉ＊２＋１，１））
  132. 　ＧＣＩＲＣＬＥ　Ｘ，Ｙ，８，８０
  133. 　ＧＰＡＩＮＴ　Ｘ，Ｙ，８０
  134. ＮＥＸＴ
  135. ＲＥＴＵＲＮ
  137. ＠ＬＩＮＥＤＲＡＷ
  138. ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（Ｄ＄）／４−１
  139. 　ＧＬＩＮＥ　ＡＳＣ（ＭＩＤ＄（Ｄ＄，Ｉ＊４，１）），ＡＳＣ（ＭＩＤ＄（Ｄ＄，Ｉ＊４＋１，１）），ＡＳＣ（ＭＩＤ＄（Ｄ＄，Ｉ＊４＋２，１）），ＡＳＣ（ＭＩＤ＄（Ｄ＄，Ｉ＊４＋３，１）），８０
  140. ＮＥＸＴ
  141. ＧＰＡＩＮＴ　１２８，１００，８０
  142. ＲＥＴＵＲＮ
  144. ’┝┿┿┿╂　　シマノ　テ゛−タ　　╂┿┿┿┸
  146. ’ホンシュウ
  147. ＤＡＴＡ　”ケ６ケ：ス９シ＝コ＜ク＝キ９オ９エ＞ア＠イＧ−Ｈ−ＩウＪュ＿ェ｀ィｂァｅ┌ｎ┌ｉ┘ｆ┘ｅ─ｇ─ｎ┨ｗ┷ｚ╋｝┳ｚｕ｝ｕ｜ｐ｝ｃ┳＾┳＾┯ｌ┨ｋ┻ｍ┫ｍ┠ｙ┳ｙ┫┛┏┛┛┣┫┗┫┳┗╋
  148. ＤＡＴＡ　”┗┷╋┤┯┤┬┠┿╋┿┳┤┣─┃┌┃┿┛┘┓┌┗┌┣┥┗、┣ァ━ゥ━ゥ┗ォ┗ョ~ア◇イｚオｚウ｝ウ┏クク｛シｙケｓスｇサ＾スＺチ［チＴナＭツＣセ？セ７”
  150. ’エトロフトウ
  151. ＤＡＴＡ　”иАжАгДбВаГбДЮЁЫЙЬКЩНЪ♪ёГиВ”
  153. ’クナシリトウ
  154. ＤＡＴＡ　”□Н゜У゜Х■Х▲С○нЧ♪”
  156. ’シコタントウ
  157. ＤＡＴＡ　”ЪТШУШФЩФЪУ”
  159. ’シホ゛ツトウ
  160. ＤＡＴＡ　”△Ц○Ц○→”
  162. ’ホッカイト゛ウホントウ
  163. ＤＡＴＡ　”タЕセЁス ソНセХシЦス！シ＃ケ！オ　エ！オ％−）ッ−ウ１ア５ウ７キ３サ３シ２キ／エ−エ＊ク）コ，ス）タ（ネ−ハ−ホ／ホ＋ミ’ヤ＃ル＃▲←゛↑ワУ゛нルУヨУヤСムСヒн”
  165. ’レフ゛ントウ
  166. ＤＡＴＡ　”クЁケЁク ”
  168. ’リシリトウ
  169. ＤＡＴＡ　”コ ケИコЙサЙサИ”
  171. ’オクシリトウ
  172. ＤＡＴＡ　”ャ．ャ０ュ／ュ．”
  174. ’サト゛シマ
  175. ＤＡＴＡ　”ヲ\」＿、｀」ｂヲ｀ヲ＾・＾”
  177. ’ト゛ウコ゛トウ
  178. ＤＡＴＡ　”ｕｓｕｔｖｔｖｓ”
  180. ’ツシマ
  181. ＤＡＴＡ　”Ｑ┓Ｏ┛Ｎ┳Ｏ┳Ｏ┫Ｎ┫Ｎ╋Ｐ┫”
  183. ’アワシ゛シマ
  184. ＤＡＴＡ　”┛┳┃┻┏╋┓╋┛┳”
  186. ’ショウト゛シマ
  187. ＤＡＴＡ　”｝┳┳┫”
  189. ’イス゛オオシマ
  190. ＤＡＴＡ　”ョ┓ッ┓ッ┛ョ┛”
  192. ’ミヤケシ゛マ
  193. ＤＡＴＡ　”−┠−┯ア┯ア┠”
  195. ’ハチシ゛ョウシ゛マ
  196. ＤＡＴＡ　”ウ┿ウ┌エ┌”
  198. ’シコク
  199. ＤＡＴＡ　”~┻ｙ┻ｗ┨ｓ┨ｒ┠ｏ┷ｏ┬ｉ┤ｌ┤ｍ└ｏ└ｐ┝ｕ─ｙ┼｝│├┃┴━╋”
  201. ’キュウシュウ
  202. ＤＡＴＡ　”＿┨Ｚ┨Ｙ┬Ｑ─Ｔ┐Ｑ┌Ｓ┰Ｕ┘Ｘ┝Ｖ┿Ｘ│［┰Ｘ「Ｖ「ＷゥＵェＶャＺュＹェＺァ\ィ［ゥＺゥＺェ［ェ\ャＺッ＿ャ＾ォ＿ェａォｆ┝ｉ└ｇ│ｃ─ｆ┼ｅ┬ａ├＿┴”
  204. ’ヒラト゛シ゛マ
  205. ＤＡＴＡ　”Ｐ┤Ｏ│Ｑ┤”
  207. ’フクエシ゛マ
  208. ＤＡＴＡ　”Ｇ└Ｇ┝Ｉ┝Ｊ└”
  210. ’ナカト゛オリシ゛マ
  211. ＤＡＴＡ　”Ｌ┿Ｋ┌Ｌ┐Ｍ┌”
  213. ’タネカ゛シマ
  214. ＤＡＴＡ　”＾ア］イ\キ＾エ”
  216. ’ヤクシマ
  217. ＤＡＴＡ　”ＸオＷキＸクＺキＺカ”
  219. ’アマミオウシマ
  220. ＤＡＴＡ　”ＭフＪホＪマＬマＯフ”
  222. ’トクノシマ
  223. ＤＡＴＡ　”ＧメＧヤＨヤＨモ”
  225. ’オキエラフ゛シ゛マ
  226. ＤＡＴＡ　”ＣラＤラＤリＣリ”
  228. ’オキナワホントウ
  229. ＤＡＴＡ　”＠゛＝■＜゜；゜＜■：▲９△；▼？■＠゜”
  231. ’クメシ゛マ
  232. ＤＡＴＡ　”０▲０▼／▲”
  234. ’ミヤコシ゛マ
  235. ＤＡＴＡ　”↓б↓г！г”
  237. ’イシカ゛キシ゛マ
  238. ＤＡＴＡ　”СгРдндПё”
  240. ’イリオモテシ゛マ
  241. ＤＡＴＡ　”Ме♪е♪ёМё”
  243. ’ミナミタ゛イトウシ゛マ
  244. ＤＡＴＡ　”＾Щ］Ъ＾Ъ”
  246. ’チチシ゛マ
  247. ＤＡＴＡ　”マロホワマワ”
  249. ’ハハシ゛マ
  250. ＤＡＴＡ　”ヘ■ホ■ホ●”
  252. ’イオウトウ
  253. ＤＡＴＡ　”シбスбシв”

注意

起動に40秒程度、時間がかかります

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

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

  • マリオBGMの作成者 : すごいです。アップや島の名前とか出せれば (2014/11/12 (水) 18:07:29)
    • GrapeFactory : 当初自由に拡大率を変更できる予定で進めていたのですが、描画速度やプチコンのバグの影響でやむを得ず諦めました。島(あるいは地名)の名前の表示は検討してみたいと思います (2014/11/13 (木) 23:10:42)
  • まげ : 夢が拡がりますね〜♪　ドラクエのマップ表示みたいにスクロール時に上下や左右がつながると、ボタン操作時はいいかなと思いました。 (2014/11/12 (水) 20:39:34)
    • GrapeFactory : 検討してみます (2014/11/13 (木) 23:12:04)
  • 魔神 : 起動しているときいいですね。 (2014/11/13 (木) 19:25:29)
    • GrapeFactory : ありがとうございます (2014/11/13 (木) 23:12:30)
  • しすたー : 天才ですね！面白いです！ (2015/02/11 (水) 15:12:51)
  • HRT-86 : これはすごいwすごく頑張ったと思う。 (2015/10/10 (土) 17:44:56)
  • 3D梨 : これは凄いですね。それと恐縮ですが3号に移植させて頂いてもよろしいでしょうか? (2015/11/17 (火) 01:31:36)

表示モード : [ スマホ・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:02 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30