- 追加された行はこの色です。
- 削除された行はこの色です。
[[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; //「弘」完成〜!
}