2005/B1

2005/B1/けいの学習ノート 書道ロボット

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){//曲線部分を書く
		OnFwd(OUT_A+OUT_C);
		Wait(20);
		Off(OUT_C);
		Wait(3);
	}
	OnRev(OUT_B);//ペンを上げる
	Wait(30);
	Off(OUT_B);
	repeat(7){//曲線部分を途中まで戻る
		OnRev(OUT_A+OUT_C);
		Wait(20);
		Off(OUT_A);
		Wait(3);
	}
	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
Last-modified: 2005-12-07 (水) 17:10:15 (5007d)