[[2005/C2]]
キャベツのキャベツの足跡へようこそ
[[キャベツの足跡>2005/C2/キャベツの足跡]]

 #define PEN_TIME 10
 
 sub pen_down()
 {
     OnFwd(OUT_B);
     Wait(PEN_TIME);
    Float(OUT_B);
 }
 
 sub pen_up()
 {
     OnRev(OUT_B);
     Wait(PEN_TIME);
     Float(OUT_B);
 }

task main() 
{   
    PlaySound(SOUND_CLICK) ;  
    pen_down();
    Wait(20);
    OnFwd(OUT_A+OUT_C);
    Wait(10);
    repeat(35){
        OnRev(OUT_C);
	Wait(1);
        OnFwd(OUT_C);
	Wait(3);
    }
    Float(OUT_A+OUT_C);
    Wait(10);
    pen_up();
    Wait(10);
    OnRev(OUT_C);
    OnFwd(OUT_A);
    Wait(220);
    OnFwd(OUT_C);
    Wait(120);
    OnRev(OUT_C);
    Wait(147);
    OnRev(OUT_A);
    Wait(100);
    Float(OUT_A+OUT_C);
    Wait(20);
        
     pen_down(); 
    Wait(PEN_TIME); OnFwd(OUT_A+OUT_C); Wait(100); 
    Float(OUT_A+OUT_C);
    Wait(10);
    pen_up();
    Wait(10);
    OnRev(OUT_A+OUT_C);
    Wait(60);
    OnFwd(OUT_A);
    OnRev(OUT_C);
    Wait(147);
    OnRev(OUT_A);
    Wait(100);
    OnFwd(OUT_A+OUT_C);
    Wait(25);
    Float(OUT_A+OUT_C);
    Wait(20);
    
    pen_down();  
    Wait(PEN_TIME);
    OnFwd(OUT_A+OUT_C);
    Wait(45);
    Float(OUT_A+OUT_C);
    Wait(10);
    pen_up();
    Wait(10);
    OnRev(OUT_A+OUT_C);
    Wait(45);
    OnRev(OUT_A);
    OnFwd(OUT_C);
    Wait(147);
    Rev(OUT_A+OUT_C);
    Wait(100);
    Float(OUT_A+OUT_C);
    Wait(20);

    pen_down();
    Wait(PEN_TIME);
    OnFwd(OUT_A+OUT_C);
    Wait(60);
    Float(OUT_A+OUT_C);
    Wait(10);
    pen_up();
    Wait(10);
    OnFwd(OUT_A+OUT_C);
    Wait(100);
    OnRev(OUT_C);
    Wait(147);
    OnRev(OUT_A+OUT_C);
    Wait(100);
    Float(OUT_A+OUT_C);
    Wait(20);
    pen_down();
    Wait(PEN_TIME);
    OnFwd(OUT_A+OUT_C);
    Wait(45);
    Float(OUT_A+OUT_C);
    Wait(10);
    pen_up(); 
    Wait(10);
    OnFwd(OUT_A+OUT_C);
    Wait(100);
    OnRev(OUT_A);
    Wait(147);
    OnRev(OUT_A+OUT_C);
    Wait(160);
    Float(OUT_A+OUT_C);
    Wait(20);

    pen_down();
    Wait(10);
    OnFwd(OUT_A+OUT_C);
    Wait(60);
    Float(OUT_A+OUT_C);
    Wait(10);
    pen_up();
    Wait(10);
    OnFwd(OUT_A+OUT_C);
    Wait(100);
    Float(OUT_A+OUT_C);
    PlaySound(SOUND_FAST_UP) ; 
}

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