■

仕事おわったー。で、その勢いで大阪へ帰ってきた。

と、ひとことで済ませているんだけど、大阪まで帰ってくるのは、結構しんどい。

lisve 続き

lisve.tar.gz
GCとくっつけたので、リークはしてないはず。してても僕のせいではない。

• -o filename で wav 吐く
• 色々関数追加
• 時間範囲設定
• READMEを書こうとしてやめた

1000 ; 何秒間やるか
1 ; 一秒間に何周するか

16 ; format
22050 ; PCM の freq

;; 正解音

(0 200   ; 0〜200 ms の間鳴る
   (/ 1 (max 1.0 (pow t 3)))
   (setfreq 1000)
   (sin t))

(200 1000  ; 200〜1000 ms の間鳴る
     (/ 1 (max 1.0 (pow t 3)))
     (setfreq 800)
     (sin t))

ピンポーンって感じで。

1000 ; 何秒間やるか
100 ; 一秒間に何周するか

16 ; format
22050 ; PCM の freq

;; NG音

(0 200
   (if (> t pi) -0.5 0.5))


(300 1000
     (if (> t pi) -0.5 0.5))

ブブーっと。

長時間（1000msくらい）鳴らすと、物によっては角度がずれてくるのがわかるので、やっぱり小数は適当にしてはいかんな…とか、思った。

あー、なんか色々暇つぶしに使えるな。

300 ; 何秒間やるか
1 ; 一秒間に何周するか

16 ; format
22050 ; PCM の freq

;; アイテム音…？

(0 10
   (/ 1 (max 1.0 (pow (* t 3) 8)))   
   (setfreq 1000)
   (sin t)
   (sin t)
   (sin t))

(20 80
   (/ 1 (max 1.0 (pow (* t 3) 8)))   
   (setfreq 2000)
   (sin t)
   (sin t)
   (sin t))

(80 120
   (/ 1 (max 1.0 (pow (* t 3) 8)))   
   (setfreq 3000)
   (sin t)
   (sin t)
   (sin t))

(120 300
   (/ 1 (max 1.0 (pow (* t 3) 4)))
   (setfreq 4000)
   (sin t)
   (sin t)
   (sin t))

アイテム取ったときっぽくない？