|ATOM |RDF トップ «前の日記(2002-09-30 [月]) 最新 次の日記(2002-10-02 [水])» 編集 a
2002|03|04|05|06|07|08|09|10|
2003|01|02|03|04|05|06|07|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|07|08|09|10|
2006|02|05|06|

たわごと


2002-10-01 [火]

_ 卒研

LEGOのマインドストームを動かしたりしてるのです。NQCっていうC言語ライクな言語でいろいろプログラミングしてます。で、こんなものをつくってみたりw

#define play(s,t) PlayTone(s,t);Wait(t);

// 音階。0〜7で大きいほど高音。sはシャープ #define C(t) 2093 >> (7 - t) #define Cs(t) 2217 >> (7 - t) #define D(t) 2349 >> (7 - t) #define Ds(t) 2489 >> (7 - t) #define E(t) 2637 >> (7 - t) #define F(t) 2794 >> (7 - t) #define Fs(t) 2960 >> (7 - t) #define G(t) 3136 >> (7 - t) #define Gs(t) 3322 >> (7 - t) #define A(t) 3520 >> (7 - t) #define As(t) 3729 >> (7 - t) #define B(t) 3951 >> (7 - t) #define Res 0
// 音符の長さ。L(4)だと4分音符 #define L(t) 200 / t
task main(){ play(Cs(4),L(16)); play(E(4),L(16)); play(Gs(4),L(16)); play(Cs(5),L(16));
play(Ds(5),L(2)); play(E(5),L(2));
play(Ds(5),L(4)); play(Cs(5),L(4)); play(C(5),L(16)); play(Gs(4),L(16)); play(E(4),L(16)); play(Ds(4),L(16)); play(Cs(4),L(16)); play(E(4),L(16)); play(A(4),L(16)); play(Cs(5),L(16));
play(Ds(5),L(2)); play(E(5),L(2));
play(Ds(5),L(4)); play(Cs(5),L(2)); play(Res,L(16)); play(E(4),L(16)); play(Gs(4),L(16)); play(Cs(5),L(16));
play(C(5),L(1));
play(Cs(5),L(2)); play(As(4),L(4) + L(8)); play(G(4),L(8));
play(Gs(4),L(2)); play(Res,L(4)); play(Gs(4),L(16)); play(As(4),L(16)); play(C(5),L(16)); play(Cs(5),L(16));
play(C(5),L(2) + L(4)); }

解読できる人はいますかね?某曲なのですがw

本日のTrackBacks(全1件) [TrackBack URL: http://yaya.sakuratan.com/diary/tb.rb/20021001]

hermes outlet jakarta たわごと(2002-10-01)