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

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

パンくずリスト

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

イメージ画像

ss.png

作品について

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

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

改造したい場合

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

登録されている島の一覧

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

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

QR コード

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

qr.png

プログラムリスト

  1. ’┌─────────────────────────┐
  2. ’│ニホンチス゛ v1.0              │
  3. ’│producted by GrapeFactory│
  4. ’└─────────────────────────┘
  5. ’┝┿┿┿╂  ショキカ ショリ  ╂┿┿┿┸
  6. ACLS:CLEAR:PNLTYPE ”OFF”
  7. IN=36:COL$=”B0F”:CX=128:CY=96
  8. DIM IX0(IN,100),IY0(IN,100)
  9. DIM IX1(IN,100),IY1(IN,100)
  10. DIM SPX(64),SPY(64)
  11. DIM IV(IN)
  12. FOR I=0 TO IN−1
  13.  IF I THEN READ ISL$ ELSE READ A$,B$:ISL$=A$+B$
  14.  IV(I)=LEN(ISL$)/2
  15.  ISL$=ISL$+LEFT$(ISL$,2)
  16.  FOR J=0 TO IV(I)−1
  17.   IX0(I,J)=ASC(MID$(ISL$,J*2  ,1))
  18.   IY0(I,J)=ASC(MID$(ISL$,J*2+1,1))
  19.   IX1(I,J)=ASC(MID$(ISL$,J*2+2,1))
  20.   IY1(I,J)=ASC(MID$(ISL$,J*2+3,1))
  21.  NEXT
  22. NEXT
  23. ’┝┿┿┿╂ スフ゜ライトカキコミ ╂┿┿┿┸
  24. GPAGE 0,3,0
  25. GCLS 15
  26. COLOR 1
  27. LOCATE 13,2:?”ニホンチス゛”
  28. S$=”producted by GrapeFactory”
  29. FOR I=0 TO LEN(S$)−1
  30.  GPUTCHR 52+I*6,128,”BGF”,ASC(MID$(S$,I,1)),1,1
  31. NEXT
  32. D$=”◇(h(┌(t;┠;◇N”:GOSUB @CIRCLEDRAW
  33. D$=”`q〜q`gu^ug┻^┻g┸^`g`qugu^┻g┻^〜q〜^”:GOSUB @LINEDRAW
  34. GPAGE 0,0,3
  35. LOCATE 22,23:?”キト゛ウチュウ...”;
  36. FOR I=0 TO 15
  37.  LOCATE 8,19:?”■”*I+”□”*(16−I)
  38.  GCLS 0
  39.  FOR J=0 TO IN−1
  40.   MX=(I%2)*256
  41.   MY=FLOOR(I/2)*64
  42.   FOR K=0 TO IV(J)−1
  43.    GLINE IX0(J,K)*2−MX,IY0(J,K)*2−MY,IX1(J,K)*2−MX,IY1(J,K)*2−MY,2
  44.   NEXT
  45.  NEXT
  46.  GPAINT 255*(I==9),0,1
  47.  IF I==3 THEN GPAINT 120,0,1
  48.  IF I==5 THEN GPAINT 255,0,1
  49.  IF I==7 THEN GPAINT 255,0,1
  50.  IF I==10THEN GPAINT 180,16,1
  51.  FOR J=0 TO 3
  52.   LOCATE 8,21:?”■”*J*4+”□”*(4−J)*4
  53.   F=0
  54.   FOR K=0 TO 63
  55.    C$=””
  56.    MX=(K%8)*8
  57.    MY=FLOOR(K/8)*8
  58.    FOR L=0 TO 63
  59.     C$=C$+MID$(COL$,GSPOIT(J*64+MX+L%8,MY+L/8),1)
  60.    NEXT
  61.    CHRSET ”SPU”+HEX$(CHRN/4),CHRN*64%256+K,C$
  62.    IF C$!=”0”*64 THEN F=1
  63.   NEXT
  64.   IF F THEN SPX(CHRN)=I%2*256+J*64:SPY(CHRN)=FLOOR(I/2)*64:CHRN=CHRN+1
  65.  NEXT
  66.  LOCATE 8,21:?”■”*16
  67. NEXT
  68. CLS
  69. ’┝┿┿┿╂ チス゛ノヒ゛ョウカ゛ ╂┿┿┿┸
  70. ’スフ゜ライト
  71. FOR I=0 TO CHRN−1
  72.  SPSET I,I*16,0,0,0,0,64,64
  73.  SPOFS I,SPX(I)−CX,SPY(I)−CY
  74. NEXT
  75. ’ク゛ラフィック
  76. GCLS 0
  77. GPAGE 1,2,2:GPRIO 2
  78. GCLS 0
  79. FOR I=0 TO IN−1
  80.  FOR J=0 TO IV(I)−1
  81.   GLINE IX0(I,J)/4*3+32,IY0(I,J)/4*3,IX1(I,J)/4*3+32,IY1(I,J)/4*3,1
  82.  NEXT
  83. NEXT
  84. ’BG
  85. BGFILL 0,0,0,63,63,49998
  86. BGPAGE 1
  87. BGFILL 1,0,0,31,23,61715
  88. CHRSET ”BGU1L”,0,”0”*56+”F”*8
  89. CHRSET ”BGU1L”,1,”F”*8+”0”*56
  90. CHRSET ”BGU1L”,2,(”0”*7+”F”)*8
  91. CHRSET ”BGU1L”,3,(”F”+”0”*7)*8
  92. BGFILL 0,1,0,12,0,256
  93. BGFILL 0,1,10,12,10,257
  94. BGFILL 0,0,1,0,9,258
  95. BGFILL 0,13,1,13,9,259
  96. BGPAGE 0
  97. ’┝┿┿┿╂  メイン ル−フ゜  ╂┿┿┿┸
  98. @LOOP
  99. VSYNC 1
  100. B=BUTTON(0)
  101. IF B AND 1 THEN CY=CY−1
  102. IF B AND 2 THEN CY=CY+1
  103. IF B AND 4 THEN CX=CX−1
  104. IF B AND 8 THEN CX=CX+1
  105. IF TCHST THEN CX=(TCHX−32)*8/3−128:CY=TCHY*8/3−96
  106. FOR I=0 TO CHRN−1
  107.  SPOFS I,SPX(I)−CX,SPY(I)−CY,1
  108. NEXT
  109. BGPAGE 0
  110. BGOFS 0,CX,CY,1
  111. BGPAGE 1
  112. BGOFS 0,8−32−CX/8*3,8−CY/8*3,1
  113. GOTO @LOOP
  114. ’┝┿┿┿╂  サフ゛ ル−チン  ╂┿┿┿┸
  115. @CIRCLEDRAW
  116. FOR I=0 TO LEN(D$)/2−1
  117.  X=ASC(MID$(D$,I*2,1))
  118.  Y=ASC(MID$(D$,I*2+1,1))
  119.  GCIRCLE X,Y,8,80
  120.  GPAINT X,Y,80
  121. NEXT
  122. RETURN
  123. @LINEDRAW
  124. FOR I=0 TO LEN(D$)/4−1
  125.  GLINE ASC(MID$(D$,I*4,1)),ASC(MID$(D$,I*4+1,1)),ASC(MID$(D$,I*4+2,1)),ASC(MID$(D$,I*4+3,1)),80
  126. NEXT
  127. GPAINT 128,100,80
  128. RETURN
  129. ’┝┿┿┿╂  シマノ テ゛−タ  ╂┿┿┿┸
  130. ’ホンシュウ
  131. DATA ”ケ6ケ:ス9シ=コ<ク=キ9オ9エ>ア@イG−H−IウJュ_ェ`ィbァe┌n┌i┘f┘e─g─n┨w┷z╋}┳zu}u|p}c┳^┳^┯l┨k┻m┫m┠y┳y┫┛┏┛┛┣┫┗┫┳┗╋
  132. DATA ”┗┷╋┤┯┤┬┠┿╋┿┳┤┣─┃┌┃┿┛┘┓┌┗┌┣┥┗、┣ァ━ゥ━ゥ┗ォ┗ョ~ア◇イzオzウ}ウ┏クク{シyケsスgサ^スZチ[チTナMツCセ?セ7”
  133. ’エトロフトウ
  134. DATA ”иАжАгДбВаГбДЮЁЫЙЬКЩНЪ♪ёГиВ”
  135. ’クナシリトウ
  136. DATA ”□Н゜У゜Х■Х▲С○нЧ♪”
  137. ’シコタントウ
  138. DATA ”ЪТШУШФЩФЪУ”
  139. ’シホ゛ツトウ
  140. DATA ”△Ц○Ц○→”
  141. ’ホッカイト゛ウホントウ
  142. DATA ”タЕセЁス ソНセХシЦス!シ#ケ!オ エ!オ%−)ッ−ウ1ア5ウ7キ3サ3シ2キ/エ−エ*ク)コ,ス)タ(ネ−ハ−ホ/ホ+ミ’ヤ#ル#▲←゛↑ワУ゛нルУヨУヤСムСヒн”
  143. ’レフ゛ントウ
  144. DATA ”クЁケЁク ”
  145. ’リシリトウ
  146. DATA ”コ ケИコЙサЙサИ”
  147. ’オクシリトウ
  148. DATA ”ャ.ャ0ュ/ュ.”
  149. ’サト゛シマ
  150. DATA ”ヲ\」_、`」bヲ`ヲ^・^”
  151. ’ト゛ウコ゛トウ
  152. DATA ”usutvtvs”
  153. ’ツシマ
  154. DATA ”Q┓O┛N┳O┳O┫N┫N╋P┫”
  155. ’アワシ゛シマ
  156. DATA ”┛┳┃┻┏╋┓╋┛┳”
  157. ’ショウト゛シマ
  158. DATA ”}┳┳┫”
  159. ’イス゛オオシマ
  160. DATA ”ョ┓ッ┓ッ┛ョ┛”
  161. ’ミヤケシ゛マ
  162. DATA ”−┠−┯ア┯ア┠”
  163. ’ハチシ゛ョウシ゛マ
  164. DATA ”ウ┿ウ┌エ┌”
  165. ’シコク
  166. DATA ”~┻y┻w┨s┨r┠o┷o┬i┤l┤m└o└p┝u─y┼}│├┃┴━╋”
  167. ’キュウシュウ
  168. DATA ”_┨Z┨Y┬Q─T┐Q┌S┰U┘X┝V┿X│[┰X「V「WゥUェVャZュYェZァ\ィ[ゥZゥZェ[ェ\ャZッ_ャ^ォ_ェaォf┝i└g│c─f┼e┬a├_┴”
  169. ’ヒラト゛シ゛マ
  170. DATA ”P┤O│Q┤”
  171. ’フクエシ゛マ
  172. DATA ”G└G┝I┝J└”
  173. ’ナカト゛オリシ゛マ
  174. DATA ”L┿K┌L┐M┌”
  175. ’タネカ゛シマ
  176. DATA ”^ア]イ\キ^エ”
  177. ’ヤクシマ
  178. DATA ”XオWキXクZキZカ”
  179. ’アマミオウシマ
  180. DATA ”MフJホJマLマOフ”
  181. ’トクノシマ
  182. DATA ”GメGヤHヤHモ”
  183. ’オキエラフ゛シ゛マ
  184. DATA ”CラDラDリCリ”
  185. ’オキナワホントウ
  186. DATA ”@゛=■<゜;゜<■:▲9△;▼?■@゜”
  187. ’クメシ゛マ
  188. DATA ”0▲0▼/▲”
  189. ’ミヤコシ゛マ
  190. DATA ”↓б↓г!г”
  191. ’イシカ゛キシ゛マ
  192. DATA ”СгРдндПё”
  193. ’イリオモテシ゛マ
  194. DATA ”Ме♪е♪ёМё”
  195. ’ミナミタ゛イトウシ゛マ
  196. DATA ”^Щ]Ъ^Ъ”
  197. ’チチシ゛マ
  198. DATA ”マロホワマワ”
  199. ’ハハシ゛マ
  200. DATA ”ヘ■ホ■ホ●”
  201. ’イオウトウ
  202. DATA ”シбスбシв”

注意

起動に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.090 秒 | このページの最終更新 : 2015/11/17 (火) 01:31:36 (1338d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30