2006b/A6/R Room/あおっページ

プログラム「弘」

#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;           //一画目スタート
 OnFwd(OUT_B+OUT_C);
 Wait(50);
 OnRev(OUT_C);
 Wait(88);
 OnFwd(OUT_C);
 Wait(50);
   Off(OUT_B+OUT_C);
 pen_up;             //一画目終わり
 Wait(50);          
 
 OnFwd(OUT_C);
 OnRev(OUT_B);
 Wait(100);
 OnRev(OUT_C);
 Wait(50);
 Off(OUT_B+OUT_C);
 Wait(30);
 
 pen_down;        //二画目スタート
 OnFwd(OUT_B+OUT_C);
 Wait(50);
 Off(OUT_B+OUT_C);
 Wait(30);
 pen_up;       //二画目終わり
 
 OnRev(OUT_B+OUT_C);
 Wait(50);
 OnFwd(OUT_B);
 Wait(10);
 
 pen_down;      //三画目ドン!
 OnFwd(OUT_B+OUT_C);
 Wait(50);
 OnRev(OUT_B);
 Wait(88);
 OnFwd(OUT_B);
 Wait(50);
 OnRev(OUT_C);
 Wait(88);
 OnFwd(OUT_C);
 Wait(50);
 OnRev(OUT_C);
 Wait(88);
 OnFwd(OUT_C);
 Wait(25);
 Off(OUT_B+OUT_C);
 Wait(50);
 pen_up;              //三画目終了、「弘」左側「弓」完了   
 OnRev(OUT_B+OUT_C);
 Wait(55);
 OnFwd(OUT_C);
 Wait(63);
 OnRev(OUT_C);
 Wait(140);
 Off(OUT_B+OUT_C);
 Wait(50);
 
 pen_down;            //四画目始め!
 OnFwd(OUT_B+OUT_C);
 Wait(140);
 OnRev(OUT_B);
 Wait(150);
 OnFwd(OUT_B);
 Wait(85);
 Off(OUT_B+OUT_C);
 pen_up;               //四画目終わり

 OnFwd(OUT_C);
 OnRev(OUT_B);
 Wait(40);
 

 OnRev(OUT_B+OUT_C);
 Wait(10);
 Off(OUT_B+OUT_C);
 pen_down;              //最後の五画目スタート
 OnFwd(OUT_C+OUT_B);
 Wait(65);
 Off(OUT_C+OUT_B);
 pen_up;                //「弘」完成〜!
}

コメントをお願いします。



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