- 履歴一覧
- ソース を表示
- 2006a/A4/書道ロボット水 は削除されています。
- 追加された行はこの色です。
- 削除された行はこの色です。
[[2006a/A4/課題左]]
+『水』という字を書くプログラム
#define pen_down OnRev(OUT_B);Wait(25);Off(OUT_B);Wait(20);
#define pen_up OnFwd(OUT_B);Wait(25);Off(OUT_B);Wait(20);
void mv_F(int t)// 63=10cm
{
OnFwd(OUT_A+OUT_C);
Wait(t);
Off(OUT_A+OUT_C);
Wait(30);
}
void mv_R(int t)// 63=10cm
{
OnRev(OUT_A+OUT_C);
Wait(t);
Off(OUT_A+OUT_C);
Wait(30);
}
void turn_R(int t)// 245=360
{
OnRev(OUT_A);
OnFwd(OUT_C);
Wait(t);
Off(OUT_A+OUT_C);
Wait(30);
}
void turn_L(int t)// 245=360
{
OnRev(OUT_C);
OnFwd(OUT_A);
Wait(t);
Off(OUT_A+OUT_C);
Wait(30);
}
task main()
{
Wait(100);
/* 1 */
pen_down;
mv_F(40);
OnRev(OUT_A);
Wait(16);
Off(OUT_A);
Wait(20);
pen_up;
OnFwd(OUT_A);
Wait(16);
Off(OUT_A);
/* 2 */
mv_R(11);
turn_R(62);// 245=360
mv_F(8);
pen_down;
mv_R(20);
OnFwd(OUT_A);
Wait(45);
Off(OUT_A);
Wait(20);
pen_up;
OnRev(OUT_A);
Wait(45);
Off(OUT_A);
Wait(30);
mv_R(5);
turn_L(30);
mv_R(23);
turn_R(7);
pen_down;
mv_F(22);
pen_up;
mv_F(13);
turn_R(47);
mv_R(19);
pen_down;
mv_R(23);
pen_up;
}