「井」を書くプログラム

#define MOVE1 50
#define MOVE2 400
#define MOVE3 400
task main()
{OnRev(OUT_A+OUT_C); 
Wait(MOVE3); 
Off(OUT_A+OUT_C); //一画目

OnRev(OUT_B);
Wait(MOVE1);
Off(OUT_B); //ペンをあげる

OnFwd(OUT_A);OnRev(OUT_C);
Wait(MOVE2);
Off(OUT_A+OUT_C);
OnFwd(OUT_A+OUT_C);
Wait(100);
Off(OUT_A+OUT_C);
OnFwd(OUT_C);OnRev(OUT_A);
Wait(MOVE2);
Off(OUT_A+OUT_C);
OnFwd(OUT_A+OUT_C);
Wait(MOVE3);
Off(OUT_A+OUT_C); //二画目へ移動

OnFwd(OUT_B);
Wait(MOVE1);
Off(OUT_B); //ペンを下げる

OnRev(OUT_A+OUT_C);
Wait(MOVE3);
Off(OUT_A+OUT_C); //二画目

OnRev(OUT_B);
Wait(MOVE1);
Off(OUT_B); //ペンをあげる

OnFwd(OUT_C);OnRev(OUT_A);
Wait(MOVE2);
Off(OUT_A+OUT_C);
OnFwd(OUT_A+OUT_C);
Wait(200);
Off(OUT_A+OUT_C);
OnFwd(OUT_A);OnRev(OUT_C);
Wait(MOVE2);
Off(OUT_A+OUT_C);
OnFwd(OUT_A+OUT_C);
Wait(650);
Off(OUT_A+OUT_C);
OnFwd(OUT_C);OnRev(OUT_A);
Wait(MOVE2);
0ff(OUT_A+OUT_C); //三画目へ移動

OnFwd(OUT_B);
Wait(MOVE1);
Off(OUT_B); //ペンを下げる

OnRev(OUT_A+OUT_C);
Wait(600);
Off(OUT_A+OUT_C); //三画目

OnRev(OUT_B);
Wait(MOVE1);
Off(OUT_B); //ペンをあげる

OnFwd(OUT_C);OnRev(OUT_A);
Wait(MOVE2);
Off(OUT_A+OUT_C);
OnFwd(OUT_A+OUT_C);
Wait(100);
Off(OUT_A+OUT_C);
OnFwd(OUT_A);OnRev(OUT_C);
Wait(MOVE2);
Off(OUT_A+OUT_C);
OnFwd(OUT_A+OUT_C);
Wait(600);
Off(OUT_A+OUT_C); //四画目へ移動

OnFwd(OUT_B);
Wait(MOVE1);
Off(OUT_B); //ペンを下げる

OnRev(OUT_A+OUT_C);
Wait(600);
Off(OUT_A+OUT_C); //四画目

OnRev(OUT_B);
Wait(MOVE1);
Off(OUT_B);} //ペンをあげて終わり

課題1左に戻る


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-11-22 (水) 18:36:07 (4660d)