[[2005/C2]] キャベツのキャベツの足跡へようこそ [[キャベツの足跡>2005/C2/キャベツの足跡]] #define PEN_TIME 10 sub pen_down() { OnFwd(OUT_B); Wait(PEN_TIME); Float(OUT_B); } sub pen_up() { OnRev(OUT_B); Wait(PEN_TIME); Float(OUT_B); } task main() { PlaySound(SOUND_CLICK) ; pen_down(); Wait(20); OnFwd(OUT_A+OUT_C); Wait(10); repeat(35){ OnRev(OUT_C); Wait(1); OnFwd(OUT_C); Wait(3); } Float(OUT_A+OUT_C); Wait(10); pen_up(); Wait(10); OnRev(OUT_C); OnFwd(OUT_A); Wait(220); OnFwd(OUT_C); Wait(120); OnRev(OUT_C); Wait(147); OnRev(OUT_A); Wait(100); Float(OUT_A+OUT_C); Wait(20); pen_down(); Wait(PEN_TIME); OnFwd(OUT_A+OUT_C); Wait(100); Float(OUT_A+OUT_C); Wait(10); pen_up(); Wait(10); OnRev(OUT_A+OUT_C); Wait(60); OnFwd(OUT_A); OnRev(OUT_C); Wait(147); OnRev(OUT_A); Wait(100); OnFwd(OUT_A+OUT_C); Wait(25); Float(OUT_A+OUT_C); Wait(20); pen_down(); Wait(PEN_TIME); OnFwd(OUT_A+OUT_C); Wait(45); Float(OUT_A+OUT_C); Wait(10); pen_up(); Wait(10); OnRev(OUT_A+OUT_C); Wait(45); OnRev(OUT_A); OnFwd(OUT_C); Wait(147); Rev(OUT_A+OUT_C); Wait(100); Float(OUT_A+OUT_C); Wait(20); pen_down(); Wait(PEN_TIME); OnFwd(OUT_A+OUT_C); Wait(60); Float(OUT_A+OUT_C); Wait(10); pen_up(); Wait(10); OnFwd(OUT_A+OUT_C); Wait(100); OnRev(OUT_C); Wait(147); OnRev(OUT_A+OUT_C); Wait(100); Float(OUT_A+OUT_C); Wait(20); pen_down(); Wait(PEN_TIME); OnFwd(OUT_A+OUT_C); Wait(45); Float(OUT_A+OUT_C); Wait(10); pen_up(); Wait(10); OnFwd(OUT_A+OUT_C); Wait(100); OnRev(OUT_A); Wait(147); OnRev(OUT_A+OUT_C); Wait(160); Float(OUT_A+OUT_C); Wait(20); pen_down(); Wait(10); OnFwd(OUT_A+OUT_C); Wait(60); Float(OUT_A+OUT_C); Wait(10); pen_up(); Wait(10); OnFwd(OUT_A+OUT_C); Wait(100); Float(OUT_A+OUT_C); PlaySound(SOUND_FAST_UP) ; }