[[2006b/A1/課題1右]]

*『田』を書くプログラム。 [#be873279]

 #define DOWN  OnFwd(OUT_B);Wait(40);Off(OUT_B);//筆を下ろす作業。
 #define B_WAIT Wait(50);止まる時間。
 #define UP OnRev(OUT_B);Wait(40);Off(OUT_B);筆を上げる作業。
 #define RUN_YOKO OnFwd(OUT_A+OUT_C);Wait(100);Off(OUT_A+OUT_C);横に進む動作。
 #define RUN_TATE OnFwd(OUT_A+OUT_C);Wait(80);Off(OUT_A+OUT_C);縦に進む動作。
 
 task main()
 {     /*一画目『田』の「|」の部分を書く。*/
         DOWN
         B_WAIT
         RUN_TATE
         UP
       /*一画目〜二画目への移動。*/
        
         OnRev(OUT_A+OUT_C);
         Wait(146);
         Off(OUT_A+OUT_C);
       
         OnFwd(OUT_C);
         OnRev(OUT_A);
         Wait(85);
         Off(OUT_A+OUT_C);
         
         OnFwd(OUT_A+OUT_C);
         Wait(66);
         Off(OUT_A+OUT_C);
         Wait(100);
 
        /*二画目『田』の「?」の部分を書く。*/
        /*二画目『田』の「¬」の部分を書く。*/
         DOWN
         B_WAIT
         RUN_YOKO
         UP
         
         OnRev(OUT_A+OUT_C);
         Wait(66);
        
         OnFwd(OUT_A);
         OnRev(OUT_C);
         Wait(90);
         Off(OUT_A+OUT_C);
        
         OnFwd(OUT_A+OUT_C);
         Wait(66);
         Off(OUT_A+OUT_C);
        
         Wait(100);
         
         DOWN
         B_WAIT
         RUN_TATE
         UP
         
        /*二画目〜三画目への移動。*/
         
         
         
         OnFwd(OUT_A);
         OnRev(OUT_C);
         Wait(85);
        
         OnFwd(OUT_A+OUT_C);
         Wait(40);
         Off(OUT_A+OUT_C);
         
         Wait(100);
        
         OnFwd(OUT_C);
         OnRev(OUT_A);
         Wait(90);
         Off(OUT_A+OUT_C);
        
         Wait(100);
        
         OnRev(OUT_A+OUT_C);
         Wait(66);
         Off(OUT_A+OUT_C);
         
         Wait(100);
         
        /*三画目『田』の真ん中にある、「|」の部分を書く。*/
         DOWN
         B_WAIT
         RUN_TATE
         UP
         
        /*三画目〜四画目への移動。*/
         OnRev(OUT_A+OUT_C);
         Wait(105);
         Off(OUT_A+OUT_C);
        
         OnRev(OUT_A);
         OnFwd(OUT_C);
         Wait(95);
         Off(OUT_A+OUT_C);
        
         OnFwd(OUT_A+OUT_C);
         Wait(20);
         Off(OUT_A+OUT_C);
        
         Wait(20);
         
        /*四画目『田』の真ん中の「―」の部分を書く。*/
         DOWN
         B_WAIT
         RUN_YOKO
         UP
 
 
        /*四画目〜五画目への移動。*/
         OnRev(OUT_A+OUT_C);Wait(100);Off(OUT_A+OUT_C);
         OnFwd(OUT_A);
         OnRev(OUT_C);
         Wait(85);
         Off(OUT_A+OUT_C);
        
         OnFwd(OUT_A+OUT_C);
         Wait(45);
         Off(OUT_A+OUT_C);
        
         OnRev(OUT_A);
         OnFwd(OUT_C);
         Wait(85);
         Off(OUT_A+OUT_C);
        
         Wait(100);
         
        /*五画目『田』の下にある「―」の部分を書く。*/
         DOWN
         B_WAIT
         RUN_YOKO
         UP 
         }
        
         おしまい。
         /*おしまい。*/



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