打ち上げ花火 by 隊長

再生

　プチコン発売を記念した、「打ち上げ花火」のアニメーションが楽しめるデモプログラムだ。
　ドット単位で広がる花火がどうやって作られているのか……？　プログラムを追って確認してほしい。

作ったのはこの人

隊長

スマイルブームでプログラマーを営む謎の「部隊長」。今回は仕事でもないのにプライベートでプログラムを組んでくれたぞ。


 CHECK POiNT 

インテリ
この花火は、全部グラフィック面を使って描いてあるんだね。メインループの中にＧＣＬＳがあるということは……

ワンパク
１コマごとに画面を消しては書き込んでるのかよ！　ファック、こりゃまたチカラ技だな！

神崎
ＧＰＳＥＴで点を打っているのかと思ったら、ＧＬＩＮＥで放射状に書いてから余分な線を消していたんだね。

博士
昔のマシンでは処理が重くなって、なかなかこうはいかんかったものじゃよ。ありがたい時代じゃのう。

プログラムリスト

  1. ’
  2. ’　フ゜チコンハツハ゛イキネン　ウチアケ゛ハナヒ゛
  3. ’
  4. ＶＩＳＩＢＬＥ　１，１，０，０，０，１
  5. ＣＬＳ：ＧＣＬＳ：ＣＬＥＡＲ
  6. ＤＩＭ　ＦＸ（１０），ＦＹ（１０），ＦＳ（１０），ＦＳＰＤ（１０），ＦＨ（１０），ＦＲ（１０），ＦＣ（１０）
  7. ＤＩＭ　ＶＸ（２０），ＶＹ（２０）
  8. ＧＯＳＵＢ　＠ＰＡＬＩＮＩＴ
  9. ＦＯＲ　Ｉ＝０　ＴＯ　９：ＦＳ（Ｉ）＝－１：ＮＥＸＴ　Ｉ
  10. ＧＯＳＵＢ　＠ＭＫＴＢＬ
  12. ＬＯＣＡＴＥ　１０，５：ＰＲＩＮＴ”フ゜チコン　ハツハ゛イ”
  13. ＬＯＣＡＴＥ　１０，７：ＰＲＩＮＴ”　　オメテ゛トウ！　　”
  15. ’　メインルーフ゜
  16. ＠ＬＯＯＰ
  17. ＦＯＲ　ＦＩ＝０　ＴＯ　９
  18. ＯＮ　ＦＳ（ＦＩ）＋１　ＧＯＳＵＢ　＠ＮＥＷＦＩＲＥ，＠ＵＰ，＠ＢＡＮＧ，＠ＳＰＲＥＡＤ，＠ＢＡＮＧ２，＠ＳＰＲＥＡＤ２，＠ＦＥＮＤ
  19. ＮＥＸＴ
  20. ＶＳＹＮＣ　１
  21. ＧＣＬＳ
  22. ＧＯＴＯ　＠ＬＯＯＰ
  24. ’　アタラシイハナヒ゛ヲヨウイ
  25. ＠ＮＥＷＦＩＲＥ
  26. ＩＦ　ＲＮＤ（３）＝＝１　ＴＨＥＮ　＠ＮＥＷＦＩＲＥ２
  27. ＦＸ（ＦＩ）＝ＲＮＤ（１９２）＋３２
  28. ＦＹ（ＦＩ）＝１９２
  29. ＦＳＰＤ（ＦＩ）＝ＲＮＤ（５）＋３
  30. ＦＨ（ＦＩ）＝ＲＮＤ（６０）＋６０
  31. ＦＲ（ＦＩ）＝ＲＮＤ（４０）＋５０
  32. ＢＥＥＰ　６，０，３
  33. ＦＳ（ＦＩ）＝０
  34. ＲＥＴＵＲＮ
  35. ＠ＮＥＷＦＩＲＥ２
  36. ＦＸ（ＦＩ）＝ＲＮＤ（１９２）＋３２
  37. ＦＹ（ＦＩ）＝１９２
  38. ＦＳＰＤ（ＦＩ）＝ＲＮＤ（４）＋６
  39. ＦＲ（ＦＩ）＝ＲＮＤ（５０）＋６０
  40. ＦＳ（ＦＩ）＝３
  41. ＲＥＴＵＲＮ
  43. ’　ウチアケ゛
  44. ＠ＵＰ
  45. ＿Ｓ＝ＦＳＰＤ（ＦＩ）
  46. ＦＹ（ＦＩ）＝ＦＹ（ＦＩ）－＿Ｓ
  47. ＦＨ（ＦＩ）＝ＦＨ（ＦＩ）－＿Ｓ
  48. ＿Ｓ＝＿Ｓ－０．２
  49. ＩＦ　＿Ｓ＜１　ＴＨＥＮ　＿Ｓ＝１
  50. ＦＳＰＤ（ＦＩ）＝＿Ｓ
  51. ＩＦ　ＦＨ（ＦＩ）＜＝０　ＴＨＥＮ　ＦＳ（ＦＩ）＝１
  52. ＧＰＳＥＴ　ＦＸ（ＦＩ），ＦＹ（ＦＩ），２
  53. ＲＥＴＵＲＮ
  55. ’　ハ゛クハツ
  56. ＠ＢＡＮＧ
  57. ＦＨ（ＦＩ）＝１
  58. ＦＳＰＤ（ＦＩ）＝ＲＮＤ（３）＋２
  59. ＦＣ（ＦＩ）＝（ＲＮＤ（１５）＋１）＊１６
  60. ＧＰＳＥＴ　ＦＸ（ＦＩ），ＦＹ（ＦＩ），ＦＣ（ＦＩ）
  61. ＢＥＥＰ　２４，－８１９２
  62. ＦＳ（ＦＩ）＝２
  63. ＲＥＴＵＲＮ
  65. ’　ヒロカ゛ッテイク
  66. ＠ＳＰＲＥＡＤ
  67. ＿Ｓ＝ＦＳＰＤ（ＦＩ）
  68. ＿Ｈ＝ＦＨ（ＦＩ）
  69. ＿ＯＨ＝＿Ｈ
  70. ＿Ｈ＝＿Ｈ＋＿Ｓ
  71. ＿Ｓ＝＿Ｓ－０．４
  72. ＩＦ　＿Ｓ＜１　ＴＨＥＮ　＿Ｓ＝１
  73. ＦＳＰＤ（ＦＩ）＝＿Ｓ
  74. ＦＨ（ＦＩ）＝＿Ｈ
  75. ＿ＸＯ＝ＦＸ（ＦＩ）
  76. ＿ＹＯ＝ＦＹ（ＦＩ）
  77. ＿Ｃ＝ＦＣ（ＦＩ）＋ＦＬＯＯＲ（＿Ｈ／ＦＲ（ＦＩ）＊１５）
  78. ＦＯＲ　＿Ｉ＝０　ＴＯ　１９
  79. ＿ＶＸ＝ＶＸ（＿Ｉ）：＿ＶＹ＝ＶＹ（＿Ｉ）
  80. ＧＬＩＮＥ　＿ＯＨ＊＿ＶＸ＋＿ＸＯ，＿ＯＨ＊＿ＶＹ＋＿ＹＯ，＿Ｈ＊＿ＶＸ＋＿ＸＯ，＿Ｈ＊＿ＶＹ＋＿ＹＯ，＿Ｃ
  81. ＮＥＸＴ　＿Ｉ
  82. ＩＦ　＿Ｈ＞＝ＦＲ（ＦＩ）　ＴＨＥＮ　ＦＳ（ＦＩ）＝５
  83. ＲＥＴＵＲＮ
  85. ’　シ゛メンカラヒロカ゛ルハ゛アイノハ゛クハツ
  86. ＠ＢＡＮＧ２
  87. ＦＨ（ＦＩ）＝１
  88. ＦＳＰＤ（ＦＩ）＝ＲＮＤ（３）＋２
  89. ＦＣ（ＦＩ）＝（ＲＮＤ（１５）＋１）＊１６
  90. ＦＳ（ＦＩ）＝４
  91. ＲＥＴＵＲＮ
  93. ’　シ゛メンカラヒロカ゛ル
  94. ＠ＳＰＲＥＡＤ２
  95. ＿Ｓ＝ＦＳＰＤ（ＦＩ）
  96. ＿Ｈ＝ＦＨ（ＦＩ）
  97. ＿ＯＨ＝＿Ｈ
  98. ＿Ｈ＝＿Ｈ＋＿Ｓ
  99. ＿Ｓ＝＿Ｓ－０．１
  100. ＩＦ　＿Ｓ＜１　ＴＨＥＮ　＿Ｓ＝１
  101. ＦＳＰＤ（ＦＩ）＝＿Ｓ
  102. ＦＨ（ＦＩ）＝＿Ｈ
  103. ＿ＸＯ＝ＦＸ（ＦＩ）
  104. ＿ＹＯ＝ＦＹ（ＦＩ）
  105. ＿Ｃ＝ＦＣ（ＦＩ）＋ＦＬＯＯＲ（＿Ｈ／ＦＲ（ＦＩ）＊１５）
  106. ＦＯＲ　＿Ｉ＝１３　ＴＯ　１７
  107. ＿ＶＸ＝ＶＸ（＿Ｉ）：＿ＶＹ＝ＶＹ（＿Ｉ）
  108. ＧＬＩＮＥ　＿ＯＨ＊＿ＶＸ＋＿ＸＯ，＿ＯＨ＊＿ＶＹ＋＿ＹＯ，＿Ｈ＊＿ＶＸ＋＿ＸＯ，＿Ｈ＊＿ＶＹ＋＿ＹＯ，＿Ｃ
  109. ＮＥＸＴ　＿Ｉ
  110. ＩＦ　＿Ｈ＞＝ＦＲ（ＦＩ）　ＴＨＥＮ　ＦＳ（ＦＩ）＝５
  111. ＲＥＴＵＲＮ
  113. ’　アトシマツ
  114. ＠ＦＥＮＤ
  115. ＦＳ（ＦＩ）＝－１
  116. ＲＥＴＵＲＮ
  118. ’　エンヲカクタメノテーフ゛ルヲツクル
  119. ＠ＭＫＴＢＬ
  120. ＦＯＲ　＿Ｉ＝０　ＴＯ　１９
  121. ＿Ａ＝ＲＡＤ（１８＊＿Ｉ）
  122. ＶＸ（＿Ｉ）＝ＣＯＳ（＿Ａ）
  123. ＶＹ（＿Ｉ）＝ＳＩＮ（＿Ａ）
  124. ＮＥＸＴ　＿Ｉ
  125. ＲＥＴＵＲＮ
  127. ’　カラーハ゜レットショキカ
  128. ＠ＰＡＬＩＮＩＴ
  129. ＦＯＲ　＿Ｉ＝１　ＴＯ　１２
  130. ＲＥＡＤ　＿ＲＳ，＿ＧＳ，＿ＢＳ，＿ＲＥ，＿ＧＥ，＿ＢＥ
  131. ＦＯＲ　＿Ｊ＝０　ＴＯ　１０
  132. ＿Ｔ＝＿Ｊ／１０．０
  133. ＿Ｒ＝＿ＲＳ＊（１．０－＿Ｔ）＋＿ＲＥ＊＿Ｔ
  134. ＿Ｇ＝＿ＧＳ＊（１．０－＿Ｔ）＋＿ＧＥ＊＿Ｔ
  135. ＿Ｂ＝＿ＢＳ＊（１．０－＿Ｔ）＋＿ＢＥ＊＿Ｔ
  136. ＿ＣＯＬ＝＿Ｉ＊１６＋＿Ｊ
  137. ＧＯＳＵＢ　＠ＰＡＬＳＥＴ
  138. ＮＥＸＴ　＿Ｊ
  139. ＦＯＲ　＿Ｊ＝１１　ＴＯ　１２
  140. ＿Ｒ＝＿ＲＥ：＿Ｇ＝＿ＧＥ：＿Ｂ＝＿ＢＥ
  141. ＿ＣＯＬ＝＿Ｉ＊１６＋＿Ｊ
  142. ＧＯＳＵＢ　＠ＰＡＬＳＥＴ
  143. ＮＥＸＴ　＿Ｊ
  144. ＦＯＲ　＿Ｊ＝１３　ＴＯ　１５
  145. ＿Ｔ＝（（＿Ｊ－１３）＋２）
  146. ＿Ｒ＝＿ＲＥ／＿Ｔ：＿Ｇ＝＿ＧＥ／＿Ｔ：＿Ｂ＝＿ＢＥ／＿Ｔ
  147. ＿ＣＯＬ＝＿Ｉ＊１６＋＿Ｊ
  148. ＧＯＳＵＢ　＠ＰＡＬＳＥＴ
  149. ＮＥＸＴ　＿Ｊ
  150. ＮＥＸＴ　＿Ｉ
  151. ＲＥＴＵＲＮ
  153. ’　イッコノイロヲカキコム　
  154. ＠ＰＡＬＳＥＴ
  155. ＿Ｒ＄＝”０”＋ＨＥＸ＄（＿Ｒ）：＿Ｒ＄＝ＭＩＤ＄（＿Ｒ＄，ＬＥＮ（＿Ｒ＄）－２，２）
  156. ＿Ｇ＄＝”０”＋ＨＥＸ＄（＿Ｇ）：＿Ｇ＄＝ＭＩＤ＄（＿Ｇ＄，ＬＥＮ（＿Ｇ＄）－２，２）
  157. ＿Ｂ＄＝”０”＋ＨＥＸ＄（＿Ｂ）：＿Ｂ＄＝ＭＩＤ＄（＿Ｂ＄，ＬＥＮ（＿Ｂ＄）－２，２）
  158. ＣＯＬＳＥＴ　”ＧＲＰ”，＿ＣＯＬ，＿Ｒ＄＋＿Ｇ＄＋＿Ｂ＄
  159. ＲＥＴＵＲＮ
  161. ’　ハ゜レットノモトテ゛ータ
  162. ＤＡＴＡ　２４０，２４０，２４０，２５５，０，０
  163. ＤＡＴＡ　２００，１００，０，　　１００，２５５，０
  164. ＤＡＴＡ　１００，１００，２５５，２５５，２５５，０
  165. ＤＡＴＡ　１００，２４０，０，　　０，０，２５５
  166. ＤＡＴＡ　２４０，２５５，２４０，２５５，０，２５５
  167. ＤＡＴＡ　２５５，０，０，　　　　０，２５５，２５５
  168. ＤＡＴＡ　２４０，０，１００，　　２５５，２００，０
  169. ＤＡＴＡ　０，２５５，０，　　　　２５５，０，１２８
  170. ＤＡＴＡ　１００，０，２５５，　　２００，２５５，２５５
  171. ＤＡＴＡ　２５５，１００，０，　　１２８，２５５，０
  172. ＤＡＴＡ　１００，２５５，０，　　１２８，０，２５５
  173. ＤＡＴＡ　２４０，２４０，０，　　０，１２８，２５５