2009a/A8/課題1右
2009a/A8/課題1右/プログラム2
2009a/A8/課題1右/プログラム3
プログラム †
作成者・西口
#define circle_time 900 //円を描く時間
#define circle OnFwd(OUT_C);Wait(circle_time);Off(OUT_C); //円を描くプログラム
#define up_pen OnFwd(OUT_B);Wait(5);Off(OUT_B);
#define down_pen OnRev(OUT_B);Wait(5);Off(OUT_B); //ペンを上げ下げするプログラム
#define go(t) OnFwd(OUT_A+OUT_C);Wait(t);Off(OUT_A+OUT_C);
#define back(t) OnRev(OUT_A+OUT_C);Wait(t);Off(OUT_A+OUT_C); //前後に動くプログラム
#define turn_right(t) OnFwd(OUT_C);OnRev(OUT_A);Wait(t);Off(OUT_A+OUT_C);
#define turn_left(t) OnFwd(OUT_A);OnRev(OUT_C);Wait(t);Off(OUT_A+OUT_C); //左右に回転するプログラム
task main()
{
circle;
back(200);
up_pen;
back(100);
turn_right(15);
go(200);
down_pen;
go(35);
up_pen;
go(20);
down_pen;
go(35);
up_pen;
go(100);
turn_left(30);
back(145);
down_pen;
back(50);
up_pen;
back(90);
turn_right(105);
go(300);
turn_right(45);
back(386);
down_pen;
back(20);
up_pen;
back(20);
Off(OUT_A+OUT_C);
}