task main()
 {
 start unknown;
 }

 #define C 523
 #define D 587
 #define E 659
 #define F 698
 #define G 784
 #define A 880
 #define Bf 932
 #define H 1047
 #define Dx 1175
 #define Fx 1397
 
 task original()
 task unknown()
 {
 while(true)
 {
 PlayTone(C,15);Wait(5);
 PlayTone(F,55);Wait(5);
 PlayTone(A,15);Wait(5);
 PlayTone(H,55);Wait(5);
 PlayTone(C,15);Wait(20);
 PlayTone(F,55);Wait(60);
 PlayTone(A,15);Wait(20);
 PlayTone(H,55);Wait(60);
 
 PlayTone(F,15);Wait(5);
 PlayTone(Bf,15);Wait(5);
 PlayTone(Dx,15);Wait(5);
 PlayTone(Fx,15);Wait(5);
 PlayTone(Dx,15);Wait(5);
 PlayTone(H,55);Wait(5);
 PlayTone(F,15);Wait(20);
 PlayTone(Bf,15);Wait(20);
 PlayTone(Dx,15);Wait(20);
 PlayTone(Fx,15);Wait(20);
 PlayTone(Dx,15);Wait(20);
 PlayTone(H,55);Wait(60);
 
 PlayTone(B,15);Wait(5);
 PlayTone(Bf,15);Wait(5);
 PlayTone(G,15);Wait(5);
 PlayTone(C,15);Wait(5);
 PlayTone(Bf,15);Wait(5);
 PlayTone(B,15);Wait(5);
 PlayTone(G,15);Wait(5);
 PlayTone(C,15);Wait(5);
 PlayTone(B,15);Wait(20);
 PlayTone(Bf,15);Wait(20);
 PlayTone(G,15);Wait(20);
 PlayTone(C,15);Wait(20);
 PlayTone(Bf,15);Wait(20);
 PlayTone(B,15);Wait(20);
 PlayTone(G,15);Wait(20);
 PlayTone(C,15);Wait(20);
 
 PlayTone(G,15);Wait(5);
 PlayTone(E,35);Wait(5);
 PlayTone(D,35);Wait(5);
 PlayTone(C,55);Wait(15);
 PlayTone(G,15);Wait(20);
 PlayTone(E,35);Wait(40);
 PlayTone(D,35);Wait(40);
 PlayTone(C,55);Wait(60);
 }
 }
 
 task main()
 {
 SetSensor(SENSOR_1, SENSOR_TOUCH);
 if(SENSOR_1==1);
 {
 start original ;
 OnFwd(OUT_A+OUT_B);
 until (SENSOR_1 == 1);
 stop original ;
 Off(OUT_A+OUT_B);
 }}

 #define G 784
 #define A 880
 #define B 988
 #define H 1047
 #define Dx 1175
 #define Ex 1319
 #define Fx 1397
 #define Gx 1568
 #define Ax 1760
 
 task matsuri()
 {
 while(true)
 {
 PlayTone(H,15);Wait(5);
 PlayTone(B,15);Wait(5);
 PlayTone(H,15);Wait(5);
 PlayTone(Dx,15);Wait(5);
 PlayTone(Ex,35);Wait(5);
 PlayTone(G,35);Wait(5);
 PlayTone(A,35);Wait(5);
 PlayTone(B,35);Wait(5);
 PlayTone(H,55);Wait(15);
 repeat(2)
 {
 PlayTone(H,15);Wait(20);
 PlayTone(B,15);Wait(20);
 PlayTone(H,15);Wait(20);
 PlayTone(Dx,15);Wait(20);
 PlayTone(Ex,35);Wait(40);
 PlayTone(G,35);Wait(40);
 PlayTone(A,35);Wait(40);
 PlayTone(B,35);Wait(40);
 PlayTone(H,55);Wait(80);
 } 
 PlayTone(Gx,15);Wait(20);
 PlayTone(Ax,15);Wait(20);
 PlayTone(Gx,15);Wait(20);
 PlayTone(Ex,15);Wait(20);
 PlayTone(Fx,15);Wait(20);
 PlayTone(Gx,15);Wait(20);
 PlayTone(Fx,15);Wait(20);
 PlayTone(Dx,15);Wait(20);
 PlayTone(Ex,15);Wait(20);
 PlayTone(Fx,15);Wait(20);
 PlayTone(Ex,15);Wait(20);
 PlayTone(H,15);Wait(20);
 PlayTone(Dx,55);Wait(80);
 
 PlayTone(H,15);Wait(5);
 PlayTone(B,15);Wait(5);
 PlayTone(H,15);Wait(5);
 PlayTone(Dx,15);Wait(5);
 PlayTone(Ex,35);Wait(5);
 PlayTone(G,35);Wait(5);
 PlayTone(A,35);Wait(5);
 PlayTone(B,35);Wait(5);
 PlayTone(H,55);Wait(15);
 PlayTone(Gx,12);Wait(20);
 PlayTone(Ax,12);Wait(20);
 PlayTone(Gx,12);Wait(20);
 PlayTone(Ex,12);Wait(20);
 PlayTone(Fx,12);Wait(20);
 PlayTone(Gx,12);Wait(20);
 PlayTone(Fx,12);Wait(20);
 PlayTone(Dx,12);Wait(20);
 PlayTone(Ex,12);Wait(20);
 PlayTone(Fx,12);Wait(20);
 PlayTone(Ex,12);Wait(20);
 PlayTone(H,12);Wait(20);
 PlayTone(Dx,55);Wait(80);
 
 PlayTone(Gx,15);Wait(5);
 PlayTone(Ax,15);Wait(5);
 PlayTone(Gx,15);Wait(5);
 PlayTone(Ex,15);Wait(5);
 PlayTone(Fx,15);Wait(5);
 PlayTone(Gx,15);Wait(5);
 PlayTone(Fx,15);Wait(5);
 PlayTone(Dx,15);Wait(5);
 PlayTone(Ex,15);Wait(5);
 PlayTone(Fx,15);Wait(5);
 PlayTone(Ex,15);Wait(5);
 PlayTone(H,15);Wait(5);
 PlayTone(Dx,55);Wait(15);
 PlayTone(H,15);Wait(20);
 PlayTone(B,15);Wait(20);
 PlayTone(H,15);Wait(20);
 PlayTone(Dx,15);Wait(20);
 PlayTone(Ex,35);Wait(40);
 PlayTone(G,35);Wait(40);
 PlayTone(A,35);Wait(40);
 PlayTone(B,35);Wait(40);
 PlayTone(H,55);Wait(80);
 
 PlayTone(Gx,12);Wait(8);
 PlayTone(Ax,12);Wait(8);
 PlayTone(Gx,12);Wait(8);
 PlayTone(Ex,12);Wait(8);
 PlayTone(Fx,12);Wait(8);
 PlayTone(Gx,12);Wait(8);
 PlayTone(Fx,12);Wait(8);
 PlayTone(Dx,12);Wait(8);
 PlayTone(Ex,12);Wait(8);
 PlayTone(Fx,12);Wait(8);
 PlayTone(Ex,12);Wait(8);
 PlayTone(H,12);Wait(8);
 PlayTone(Dx,55);Wait(15);
 
 PlayTone(H,15);Wait(5);
 PlayTone(B,15);Wait(5);
 PlayTone(H,15);Wait(5);
 PlayTone(Dx,15);Wait(5);
 PlayTone(Ex,35);Wait(5);
 PlayTone(G,35);Wait(5);
 PlayTone(A,35);Wait(5);
 PlayTone(B,35);Wait(5);
 PlayTone(H,55);Wait(15);
 
 PlayTone(Ex,15);Wait(5);
 PlayTone(Dx,15);Wait(5);
 PlayTone(Ex,15);Wait(5);
 PlayTone(Fx,15);Wait(5);
 PlayTone(Gx,35);Wait(5);
 PlayTone(G,35);Wait(5);
 PlayTone(A,35);Wait(5);
 PlayTone(B,35);Wait(5);
 PlayTone(H,55);Wait(15);
 PlayTone(Ex,15);Wait(20);
 PlayTone(Dx,15);Wait(20);
 PlayTone(Ex,15);Wait(20);
 PlayTone(Fx,15);Wait(20);
 PlayTone(Gx,35);Wait(40);
 PlayTone(G,35);Wait(40);
 PlayTone(A,35);Wait(40);
 PlayTone(B,35);Wait(40);
 PlayTone(H,55);Wait(80);
 }
 }

[[2006b/A1/kuroneko]]


トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS