- 追加された行はこの色です。
- 削除された行はこの色です。
[[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;
}
初めてのレポート