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

投稿プログラム : 太陽近傍の星々

パンくずリスト

2012年08月15日投稿 / 投稿者 : バイカウントメルビル / タグ : 投稿プログラム QRコード 鑑賞プログラム mkII専用 / 検索用→【メルビル】

概要

我々のいるこの星から、近い恒星50個を表示します。
下画面を横にスライドさせて360度どの方角からも見ることができます。
ただし、縦方向の角度は変えられません。ごめんなさい

また、十字ボタンで太陽の位置を動かすことができ、
XYボタンでズームイン＆ズームアウトできます

ちなみに、24行目のコメントを外すと太陽近傍の星々の名前が、
27行目のコメントを外すと「タイヨウ」が表示されます

※あまり期待しすぎないでください

写真

(24、27行目コメントアウトを外したもの)

P1040210.JPG

参考文献

Wikipedia-近い恒星の一覧
NEARBY STARS 2006 A

QR コード

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

qr.png

プログラムリスト

  1. ＣＬＥＡＲ：ＡＣＬＳ：ＰＮＬＴＹＰＥ　”ＯＦＦ”
  3. ＤＩＭ　Ｂ＿ＲＡ（１０００），Ｂ＿ＤＥＣ（１０００），ＬＹ（１０００），ＮＡＭＥ＄（１０００）
  4. ＤＩＭ　ＲＡ（１０００），ＤＥＣ（１０００）
  6. ＳＣＬ＝１０：ＣＸ＝１２８：ＣＹ＝９６
  8. ＠ＲＥＡＤＬＯＯＰ
  9. ＲＥＡＤ　Ｂ＿ＲＡ（Ｓ），Ｂ＿ＤＥＣ（Ｓ），ＬＹ（Ｓ），ＮＡＭＥ＄（Ｓ）
  10. ＩＦ　Ｂ＿ＲＡ（Ｓ）＜０　ＴＨＥＮ　＠ＤＲＡＷ
  11. ＲＡ（Ｓ）＝ＲＡＤ（Ｂ＿ＲＡ（Ｓ）＊１５％３６０）
  12. ＤＥＣ（Ｓ）＝ＲＡＤ（（Ｂ＿ＤＥＣ（Ｓ）＋３６０）％３６０）
  13. Ｓ＝Ｓ＋１
  14. ＧＯＴＯ＠ＲＥＡＤＬＯＯＰ
  16. ＠ＤＲＡＷ
  17. ＣＬＳ：ＧＣＬＳ　０
  18. ＦＯＲ　Ｉ＝０　ＴＯ　Ｓ−１
  19. 　Ｘ＝ＣＯＳ（ＲＡ（Ｉ）＋Ａ）＊ＣＯＳ（ＤＥＣ（Ｉ））＊ＬＹ（Ｉ）
  20. 　Ｙ＝ＳＩＮ（ＲＡ（Ｉ）＋Ａ）＊ＣＯＳ（ＤＥＣ（Ｉ））＋ＳＩＮ（ＤＥＣ（Ｉ））＊ＬＹ（Ｉ）
  21. 　ＤＸ＝　Ｘ＊ＳＣＬ＋ＣＸ
  22. 　ＤＹ＝−Ｙ＊ＳＣＬ＋ＣＹ
  23. 　ＧＰＳＥＴ　ＤＸ，ＤＹ，１５
  24. ’　ＩＦ　０＜ＤＸ　ＡＮＤ　ＤＸ＜２４８　ＡＮＤ　０＜ＤＹ　ＡＮＤ　ＤＹ＜１８４　ＴＨＥＮ　ＬＯＣＡＴＥ　ＤＸ／８＋１，ＤＹ／８−１：ＰＲＩＮＴ　ＮＡＭＥ＄（Ｉ）；
  25. ＮＥＸＴ
  26. ＧＰＳＥＴ　ＣＸ，ＣＹ，１５
  27. ’ＩＦ　０＜＝ＣＸ　ＡＮＤ　ＣＸ＜２４８　ＡＮＤ　８＜＝ＣＹ　ＡＮＤ　ＣＹ＜１９２　ＴＨＥＮ　ＬＯＣＡＴＥ　ＣＸ／８＋１，ＣＹ／８−１：ＰＲＩＮＴ　”タイヨウ”
  28. ＶＳＹＮＣ　２
  29. ＠ＬＯＯＰ
  30. Ａ＝ＲＡＤ（ＴＣＨＸ／２５６＊３６０）
  31. ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　１　ＴＨＥＮ　ＣＹ＝ＣＹ−１
  32. ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　２　ＴＨＥＮ　ＣＹ＝ＣＹ＋１
  33. ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　４　ＴＨＥＮ　ＣＸ＝ＣＸ−１
  34. ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　８　ＴＨＥＮ　ＣＸ＝ＣＸ＋１
  35. ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　６４　ＴＨＥＮ　ＳＣＬ＝ＳＣＬ＋１
  36. ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　１２８　ＴＨＥＮ　ＳＣＬ＝ＳＣＬ−１
  37. ＩＦ　ＳＣＬ＜０　ＴＨＥＮ　ＳＣＬ＝０
  38. ＩＦ　ＴＣＨＳＴ　ＯＲ　ＢＵＴＴＯＮ（）　ＴＨＥＮ　＠ＤＲＡＷ
  39. ＧＯＴＯ　＠ＬＯＯＰ
  41. ’┌───────────────────────┐
  42. ’│И　ホシ　テ゛−タ　И　　　　　　　　　　　　│
  43. ’├──┬──────┬───────┬─────┤
  44. ’│л　│セキケイ　　│セキイ　　　　│キョリ　　│
  45. ’│　л│　　　（ｈ）│　　　　（゜）│（コウネン）
  46. ’├──┼──────┼───────┼─────┤
  47. ’│　　│　　　　　　│　　　　　　　│　　　　　│
  49. ＤＡＴＡ　１４．４９５，−６２．６７９，　４．２４
  50. ＤＡＴＡ”フ゜ロキシマ・ケンタウリ”
  52. ＤＡＴＡ　１４．６６０，−６０．８３５，　４．３６
  53. ＤＡＴＡ”アルファ・ケンタウリ”
  55. ＤＡＴＡ　１７．９２３，　　４．５５５，　５．９６
  56. ＤＡＴＡ”ハ゛−ナ−ト゛セイ”
  58. ＤＡＴＡ　１０．９４１，　　７．０１１，　７．７８
  59. ＤＡＴＡ”ウォルフ３５９”
  61. ＤＡＴＡ　１１．０１０，　３６．３０６，　８．２９
  62. ＤＡＴＡ”ララント゛２１１８５”
  64. ＤＡＴＡ　　６．７７５，−１６．７１６，　８．５８
  65. ＤＡＴＡ”シリウス”
  67. ＤＡＴＡ　　１．６５０，　１７．９５０，　８．７２
  68. ＤＡＴＡ”ルイテン７２６−８
  70. ＤＡＴＡ　１８．８３０，　２３．８３６，　９．６８
  71. ＤＡＴＡ”ロス１５４”
  73. ＤＡＴＡ　２３．６９８，　４４．１５９，１０．３２
  74. ＤＡＴＡ”ロス２４８”
  76. ＤＡＴＡ　　３．５４９，　−９．４５８，１０．５２
  77. ＤＡＴＡ”エリタ゛ヌスサ゛イフ゜シロンセイ”
  79. ＤＡＴＡ　２３．０９５，−３５．８５３，１０．７４
  80. ＤＡＴＡ”ラカ−ユ９３５２”
  82. ＤＡＴＡ　１１．７９６，　　０．８０４，１０．９４
  83. ＤＡＴＡ”ロス１２８”
  85. ＤＡＴＡ　２２．６４３，−１５．３００，１１．２６
  86. ＤＡＴＡ”ミス゛カ゛メサ゛ＥＺセイ”
  88. ＤＡＴＡ　　７．６５５，　　５．２２５，１１．４０
  89. ＤＡＴＡ”フ゜ロキオン”
  91. ＤＡＴＡ　２１．１４８，　３８．９４７，１１．４０
  92. ＤＡＴＡ”ハクチョウサ゛６１ハ゛ンセイ”
  94. ＤＡＴＡ　　０．３０６，　４４．０２３，１１．５２
  95. ＤＡＴＡ”シュトル−フェ２３９８”
  97. ＤＡＴＡ　１８．７１３，　５９．６３０，１１．６２
  98. ＤＡＴＡ”ク゛ル−ムフ゛リッシ゛３４”
  100. ＤＡＴＡ　２２．０５６，−５６．７８６，１１．８２
  101. ＤＡＴＡ”インテ゛ィアンサ゛イフ゜シロンセイ”
  103. ＤＡＴＡ　　８．４９７，　２６．７７７，１１．８２
  104. ＤＡＴＡ”カニサ゛ＤＸセイ”
  106. ＤＡＴＡ　　１．７３４，−１５．９３７，１１．８８
  107. ＤＡＴＡ”クシ゛ラサ゛タウセイ”
  109. ＤＡＴＡ　　３．５９９，−４４．５１３，１１．９２
  110. ＤＡＴＡ”ＧＪ１０６１”
  112. ＤＡＴＡ　　１．２０８，−１６．９９９，１２．１３
  113. ＤＡＴＡ”クシ゛ラサ゛ＹＺセイ”
  115. ＤＡＴＡ　　７．４５７，　　５．２２６，１２．３６
  116. ＤＡＴＡ”ルイテンセイ”
  118. ＤＡＴＡ　　２．８８３，　１６．８８２，１２．４６
  119. ＤＡＴＡ”ティ−カ゛−テ゛ンセイ”
  121. ＤＡＴＡ　１８．７５０，−４５．０１８，１２．５７
  122. ＤＡＴＡ”ＳＣＲ１８４５−６３５７”
  124. ＤＡＴＡ　　５．１９４，−４５．０１８，１２．７７
  125. ＤＡＴＡ　”カフ゜タインセイ”
  127. ＤＡＴＡ　２１．２８７，−３８．８６７，１２．８６
  128. ＤＡＴＡ　”ラカ−ユ８７６０”
  130. ＤＡＴＡ　２２．４６７，　５７．６９６，１３．１４
  131. ＤＡＴＡ　”クリュ−ケ゛ル６０”
  133. ＤＡＴＡ　１０．８０４，−３９．９３５，１３．１７
  134. ＤＡＴＡ　”ＤＥＮ１０４８−３９５６”
  136. ＤＡＴＡ　　６．４９０，　−２．８１３，１３．３４
  137. ＤＡＴＡ　”ロス６１４”
  139. ＤＡＴＡ　１６．５０５，−１２．６５４，１３．８１
  140. ＤＡＴＡ　”ウォルフ１０６１”
  142. ＤＡＴＡ　　０．８１９，　　５．３８８，１４．０６
  143. ＤＡＴＡ　”ウ゛ァン・マ−ネンセイ”
  145. ＤＡＴＡ　　０．０９０，−３７．３５７，１４．２２
  146. ＤＡＴＡ　”ク゛リ−セ゛１”
  148. ＤＡＴＡ　１７．５５４，　　９．０２１，１４．３０
  149. ＤＡＴＡ　”ウォルフ４２４”
  151. ＤＡＴＡ　　２．００３，　１３．０５２，１４．５１
  152. ＤＡＴＡ　”オヒツシ゛サ゛ＴＺセイ”
  154. ＤＡＴＡ　１７．６０７，　６８．３３９，１４．７９
  155. ＤＡＴＡ　”ク゛リ−セ゛６８７”
  157. ＤＡＴＡ　１０．８０３，−１１．３３４，１４．８１
  158. ＤＡＴＡ　”ＬＨＳ２９２”
  160. ＤＡＴＡ　１７．４７８，−４６．８９５，１４．８１
  161. ＤＡＴＡ　”ク゛リ−セ゛６７４”
  163. ＤＡＴＡ　１９．８９８，−４４．４１５，１４．８１
  164. ＤＡＴＡ　”ＧＪ１２４５”
  166. ＤＡＴＡ　１１．７６２，−６４．８４１，１５．０６
  167. ＤＡＴＡ　”ク゛リ−セ゛４４０”
  169. ＤＡＴＡ　　０．１１２，　−７．５３９，１５．３１
  170. ＤＡＴＡ　”ＧＪ１００２”
  172. ＤＡＴＡ　２２．８８８，−１４．２６３，１５．３４
  173. ＤＡＴＡ　”ク゛リ−セ゛８７６”
  175. ＤＡＴＡ　１１．０９１，　４３．５２６，１５．８３
  176. ＤＡＴＡ　”ク゛リ−セ゛４１２”
  178. ＤＡＴＡ　１０．１８９，　４９．４５４，１５．８５
  179. ＤＡＴＡ　”ク゛ル−ムフ゛リッシ゛１６１８”
  181. ＤＡＴＡ　１０．３２６，　１９．８６９，１５．９４
  182. ＤＡＴＡ　”ク゛リ−セ゛３８８”
  184. ＤＡＴＡ　１０．７４２，−６４．１９４，１５．９４
  185. ＤＡＴＡ　”ＬＨＳ２８８”
  187. ＤＡＴＡ　２１．５５９，−４９．００９，１６．０８
  188. ＤＡＴＡ　”ク゛リ−セ゛８３２”
  190. ＤＡＴＡ　　３．６５９，−３５．４２８，１６．１９
  191. ＤＡＴＡ　”ＬＰ９４４−２０”
  193. ＤＡＴＡ　１７．６１７，−４４．３２０，１６．３４
  194. ＤＡＴＡ　”ＣＤ−４４゜１１９０９”
  196. ＤＡＴＡ　　４．２５４，　−７．６５３，１６．３９
  197. ＤＡＴＡ　”エリタ゛ヌスサ゛４０ハ゛ンセイ”
  199. ＤＡＴＡ　−１，　０，０，””

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

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

  • 名無しさん : バグ発見！コメントアウト外して、うんとちっちゃくして、点を、画面の外に出るぐらい左にやると、文字がたくさん (2012/08/15 (水) 16:35:06)
  • バイカウントメルビル : それは対処がめんどくさかったのでほっといてあります。また今度対処するかもしれません (2012/08/15 (水) 16:57:38)
  • バイカウントメルビル : ↑↑どうやらこちらの勘違いだったようです。数値が間違ってたので直しました報告ありがとうございました (2012/08/15 (水) 20:08:37)
  • バイカウントメルビル : 赤いところが今回直した部分です。 (2012/08/15 (水) 20:13:24)
  • 燻製 : すごっ！！でも星そのものはズームしたとき拡大しないのか・・・、名前表示した状態で縮小しまくると「タイヨウヌスザ４０バンセイセイ」になるww (2012/08/15 (水) 21:03:58)
  • バイカウントメルビル : 星そのものが拡大っていっても1pixel自体が相当でかいので (2012/08/15 (水) 21:51:43)
  • バイカウントメルビル : あとコメント外したバージョンはおまけ的な感じなので動作は保証しません(´・ω・｀) (2012/08/15 (水) 21:52:48)
  • 名無しさん : タイヨウヌスザ４０バンセイセイ　づごい名前だWWセンスなさ過ぎＷＷ (2012/08/16 (木) 08:03:51)
  • 名無しさん : タイヨウが画面外に出ると真っ暗になる (2012/08/16 (木) 08:07:18)
  • メルビル : 1pixel自体相当でかいってこの前言ったけど、よく考えてみたらそんなことなかった (2012/08/30 (木) 22:44:54)
  • バグ発見! : 太陽を24文字目まで動かすと、「プロキシマ・ケンタウリアルファ・ケンタウリバーナードセイウォルフ359ラランド21185シリウスルイテン726-8ロス154ロス248エリダヌスザイプシロンセイラカーユ9352ロス128ミズガメザEZセイプロキオンハクチョウザ61バンセイシュトルーフェ2398」(本当はくそ長いです)　長文サーセン (2014/10/04 (土) 08:37:43)

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