[[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



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