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 unknown()
{
while(true)
{
PlayTone(C,15);Wait(20);
PlayTone(F,55);Wait(60);
PlayTone(A,15);Wait(20);
PlayTone(H,55);Wait(60);

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(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(20);

PlayTone(E,35);Wait(40);
PlayTone(D,35);Wait(40);
PlayTone(C,55);Wait(60);
}
}
#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)
{
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(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(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(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
Last-modified: 2007-02-07 (水) 15:55:14