プチコンまとめ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. CLEAR:ACLS:PNLTYPE ”OFF”
  2. DIM B_RA(1000),B_DEC(1000),LY(1000),NAME$(1000)
  3. DIM RA(1000),DEC(1000)
  4. SCL=10:CX=128:CY=96
  5. @READLOOP
  6. READ B_RA(S),B_DEC(S),LY(S),NAME$(S)
  7. IF B_RA(S)<0 THEN @DRAW
  8. RA(S)=RAD(B_RA(S)*15%360)
  9. DEC(S)=RAD((B_DEC(S)+360)%360)
  10. S=S+1
  11. GOTO@READLOOP
  12. @DRAW
  13. CLS:GCLS 0
  14. FOR I=0 TO S−1
  15.  X=COS(RA(I)+A)*COS(DEC(I))*LY(I)
  16.  Y=SIN(RA(I)+A)*COS(DEC(I))+SIN(DEC(I))*LY(I)
  17.  DX= X*SCL+CX
  18.  DY=−Y*SCL+CY
  19.  GPSET DX,DY,15
  20. ’ IF 0<DX AND DX<248 AND 0<DY AND DY<184 THEN LOCATE DX/8+1,DY/8−1:PRINT NAME$(I);
  21. NEXT
  22. GPSET CX,CY,15
  23. ’IF 0<=CX AND CX<248 AND <=CY AND CY<192 THEN LOCATE CX/8+1,CY/8−1:PRINT ”タイヨウ”
  24. VSYNC 2
  25. @LOOP
  26. A=RAD(TCHX/256*360)
  27. IF BUTTON() AND 1 THEN CY=CY−1
  28. IF BUTTON() AND 2 THEN CY=CY+1
  29. IF BUTTON() AND 4 THEN CX=CX−1
  30. IF BUTTON() AND 8 THEN CX=CX+1
  31. IF BUTTON() AND 64 THEN SCL=SCL+1
  32. IF BUTTON() AND 128 THEN SCL=SCL−1
  33. IF SCL<0 THEN SCL=0
  34. IF TCHST OR BUTTON() THEN @DRAW
  35. GOTO @LOOP
  36. ’┌───────────────────────┐
  37. ’│И ホシ テ゛−タ И            │
  38. ’├──┬──────┬───────┬─────┤
  39. ’│л │セキケイ  │セキイ    │キョリ  │
  40. ’│ л│   (h)│    (゜)│(コウネン)
  41. ’├──┼──────┼───────┼─────┤
  42. ’│  │      │       │     │
  43. DATA 14.495,−62.679, 4.24
  44. DATA”フ゜ロキシマ・ケンタウリ”
  45. DATA 14.660,−60.835, 4.36
  46. DATA”アルファ・ケンタウリ”
  47. DATA 17.923,  4.555, 5.96
  48. DATA”ハ゛−ナ−ト゛セイ”
  49. DATA 10.941,  7.011, 7.78
  50. DATA”ウォルフ359”
  51. DATA 11.010, 36.306, 8.29
  52. DATA”ララント゛21185”
  53. DATA  6.775,−16.716, 8.58
  54. DATA”シリウス”
  55. DATA  1.650, 17.950, 8.72
  56. DATA”ルイテン726−8
  57. DATA 18.830, 23.836, 9.68
  58. DATA”ロス154”
  59. DATA 23.698, 44.159,10.32
  60. DATA”ロス248”
  61. DATA  3.549, −9.458,10.52
  62. DATA”エリタ゛ヌスサ゛イフ゜シロンセイ”
  63. DATA 23.095,−35.853,10.74
  64. DATA”ラカ−ユ9352”
  65. DATA 11.796,  0.804,10.94
  66. DATA”ロス128”
  67. DATA 22.643,−15.300,11.26
  68. DATA”ミス゛カ゛メサ゛EZセイ”
  69. DATA  7.655,  5.225,11.40
  70. DATA”フ゜ロキオン”
  71. DATA 21.148, 38.947,11.40
  72. DATA”ハクチョウサ゛61ハ゛ンセイ”
  73. DATA  0.306, 44.023,11.52
  74. DATA”シュトル−フェ2398”
  75. DATA 18.713, 59.630,11.62
  76. DATA”ク゛ル−ムフ゛リッシ゛34”
  77. DATA 22.056,−56.786,11.82
  78. DATA”インテ゛ィアンサ゛イフ゜シロンセイ”
  79. DATA  8.497, 26.777,11.82
  80. DATA”カニサ゛DXセイ”
  81. DATA  1.734,−15.937,11.88
  82. DATA”クシ゛ラサ゛タウセイ”
  83. DATA  3.599,−44.513,11.92
  84. DATA”GJ1061”
  85. DATA  1.208,−16.999,12.13
  86. DATA”クシ゛ラサ゛YZセイ”
  87. DATA  7.457,  5.226,12.36
  88. DATA”ルイテンセイ”
  89. DATA  2.883, 16.882,12.46
  90. DATA”ティ−カ゛−テ゛ンセイ”
  91. DATA 18.750,−45.018,12.57
  92. DATA”SCR1845−6357”
  93. DATA  5.194,−45.018,12.77
  94. DATA ”カフ゜タインセイ”
  95. DATA 21.287,−38.867,12.86
  96. DATA ”ラカ−ユ8760”
  97. DATA 22.467, 57.696,13.14
  98. DATA ”クリュ−ケ゛ル60”
  99. DATA 10.804,−39.935,13.17
  100. DATA ”DEN1048−3956”
  101. DATA  6.490, −2.813,13.34
  102. DATA ”ロス614”
  103. DATA 16.505,−12.654,13.81
  104. DATA ”ウォルフ1061”
  105. DATA  0.819,  5.388,14.06
  106. DATA ”ウ゛ァン・マ−ネンセイ”
  107. DATA  0.090,−37.357,14.22
  108. DATA ”ク゛リ−セ゛1”
  109. DATA 17.554,  9.021,14.30
  110. DATA ”ウォルフ424”
  111. DATA  2.003, 13.052,14.51
  112. DATA ”オヒツシ゛サ゛TZセイ”
  113. DATA 17.607, 68.339,14.79
  114. DATA ”ク゛リ−セ゛687”
  115. DATA 10.803,−11.334,14.81
  116. DATA ”LHS292”
  117. DATA 17.478,−46.895,14.81
  118. DATA ”ク゛リ−セ゛674”
  119. DATA 19.898,−44.415,14.81
  120. DATA ”GJ1245”
  121. DATA 11.762,−64.841,15.06
  122. DATA ”ク゛リ−セ゛440”
  123. DATA  0.112, −7.539,15.31
  124. DATA ”GJ1002”
  125. DATA 22.888,−14.263,15.34
  126. DATA ”ク゛リ−セ゛876”
  127. DATA 11.091, 43.526,15.83
  128. DATA ”ク゛リ−セ゛412”
  129. DATA 10.189, 49.454,15.85
  130. DATA ”ク゛ル−ムフ゛リッシ゛1618”
  131. DATA 10.326, 19.869,15.94
  132. DATA ”ク゛リ−セ゛388”
  133. DATA 10.742,−64.194,15.94
  134. DATA ”LHS288”
  135. DATA 21.559,−49.009,16.08
  136. DATA ”ク゛リ−セ゛832”
  137. DATA  3.659,−35.428,16.19
  138. DATA ”LP944−20”
  139. DATA 17.617,−44.320,16.34
  140. DATA ”CD−44゜11909”
  141. DATA  4.254, −7.653,16.39
  142. DATA ”エリタ゛ヌスサ゛40ハ゛ンセイ”
  143. DATA −1, 0,0,””

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)
  • 燻製 : すごっ!!でも星そのものはズームしたとき拡大しないのか・・・、名前表示した状態で縮小しまくると「タイヨウヌスザ40バンセイセイ」になるww (2012/08/15 (水) 21:03:58)
  • バイカウントメルビル : 星そのものが拡大っていっても1pixel自体が相当でかいので (2012/08/15 (水) 21:51:43)
  • バイカウントメルビル : あとコメント外したバージョンはおまけ的な感じなので動作は保証しません(´・ω・`) (2012/08/15 (水) 21:52:48)
  • 名無しさん : タイヨウヌスザ40バンセイセイ づごい名前だWWセンスなさ過ぎ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.026 秒 | このページの最終更新 : 2016/02/20 (土) 18:55:06 (1245d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30