全体図(オプションつけ過ぎ(汗))
裏側、真ん中に写っているのがペンです。ちなみに、2つのタイヤにペンを挟んで動かすことによりペンの上げ下げをしています。
task main () { OnFwd(OUT_B); Wait(30); //ペンを降ろす Off(OUT_B); OnFwd(OUT_A+OUT_C); Wait(200); //一画目を描く Off(OUT_A+OUT_C); OnRev(OUT_B); Wait(30); //ペンを上げる Off(OUT_B); OnRev(OUT_A+OUT_C); Wait(100); //横棒の中心点まで移動 OnFwd(OUT_A); Wait(101); OnRev(OUT_C); Wait(101); //九十度回転 OnFwd(OUT_A+OUT_C); Wait(50); //二画目の開始点まで移動 Off(OUT_A+OUT_C); OnFwd(OUT_B); //ペンを降ろす Wait(30); Off(OUT_B); OnRev(OUT_A+OUT_C); Wait(200); //二画目を描く Off(OUT_A+OUT_C); OnRev(OUT_B); Wait(30); //ペンを上げる Off(OUT_B); OnFwd(OUT_A+OUT_C); Wait(95); //三画目の開始点まで移動 OnFwd(OUT_C); Wait(60); OnRev(OUT_A); Wait(60); //三画目の進む方向に回転 Off(OUT_A+OUT_C); OnFwd(OUT_B); Wait(30); //ペンを降ろす Off(OUT_B); OnRev(OUT_A+OUT_C); Wait(200); //三画目を描く Off(OUT_A+OUT_C); OnRev(OUT_B); Wait(30); //ペンを上げる Off(OUT_B); OnFwd(OUT_A+OUT_C); Wait(82); //四画目の開始点に移動 OnFwd(OUT_A); Wait(120); OnRev(OUT_C); Wait(120); //四画目の進む方向へ回転 Off(OUT_A+OUT_C); OnFwd(OUT_B); Wait(30); //ペンを降ろす Off(OUT_B); OnRev(OUT_A+OUT_C); Wait(200); //四画目を描く Off(OUT_A+OUT_C); OnRev(OUT_B); Wait(30); //ペンを上げる Off(OUT_A+OUT_B+OUT_C);//終了 }
広瀬君がつくったページです。2006a/B7/ru-
『かきかきくん2号機』鉛筆つけちゃいました。別に写真に写っている鉛筆が木を描く訳ではない、ただのオプション(汗)