- 追加された行はこの色です。
- 削除された行はこの色です。
[[2006b/A6/R Room]]
*「弥」のプログラム [#v6b1283a]
#define pen_down OnRev(OUT_A);Wait(100);Off(OUT_A)
#define pen_up OnFwd(OUT_A);Wait(100);Off(OUT_A)
#define move_up OnFwd(OUT_B+OUT_C)
#define move_down OnRev(OUT_B+OUT_C)
#define move_right OnFwd(OUT_B);OnRev(OUT_C)
#define move_left OnFwd(OUT_C);OnRev(OUT_B)
#define move_stop Float(OUT_B+OUT_C)
#define st Off(OUT_B+OUT_C)
#define time_a 50
#define time_b 25
#define time_c 40
#define time_d 50
#define time_e 10
#define time_f 40
#define time_g 40
#define time_h 70
#define time_i 100
#define time_j 20
sub turn_right()
{ move_right;
Wait(89);
}
sub turn_left()
{ move_left;
Wait(89);
}
task main()
{
pen_down;
move_up;
Wait(time_a);
turn_right();
move_up;
Wait(time_b);
st;
pen_up;
Wait(100);
turn_right();
move_up;
Wait(time_a);
st;
pen_down;
Wait(100);
move_down;
Wait(time_a);
st;
pen_up;
Wait(100);
move_up;
Wait(time_a);
st;
turn_left();
st;
pen_down;
Wait(100);
move_up;
Wait(time_b);
st;
turn_left();
Wait(100);
move_up;
Wait(time_c);
st;
turn_right();
Wait(100);
move_up;
Wait(time_d);
move_right;
Wait(90);
st;
Wait(100);
move_up;
Wait(time_e);
move_stop;
pen_up;
Wait(200);
move_down;
Wait(time_e);
st;
move_left;
Wait(120);
repeat(2){
turn_left();
}
st;
Wait(100);
move_up;
Wait(time_b+time_b+time_d+20);
move_stop;
Wait(100);
turn_right();
Wait(100);
move_up;
Wait(time_f);
move_stop;
Wait(100);
move_right;
Wait(100);
st;
Wait(200);
pen_down;
Wait(100);
move_up;
Wait(time_g);
move_stop;
Wait(100);
pen_up;
Wait(100);
move_down;
Wait(50);
st;
Wait(100);
move_left;
Wait(100);
st;
Wait(200);
pen_down;
Wait(100);
move_up;
Wait(time_h);
st;
pen_up;
Wait(100);
move_down;
Wait(35);
st;
Wait(100);
turn_right();
st;
Wait(100);
pen_down;
Wait(100);
move_up;
Wait(time_i);
st;
move_right;
Wait(100);
st;
Wait(100);
move_up;
Wait(time_e);
move_stop;
pen_up;
Wait(100);
move_down;
Wait(time_e);
st;
move_left;
Wait(100);
repeat(2)
{
turn_left() ;
}
Wait(100);
move_up;
Wait(80);
st;
turn_left();
Wait(100);
move_up;
Wait(50);
st;
move_left;
Wait(70);
st;
Wait(100);
pen_down;
Wait(100);
move_up;
Wait(time_j);
move_stop;
pen_up;
Wait(100);
move_down;
Wait(time_j);
st;
move_right;
Wait(70);
repeat(2)
{
turn_right();
}
Wait(100);
move_up;
Wait(100);
st;
move_right;
Wait(70);
st;
Wait(100);
pen_down;
Wait(100);
move_up;
Wait(time_j);
move_stop;
pen_up;
Wait(100);
move_right;
Wait(100);
move_up;
Wait(200);
move_stop;
}
コメントお願いします。。。
#comment