a23_usm003 のバックアップ(No.4)

a23_useSelfMade #3

(by K, 2023.01.23)
- 親ページ： a23_useSelfMade

↑

2023.01.24 Tue #1

私は小学4年生の時に、中古のFM-8を使ってプログラミングを始めました（富士通製, 8bitCPU, 1.2MHz, メインメモリ64KB, ディスク1枚320KB）。FM-8に標準搭載されていたF-BASIC ver.1.0にはBEEPという命令があって、それで簡単にビープ音を出すことができました。ピーとなるだけでしたが、それでもないよりはずっと有用でした。BEEPのON/OFFを高速に切り替えることで、音に多少の変化を与えることもできました。
中学に入ってFM-NEW7を中古で買いました（当時でも相当に型落ちしていたので1万円でした）。FM-NEW7にはPSG音源があり、PLAY文やSOUND文があって、最大で3重和音まで音を出すことができました。またFM音源カードを増設することで、FM音源3和音、SSG3和音が追加されて、PLAY HG命令を使って、とても良い音が鳴りました。

しかし今私がC言語でプログラミングをすると、音は全く鳴らせません。グラフィックはacl1ライブラリやその前身のacl, bla, blikeライブラリなどを使うことで扱えましたが、音関係はずっと未着手でした。・・・つまり私のプログラミング環境は、FM-8のころの上位互換ではなかったのです。音に関して言えば、FM-8のほうが上だったのです。
いや、Windows上でMinGWを使う環境でも、音を出す手段がありそうなことはずっと前から分かっていました。きっとPLAY文相当のことをやる手段はあって、MMLを演奏できるはずです。でも何をどう調べればいいのか見当もつかず、調査をやりかけてあきらめたままでした。

さてeasy-Cにはワンライナーがあります。そしてグラフィックを扱えるようにするために<windows.h>もインクルードされた状態になっています。ということは、ワンライナーでwin32apiを好きなだけ試せるのです。・・・それで「そういえば前にwin32にはBeepっていう関数があるよって教えてもらったよな、ちょっと使ってみるかー」から始まって、「おお、できたー、こう書けばよかったのかー（うれしい）」「もっといい音は出せないかな？きっとなんか方法はあるはずだ」と検索して実験、検索して実験をワンライナーで繰り返したところ、ついにmidiOutOpen()やmidiOutShortMsg()でやりたいことができると分かりました。ここまでわかればもう十分なので、必要なコードをすらすらと書いて、APlayというクラスを作ってacl1に追加しました。これでついに、FM-8にもFM-NEW7にも負けない開発環境がWindows上に整ったことになります！（私としては）。

まあこんな説明を書く必要はなかったのですが、なんというか「自分で使って自分の開発を便利にする」というのを今回とても実感したので、ぜひ紹介したかったのです。

ということで daiku.c[13行] です。これはベートーベンの交響曲第9番第4楽章の合唱部分の主旋律です。「歓喜の歌」ともいわれます。

APlay *p = aOpenPlay16(100000);

APlay_mml(p, 0, "T110 @1 f+f+ga agf+e ddef+ f+.e8e2");
APlay_mml(p, 0, "f+f+ga agf+e ddef+ e.d8d2");
APlay_mml(p, 0, "eef+d ef+8g8f+d ef+8g8f+e de<a>");
APlay_mml(p, 0, "f+2 f+ga agf+e ddef+ e.d8d2");

APlay_mml(p, 0, "> f+f+ga agf+e ddef+ f+.e8e2");
APlay_mml(p, 0, "f+f+ga agf+e ddef+ e.d8d2");
APlay_mml(p, 0, "eef+d ef+8g8f+d ef+8g8f+e de<a>");
APlay_mml(p, 0, "f+2 f+ga agf+e ddef+ e.d8d2");

APlay_run(p);

気づいた人はほとんどいないと思うので書いておきますが、これは私のお気に入りの曲の一つで、「30日でできる！OS自作入門」の664ページでも紹介しています。

↑

2023.01.24 Tue #2

ついでなので、他もどんどんやります。以下もすべて「30日でできる！OS自作入門」で紹介したものです。

kirakira.c[11行] : 「きらきら星」

APlay *p = aOpenPlay16(100000);

APlay_mml(p, 0, "T120 @1 ccggaag2 ffeeddc2");
APlay_mml(p, 0, "ggffeed2 ggffeed2");
APlay_mml(p, 0, "ccggaag2 ffeeddc2 r1");

APlay_mml(p, 0, "ccggaag2 ffeeddc2");
APlay_mml(p, 0, "ggffeed2 ggffeed2");
APlay_mml(p, 0, "ccggaag2 ffeeddc2");

APlay_run(p);

fujisan.c[13行] : 「富士山」

APlay *p = aOpenPlay16(100000);

APlay_mml(p, 0, "T120 @1 g.g8agec8d8e2 d.g8gf8e8d2.r");
APlay_mml(p, 0, "g.g8eca.b8>c<a g.a8g8f8e8d8c2.r");
APlay_mml(p, 0, "d.d8ddc8d8e8f8g2 a.b8>c<ag2.r");
APlay_mml(p, 0, ">c2<age.e8ag fed.c8c2.r");

APlay_mml(p, 0, "g.g8agec8d8e2 d.g8gf8e8d2.r");
APlay_mml(p, 0, "g.g8eca.b8>c<a g.a8g8f8e8d8c2.r");
APlay_mml(p, 0, "d.d8ddc8d8e8f8g2 a.b8>c<ag2.r");
APlay_mml(p, 0, ">c2<age.e8ag fed.c8c2.r");

APlay_run(p);

うーん、OS自作入門を見ていたら、自作入門のmmlplay.cみたいなやつをeasy-Cでもやりたくなってきた・・・（演奏に応じて表示が動くやつです）。

↑

2023.01.25 Wed #1

今日もまずはOS自作入門から1曲。ベートーベンの交響曲第5番第1楽章より。APlayは工夫とかしなくても簡単に最大16和音を出せるのだから、すべてのパートを使えばいいのですが、今は楽譜が手元にないので、ちょっとできません。OS自作入門では単音で頑張って再現していたので、そのMMLを使って作りました。

daigo.c[30行]

APlay *p = aOpenPlay16(100000);
APlay_mml(p, 0, "T155 @1 l8");

APlay_mml(p, 0, "rggge-2.rfffd1");
APlay_mml(p, 0, "rggge-a-a-a-g>e-e-e-c2r8<ggg");
APlay_mml(p, 0, "da-a-a-g>fffd2r8ggf");
APlay_mml(p, 0, "e-<e-e-fg>ggfe-<e-e-f");
APlay_mml(p, 0, "g>ggfl4e-rcrg2.l8r<a-a-a-f1r4");
APlay_mml(p, 0, "  r a-a-a-fddd<ba-a-a-g<ggg");
APlay_mml(p, 0, ">>e-a-a-a-fddd<ba-a-a-g<ggg");
APlay_mml(p, 0, ">>e-g>ccc2<bbb>dd2ccce-e-ddf");
APlay_mml(p, 0, "feeggffa-a-ggb-b-a-a->c");
APlay_mml(p, 0, "c<bb>dce-e-e-c<ggge-c<gge-ccc<b>>>fdd");
APlay_mml(p, 0, "<bgffd<bgfd<b>ccc>>e-e-e-");
APlay_mml(p, 0, "c<aaag-e-e-e-c<aaaa4r2r4b-4r4");

APlay_mml(p, 0, "rb-b-b-e-2f2<b-2>l4b->e-de-fcc<b-");
APlay_mml(p, 0, "b->e-de-fcc<b->b->e-de-fcc<b-");
APlay_mml(p, 0, "<b->cd-c<b->c<b-a->d-e-fe-");
APlay_mml(p, 0, "d-e-d-ce-fg-fe-fg-fe-fg-f");
APlay_mml(p, 0, "e-fg-fe-fg-fg-al8b-2r8>c<b-a-");
APlay_mml(p, 0, "a-gfe-e-dcdfe-<b-g");
APlay_mml(p, 0, ">dc<a-f>c<b-ge-<b->>ab-a");
APlay_mml(p, 0, "b-ab-ab->c<b-a-a-gfe-e-dcd");
APlay_mml(p, 0, "fe-<b-g>dc<a-f>c<b-ge-");
APlay_mml(p, 0, "<b->b->b-b-e-ggge-<b-b-b-ge-e-e-");
APlay_mml(p, 0, "<b->ddde->ggge-<b-b-b-ge-e-e-");
APlay_mml(p, 0, "<b->b-b-b-b-4r4.b-b-b-b-4r4.>ddde-4r2");

APlay_run(p);

↑

2023.01.25 Wed #2

ずっとAPlayばかりですみません。でも本当にやっとできたのでうれしくて・・・。
単音ばかりでは面白くないので、

（つづく）

↑

こめんと欄

コメント	お名前	NameLink