『斗』という漢字を書くプログラム † task main ()
{int x; x=140; repeat (2) { //GO WRITING OnFwd (OUT_A); OnRev (OUT_C); Wait (20); Off (OUT_A+OUT_C); //PEN UP OnRev (OUT_B); Wait (20); Off (OUT_B); //TURN OnRev (OUT_A+OUT_C); Wait (140); //GO OnFwd (OUT_A); OnRev (OUT_C); Wait (39); Off (OUT_A+OUT_C); //TURN OnFwd (OUT_A+OUT_C); Wait (x); Off (OUT_A+OUT_C); x=215; //PEN DOWN OnFwd (OUT_B); Wait (20); Off (OUT_B); } //REPEAT FINISH //GO WRITING OnFwd (OUT_A); OnRev (OUT_C); Wait (126); Off (OUT_A+OUT_C); //PEN UP OnRev (OUT_B); Wait (20); Off (OUT_B); //TURN OnFwd (OUT_A+OUT_C); Wait (196); Off (OUT_A+OUT_C); //GO OnFwd (OUT_A); OnRev (OUT_C); Wait (127); Off (OUT_A+OUT_C); //TURN OnFwd (OUT_A+OUT_C); Wait (300); Off (OUT_A+OUT_C); //PEN DOWN OnFwd (OUT_B); Wait (20); Off (OUT_B); //GO WRITING OnFwd (OUT_A); OnRev (OUT_C); Wait (169); Off (OUT_A+OUT_C); }
Last-modified: Fri, 04 Nov 2*四角形をつくるプログラム [#wf8a177b] 2005/C6
task main() { OnRev(OUT_B); Wait(30); Off(OUT_B); OnFwd(OUT_A); OnRev(OUT_C); Wait(150); Off(OUT_A+OUT_C); OnFwd(OUT_B); Wait(70); Off(OUT_B); OnFwd(OUT_A); OnRev(OUT_C); Wait(130); Off(OUT_A+OUT_C); OnFwd(OUT_A); Wait(80); Off(OUT_A); OnFwd(OUT_C); Wait(410); Off(OUT_A+OUT_C); OnRev(OUT_A); OnFwd(OUT_C); Wait(30); Off(OUT_A+OUT_C); OnRev(OUT_B); Wait(30); Off(OUT_B); OnFwd(OUT_A); OnRev(OUT_C); Wait(230); Off(OUT_A+OUT_C); OnFwd(OUT_B); Wait(50); Off(OUT_B); OnRev(OUT_A); OnFwd(OUT_C); Wait(100); Off(OUT_A+OUT_C); OnRev(OUT_A+OUT_C); Wait(160); Off(OUT_A+OUT_C); OnRev(OUT_A); OnFwd(OUT_C); Wait(50); Off(OUT_A+OUT_C); OnFwd(OUT_A); OnRev(OUT_C); Wait(100); Off(OUT_A+OUT_C); OnRev(OUT_B); Wait(30); Off(OUT_B); OnFwd(OUT_A); OnRev(OUT_C); Wait(80); Off(OUT_A+OUT_C); OnFwd(OUT_B); Wait(50); Off(OUT_B); OnRev(OUT_A); OnFwd(OUT_C); Wait(80); Off(OUT_A+OUT_C); OnFwd(OUT_A+OUT_C); Wait(160); Off(OUT_A+OUT_C); OnRev(OUT_B); Wait(30); Off(OUT_B); OnFwd(OUT_A); OnRev(OUT_C); Wait(80); Off(OUT_A+OUT_C); OnFwd(OUT_B); Wait(50); Off(OUT_B); OnRev(OUT_A+OUT_C); Wait(160); Off(OUT_A+OUT_C); OnRev(OUT_B); Wait(30); Off(OUT_B); OnFwd(OUT_A); OnRev(OUT_C); Wait(80); Off(OUT_A+OUT_C); OnFwd(OUT_B); Wait(50); Off(OUT_B); OnFwd(OUT_A+OUT_C); Wait(160); Off(OUT_A+OUT_C); OnRev(OUT_A); OnFwd(OUT_C); Wait(100); Off(OUT_A+OUT_B); OnRev(OUT_B); Wait(30); Off(OUT_B); OnFwd(OUT_A); OnRev(OUT_C); Wait(80); Off(OUT_A+OUT_C); OnFwd(OUT_B); Wait(50); Off(OUT_B); }