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


トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS