[[2009b]] #contents *初めてのレポート [#w68917d8] *プログラム [#b117226a] #define MOVE_TIMEAX 10 #define MOVE_TIMECY 5 #define MOVE_TIMEBZ 30 #define PAUSE 100 #define Z_UP OnFwd(OUT_B); Wait(MOVE_TIMEBZ); Off(OUT_B); Wait(PAUSE); #define Z_DOWN OnRev(OUT_B); Wait(MOVE_TIMEBZ); Off(OUT_B); Wait(PAUSE); #define X_RIGHT OnRev(OUT_A); Wait(MOVE_TIMEAX); Off(OUT_A); Wait(PAUSE); #define X_LEFT OnFwd(OUT_A); Wait(MOVE_TIMEAX); Off(OUT_A); Wait(PAUSE); #define Y_FRONT OnRev(OUT_C); Wait(MOVE_TIMECY); Float(OUT_C); Wait(PAUSE); #define Y_BACK OnFwd(OUT_C); Wait(MOVE_TIMECY); Float(OUT_C); Wait(PAUSE); task main() { Wait(100); Z_DOWN; Y_FRONT; X_RIGHT; Y_BACK; X_LEFT; OnRev(OUT_A); Wait(40); Off(OUT_A); Wait(PAUSE); X_RIGHT; Y_BACK; X_LEFT; Z_UP; //grass OnFwd(OUT_A); Wait(20); Off(OUT_A); Wait(PAUSE); OnRev(OUT_C); Wait(10); Off(OUT_C); Wait(PAUSE); Z_DOWN; OnRev(OUT_C); Wait(10); Off(OUT_C); Wait(PAUSE); Z_UP; //nose OnRev(OUT_C); Wait(10); Off(OUT_C); Wait(PAUSE); OnRev(OUT_A); Wait(20); Off(OUT_A); Wait(PAUSE); Z_DOWN; OnFwd(OUT_A); Wait(MOVE_TIMEAX); Float(OUT_A); Wait(PAUSE); Z_UP; //mouth OnFwd(OUT_A); Wait(5); Float(OUT_A); Wait(PAUSE); OnRev(OUT_C); Wait(MOVE_TIMECY); Float(OUT_C); Wait(PAUSE); Z_DOWN; OnRev(OUT_A); Wait(50); Float(OUT_A); Wait(PAUSE); OnFwd(OUT_C); Wait(50); Float(OUT_C); Wait(PAUSE); OnFwd(OUT_A); Wait(50); Float(OUT_A); Wait(PAUSE); OnRev(OUT_C); Wait(50); Float(OUT_C); Wait(PAUSE); Z_UP; }