2009a/A8/課題1右

2009a/A8/課題1右/プログラム1

2009a/A8/課題1右/プログラム3

作・小林

#define PEN 5  //ペンの上げ下げの時間の定義
sub up()          //ペンを上げる動作
{
OnFwd(OUT_B);
Wait(PEN);
Off(OUT_B);
}
sub down()    //ペンを下げる動作
{
OnRev(OUT_B);
Wait(PEN);
Off(OUT_B);
}
task main()
{              
OnFwd(OUT_A+OUT_C);  //輪郭の描き始め
Wait(110);

up();
 
Off(OUT_A);
Wait(155);
Off(OUT_C);
OnRev(OUT_A+OUT_C);
Wait(80);
Off(OUT_A+OUT_C);

down();

OnFwd(OUT_A+OUT_C);
Wait(80);

up();

Off(OUT_A);
Wait(140);
Off(OUT_C);
OnRev(OUT_A+OUT_C);
Wait(75);
Off(OUT_A+OUT_C);

down();

OnFwd(OUT_A+OUT_C);
Wait(80);

up();

Off(OUT_A);
Wait(155);
Off(OUT_C);
OnRev(OUT_A+OUT_C);
Wait(75);
Off(OUT_A+OUT_C);

down();

OnFwd(OUT_A+OUT_C);
Wait(110);

Off(OUT_A);
Wait(370);
Off(OUT_C);
Wait(20);  //輪郭の描き終わり

up();

OnRev(OUT_A+OUT_C);
Wait(100);
Off(OUT_A+OUT_C);

down();

OnFwd(OUT_C);  //髪の毛(右側)
Wait(200);
Off(OUT_C);

up();

OnRev(OUT_A+OUT_C);
Wait(80);
Off(OUT_A+OUT_C);

down();

OnFwd(OUT_A);  //髪の毛(左側)
OnRev(OUT_C);
Wait(100);
Off(OUT_A+OUT_C);

up();

OnRev(OUT_A);
OnFwd(OUT_C);
Wait(30);
Off(OUT_A+OUT_C);

OnFwd(OUT_A+OUT_C);
Wait(100);
Off(OUT_A+OUT_C);

OnFwd(OUT_A);
OnRev(OUT_C);
Wait(120);

OnRev(OUT_A+OUT_C);  //目の描き始め
Wait(40);

down();
Wait(25);

up();
Wait(20);

down();
Wait(25);  //目の描き終わり

up();

OnRev(OUT_A);
OnFwd(OUT_C);
Wait(100);
Off(OUT_A+OUT_C);

OnFwd(OUT_A+OUT_C);
Wait(80);
Off(OUT_A+OUT_C);

OnFwd(OUT_A);
OnRev(OUT_C);
Wait(85);
Off(OUT_A+OUT_C);

OnFwd(OUT_A+OUT_C);  //口の描き始め
Wait(10);
down();
Wait(35);
up();     //口の描き終わり

Off(OUT_A+OUT_C);
}

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2009-05-21 (木) 17:03:38