2005/C2/あんず
sub up_pen() //ペン上げ
{
OnFwd(OUT_B);
Wait(50);
Off(OUT_A+OUT_B+OUT_C);
Wait(200);
}
void 1kaku()
{
OnFwd(OUT_A+OUT_C);
Wait(100);
up_pen();
OnRev(OUT_A); //移動
Wait(130);
OnRev(OUT_B); //ペン下げ
}
void 2kaku()
{
OnRev(OUT_A+OUT_C);
Wait(150);
up_pen();
OnFwd(OUT_A+OUT_C); //移動
Wait(200);
OnRev(OUT_A);
Wait(108);
OnRev(OUT_A+OUT_C);
Wait(75);
OnRev(OUT_B); //ペン下げ
}
void 3kaku()
{
OnRev(OUT_A+OUT_C);
Wait(90);
up_pen();
OnFwd(OUT_A+OUT_C); //移動
Wait(180);
OnRev(OUT_A);
Wait(85);
OnRev(OUT_A+OUT_C);
Wait(85);
}
void 4kaku()
{
OnFwd(OUT_A+OUT_C); //進みながらペン下げる
OnRev(OUT_B);
Wait(55);
up_pen();
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(90);
OnRev(OUT_A+OUT_C);
Wait(15);
OnRev(OUT_B); //ペン下げ
}
void 5kaku()
{
OnRev(OUT_A+OUT_C);
Wait(120);
Off(OUT_A+OUT_B+OUT_C);
}
task main()
{
void 1kaku();
void 2kaku();
void 3kaku();
void 4kaku();
void 5kaku();
}