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