2005/C2/あんず

sub up_pen()           //ペン上げ
{
    OnFwd(OUT_B);
    Wait(50);
    Off(OUT_A+OUT_B+OUT_C);
    Wait(200);
}

void 1kaku()
{
   OnFwd(OUT_A+OUT_C);
   Wait(100);
   up_pen();
   OnRev(OUT_A);                //移動
   Wait(130);
   OnRev(OUT_B);                //ペン下げ
}

void 2kaku()
{
   OnRev(OUT_A+OUT_C);
   Wait(150);
   up_pen();
   OnFwd(OUT_A+OUT_C);          //移動
   Wait(200);
   OnRev(OUT_A);
   Wait(108);
   OnRev(OUT_A+OUT_C);
   Wait(75);
   OnRev(OUT_B);        //ペン下げ
}

void 3kaku()
{
   OnRev(OUT_A+OUT_C);
   Wait(90);
   up_pen();
   OnFwd(OUT_A+OUT_C);          //移動
   Wait(180);
   OnRev(OUT_A);
   Wait(85);
   OnRev(OUT_A+OUT_C);
   Wait(85);
}

void 4kaku()
{
   OnFwd(OUT_A+OUT_C);          //進みながらペン下げる
   OnRev(OUT_B);
   Wait(55);
   up_pen();
   OnFwd(OUT_A);
   OnRev(OUT_C);
   Wait(90);
   OnRev(OUT_A+OUT_C);
   Wait(15);
   OnRev(OUT_B);        //ペン下げ
}

void 5kaku()
{
   OnRev(OUT_A+OUT_C);
   Wait(120);
   Off(OUT_A+OUT_B+OUT_C);
}

task main()
{
   void 1kaku();
   void 2kaku();
   void 3kaku();
   void 4kaku();
   void 5kaku();
}

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-02-08 (水) 23:26:55