[[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