- 追加された行はこの色です。
- 削除された行はこの色です。
*書道ロボット [#o5bd7aa3]
**1 ロボット [#m49b12b9]
**2 プログラミング [#u9df1c12]
#define F 80
#define B 90
#define W 95
#define right OnFwd(OUT_AC);Wait(F);Off(OUT_AC);OnFwd(OUT_A);OnRev(OUT_C);Wait(W);Off(OUT_AC);OnRev(OUT_AC);Wait(B);Off(OUT_AC);
#define left OnFwd(OUT_AC);Wait(F);Off(OUT_AC);OnFwd(OUT_C);OnRev(OUT_A);Wait(W);Off(OUT_AC);OnRev(OUT_AC);Wait(B);Off(OUT_AC);
#define straight(t) OnFwd(OUT_AC);Wait(t);Off(OUT_AC);
#define back(t) OnRev(OUT_AC);Wait(t);Off(OUT_AC);
#define up OnFwd(OUT_B);
#define down OnRev(OUT_B);
sub kami()
{
up;
straight(30);
left;
down;
Wait(50);
straight(30);
up;
back(30);
right;
down;
Wait(50);
straight(45);
up;
left;
back(30);
down;
Wait(50);
straight(60);
}
sub mati()
{
straight(15);
up;
left;
down;
Wait(50);
straight(45);
up;
left;
back(30);
down;
Wait(50);
straight(90);
up;
back(15);
right;
down;
Wait(50);
straight(30);
up;
left;
back(15);
down;
Wait(50);
repeat(4) {
straight(30);
up;
left;
down;
Wait(50);
}
}
task main()
{
kami();
up;
straight(60);
down;
Wait(50);
mati();
Off(OUT_B);
}