2005/B7書道ロボット

task main() {

   OnFwd(OUT_B); Wait(10);  //ペンを降ろす
   Off(OUT_B);
   OnFwd(OUT_A+OUT_C); Wait(100);  //1秒前進
   Off(OUT_A+OUT_C);
   OnRev(OUT_B); Wait(10);  //ペンを上げる
   Off(OUT_B);
   OnRev(OUT_A+OUT_C); Wait(50);  //0.5秒後進
   Off(OUT_A+OUT_C);
   OnRev(OUT_C); OnFwd(OUT_A); Wait(100);
   Off(OUT_A+OUT_C);
   
   OnFwd(OUT_B); Wait(10);
   Off(OUT_B);
   OnFwd(OUT_A+OUT_C); Wait(100);
   Off(OUT_A+OUT_C);
   OnRev(OUT_B); Wait(10);
   Off(OUT_B);
   OnRev(OUT_A+OUT_C); Wait(50);
   Off(OUT_A+OUT_C);
   OnRev(OUT_A); OnFwd(OUT_C); Wait(100);
   Off(OUT_A+OUT_C);
   OnFwd(OUT_B); Wait(10);
   Off(OUT_B);
   OnFwd(OUT_A+OUT_C); Wait(50);
   Off(OUT_A+OUT_C);
   OnRev(OUT_B); Wait(10);
   Off(OUT_B);
   OnRev(OUT_C); OnFwd(OUT_A); Wait(175);
   OnRev(OUT_B); Wait(10);
   Off(OUT_B);
   OnFwd(OUT_A+OUT_C); Wait(75);
   OnFwd(OUT_C); OnRev(OUT_A); Wait(85);
   Off(OUT_A+OUT_C);
   OnFwd(OUT_B); Wait(10);
   OnFwd(OUT_A+OUT_C); Wait(65);
   Off(OUT_A+OUT_C);
   OnRev(OUT_B); Wait(10);
   Off(OUT_B);
   
   OnRev(OUT_A); OnFwd(OUT_C); Wait(95);
   OnRev(OUT_A+OUT_C); Wait(45);
   Off(OUT_A+OUT_C);
   OnFwd(OUT_B); Wait(10);
   Off(OUT_B);
   OnFwd(OUT_A+OUT_C); Wait(100);
   Off(OUT_A+OUT_C);
   OnRev(OUT_B); Wait(10);

Float(OUT_A+OUT_B+OUT_C); }


トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-11-04 (金) 18:05:41