[[2006b/A6/L Room]] #contents *プログラム [#ic65d202] +書道ロボット /*Write a "NAKA"*/ sub pen_down(){ OnRev(OUT_B); Wait(20); Float(OUT_B); } sub pen_up(){ OnFwd(OUT_B); Wait(20); Float(OUT_B); } task main(){ pen_down(); /*Pen move down*/ OnFwd(OUT_A+OUT_C); /*First write*/ Wait(70); pen_up(); /*Pen move up*/ Float(OUT_A+OUT_C); Wait(30); OnRev(OUT_A+OUT_C); /*Go to Next place*/ Wait(75); OnFwd(OUT_C); /*90 Turn*/ Wait(95); OnRev(OUT_C); Wait(60); pen_down(); /*Pen move down*/ OnFwd(OUT_A+OUT_C); /*Second write*/ Wait(150); Off(OUT_A+OUT_C); pen_up(); /*Pen move up*/ Wait(10); OnFwd(OUT_A+OUT_C); Wait(85); OnRev(OUT_C); /*90 Turn*/ Wait(95); OnRev(OUT_A+OUT_C); Wait(15); pen_down(); /*Pen move down*/ OnFwd(OUT_A+OUT_C); Wait(70); pen_up();/*Pen move up*/ Float(OUT_A+OUT_C); Wait(30); OnFwd(OUT_A+OUT_C); /*Go to Next place*/ Wait(65); OnRev(OUT_C); /*90 Turn*/ Wait(98); OnRev(OUT_A+OUT_C); Wait(15); pen_down(); /*Pen move down*/ OnFwd(OUT_A+OUT_C); /*Third write*/ Wait(150); pen_up(); /*Pen move up*/ Float(OUT_A+OUT_C); Wait(30); OnRev(OUT_A+OUT_C); /*Go to Next place*/ Wait(70); OnFwd(OUT_C); /*90 Turn*/ Wait(97); OnRev(OUT_C); Wait(185); pen_down(); /*Pen move down*/ OnFwd(OUT_A+OUT_C); /*Last write*/ Wait(200); pen_up(); /*Pen move up*/ Float(OUT_A+OUT_B+OUT_C);/*Stop ALL*/ }