*機体 [#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


トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS