- 追加された行はこの色です。
- 削除された行はこの色です。
[[2006a/A1]]
#contents
*『水』を書くプログラム [#ec699d27]
// 作成者:
// 作成日:2006-5-23
#define front(t) OnFwd(OUT_C);Wait(t);Off(OUT_C);
#define back(t) OnRev(OUT_C);Wait(t);Off(OUT_C);
#define pen up OnFwd(OUT_A);Wait(30);Off(OUT_A);
#define pen down OnRev(OUT_A);Wait(30);Off(OUT_A);
#define pen right(t) OnFwd(OUT_B);Wait(t);Off(OUT_B);
#define pen left(t) OnRev(OUT_B);Wait(t);Off(OUT_B);
#define back(t) OnFwd(OUT_C);Wait(t);Off(OUT_C);
#define front(t) OnRev(OUT_C);Wait(t);Off(OUT_C);
#define up OnFwd(OUT_A);Wait(30);Off(OUT_A);
#define down OnRev(OUT_A);Wait(30);Off(OUT_A);
#define left(t) OnFwd(OUT_B);Wait(t);Off(OUT_B);
#define right(t) OnRev(OUT_B);Wait(t);Off(OUT_B);
task main()
{
pen down;front(200); //1画目
back(30);pen left(10); //ハネ
pen up;back(95);pen left(40); //2画目に移動
pen down;right(35);
left(35);front(95);
pen up;right(90);back(145);
pen left(35);front(50);
pen right(35);front(95);
}
{
down;front(60);Wait(10); //1画目
OnRev(OUT_C);OnFwd(OUT_B);Wait(20 //ハネ
up;back(95);left(40);Wait(10); //2画目に移動
down;right(35);Wait(10); //2画目
OnRev(OUT_B);OnFwd(OUT_C);Wait(35);
Off(OUT_C+OUT_B);Wait(10);
up;right(90);back(95);Wait(10); //3画目に移動
OnFwd(OUT_B);OnFwd(OUT_C);Wait(35);
Off(OUT_C+OUT_B);Wait(10); //3画目
OnRev(OUT_B);OnFwd(OUT_C);Wait(35);
Off(OUT_C+OUT_B);Wait(10);
}
*難しかった点 [#a96ac96f]
ー
*工夫した点 [#a471ecca]
ー
ー
*反省点 [#eae3f20c]
*感想 [#y5f7b983]
#comment
コメントをどうぞ…