[[2006a/A1]]

#contents

*『水』を書くプログラム [#ec699d27]
 //    作成者:
 //    作成日:2006-5-23
 
 #define front(t) OnFwd(OUT_C);Wait(t);Off(OUT_C);
 #define back(t) OnRev(OUT_C);Wait(t);Off(OUT_C);
 #define pen up OnFwd(OUT_A);Wait(30);Off(OUT_A);
 #define pen down OnRev(OUT_A);Wait(30);Off(OUT_A);
 #define pen right(t) OnFwd(OUT_B);Wait(t);Off(OUT_B);
 #define pen left(t) OnRev(OUT_B);Wait(t);Off(OUT_B);
 #define back(t) OnFwd(OUT_C);Wait(t);Off(OUT_C);
 #define front(t) OnRev(OUT_C);Wait(t);Off(OUT_C);
 #define up OnFwd(OUT_A);Wait(30);Off(OUT_A);
 #define down OnRev(OUT_A);Wait(30);Off(OUT_A);
 #define left(t) OnFwd(OUT_B);Wait(t);Off(OUT_B);
 #define right(t) OnRev(OUT_B);Wait(t);Off(OUT_B);
 
 task main()
    {
    pen down;front(200);                  //1画目
    back(30);pen left(10);        //ハネ
    pen up;back(95);pen left(40);     //2画目に移動
    pen down;right(35);
    left(35);front(95);
    pen up;right(90);back(145);
    pen left(35);front(50);
    pen right(35);front(95);
    }    
    
   {
   down;front(60);Wait(10);             //1画目
   OnRev(OUT_C);OnFwd(OUT_B);Wait(20    //ハネ
   up;back(95);left(40);Wait(10);       //2画目に移動
   down;right(35);Wait(10);             //2画目
   OnRev(OUT_B);OnFwd(OUT_C);Wait(35);
   Off(OUT_C+OUT_B);Wait(10);
   up;right(90);back(95);Wait(10);      //3画目に移動
   OnFwd(OUT_B);OnFwd(OUT_C);Wait(35);
   Off(OUT_C+OUT_B);Wait(10);           //3画目
   OnRev(OUT_B);OnFwd(OUT_C);Wait(35);
   Off(OUT_C+OUT_B);Wait(10);
   }    
   
*難しかった点 [#a96ac96f]
ー
*工夫した点 [#a471ecca]
ー
ー
*反省点 [#eae3f20c]
*感想 [#y5f7b983]
#comment
コメントをどうぞ…


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