[[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(); }