![[PukiWiki]](image/robotics-logo-small.jpg "[PukiWiki]"){kind=logo}
2004/C7/演奏ロボット(必須) 一山 カナコ
#define l_Mi 330
#define l_Fa 349
#define l_Sol 392
#define l_Sol_ 415
#define l_La 440
#define Do 523
#define Do_ 554
#define Re 587
#define Re_ 662
#define Mi 659
#define Fa 698
#define Fa_ 740
#define Sol 784
#define Sol_ 831
#define La 880
#define Si 988
#define h_Do 1047
#define A 30
#define A_ 26
#define B 15
#define B_ 11
#define C 22
#define C_ 18
#define D 8
#define D_ 4
#define E 90
#define E_ 86
task music_kaby() {
PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(A);
PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(A);
PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(A);
PlayTone(Fa_,B_); Wait(B); PlayTone(Fa_,B_); Wait(B); PlayTone(Sol_,B_); Wait(B); PlayTone(Sol_,A_); Wait(A);
repeat(2) { PlayTone(l_Sol,C_); Wait(C); PlayTone(l_Sol,D_); Wait(D); PlayTone(Do,E_); Wait(E);
PlayTone(Do,C_); Wait(C); PlayTone(Mi,D_); Wait(D); PlayTone(Sol,B_); Wait(B); PlayTone(h_Do,B_); Wait(B); PlayTone(Si,B_); Wait(B); PlayTone(La,B_); Wait(B); PlayTone(Sol,A_); Wait(A);
PlayTone(Mi,C_); Wait(C); PlayTone(Sol,D_); Wait(D); PlayTone(Fa,A_); Wait(A);
PlayTone(Re,C_); Wait(C); PlayTone(Mi,D_); Wait(D); PlayTone(Re,A_); Wait(A);
PlayTone(Mi,C_); Wait(C); PlayTone(Re,D_); Wait(D); PlayTone(Do,E_); Wait(E); }
PlayTone(Do,B_); Wait(B); PlayTone(Do,B_); Wait(B); PlayTone(Re,B_); Wait(B); PlayTone(Mi,A_); Wait(A);
PlayTone(Do,B_); Wait(B); PlayTone(Re,B_); Wait(B); PlayTone(Do,E_); Wait(E);
}
task music_inoki()
{
while(true) { PlayTone(Sol,E_); Wait(E); PlayTone(l_Sol,A_); Wait(A); PlayTone(l_La,E_); Wait(E);
PlayTone(Sol,A_); Wait(A); PlayTone(Fa,E_); Wait(E); PlayTone(l_Fa,A_); Wait(A); PlayTone(l_Sol,E_); Wait(E); Wait(A);
PlayTone(Mi,E_); Wait(E); PlayTone(l_Mi,A_); Wait(A); PlayTone(l_Fa,E_); Wait(E);
PlayTone(Re,A_); Wait(A); PlayTone(Do,E_); Wait(E); PlayTone(l_Mi,A_); Wait(A); PlayTone(l_Fa,E_); Wait(E); Wait(A);
} }
task main() { SetSensor(SENSOR_1,SENSOR_TOUCH); until(SENSOR_1 == 1) { start music_kaby; OnRev(OUT_A+OUT_C); } start music_inoki; OnFwd(OUT_A+OUT_C);
} ファミコン盤星のカービーの夢の泉というステージのバックミュージック。。懐かしい。。 もう一つは、燃える闘魂猪木のテーマソング。。熱いです。
