たわごと

_ 卒研

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

#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));
}

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