- 追加された行はこの色です。
- 削除された行はこの色です。
[[2005/C1/宇佐美]]
#contents
*音楽を演奏するロボット(カエルのうた):制作途中 [#u01ce26b]
**制作者 [#b3fc3b9b]
C1一同
**プログラム [#y10357bf]
int t
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define So 784
#define La 881
#define turn_right OnFwd(OUT_A); OnRev(OUT_C); Wait(t);
#define turn_left OnFwd(OUT_C); OnRev(OUT_A); Wait(t);
#define off Off(OUT_A+OUT_C);
task play_music()
{
PlayTone(Do,50); Wait(55);
PlayTone(Re,50); Wait(55);
PlayTone(Mi,50); Wait(55);
PlayTone(Fa,50); Wait(55);
PlayTone(Mi,50); Wait(55);
PlayTone(Re,50); Wait(55);
PlayTone(Do,50); Wait(55);
Wait(55);
PlayTone(Mi,50); Wait(55);
PlayTone(Fa,50); Wait(55);
PlayTone(So,50); Wait(55);
PlayTone(La,50); Wait(55);
PlayTone(So,50); Wait(55);
PlayTone(Fa,50); Wait(55);
PlayTone(Mi,50); Wait(55);
Wait(55);
PlayTone(Do,50); Wait(55);
Wait(55);
PlayTone(Do,50); Wait(55);
Wait(55);
PlayTone(Do,50); Wait(55);
Wait(55);
PlayTone(Do,50); Wait(55);
Wait(55);
PlayTone(Do,50); Wait(55);
PlayTone(Re,50); Wait(55);
PlayTone(Mi,50); Wait(55);
PlayTone(Fa,50); Wait(55);
PlayTone(Mi,50); Wait(55);
PlayTone(Re,50); Wait(55);
PlayTone(Do,50); Wait(55);
Wait(55);
}
task message_send
task message_send()
{
ClearTimer(0);
while( 20<=Timer(0) <=425 ) { SendMessage(1); }
while( Timer(0) <=425 ) { SendMessage(1); }
}
task main()
{
start play_music;
start message_send;
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(425);
Off(OUT_A+OUT_C);
turn_right(55); off;
turn_left(55); off;
turn_left(55); off;
turn_right(55); off;
turn_right(55); off;
turn_left(55); off;
turn_left(55); off;
turn_right(55); off;
OnFwd(OUT_C);
OnRev(OUT_A);
Wait(425);
Off(OUT_A+OUT_C);
turn_left(425); off;
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(55);
Off(OUT_A+OUT_C);
turn_right(425); off;
OnFwd(OUT_C);
OnRev(OUT_A);
Wait(55);
Off(OUT_A+OUT_C);
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(55);
Off(OUT_A+OUT_C);
OnFwd(OUT_C);
OnRev(OUT_A);
Wait(55);
Off(OUT_A+OUT_C);
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(212);
Off(OUT_A+OUT_C);
OnFwd(OUT_C);
OnRev(OUT_A);
Wait(212);
Off(OUT_A+OUT_C);
turn_left(55); off;
turn_right(55); off;
turn_right(55); off;
turn_left(55); off;
turn_left(55); off;
turn_right(55); off;
turn_right(55); off;
turn_left(55); off;
}
**感想 [#y966c0fa]
未だ制作途中。踊りは簡単なものだが、曲にばっちり合う予定。
ロボコンが終わってから2体に分解して完成させたい。
*指揮をとり、輪唱するロボット(カエルのうた):制作途中 [#o01c1811]
**制作者 [#w265d94f]
C1一同
**プログラム [#hc07f44a]
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define So 784
#define La 881
#define shiki OnFwd(OUT_B); Wait(55); Off(OUT_B); OnRev(OUT_B); Wait(55); Off(OUT_B);
#define shiki OnFwd(OUT_B); Wait(55); Off(OUT_B); OnRev(OUT_B); Wait(55); Off(OUT_B); OnRev(OUT_B); Wait(55); Off(OUT_B); OnFwd(OUT_B); Wait(55); Off(OUT_B);
task play_music()
{
PlayTone(Do,50); Wait(55);
PlayTone(Re,50); Wait(55);
PlayTone(Mi,50); Wait(55);
PlayTone(Fa,50); Wait(55);
PlayTone(Mi,50); Wait(55);
PlayTone(Re,50); Wait(55);
PlayTone(Do,50); Wait(55);
Wait(55);
PlayTone(Mi,50); Wait(55);
PlayTone(Fa,50); Wait(55);
PlayTone(So,50); Wait(55);
PlayTone(La,50); Wait(55);
PlayTone(So,50); Wait(55);
PlayTone(Fa,50); Wait(55);
PlayTone(Mi,50); Wait(55);
Wait(55);
PlayTone(Do,50); Wait(55);
Wait(55);
PlayTone(Do,50); Wait(55);
Wait(55);
PlayTone(Do,50); Wait(55);
Wait(55);
PlayTone(Do,50); Wait(55);
Wait(55);
PlayTone(Do,50); Wait(55);
PlayTone(Re,50); Wait(55);
PlayTone(Mi,50); Wait(55);
PlayTone(Fa,50); Wait(55);
PlayTone(Mi, 50); Wait(55);
PlayTone(Re,50); Wait(55);
PlayTone(Do,50); Wait(55);
Wait(55);
}
task main()
{
ClearMessage();
repeat(32){
repeat(16){
shiki;
}
until(Message() !=1);
if( Message() == 1 ) play_music;
}
**感想 [#t0cd65a7]
未だ制作途中。輪唱し始めてほしいときにちゃんと通信できるかが鍵。
これから調整していきたい。
ちなみに指揮は2拍子。
-期待しています -- [[かとりーぬ(TA)]] &new{2006-02-07 (火) 13:02:43};
#comment