#define A 123
 #define B 234
 #define C 345
 #define D 456
 #define E 567
 #define F 678
 #define G 789
 #define H 890
 #define I 901
 #define P PlayTone
 #define W Wait
 task main()
 {
      while(true)
      {
            P(E,20);W(40);
            P(D,20);W(30);
            P(C,20);W(40);
            P(B,10);W(30);
            P(A,10);W(20);
            
            
            P(A,20); W(30);
            P(C,5); W(10);
            P(D,20); W(25);
            P(F,20); W(25);
            P(E,20); W(25);
            P(D,10);W(25);
            P(C,5);W(10);
            P(C,10);W(10);
            P(C,5);W(10);
            P(C,10);W(10);
            
       }
俺に名前は必要ない。なぜなら羽田空港のビルだからだ。
しかも二番目の存在。だが、俺はそれでもいいと思っている。
自分の地位も名誉も、名前同様俺には必要ない。
俺に必要なのはエビフライだ。

 #define blackline 30
 #define Go_time 200
 int frag;
 sub linetrace (){
 if ((SENSOR_1 <= blackline) && (SENSOR_3 <= blackline)){
   OnFwd(OUT_A + OUT_C);
   Wait(030);
   frag++;
 }
 else{
   if ((SENSOR_1 <= blackline) && (SENSOR_3 >= blackline)){
     OnRev(OUT_A);OnFwd(OUT_C);
   }
   if ((SENSOR_1 >= blackline) && (SENSOR_3 <= blackline)){
     OnFwd(OUT_C);OnRev(OUT_A);
   }
   if ((SENSOR_1 >= blackline) && (SENSOR_3 >= blackline)){
     OnFwd(OUT_A + OUT_C);
   }
  }
 }
 sub hold_can (){
 
 Wait (020);
 OnFwd(OUT_B);
 Wait(150);
 Off(OUT_B);
 OnRev(OUT_A+OUT_B);
 Wait(Go_time+300);
 }
 sub port_can (){
 OnRev(OUT_B);
 Wait (250);
 Off(OUT_B);
 OnFwd (OUT_A+OUT_C);
 Wait (040);
 Off (OUT_A+OUT_C);
 }
 sub go_straight (){
 OnFwd (OUT_A+OUT_C);
 }
 sub go_down (){
 OnRev (OUT_A+OUT_C);
 }
 sub turn_R (){
 Off (OUT_A + OUT_C);OnRev (OUT_A+OUT_C);Wait (030);OnFwd (OUT_A);Wait (150);Off (OUT_A+OUT_C);
 }
 sub turn_L (){
 Off (OUT_A + OUT_C);OnRev (OUT_C+OUT_A);Wait (030);OnFwd(OUT_C);Wait (150);Off (OUT_A+OUT_C);
 }
 task main(){
 SetSensor (SENSOR_1, SENSOR_LIGHT);
 SetSensor (SENSOR_3, SENSOR_LIGHT);
 frag=0;
 while (true){
     if (frag == 0){
       hold_can();
       go_down ();
       until((SENSOR_1<=blackline)&&(SENSOR_3<=blackline));
       OnFwd(OUT_A);OnRev(OUT_C);
       until((SENSOR_1<=blackline)&&(SENSOR_3>=blackline));
       linetrace();
     }
     if (frag == 1){
       linetrace();
     }
     if (frag == 2){
       OnFwd(OUT_A);OnRev(OUT_C);
       until((SENSOR_1<=blackline)&&(SENSOR_3>=blackline));
       linetrace();
     }
     if (frag == 3){
       port_can();
       frag=0;
     }
   }
 }


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