2005/A6/KRRの部屋
*テスト
*11月4日のKRRの部屋にようこそ
*『漢字ロボ3人の中で、べタなプログラミング』
sub turn_left()
{
OnRev(OUT_A); OnFwd(OUT_C);
Wait(TURN_TIME);
Off(OUT_A+OUT_C);
}
sub turn_right()
{
OnFwd(OUT_A); OnRev(OUT_C);
Wait(TURN_TIME);
Off(OUT_A+OUT_C);
}
task main() //
{
OnFwd(OUT_A+OUT_C); //始め 第1画
Wait(550);
OnRev(OUT_A+OUT_C); //戻る
OnFwd(OUT_B); //B を正回転
Wait(150);
turn_right(100);
OnFwd(OUT_C);
Wait(300);
OnRev(OUT_A);
Wait(245);
OnRev(OUT_B); // B 負回転
Wait(150);
OnFwd(OUT_A); // 2画
Wait(1000);
OnRev(OUT_C);
Wait(950);
OnFwd(OUT_B); //B up
Wait(150);
OnFwd(OUT_C);
Wait(500);
OnRev(OUT_A);
Wait(475);
OnRev(OUT_B); // B down
Wait(200);
turn_right(145);
OnFwd(OUT_A+OUT_C); //3画
Wait(300);
OnFwd(OUT_B) //B up
Wait(150);
OnRev(OUT_A+OUT_C);
Wait(350);
OnRev(OUT_B); //B down
Wait(150);
turn_left(110);
OnFwd(OUT_A+OUT_C); 4画
Wait(300);
OnFwd(OUT_B); //B up
Wait(150)
turn_right(110);
OnFwd(OUT_A+OUT_C);
Wait(250);
OnRev(OUT_B) //B 負回転
Wait(150);
OnRev(OUT_A+OUT_C); //5画
Wait(500);
Off(OUT_A+OUT_B+OUT_C);
}
#comment