[[2006b/A6/R Room/あおっページ]] #contents *プログラム「弘」[#p6773482] ペンの上げ下げの定義 #define pen_down OnRev(OUT_A);Wait(80);Off(OUT_A); #define pen_up OnFwd(OUT_A);Wait(80);Off(OUT_A); task main() { pen_down; OnFwd(OUT_B+OUT_C); Wait(75); OnRev(OUT_C); Wait(88); OnFwd(OUT_C); Wait(75); Off(OUT_B+OUT_C); pen_up; Wait(50); OnFwd(OUT_C); OnRev(OUT_B); Wait(100); OnRev(OUT_C); Wait(75); Off(OUT_B+OUT_C); Wait(30); pen_down; OnFwd(OUT_B+OUT_C); Wait(75); Off(OUT_B+OUT_C); Wait(30); pen_up; OnRev(OUT_B+OUT_C); Wait(75); OnFwd(OUT_B); Wait(10); pen_down; OnFwd(OUT_B+OUT_C); Wait(75); OnRev(OUT_B); Wait(88); OnFwd(OUT_B); Wait(75); OnRev(OUT_C); Wait(88); OnFwd(OUT_C); Wait(75); OnRev(OUT_C); Wait(88); OnFwd(OUT_C); Wait(40); Off(OUT_B+OUT_C); Wait(50); pen_up; OnRev(OUT_B+OUT_C); Wait(80); OnFwd(OUT_C); Wait(63); OnRev(OUT_C); Wait(200); Off(OUT_B+OUT_C); Wait(50); pen_down; OnFwd(OUT_B+OUT_C); Wait(230); OnRev(OUT_B); Wait(120); OnFwd(OUT_B); Wait(130); Off(OUT_B+OUT_C); pen_up; OnFwd(OUT_B); OnRev(OUT_C); Wait(87); OnRev(OUT_B); Wait(40); OnRev(OUT_B+OUT_C); Wait(10); Off(OUT_B+OUT_C); pen_down; OnFwd(OUT_C+OUT_B); Wait(90); Off(OUT_C+OUT_B); pen_up; }