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

 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(27);
      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