[[2005/B1]]

[[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