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

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でもやりたくなってきた・・・（演奏に応じて表示が動くやつ）。

↑

こめんと欄

コメント	お名前	NameLink