2005/C1/山口

書道ロボット

sub go_straight()
{
OnFwd(OUT_B);
OnRev(OUT_A);
OnRev(OUT_C);
Wait(27);
OnRev(OUT_A);
OnFwd(OUT_C);
Wait(67);
OnRev(OUT_C+OUT_A);
Wait(15);
Off(OUT_A+OUT_C);
}
sub turn_right()
{ OnFwd(OUT_A+OUT_C);
Wait(25);
OnFwd(OUT_A+OUT_C);
OnRev(OUT_B);
Wait(64);
Off(OUT_A+OUT_C);
}
sub turn_left()
{
OnFwd(OUT_A);OnRev(OUT_C);
Wait(98);
OnFwd(OUT_A+OUT_C);
OnRev(OUT_B);
Wait(65);
OnRev(OUT_A+OUT_C);OnFwd(OUT_B);
Wait(37);
}
task main()
{
OnRev(OUT_B);
Wait(50);
OnFwd(OUT_A+OUT_C);OnRev(OUT_B);
Wait(70);
go_straight();
turn_right();
OnFwd(OUT_B);
Wait(30);
OnFwd(OUT_C);OnRev(OUT_A);
Wait(80);
turn_left();
OnRev(OUT_C);
OnFwd(OUT_A);
Wait(68);
OnRev(OUT_B);

Wait(50);

OnFwd(OUT_A+OUT_C);OnRev(OUT_B);
Wait(20);
OnRev(OUT_A);
OnFwd(OUT_C+OUT_B);
Wait(98);
OnRev(OUT_A+OUT_C);
Wait(27);
OnRev(OUT_B);
Wait(50);
OnFwd(OUT_A+OUT_C);Rev(OUT_B);
Wait(65);
Off(OUT_A+OUT_C+OUT_B);
}

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-12-09 (金) 19:08:48