[[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(120); Off(OUT_B+OUT_C); Wait(50); pen_down; OnFwd(OUT_B+OUT_C); Wait(120); OnRev(OUT_B); Wait(88); 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); pen_down; OnFwd(OUT_B); Wait(80); Off(OUT_B+OUT_C); pen_up; }