[[2006b/A1/課題1右]] *『田』を書くプログラム。 [#be873279] #define DOWN OnFwd(OUT_B);Wait(40);Off(OUT_B);//筆を下ろす作業。 #define B_WAIT Wait(50);止まる時間。 #define UP OnRev(OUT_B);Wait(40);Off(OUT_B);筆を上げる作業。 #define RUN_YOKO OnFwd(OUT_A+OUT_C);Wait(100);Off(OUT_A+OUT_C);横に進む動作。 #define RUN_TATE OnFwd(OUT_A+OUT_C);Wait(80);Off(OUT_A+OUT_C);縦に進む動作。 task main() { /*一画目『田』の「|」の部分を書く。*/ DOWN B_WAIT RUN_TATE UP /*一画目〜二画目への移動。*/ OnRev(OUT_A+OUT_C); Wait(146); Off(OUT_A+OUT_C); OnFwd(OUT_C); OnRev(OUT_A); Wait(85); Off(OUT_A+OUT_C); OnFwd(OUT_A+OUT_C); Wait(66); Off(OUT_A+OUT_C); Wait(100); /*二画目『田』の「¬」の部分を書く。*/ DOWN B_WAIT RUN_YOKO UP OnRev(OUT_A+OUT_C); Wait(66); OnFwd(OUT_A); OnRev(OUT_C); Wait(90); Off(OUT_A+OUT_C); OnFwd(OUT_A+OUT_C); Wait(66); Off(OUT_A+OUT_C); Wait(100); DOWN B_WAIT RUN_TATE UP /*二画目〜三画目への移動。*/ OnFwd(OUT_A); OnRev(OUT_C); Wait(85); OnFwd(OUT_A+OUT_C); Wait(40); Off(OUT_A+OUT_C); Wait(100); OnFwd(OUT_C); OnRev(OUT_A); Wait(90); Off(OUT_A+OUT_C); Wait(100); OnRev(OUT_A+OUT_C); Wait(66); Off(OUT_A+OUT_C); Wait(100); /*三画目『田』の真ん中にある、「|」の部分を書く。*/ DOWN B_WAIT RUN_TATE UP /*三画目〜四画目への移動。*/ OnRev(OUT_A+OUT_C); Wait(105); Off(OUT_A+OUT_C); OnRev(OUT_A); OnFwd(OUT_C); Wait(95); Off(OUT_A+OUT_C); OnFwd(OUT_A+OUT_C); Wait(20); Off(OUT_A+OUT_C); Wait(20); /*四画目『田』の真ん中の「―」の部分を書く。*/ DOWN B_WAIT RUN_YOKO UP /*四画目〜五画目への移動。*/ OnRev(OUT_A+OUT_C);Wait(100);Off(OUT_A+OUT_C); OnFwd(OUT_A); OnRev(OUT_C); Wait(85); Off(OUT_A+OUT_C); OnFwd(OUT_A+OUT_C); Wait(45); Off(OUT_A+OUT_C); OnRev(OUT_A); OnFwd(OUT_C); Wait(85); Off(OUT_A+OUT_C); Wait(100); /*五画目『田』の下にある「―」の部分を書く。*/ DOWN B_WAIT RUN_YOKO UP } /*おしまい。*/