sub pen_up() { OnRev(OUT_B); } sub pen_down() { Off(OUT_AC); Wait(50); Off(OUT_B); Wait(100); } task main() { OnFwd(OUT_C); //1画目 Wait(53); Off(OUT_C); Wait(52); pen_up(); //移動 OnFwd(OUT_A); Wait(9); Off(OUT_A); OnRev(OUT_C); Wait(43); pen_down(); OnRev(OUT_A); //2画目 Wait(14); pen_up(); //移動 OnFwd(OUT_A); Wait(18); Off(OUT_A); OnFwd(OUT_C); Wait(40); pen_down(); OnRev(OUT_A); //3画目 Wait(14); Off(OUT_A); pen_up(); //移動 OnRev(OUT_C); Wait(22); pen_down(); OnRev(OUT_A); //4画目 Wait(11); Off(OUT_A); Wait(50); pen_up(); //移動 OnRev(OUT_C); Wait(30); pen_down(); OnFwd(OUT_C); //口部分 Wait(44); Off(OUT_C); Wait(50); OnRev(OUT_A); Wait(20); Off(OUT_A); Wait(50); OnRev(OUT_C); Wait(44); Off(OUT_C); Wait(50); OnFwd(OUT_A); Wait(16); Off(OUT_A); Wait(50); pen_up(); //移動 OnFwd(OUT_A); Wait(10); Off(OUT_A); OnRev(OUT_C); Wait(10); pen_down(); OnFwd(OUT_C); //画目 Wait(49); Off(OUT_ABC); }[[2017a/Member]]