[[2006a/C3/課題1左]] #define MOVE_TIME 20 //ペンを上げ下げする時間 sub pen_up() //ペンを上げる sub pen_up() //ペンを上げる { OnFwd(OUT_B); Wait(15); Off(OUT_B); } sub pen_down() //ペンを下げる { OnRev(OUT_B); Wait(20); Off(OUT_B); } void go_fwd(int t) //t秒間前に進む { OnFwd(OUT_A+OUT_C);Wait(t); Off(OUT_A+OUT_C); } void go_rev(int t) //t秒間後進する { OnRev(OUT_A+OUT_C);Wait(t); Off(OUT_A+OUT_C); } void turn_left(int t) //左に曲がる { OnFwd(OUT_C);Wait(t); OnRev(OUT_A);Wait(t); Off(OUT_A+OUT_C); } task main() { pen_down(); go_fwd(130); //一画目縦線 pen_up(); go_rev(87); turn_left(30); //方向転換 go_fwd(70); pen_down(); go_rev(20); //一画目はね pen_up(); go_rev(170); turn_left(35); //方向転換 go_fwd(90); pen_down(); go_fwd(35); //二画目横線 pen_up(); go_rev(90); turn_left(45); //方向転換 go_fwd(67); pen_down(); go_rev(60); //二画目斜線 pen_up(); go_rev(10); turn_right(35); //方向転換 go_fwd(75); turn_left(10); go_fwd(35); pen_down(); go_rev(40); //三画目 pen_up(); go_rev(94); turn_right(50); //方向転換 go_fwd(65); pen_down(); go_fwd(75); //四画目 pen_up(); }