task main()
{ OnFwd(OUT_A+OUT_C); Wait(300); OnRev(OUT_C); Wait(200); Off(OUT_A+OUT_C); }
#define pen_down OnFwd(OUT_B); Wait(50);Off(OUT_B);//ペンをおろす #define pen_up OnRev(OUT_B); Wait(50);Off(OUT_B);//ペンを上げる task main() { pen_down;//ペンをおろす OnFwd(OUT_A+OUT_C);//一画目「一」始め! Wait(150); Off(OUT_A+OUT_C); pen_up;//ペンをあげる OnRev(OUT_A+OUT_C);//二画目に向け来た道を戻る Wait(100); Off(OUT_A+OUT_C); OnRev(OUT_C);//二画目に向け左旋回 Wait(200); Off(OUT_C); pen_down;//ぺんをおろす OnFwd(OUT_A+OUT_C);//二画目「|」始め! Wait(280); Off(OUT_A+OUT_C); pen_up;//ペンをあげる OnRev(OUT_A+OUT_C);//三画目に向け二画目の2/3の地点までもどる Wait(200); Off(OUT_A +OUT_C); OnFwd(OUT_A);//三画目に向け左旋回 Wait(100); Off(OUT_A); pen_down;//ぺんをおろす OnFwd(OUT_A+OUT_C);//三画目「/」始め! Wait(100); Off(OUT_A+OUT_C); pen_up;ペンをあげる OnRev(OUT_A+OUT_C);//三画目の始点までもどる Wait(100); Off(OUT_A+OUT_C); OnRev(OUT_A);//四画目に向け左旋回 Wait(200); Off(OUT_A); OnFwd(OUT_A+OUT_C);//ちょっと調整、前進する Wait(150); Off(OUT_A+OUT_C); pen_down;//ペンをおろす OnFwd(OUT_A+OUT_C); //四画目「\」始め! Wait(400); Off(OUT_A+OUT_C);//終了。上手く書けたかな? }