[[2005/A1]]

 漢字で左を書く
 
 11月7日 by コンパス
 
 感想;走らせる場所や紙に
      引っかかってしまい
      苦労しました
 プログラム;
 感想;走らせる場所により摩擦が違ったり、紙に引っかかってしまい苦労しました


 task main()
 { 
 OnFwd(OUT_A+OUT_C); 
 Wait(100);
 Off(OUT_A+OUT_C);
 
 OnFwd(OUT_B);
 Wait(20);
 Off(OUT_B);
 
 OnFwd(OUT_A);
 OnRev(OUT_C);
 Wait(180);
 Off(OUT_A+OUT_C);
 
 OnFwd(OUT_A+OUT_C);
 Wait(65);
 Off(OUT_A+OUT_C);
 
 OnRev(OUT_A);
 OnFwd(OUT_C);
 Wait(100);
 Off(OUT_A+OUT_C);

 OnRev(OUT_B);
 Wait(20);
 Off(OUT_B);

 repeat(100){
 OnFwd(OUT_A);
 Wait(2);
 Off(OUT_A);
 OnFwd(OUT_C);
 Wait(1);
 Off(OUT_C);
 }
 
 OnFwd(OUT_B);
 Wait(20);
 Off(OUT_B);

 OnRev(OUT_C);
 OnFwd(OUT_A);
 Wait(85);
 Off(OUT_A+OUT_C);
 
 OnFwd(OUT_A+OUT_C);
 Wait(54);
 Off(OUT_A+OUT_C);

 OnFwd(OUT_A);
 OnRev(OUT_C);
 Wait(105);
 Off(OUT_A+OUT_C);

 OnFwd(OUT_A+OUT_C);
 Wait(59);
 Off(OUT_A+OUT_C);

 OnRev(OUT_B);
 Wait(20);
 Off(OUT_B);

 OnFwd(OUT_A+OUT_C);
 Wait(50);
 Off(OUT_A+OUT_C);

 OnFwd(OUT_B);
 Wait(20);
 Off(OUT_B);
 
 OnRev(OUT_A+OUT_C);
 Wait(25);
 Off(OUT_A+OUT_C);
 
 OnRev(OUT_C);
 OnFwd(OUT_A);
 Wait(72);
 Off(OUT_A+OUT_C);
 
 OnRev(OUT_B);
 Wait(20);
 Off(OUT_B);

 OnFwd(OUT_A+OUT_C);
 Wait(38);
 Off(OUT_A+OUT_C);

 OnFwd(OUT_B);
 Wait(20);
 Off(OUT_B);

 OnFwd(OUT_C);
 OnRev(OUT_A);
 Wait(70);
 Off(OUT_A+OUT_C);

 OnRev(OUT_A+OUT_C);
 Wait(40);
 Off(OUT_A+OUT_C);
 
 OnRev(OUT_B);
 Wait(20);
 Off(OUT_B);

 OnFwd(OUT_A+OUT_C);
 Wait(80);
 Off(OUT_A+OUT_C);
 }

トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS