#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() //右に90°回転 { move_right; Wait(89); } sub turn_left() //左に90°回転 { 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; }
コメントお願いします。。。