//制作者:高木侑弥と田中裕仁(大) //製作日:5月26日
#define PEN_DOWN 15 //ペンを下げる時間です。 #define PEN_UP 20 //ペンをあげる時間です。
sub PEN_D() //ペンを下げるためのサブルーチンです。 { OnRev (OUT_B);Wait (PEN_DOWN);Off (OUT_B); } sub PEN_U() //ペンをあげるためのサブルーチンです。 { OnFwd (OUT_B);Wait (PEN_UP);Off (OUT_B); }
task main() { Wait (500); PEN_D();Wait (100); //ペンを下げます OnFwd (OUT_A+OUT_C);Wait (100);Off (OUT_A+ OUT_C);Wait (100); //一画目を書きます PEN_U();Wait (100); //ペンを持ち上げます OnRev (OUT_A+OUT_C);Wait (100);Off (OUT_A+ OUT_C);Wait (100); //一画目の場所まで戻ります。 OnFwd (OUT_A);OnRev (OUT_C);Wait (14);Off (OUT_A+OUT_C); //二画目の場所まで方向転換 Wait (100); OnFwd (OUT_A+OUT_C);Wait (49);Off (OUT_A+OUT_C); //二画目の場所まで移動。 OnFwd (OUT_A);OnRev (OUT_C);Wait (40);Off (OUT_A+OUT_C); //二画目を書くために方向転換します。 Wait (100); PEN_D();Wait (100); //ペンをおろします。 OnRev (OUT_A+OUT_C);Wait (42);Off (OUT_A+OUT_C);Wait (100); //二画目を書きます。 PEN_U();Wait (100); //ペンをあげます。 OnFwd (OUT_A+OUT_C);Wait (39);Off (OUT_A+OUT_C);Wait (100); //方向転換をします。 OnFwd (OUT_C);OnRev (OUT_A);Wait (30);Off (OUT_A+OUT_C); OnRev (OUT_A+OUT_C);Wait (37);Off (OUT_A+OUT_C);Wait (100); PEN_D();Wait (100); //ペンをおろします。 OnFwd (OUT_A+OUT_C);Wait (55);Off (OUT_A+OUT_C);Wait (100); //二画目の払い部分を書きます。 PEN_U();Wait (100); //ペンをあげます。 OnFwd (OUT_A);OnRev (OUT_C);Wait (26);Off (OUT_A+OUT_C); //三角目の場所まで方向転換します。 Wait (100); OnRev (OUT_A+OUT_C);Wait (127);Off (OUT_A+OUT_C);Wait (100); //三画目に移動します。 PEN_D();Wait (100); //ペンをおろします。 OnFwd (OUT_A+OUT_C);Wait (45);Off (OUT_A+OUT_C);Wait (100); //三角目を書き始めます。 PEN_U();Wait (100); //ペンをあげます。 OnFwd (OUT_A+OUT_C);Wait (42);Off (OUT_A+OUT_C);Wait (100); //方向転換します。 Wait (100); OnFwd (OUT_C);OnRev (OUT_A);Wait (70);Off (OUT_A+OUT_C); OnRev (OUT_A+OUT_C);Wait (40);Off (OUT_A+OUT_C);Wait (100); PEN_D();Wait (100); //ペンをおろします。 OnFwd (OUT_A+OUT_C);Wait (85);Off (OUT_A+OUT_C); //最後の払いを書きます。
ほかのグループはおそらく4輪でくると思い、3輪人型にしました。また、モータ速度を落とすため、ギアを複数かませました。そして筆を垂直におろさずに斜めに下ろすことにより人間が書いたような質感になりました。
↑2画目が繋がってません…3画目も交差してしまってるし、おまけに力が足りなかったのか筆圧が小さくインクが薄くなっています…。反省&改善すべき点たくさんです。とりあえず『水』に見えて良かったε〜( ̄、 ̄;)ゞ