- 追加された行はこの色です。
- 削除された行はこの色です。
*機体 [#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