task main() { Wait(200); OnRev(OUT_B);Wait(40);Off(OUT_B);// スタート地点でペンを下げる OnFwd(OUT_A+OUT_C);// 一画目を書く 直進 Wait(110); Off(OUT_A+OUT_C); OnFwd (OUT_B);Wait(40);Off (OUT_B);// ペンを上げる
OnFwd(OUT_C);OnRev(OUT_A);// 左に回転 Wait(120);// OnFwd(OUT_A+OUT_C);// //直進 Wait(80);// OnFwd(OUT_C);OnRev(OUT_A);// //左に回転 Wait(115); Off(OUT_A+OUT_C);
OnRev(OUT_B);Wait(40);Off(OUT_B);//ペンを下げる OnFwd(OUT_A+OUT_C);// //二画目を書く 直進 Wait(180); Off(OUT_A+OUT_C); OnFwd (OUT_B);Wait(40);Off (OUT_B);//ペンを上げる
OnRev(OUT_A+OUT_C);// //バックで戻る 後退 Wait(130);//
OnFwd(OUT_A);OnRev(OUT_C);// //右に回転 Wait(30); Off(OUT_A+OUT_C); OnFwd(OUT_A+OUT_C); Wait(20); Off(OUT_A+OUT_C);
OnRev(OUT_B);Wait(40);Off(OUT_B);// ペンを下げる OnFwd(OUT_A+OUT_C);//三画目を書く 直進 Wait(90); Off(OUT_A+OUT_C); OnFwd(OUT_B);Wait(40);Off(OUT_B);// ペンを上げる
OnRev(OUT_A+OUT_C);// Wait(110);//バックで戻る 後退
OnFwd(OUT_C);OnRev(OUT_A);//左に回転 Wait(60); Off(OUT_A+OUT_C); OnFwd(OUT_A+OUT_C); Wait(20); Off(OUT_A+OUT_C);
OnRev(OUT_B);Wait(40);Off(OUT_B);//ペンを下げる OnFwd(OUT_A+OUT_C);// //四画目を書く 直進 Wait(110); OnFwd (OUT_B);Wait(40);Off (OUT_B);//ペンを上げる
Off(OUT_A+OUT_C);// //停止 }
ペンの位置が本体の中心に来るように作ったが、それでも多少誤差ができるため、3,4画目の直前に少しだけ直進させ、線の交差地点でペンを下ろすようにプログラムした。
すべての線が曲線になっています(笑 モーターのせいですかね...