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

投稿プログラム : 8bitDA

パンくずリスト

2012年4月2日投稿 / 投稿者 : Oskar / タグ : 投稿プログラム 非実用ツール QRコード mkII専用

概要

音声サンプリングデータを再生するプログラムです。

内容

サンプリングレート4kHz、符号付き8-bit、モノラルの音声サンプリングデータをかなり強引に再生します。

  • メモリの許す限り長い音声でもOK。
    • ニコニコ動画の音楽を切り取って20秒ぐらいにして試してみたが、再生できた。1分はいけそう。
  • Windows の .wavファイルで8-bitのものは「符号なし」なので注意。
  • まあ、一発技といわれればそれまでですが、これでもかなり真剣に作ったのよ。

プログラム構成

  • メインモジュール OK_8BDA2 (QR)
    • (2012.5.3) プチコンmkII ver2.1 でも動作するように修正しました。
      以前のリスト (OK_8BDA1) で75行目を Ｎ＄＝”Ｂ９６＆” と書き換えれば動作します。
  • 波形データ
    • DATA方式波形データ OK_MOHO1 (QR)
      • DATA文で16進数の文字列で書かれた波形データ。とりあえず聞いてみてください。
    • 計算方式波形データ OK_SINE1 (QR)
      • とりあえず 440Hz（O4A相当）のサイン波……に似ているもの。

使い方

メインモジュールの後ろに波形データを一つ追加して使います。

（例）

ＬＯＡＤ”ＯＫ＿８ＢＤＡ２”：ＡＰＰＥＮＤ”ＯＫ＿ＭＯＨＯ１”
ＲＵＮ

もちろん波形データを追加した状態で保存すれば、単独で実行可能なプログラムとして使えます。

苦労した点

MMLで、タイでつないでいる間は音色を変えられないとか、タイを使わないとチャンネル間でユーザ定義波形の開始位置が合わないとか……。

今後の展開

  • やる気しだい
    • ステレオ化
    • データ圧縮
    • リソースからの波形データ読み込み
  • がんばればできるかも
    • 音質向上
      • サンプリング周波数を上げる
      • 折り返しひずみを減らす（同じ4KHzでもPCで聞くと愕然に良いのはたぶんこのせい）
      • 謎のノイズの除去（計算方式波形データを聞くと分かるが、プツプツとノイズが乗る。ヘッドホン端子出力をPCで見ても変な波形が出ている。波形書き換えは間に合っているようなのだが……）
    • VSYNC 1 で回せるように
    • 他プログラムから使えるきれいなサブルーチン化
  • 妄想
    • 目指せCD音質（44.1kHz）
    • こういう変な再生方法（10年以上前のものを持ち出すおっさん失礼）

ひとこと

波形データのDATA文は全部手打ち！！

  • 投稿人は mkII でプチコンデビューなので、プチコンの先人達を思うと楽してはいかんと思った……が、やはりつらかった。

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

え、見たいって？

QR コード

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

メインモジュール （OK_8BDA2）

1/22/2
qr0-V2.pngqr1-V2.png

DATA方式波形データ （OK_MOHO1）

1/142/143/14
qr0-m.pngqr1-m.pngqr2-m.png
4/145/146/14
qr3-m.pngqr4-m.pngqr5-m.png
7/148/149/14
qr6-m.pngqr7-m.pngqr8-m.png
10/1411/1412/14
qr9-m.pngqr10-m.pngqr11-m.png
13/1414/14
qr12-m.pngqr13-m.png

計算方式波形データ （OK_SINE1）

1/1
qr0-s.png

プログラムリスト

メインモジュール （OK_8BDA2）

  1. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  2. ’　８ｂｉｔＤＡ　（ＯＫ＿８ＢＤＡ２）
  3. ’　（Ｃ）　Ｏｓｋａｒ　２０１２．０５．０３
  4. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  6. ＧＯＳＵＢ　＠ＣＬＥＡＮ
  7. ＮＣＨ＝４
  8. ＰＡＴＣＨ＝２４０
  9. ＧＯＳＵＢ　＠ＧＥＴ＿ＷＡＶＥ
  10. ＧＯＳＵＢ　＠ＳＥＴ＿ＩＮＩＴ＿ＦＲＡＭＥ
  11. ＧＯＳＵＢ　＠ＳＥＴ＿ＭＭＬ
  12. ＧＯＳＵＢ　＠ＰＬＡＹ＿ＭＭＬ
  13. ＧＯＳＵＢ　＠ＲＥＰＬＡＣＥ＿ＦＲＡＭＥ
  14. ＥＮＤ
  16. ＠ＣＬＥＡＮ
  17. ＣＬＥＡＲ
  18. ＢＧＭＳＴＯＰ
  19. ＢＧＭＣＬＥＡＲ
  20. ＲＥＴＵＲＮ
  22. ＠ＲＥＡＤ＿ＷＡＶＥ
  23. ＲＥＳＴＯＲＥ　＠ＷＡＶＥ＿ＳＡＭＰＬＥＳ
  24. Ｉ＝−１
  25. ＦＯＲ　ＵＮＴＩＬ＝０　ＴＯ　０　ＳＴＥＰ　０
  26. 　ＲＥＡＤ　Ｄ＄
  27. 　Ｉ＝Ｉ＋１
  28. 　ＵＮＴＩＬ＝（Ｄ＄＝＝””）
  29. ＮＥＸＴ
  30. ＮＦＲＡＭＥ＝ＦＬＯＯＲ（Ｉ／ＮＣＨ）＋１
  31. ＮＣＨＵＮＫ＝Ｉ
  32. ＤＩＭ　Ｗ＄（ＮＦＲＡＭＥ，ＮＣＨ）
  33. ＲＥＳＴＯＲＥ　＠ＷＡＶＥ＿ＳＡＭＰＬＥＳ
  34. ＦＯＲ　Ｉ＝０　ＴＯ　ＮＣＨＵＮＫ−１
  35. 　Ｆ＝ＦＬＯＯＲ（Ｉ／ＮＣＨ）
  36. 　Ｃ＝Ｉ％ＮＣＨ
  37. 　ＳＨＩＦＴ＝Ｃ＊１２８／ＮＣＨ
  38. 　ＲＥＡＤ　ＷＣ＄
  39. 　Ｗ＄（Ｆ，Ｃ）＝”００”＊ＳＨＩＦＴ
  40. 　Ｗ＄（Ｆ，Ｃ）＝Ｗ＄（Ｆ，Ｃ）＋ＷＣ＄
  41. 　Ｗ＄（Ｆ，Ｃ）＝Ｗ＄（Ｆ，Ｃ）＋”００”＊（１２８−ＬＥＮ（ＷＣ＄）／２−ＳＨＩＦＴ）
  42. ＮＥＸＴ
  43. ＦＯＲ　Ｉ＝ＮＣＨＵＮＫ　ＴＯ　ＮＣＨＵＮＫ＋ＮＣＨ−１−ＮＣＨＵＮＫ％ＮＣＨ
  44. 　Ｗ＄（ＦＬＯＯＲ（Ｉ／ＮＣＨ），Ｉ％ＮＣＨ）＝”００”＊１２８
  45. ＮＥＸＴ
  46. ＲＥＴＵＲＮ
  48. ＠ＣＡＬＣ＿ＷＡＶＥ
  49. ＤＩＭ　Ｗ＄（ＮＦＲＡＭＥ，ＮＣＨ）
  50. Ｎ＝０
  51. ＦＯＲ　Ｆ＝０　ＴＯ　ＮＦＲＡＭＥ−１
  52. 　ＦＯＲ　Ｃ＝０　ＴＯ　ＮＣＨ−１
  53. 　　ＳＨＩＦＴ＝Ｃ＊１２８／ＮＣＨ
  54. 　　ＷＴ＄＝””
  55. 　　ＦＯＲ　Ｉ＝０　ＴＯ　１２８／ＮＣＨ−１
  56. 　　　ＧＯＳＵＢ　＠ＷＡＶＥ＿ＦＵＮＣＴＩＯＮ
  57. 　　　ＷＴ＄＝ＷＴ＄＋ＨＥＸ＄（Ｘ，２）
  58. 　　　Ｎ＝Ｎ＋１
  59. 　　ＮＥＸＴ
  60. 　　Ｗ＄（Ｆ，Ｃ）＝”００”＊ＳＨＩＦＴ
  61. 　　Ｗ＄（Ｆ，Ｃ）＝Ｗ＄（Ｆ，Ｃ）＋ＷＴ＄
  62. 　　Ｗ＄（Ｆ，Ｃ）＝Ｗ＄（Ｆ，Ｃ）＋”００”＊（１２８−ＬＥＮ（ＷＴ＄）／２−ＳＨＩＦＴ）
  63. 　ＮＥＸＴ
  64. ＮＥＸＴ
  66. ＠ＳＥＴ＿ＩＮＩＴ＿ＦＲＡＭＥ
  67. ＦＯＲ　Ｃ＝０　ＴＯ　ＮＣＨ−１
  68. 　ＢＧＭＰＲＧ　ＰＡＴＣＨ＋Ｃ，１２７，１２７，１２７，１２７，Ｗ＄（０，Ｃ）
  69. ＮＥＸＴ
  70. ＲＥＴＵＲＮ
  72. ＠ＳＥＴ＿ＭＭＬ
  73. ＤＩＭ　Ｍ＄（ＮＣＨ）
  74. Ｔ＄＝”Ｔ３１３”
  75. Ｎ＄＝”Ｂ９６＆”
  76. ＲＥＰ＝ＦＬＯＯＲ（ＮＦＲＡＭＥ／２）−１
  77. ＦＯＲ　Ｃ＝０　ＴＯ　ＮＣＨ−１
  78. 　Ｍ＄（Ｃ）＝”：”＋ＳＴＲ＄（Ｃ）＋”Ｌ９６Ｑ８Ｏ１＠Ｄ１５＠Ｖ１２７Ｖ１２７”
  79. 　Ｍ＄（Ｃ）＝Ｍ＄（Ｃ）＋”＠”＋ＳＴＲ＄（ＰＡＴＣＨ＋Ｃ）
  80. 　Ｐ１＄＝Ｎ＄＊（Ｃ＋１）＋”＄”＋ＳＴＲ＄（Ｃ）＋”＝１”＋Ｎ＄＊（ＮＣＨ−１−Ｃ）
  81. 　Ｐ２＄＝Ｎ＄＊（Ｃ＋１）＋”＄”＋ＳＴＲ＄（Ｃ）＋”＝２”＋Ｎ＄＊（ＮＣＨ−１−Ｃ）
  82. 　Ｍ＄（Ｃ）＝Ｍ＄（Ｃ）＋Ｐ１＄＋Ｐ２＄
  83. 　ＦＯＲ　Ｒ＝ＲＥＰ　ＴＯ　２５１　ＳＴＥＰ　−２５０
  84. 　　Ｍ＄（Ｃ）＝Ｍ＄（Ｃ）＋”［”＋Ｐ１＄＋Ｐ２＄＋”］”＋ＳＴＲ＄（２５０）
  85. 　ＮＥＸＴ
  86. 　Ｍ＄（Ｃ）＝Ｍ＄（Ｃ）＋”［”＋Ｐ１＄＋Ｐ２＄＋”］”＋ＳＴＲ＄（Ｒ）
  87. ＮＥＸＴ
  88. ＲＥＴＵＲＮ
  90. ＠ＰＬＡＹ＿ＭＭＬ
  91. ＢＧＭＰＬＡＹ　Ｔ＄，Ｍ＄（０），Ｍ＄（１），Ｍ＄（２），Ｍ＄（３）
  92. ＶＳＹＮＣ　０
  93. ＲＥＴＵＲＮ
  95. ＠ＲＥＰＬＡＣＥ＿ＦＲＡＭＥ
  96. ＤＩＭ　ＶＰＲＥＶ（ＮＣＨ）
  97. Ｆ＝１
  98. ＦＯＲ　ＵＮＴＩＬ＝０　ＴＯ　０　ＳＴＥＰ　０
  99. 　’ＶＳＹＮＣ　１
  100. 　ＦＯＲ　Ｃ＝０　ＴＯ　３
  101. 　　Ｖ＝ＢＧＭＧＥＴＶ（０，Ｃ）
  102. 　　ＩＦ　Ｖ＞０　ＡＮＤ　Ｖ！＝ＶＰＲＥＶ（Ｃ）　ＴＨＥＮ：ＥＬＳＥ　＠ＥＮＤＩＦ＿ＲＷ
  103. 　　　ＢＧＭＰＲＧ　ＰＡＴＣＨ＋Ｃ，１２７，１２７，１２７，１２７，Ｗ＄（Ｆ，Ｃ）
  104. 　　　ＶＰＲＥＶ（Ｃ）＝Ｖ
  105. 　　　ＩＦ　Ｃ＝＝３　ＴＨＥＮ　Ｆ＝Ｆ＋１
  106. 　　＠ＥＮＤＩＦ＿ＲＷ
  107. 　ＮＥＸＴ
  108. 　ＵＮＴＩＬ＝（Ｆ＞＝ＮＦＲＡＭＥ　ＯＲ　！ＢＧＭＣＨＫ（０））
  109. ＮＥＸＴ
  110. ＲＥＴＵＲＮ

DATA方式波形データ （OK_MOHO1 省略・コメント追加版）

  1. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  2. ’　Ａ　ｗａｖｅ　ｆｏｒ　８ｂｉｔＤＡ
  3. ’　（Ｃ）　Ｏｓｋａｒ　２０１２．０４．０２
  4. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  6. ’ショウリャク　（ナニ　カイテモ　カマワナイ）
  7. ＥＮＤ
  9. ＠ＧＥＴ＿ＷＡＶＥ
  10. ’サイセイ　フレームスウ　（サイコ゛マテ゛ナラ　９９９９）
  11. ’１フレーム＝１２８サンフ゜ル
  12. ＮＦＲＡＭＥ＝９９９９
  13. ＧＯＳＵＢ　＠ＲＥＡＤ＿ＷＡＶＥ
  14. ＲＥＴＵＲＮ
  16. ＠ＷＡＶＥ＿ＳＡＭＰＬＥＳ
  17. ’１モシ゛レツニ　３２サンフ゜ル　（３２ハ゛イト＝６４モシ゛）
  18. ＤＡＴＡ　０００１０２０２０２０２０２０１０１００００ＦＥＦＥＦＥＦＥＦＥＦＥＦＦ０００１０１０１０１０１００ＦＦＦＦＦＥＦＤＦＤＦＤＦＤ
  19. ＤＡＴＡ　ＦＥ０２０６０９０Ｂ０Ｃ０Ｂ０８０４００ＦＤＦＡＦ９Ｆ８Ｆ９ＦＡＦＣ０００５０９０Ｂ０Ｃ０Ａ０８０６０３０１ＦＦＦＥＦＣＦＤＦＤ
  20. ＤＡＴＡ　ＦＤ０７１１１８１Ｄ１Ｃ１６０Ｄ０２Ｆ８ＥＦＥ８Ｅ６Ｅ５ＥＢＦ１０１２２３Ｅ５２５７５１４３２９０ＤＦ４ＤＦＤ４ＣＦＤ２ＤＢＥ３
  21. ＤＡＴＡ　ＦＥ１Ｂ３０３Ｃ３Ａ３４２５１２０４Ｆ７Ｆ１ＥＥＥＣＦ０ＥＥＦ６００１Ｃ２９２Ａ２７２００ＦＦＥＥＤＥ０Ｄ８Ｄ３Ｄ７Ｄ８Ｅ５０Ａ
  22. ’・・・
  23. ’ショウリャク　（ＤＡＴＡ　フ゛ンヲ　ス゛ラス゛ラ　ナラヘ゛ル）
  24. ’・・・
  25. ’サイコ゛ハ　カラモシ゛レツ
  26. ＤＡＴＡ　””

計算方式波形データ （OK_SINE1 コメント追加版）

  1. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  2. ’　Ａ　ｓｉｎｅ　ｗａｖｅ　ｆｏｒ　８ｂｉｔＤＡ
  3. ’　（Ｃ）　Ｏｓｋａｒ　２０１２．０４．０２
  4. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  6. ＥＮＤ
  8. ＠ＧＥＴ＿ＷＡＶＥ
  9. ’サイセイ　フレームスウ
  10. ’１フレーム＝１２８サンフ゜ル
  11. ＮＦＲＡＭＥ＝５０
  12. ＧＯＳＵＢ　＠ＣＡＬＣ＿ＷＡＶＥ
  13. ＲＥＴＵＲＮ
  15. ＠ＷＡＶＥ＿ＦＵＮＣＴＩＯＮ
  16. ’マイカイ　タ゛イニュウスルノハ　ムタ゛タ゛カ゛　キニ　シナイ
  17. ＲＡＴＥ＝４０００
  18. ＦＲＥＱ＝４４０
  19. ＯＭＥＧＡ＝ＦＲＥＱ＊２＊ＰＩ（）
  20. ’Ｎ：サンフ゜ル　シ゛コク　（ハ゛ンコ゛ウ　０−）
  21. ’Ｘ：サンフ゜ル　シンフ゜ク　（−１２８＜＝Ｘ＜＝１２７）
  22. ’シシャコ゛ニュウノ　ホウカ゛　ヨイカ゛　キニ　シナイ
  23. Ｘ＝１２７＊ＳＩＮ（ＯＭＥＧＡ／ＲＡＴＥ＊Ｎ）
  24. ＲＥＴＵＲＮ

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

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

  • hata0401 : 嗚呼ー (2012/07/21 (土) 22:00:08)
  • メルビル : すごいです！波形データはどうやって作るのですか？ (2012/08/26 (日) 01:13:36)
  • わぁぃ@ : 圧縮した波形データを載せていいですか？ (2012/08/26 (日) 08:32:39)
  • メルビル : ↑見たいです (2012/08/26 (日) 14:47:30)

*1 2012.4.3: 高DPIディスプレイで読み取りにくそうなので、Wiki側の設定で拡大しました。元データの拡大版も用意しましたが添付済みのファイルはユーザが更新できないようなので。

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