2005/C2/あんず

sub up_pen()           //ペン上げ
{
     OnFwd(OUT_B);
     Wait(50);
     Off(OUT_A+OUT_B+OUT_C);
     Wait(200);
}
task main()
{
     OnFwd(OUT_A+OUT_C);          //1画目
     Wait(100);
     up_pen();
   
     OnRev(OUT_A);                
     Wait(130);
     OnRev(OUT_B);                //ペン下げ
     OnRev(OUT_A+OUT_C);          //2画目
     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);        //ペン下げ
     OnRev(OUT_A+OUT_C);          //3画目
     Wait(90);
     up_pen();
    
     OnFwd(OUT_A+OUT_C);
     Wait(180);
     OnRev(OUT_A);
     Wait(85);
     OnRev(OUT_A+OUT_C);
     Wait(85);
     OnFwd(OUT_A+OUT_C);          //4画目
     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);        //ペン下げ
     OnRev(OUT_A+OUT_C);          //5画目
     Wait(120);
     Off(OUT_A+OUT_B+OUT_C);
}

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-02-08 (水) 23:24:24 (4942d)