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);
}