- 追加された行はこの色です。
- 削除された行はこの色です。
[[2005/B1]]
task main(){
左を書くプログラム
task main(){
OnRev(OUT_B);//ペンを上げる
OnFwd(OUT_B);//ペンを下げる
Wait(30);
Off(OUT_B);
Wait(30);
OnFwd(OUT_A+OUT_C);//直線を進む
Wait(250);
Off(OUT_A+OUT_C);
OnRev(OUT_B);//ペンを上げる
Wait(30);
Off(OUT_B);
Wait(30);
OnRev(OUT_A+OUT_C);//直線を戻る
Wait(100);//三分の一ぐらいまで
OnFwd(OUT_A);//直角に曲がる
Wait(90);
OnRev(OUT_A+OUT_C);//曲線の始めの点にいく
Wait(90);
Off(OUT_A+OUT_C);
OnFwd(OUT_B);//ペンを下げる
Wait(30);
Off(OUT_B);
Wait(30);
repeat(18){
repeat(18){//曲線部分を書く
OnFwd(OUT_A+OUT_C);
Wait(20);
Off(OUT_C);
Wait(3);
}
OnRev(OUT_B);
OnRev(OUT_B);//ペンを上げる
Wait(30);
Off(OUT_B);
repeat(7){
repeat(7){//曲線部分を途中まで戻る
OnRev(OUT_A+OUT_C);
Wait(20);
Off(OUT_A);
Wait(3);
}
Off(OUT_A+OUT_B);
}
Off(OUT_A+OUT_C);
OnFwd(OUT_A);OnRev(OUT_C);//直角に曲がる
Wait(90);
Off(OUT_A+OUT_C);
//ここから工の部分
OnFwd(OUT_B);//ペンを下げる
Wait(30);
Off(OUT_B);
OnFwd(OUT_A+OUT_C);//直線を進む
Wait(100);
Off(OUT_A+OUT_C);
OnRev(OUT_B);//ペンを上げる
Wait(30);
Off(OUT_A);
OnRev(OUT_A+OUT_C);//直線を戻る
Wait(50);//半分ぐらいまで
OnFwd(OUT_C);//直角に曲がる
Wait(90);
Off(OUT_A+OUT_C);
OnFwd(OUT_B);//ペンを下げる
Wait(30);
Off(OUT_B);
OnFwd(OUT_A+OUT_C);//直線を進む
Wait(30);
Off(OUT_A+OUT_C);
OnRev(OUT_B);//ペンを上げる
Wait(30);
Off(OUT_B);
OnRev(OUT_C);OnFwd(OUT_A);//直角に曲がる
Wait(90);
OnRev(OUT_A+OUT_C);//最後の直線の始まりの部分に行く
Wait(70);
Off(OUT_A+OUT_C);
OnFwd(OUT_B);//ペンを下げる
Wait(30);
Off(OUT_B);
OnFwd(OUT_A+OUT_C);//直線を進む
Wait(140);
Off(OUT_A+OUT_C);
}