2005/C2/2回目

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);
}

目次

全般

教材・資料

Debian関連

過去の授業

2003年度以前

最新の20件