しょぼしょぼすくりぷと xyzzy編 > ツール/ゲーム ジョークライブラリ集 > beep piano

beep piano

beep音で音階を再現します。

機能

beep音で音階を再現します。

各機能について

基本機能として、基本宣言(Beep)と活用ライブラリ(beep-onkai, beep-machine)まであるので 適当に楽しんでください。
Sample ライブラリとして beep-pianoも載せています。

制限

音楽の才能がないため、オクターブとか適当です。 周波数などは適当に合わせてください。

ソース

beepSound.l

使い方

用意

;ダウンロードして
; ~/site-lisp/ などの下に置いてください。

実行

~/site-lisp/ からの相対パスで
(load-library "beepSound.l");で読み込んで
以下の各関数を実行
[usageサンプルは .lファイル末尾に記載]
(Beep 800 1000)
(Beep 1600 3000)

(beep-onkai #\c)

;音階テスト
(beep-machine "cdefgabC Cbagfedc" 1 400)
;かえるの歌
(beep-machine "cdefedcrefgagfercrcrcrcrcdefedcr" 2 400)
;メリーさん
(beep-machine "edc edc e d ccc edcdeee ddd eee edcdeee ddedccc" 3 400)

(beep-machine "ccc  ♭ccc #ccc #ccc ♭ccc" 2 100)

;時報
(progn
  (beep-machine "A   A   A   " 1 250)
  (beep-machine "A"  2 1200))

;PC9801?
(beep-machine "EA" 3 150)
(beep-machine "cC" 3 150)

;ピコ 、ピピ
(beep-machine "cdc" 3 150)
;シューティング音
(beep-machine "EA" 4 10)
(beep-machine "cC" 3 50)

;M-x beep-piano

停止

C-gで強制lisp終了

活用

なつかしい、昔風のゲーム音が楽しめます。 ピコっとか

ちなみに

speeker 80〜20,000
windows 37〜32,767
家(自分) 19〜15498Hz

flash(wavかな?)だと 16000ぐらいまでは聞こえたので、bios制限もあるかもしれない


音楽CDのサンプリング周波数は44.1kHz ⇒ 22.05KHz前後
ゴキブリの嫌う周波数は20〜23khz

参考サイト

http://itsd210.s24.xrea.com/ja/mosquito_sound/
http://www.calliflower.com/2006/06/12/the-mosquito-ring-tone-this-adult-can-hear-it/

履歴

2010/08/11 公開

関連リンク

しょぼしょぼすくりぷと xyzzy編 | ツール/ゲーム ジョークライブラリ集