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

投稿プログラム : RANDOM WAVE MIXER

パンくずリスト

2012年4月8日投稿 / 投稿者 :天郷思音（わぁぃ＠） / タグ : 投稿プログラム 音楽 実用ツール QRコード mkII専用
検索用：【天郷思音】

概要

乱数でBGMPRG用波形を生成するソフトです。

完全に乱数任せにしている訳ではなく、あくまで乱数を前の値に加算する方法を取ることで良い波形ができるようにしています。

操作方法

А生成
Б再生
Ф書き込み
Х読み込み
Пバラメータ操作

プログラムについてコメント

できるだけサブルーチン化を意識しました。

スクリーンショット・動画

RANDOMWAVEMIXER画面.jpg

QR コード

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

1/22/2
qr0.pngqr1.png

プログラムリスト

  1. ′┌─────────────────────────┐
  2. ′│　ＲＡＮＤＯＭ　ＷＡＶＥ　ＭＩＸＥＲ　ｖ１．０　　│
  3. ′├─────────────────────────┤
  4. ′│　ＢＧＭＰＲＧヨウハケイランタ゛ムサクセイソフト　│
  5. ′└─────────────────────────┘
  6. ′Ж　ＣＯＰＹＲＩＧＨＴ　ＦＲＥＥ
  8. ＡＣＬＳ：ＣＬＥＡＲ：ＢＧＭＳＴＯＰ
  9. ＦＯＲ　Ｉ＝０　ＴＯ　１
  10. ＢＲＥＰＥＡＴ　Ｉ，３０，４
  11. ＮＥＸＴ
  12. ＤＩＭ　Ｍ＄（３２）
  13. ＡＤＳＲ（０）＝＆Ｈ７Ｆ
  14. ＡＤＳＲ（１）＝＆Ｈ３Ｆ
  15. ＡＤＳＲ（２）＝＆Ｈ０Ｆ
  16. ＡＤＳＲ（３）＝＆Ｈ３Ｆ
  17. ＧＯＳＵＢ　＠ＳＣＩＮＩＴ
  18. ＧＯＳＵＢ　＠ＷＡＶＥＳＥＴ
  20. ＠ＭＡＩＮ
  21. ＧＯＳＵＢ　＠ＢＴＧＥＴ
  22. ＧＯＳＵＢ　＠ＡＤＳＲＳＥＴ
  23. ＧＯＳＵＢ　＠ＳＣＰＵＴ
  24. ＩＦ　ＢＴＮ＝＝１６　ＴＨＥＮ　ＧＯＳＵＢ　＠ＷＡＶＥＳＥＴ
  25. ＩＦ　ＢＴＮ＝＝３２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＷＡＶＥＴＥＳＴ
  26. ＩＦ　ＢＴＮ＝＝６４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＳＡＶＥ
  27. ＩＦ　ＢＴＮ＝＝１２８　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＯＡＤ
  28. ＩＦ　ＢＴＮ＝＝１０２４　ＴＨＥＮ　＠ＥＸＩＴ
  29. ＩＦ　Ｍ＄（ＮＯ）＝＝””　ＴＨＥＮ　ＧＯＳＵＢ　＠ＷＡＶＥＳＥＴ
  30. ＶＳＹＮＣ　１
  31. ＧＯＴＯ　＠ＭＡＩＮ
  33. ′ホ゛タンシュトク
  34. ＠ＢＴＧＥＴ
  35. ＢＴＮ＝ＢＵＴＴＯＮ（１）
  36. ＲＥＴＵＲＮ
  38. ′カ゛メンヒョウシ゛
  39. ＠ＳＣＰＵＴ
  40. ＬＯＣＡＴＥ　ＯＳ＊６＋（ＯＳ＞０），５：ＰＲＩＮＴ　”　”；
  41. ＬＯＣＡＴＥ　Ｓ＊６＋（Ｓ＞０），５：ＰＲＩＮＴ　”Й”；
  42. ＬＯＣＡＴＥ　４，５：ＰＲＩＮＴ　ＮＯ＋２２４
  43. ＦＯＲ　Ｉ＝０　ＴＯ　３
  44. ＬＯＣＡＴＥ　１０＋Ｉ＊６，５：ＰＲＩＮＴ　ＬＥＦＴ＄（ＳＴＲ＄（ＡＤＳＲ（Ｉ））＋”　　”，３）
  45. ＮＥＸＴ
  46. ＬＯＣＡＴＥ　０，６：ＰＲＩＮＴ　Ｍ＄（ＮＯ）
  47. ＲＥＴＵＲＮ
  49. ′カ゛メンショキカ
  50. ＠ＳＣＩＮＩＴ
  51. ＰＲＩＮＴ　”┌──────────────────────┐”
  52. ＰＲＩＮＴ　”│ＲＡＮＤＯＭ　ＷＡＶＥ　ＭＩＸＥＲ　ｖ１．０│”
  53. ＰＲＩＮＴ　”└──────────────────────┘”
  54. ＬＯＣＡＴＥ　０，４：ＰＲＩＮＴ　”А：ＳＥＴ　Б：ＰＬＡＹ　Ф：ＳＡＶＥ　Х：ＬＯＡＤ”
  55. ＬＯＣＡＴＥ　１，５：ＰＲＩＮＴ　”ＮＯ：”
  56. ＬＯＣＡＴＥ　８，５：ＰＲＩＮＴ　”Ａ：”
  57. ＬＯＣＡＴＥ　１４，５：ＰＲＩＮＴ　”Ｄ：”
  58. ＬＯＣＡＴＥ　２０，５：ＰＲＩＮＴ　”Ｓ：”
  59. ＬＯＣＡＴＥ　２６，５：ＰＲＩＮＴ　”Ｒ：”
  60. ＲＥＴＵＲＮ
  62. ＠ＡＤＳＲＳＥＴ
  63. ＯＳ＝Ｓ：Ｓ＝Ｓ−（ＢＴＮ＝＝４）＋（ＢＴＮ＝＝８）
  64. ＩＦ　Ｓ＜０　ＯＲ　Ｓ＞４　ＴＨＥＮ　Ｓ＝ＯＳ
  65. ＩＦ　Ｓ　ＴＨＥＮ　ＯＡＤＳＲ（Ｓ−１）＝ＡＤＳＲ（Ｓ−１）　ＥＬＳＥ　ＯＮＯ＝ＮＯ
  66. ＩＦ　Ｓ　ＴＨＥＮ　ＡＤＳＲ（Ｓ−１）＝ＡＤＳＲ（Ｓ−１）＋（ＢＴＮ＝＝１）−（ＢＴＮ＝＝２）　ＥＬＳＥ　ＮＯ＝ＮＯ＋（ＢＴＮ＝＝１）−（ＢＴＮ＝＝２）
  67. ＩＦ　ＮＯ＜０　ＯＲ　ＮＯ＞３１　ＴＨＥＮ　ＮＯ＝ＯＮＯ
  68. ＩＦ　Ｓ　ＴＨＥＮ　ＩＦ　ＡＤＳＲ（Ｓ−１）＜０　ＯＲ　ＡＤＳＲ（Ｓ−１）＞１２７　ＴＨＥＮ　ＡＤＳＲ（Ｓ−１）＝ＯＡＤＳＲ（Ｓ−１）
  69. ＲＥＴＵＲＮ
  71. ′ハケイセイセイ
  72. ＠ＷＡＶＥＳＥＴ
  73. Ｍ＄（ＮＯ）＝””：Ｆ＝ＳＧＮ（ＲＮＤ（２）−０．５）：Ｊ＝２
  74. ＦＯＲ　Ｉ＝０　ＴＯ　６３
  75. Ｊ＝Ｊ＋ＲＮＤ（７）＊Ｆ
  76. ＩＦ　ＡＢＳ（Ｊ）＞１２０　ＯＲ　！ＲＮＤ（２５６）　ＴＨＥＮ　Ｆ＝−Ｆ
  77. Ｍ＄（ＮＯ）＝Ｍ＄（ＮＯ）＋ＲＩＧＨＴ＄（”０”＋ＨＥＸ＄（Ｊ），２）
  78. ＮＥＸＴ
  79. ＲＥＴＵＲＮ
  81. ′テストエンソウ
  82. ＠ＷＡＶＥＴＥＳＴ
  83. ＢＧＭＰＲＧ　ＮＯ＋２２４，ＡＤＳＲ（０），ＡＤＳＲ（１），ＡＤＳＲ（２），ＡＤＳＲ（３），Ｍ＄（ＮＯ）
  84. ＢＧＭＰＬＡＹ　”＠”＋ＳＴＲ＄（ＮＯ＋２２４）＋”ＣＤＥＦＧＡＢ＜Ｃ”
  85. ＲＥＴＵＲＮ
  87. ′ヨミコミ
  88. ＠ＦＬＯＡＤ
  89. ＦＮ＄＝”ＭＥＭ：ＷＡＶＥ”＋ＳＴＲ＄（ＮＯ＋２２４）
  90. ＬＯＡＤ　ＦＮ＄
  91. ＩＦ　！ＲＥＳＵＬＴ　ＴＨＥＮ　ＲＥＴＵＲＮ
  92. Ｍ＄（ＮＯ）＝ＭＥＭ＄
  93. ＦＮ＄＝”ＭＥＭ：ＥＧ”＋ＳＴＲ＄（ＮＯ＋２２４）
  94. ＬＯＡＤ　ＦＮ＄
  95. ＦＯＲ　Ｉ＝０　ＴＯ　３
  96. ＡＤＳＲ（Ｉ）＝ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（ＭＥＭ＄，Ｉ＊２＋２，２））
  97. ＮＥＸＴ
  98. ＲＥＴＵＲＮ
  100. ′カキコミ
  101. ＠ＦＳＡＶＥ
  102. ＭＥＭ＄＝Ｍ＄（ＮＯ）
  103. ＦＮ＄＝”ＭＥＭ：ＷＡＶＥ”＋ＳＴＲ＄（ＮＯ＋２２４）
  104. ＳＡＶＥ　ＦＮ＄
  105. ＭＥＭ＄＝”４０”
  106. ＦＯＲ　Ｉ＝０　ＴＯ　３
  107. ＭＥＭ＄＝ＭＥＭ＄＋ＲＩＧＨＴ＄（”０”＋ＨＥＸ＄（ＡＤＳＲ（Ｉ）），２）
  108. ＮＥＸＴ
  109. ＦＮ＄＝”ＭＥＭ：ＥＧ”＋ＳＴＲ＄（ＮＯ＋２２４）
  110. ＳＡＶＥ　ＦＮ＄
  111. ＲＥＴＵＲＮ
  113. ′シュウリョウ
  114. ＠ＥＸＩＴ
  115. ＡＣＬＳ：ＣＬＥＡＲ
  116. ＥＮＤ

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

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


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