- 追加された行はこの色です。
- 削除された行はこの色です。
[[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()
{
ClearTimer(0);
while( Timer(0) <=425 ) { SendMessage(1); }
}
task main()
{
start play_music;
start message_send;
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;
turn_left(425); off;
turn_right(425); 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;
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); 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(16){
shiki;
}
until(Message() !=1);
if( Message() == 1 ) play_music;
}
**感想 [#t0cd65a7]
未だ制作途中。輪唱し始めてほしいときにちゃんと通信できるかが鍵。
これから調整していきたい。
ちなみに指揮は2拍子。
と思ってたけど、ロボットの形が車輪では無かったので、これは使えなかった…。
*カエルのうた『第2弾』〜カエル人間(?)の指揮〜 [#d67697b4]
**制作者 [#m4ac5c36]
C1一同
**プログラム [#i3d81091]
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define So 784
#define La 881
#define shiki OnFwd(OUT_B); Wait(15); Off(OUT_B); OnRev(OUT_B); Wait(15); 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 te()
{repeat(50){ shiki;}}
task main()
{
start te;
while(true)
{
ClearMessage();
until(Message() !=0);
if( Message() == 1 ) start play_music;
}
}
*カエルのうた『第2弾』〜カメのダンス〜 [#sc970835]
**制作者 [#n01b72d5]
C1一同
**プログラム [#d72fa9ba]
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define So 784
#define La 881
void head_turn_right(int t) {OnFwd?(OUT_C); Wait(t);}
void head_turn_left (int t){OnRev?(OUT_C); Wait(t);}
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()
{
Wait(425);
SendMessage(1); Wait(500);
}
task shippo()
{
repeat(29){
OnFwd(OUT_A); Wait(15); Off(OUT_A);
OnRev(OUT_A); Wait(15); Off(OUT_A);
OnRev(OUT_A); Wait(15); Off(OUT_A);
OnFwd(OUT_A); Wait(15); Off(OUT_A);
}
}
task head()
{
head_turn_right(55); Off(OUT_C);
head_turn_left(55); Off(OUT_C);
head_turn_left(55); Off(OUT_C);
head_turn_right(55); Off(OUT_C);
head_turn_right(55); Off(OUT_C);
head_turn_left(55); Off(OUT_C);
head_turn_left(55); Off(OUT_C);
head_turn_right(55); Off(OUT_C);
head_turn_left(425); Off(OUT_C);
head_turn_right(425); Off(OUT_C);
head_turn_left(55); Off(OUT_C);
head_turn_right(55); Off(OUT_C);
head_turn_right(55); Off(OUT_C);
head_turn_left(55); Off(OUT_C);
head_turn_left(55); Off(OUT_C);
head_turn_right(55); Off(OUT_C);
head_turn_right(55); Off(OUT_C);
head_turn_left(55); Off(OUT_C);
}
task main()
{
start play_music;
start message_send;
start shippo;
start head;
}
-期待しています -- [[かとりーぬ(TA)]] &new{2006-02-07 (火) 13:02:43};
#comment