[[2006b/A6/R Room/あおっページ]]
#contents
*プログラム「弘」[#p6773482]


ペンの上げ下げの定義
#define pen_down OnRev(OUT_A);Wait(80);Off(OUT_A);
#define pen_up OnFwd(OUT_A);Wait(80);Off(OUT_A);


 #define pen_down OnRev(OUT_A);Wait(80);Off(OUT_A);
 #define pen_up OnFwd(OUT_A);Wait(80);Off(OUT_A);//ペン上下
 task main()
 {
  pen_down;
  pen_down;           //一画目スタート
  OnFwd(OUT_B+OUT_C);
  Wait(75);
  Wait(50);
  OnRev(OUT_C);
  Wait(88);
  OnFwd(OUT_C);
  Wait(75);
  Wait(50);
    Off(OUT_B+OUT_C);
  pen_up;
  pen_up;             //一画目終わり
  Wait(50);          
  
  OnFwd(OUT_C);
  OnRev(OUT_B);
  Wait(100);
  OnRev(OUT_C);
  Wait(75);
  Wait(50);
  Off(OUT_B+OUT_C);
  Wait(30);
  
  pen_down;
  pen_down;        //二画目スタート
  OnFwd(OUT_B+OUT_C);
  Wait(75);
  Wait(50);
  Off(OUT_B+OUT_C);
  Wait(30);
  pen_up;
  pen_up;       //二画目終わり
  
  OnRev(OUT_B+OUT_C);
  Wait(75);
  Wait(50);
  OnFwd(OUT_B);
  Wait(10);
  
  pen_down;
  pen_down;      //三画目ドン!
  OnFwd(OUT_B+OUT_C);
  Wait(75);
  Wait(50);
  OnRev(OUT_B);
  Wait(88);
  OnFwd(OUT_B);
  Wait(75);
  Wait(50);
  OnRev(OUT_C);
  Wait(88);
  OnFwd(OUT_C);
  Wait(75);
  Wait(50);
  OnRev(OUT_C);
  Wait(88);
  OnFwd(OUT_C);
  Wait(40);
  Wait(25);
  Off(OUT_B+OUT_C);
  Wait(50);
  pen_up;
   
  pen_up;              //三画目終了、「弘」左側「弓」完了   
  OnRev(OUT_B+OUT_C);
  Wait(80);
  Wait(55);
  OnFwd(OUT_C);
  Wait(63);
  OnRev(OUT_C);
  Wait(200);
  Wait(140);
  Off(OUT_B+OUT_C);
  Wait(50);
  
  pen_down;
  pen_down;            //四画目始め!
  OnFwd(OUT_B+OUT_C);
  Wait(230);
  Wait(140);
  OnRev(OUT_B);
  Wait(120);
  Wait(150);
  OnFwd(OUT_B);
  Wait(130);
  Wait(85);
  Off(OUT_B+OUT_C);
  pen_up;
  
  OnFwd(OUT_B);
  OnRev(OUT_C);
  Wait(87);
  pen_up;               //四画目終わり
 
  OnFwd(OUT_C);
  OnRev(OUT_B);
  Wait(40);
  
 
  OnRev(OUT_B+OUT_C);
  Wait(10);
  Off(OUT_B+OUT_C);
  pen_down;
  pen_down;              //最後の五画目スタート
  OnFwd(OUT_C+OUT_B);
  Wait(90);
  Wait(65);
  Off(OUT_C+OUT_B);
  pen_up;
  pen_up;                //「弘」完成〜!
 }



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