![[PukiWiki]](image/robotics-logo-small.jpg "[PukiWiki]"){kind=logo}
「水木」の字を書くプログラム。
作成: ゆき
/* 前進／後退 : OUT_A */
/* アーム制御 : OUT_B */
/* ペンの上下 : OUT_C */
#define UNITTIME 13
#define pen_down_wait OnFwd(OUT_C); Wait(100)
#define pen_up OnRev(OUT_C)
#define pen_up_wait OnRev(OUT_C); Wait(100)
#define move_left(t) Off(OUT_A); OnRev(OUT_B); Wait(UNITTIME*t)
#define move_right(t) Off(OUT_A); OnFwd(OUT_B); Wait(UNITTIME*t)
#define move_up(t) OnRev(OUT_A); Off(OUT_B); Wait(UNITTIME*t)
#define move_down(t) OnFwd(OUT_A); Off(OUT_B); Wait(UNITTIME*t)
#define move_leftup(t) OnRev(OUT_A); OnRev(OUT_B); Wait(UNITTIME*t)
#define move_leftdown(t) OnFwd(OUT_A); OnRev(OUT_B); Wait(UNITTIME*t)
#define move_rightup(t) OnRev(OUT_A); OnFwd(OUT_B); Wait(UNITTIME*t)
#define move_rightdown(t) OnFwd(OUT_A); OnFwd(OUT_B); Wait(UNITTIME*t)
#define move_wait(t) Wait(UNITTIME*t)
#define move_stop Off(OUT_A); Off(OUT_B)
#define move_left_stop(t) Off(OUT_A); OnRev(OUT_B); Wait(UNITTIME*t); move_stop
#define move_right_stop(t) Off(OUT_A); OnFwd(OUT_B); Wait(UNITTIME*t); move_stop
#define move_up_stop(t) OnRev(OUT_A); Off(OUT_B); Wait(UNITTIME*t); move_stop
#define move_down_stop(t) OnFwd(OUT_A); Off(OUT_B); Wait(UNITTIME*t); move_stop
#define move_leftup_stop(t) OnRev(OUT_A); OnRev(OUT_B); Wait(UNITTIME*t); move_stop
#define move_leftdown_stop(t) OnFwd(OUT_A); OnRev(OUT_B); Wait(UNITTIME*t); move_stop
#define move_rightup_stop(t) OnRev(OUT_A); OnFwd(OUT_B); Wait(UNITTIME*t); move_stop
#define move_rightdown_stop(t) OnFwd(OUT_A); OnFwd(OUT_B); Wait(UNITTIME*t); move_stop
task main()
{
SetPower(OUT_A,1);
SetPower(OUT_B,7);
SetPower(OUT_C,2);
// 水 - 1
pen_down_wait;
move_down(10);
pen_up;
move_wait(1);
move_leftup_stop(3);
pen_up_wait;
// 水 - 2
move_leftup(1);
move_up_stop(3);
pen_down_wait;
move_right_stop(3);
pen_up;
move_wait(1);
move_leftdown_stop(3);
pen_up_wait;
// 水 - 3
move_rightup(6);
move_right_stop(1);
pen_down_wait;
pen_up;
move_leftdown_stop(3);
pen_up_wait;
// 水 - 4
pen_down_wait;
move_rightdown(4);
pen_up;
move_wait(1);
move_right_stop(2);
pen_up_wait;
// 移動
move_leftdown(8);
move_left_stop(2);
// 木 - 1
pen_down_wait;
move_right_stop(8);
pen_up;
move_left_stop(1);
pen_up_wait;
// 木 - 2
move_leftup(3);
move_left_stop(1);
pen_down_wait;
move_down_stop(9);
pen_up_wait;
// 木 - 3
move_up_stop(6);
pen_down_wait;
move_leftdown(2);
pen_up;
move_leftdown_stop(3);
pen_up_wait;
// 木 - 4
move_rightup_stop(5);
pen_down_wait;
move_rightdown(3);
pen_up;
move_rightdown(2);
move_right_stop(1);
pen_up_wait;
move_down(5);
Off(OUT_A+OUT_B+OUT_C);
}
