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