庄という漢字のプログラムです。

define X 40
sub pen_sage()
{
     OnFwd(OUT_B);
     Wait(X); 
     Off(OUT_B);
}
sub pen_age()
{
     OnRev(OUT_B);    
     Wait(X);
     Off(OUT_B);
}
task main()
{
     pen_sage();
    
     OnFwd(OUT_A+OUT_C);
     Wait(50);
     Off(OUT_A+OUT_C);
    
     pen_age();    
    
     OnFwd(OUT_A);
     OnRev(OUT_C);
     Wait(78);
     Float(OUT_A+OUT_C); 
    
     OnFwd(OUT_A);
     OnFwd(OUT_C);
     Wait(125);
     Float(OUT_A+OUT_C);
    
     pen_sage();
    
     OnRev(OUT_A+OUT_C);
     Wait(250); 
     Float(OUT_A+OUT_C); 
        
    
     OnRev(OUT_C);
     OnFwd(OUT_A);
     Wait(78);
     Float(OUT_A+OUT_C);
    
     OnRev(OUT_A+OUT_C);
     Wait(125);
     Float(OUT_A+OUT_C);
    
     OnRev(OUT_A);
     OnFwd(OUT_C);
     Wait(25);
     Off(OUT_A+OUT_C);
     OnRev(OUT_A+OUT_C);
     Wait(125);
     Float(OUT_A+OUT_B+OUT_C);
    
     pen_age();
    
     OnFwd(OUT_A+OUT_C);           
     Wait(125);
     Float(OUT_A+OUT_B+OUT_C);
    
     OnFwd(OUT_C);
     OnRev(OUT_A);
     Wait();
     Float(OUT_A+OUT_C);
    
     OnFwd(OUT_A+OUT_C);
     Wait(185);
     Float(OUT_A+OUT_C);
    
     pen_sage();
    
     OnRev(OUT_A+OUT_C);
     Wait(125);
     Float(OUT_A+OUT_C);
    
     pen_age();
    
     OnFwd(OUT_A+OUT_C);
     Wait(62.5);
     Float(OUT_A+OUT_C);
    
     OnFwd(OUT_A);
     OnRev(OUT_C);
     Wait(78);
     Float(OUT_A+OUT_C);
    
     OnFwd(OUT_A+OUT_C);
     Wait(25);
     Float(OUT_A+OUT_C);
    
     pen_sage(); 
    
     OnRev(OUT_A+OUT_C);
     Wait(150);
     Float(OUT_A+OUT_C);
    
     pen_age();
    
    OnFwd(OUT_C);
    OnRev(OUT_A);
    Wait(78);
    Float(OUT_A+OUT_C);
    
    OnRev(OUT_A+OUT_C);
    Wait(75);
    Float(OUT_A+OUT_C);
    
    pen_sage();
    
    OnFwd(OUT_A+OUT_C);
    Wait(150);
    Float(OUT_A+OUT_C);

}


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-11-04 (金) 19:12:20