*機体 [#ldfb4f95] 今、ペンを動かすところを作成中です。 *プログラム [#x383a824] まだ、ペンのところが未完成なので、そこは省略します。 task main() { OnFwd(OUT_A+OUT_C);Wait(136); // 1画目を書きます。 OnRev(OUT_C);Wait(150); // 方向転換をします。 OnFwd (OUT_C); Wait(100); // 2画目に移動します。 OnRev(OUT_C);Wait(120); // 方向転換をします。 OnFwd (OUT_C); Wait(50); // 2画目を書きはじめます。 OnRev(OUT_C);Wait(130); // 方向転換をします。 OnFwd (OUT_C); Wait(86); // 2画目の続きを書きます。 OnRev(OUT_A+OUT_C);Wait(136); // 3画目に移動します。 OnFwd(OUT_A+OUT_C);Wait(50); // 3画目を書きます。 OnRev(OUT_A);Wait(70); // 方向転換をします。 OnFwd(OUT_A);Wait(86); // 4画目を書きます。 Off(OUT_A+OUT_C); // 止まります。 } マクロを使って短くしてみました。 #define turn_right(t) OnFwd (OUT_A);OnRev (OUT_C);Wait (t);Off (OUT_A+OUT_C); #define turn_left(t) OnFwd (OUT_C);OnRev (OUT_A);Wait (t);Off (OUT_A+OUT_C); #define go_straight(t) OnFwd(OUT_A+OUT_C);Wait(t);Off(OUT_A+OUT_C); #define go_back OnRev(OUT_A+OUT_C);Wait(136);Off(OUT_A+OUT_C); task main () { go_straight(136); turn_right(150); go_straight(100); turn_right(120); go_straight(50); turn_right(130); go_straight(86); go_back; go_straight(50); turn_left(70); go_straight(86); } *コメント [#sfb5720a] -コメント欄を付け加えました。これからは付けておいてくださいね。 -- [[ゆき(TA)]] &new{2006-05-26 (金) 17:29:08}; -工夫した点や問題点なども書いてください。 -- [[ゆき(TA)]] &new{2006-05-26 (金) 17:29:30}; #comment