[[2009a/A5/課題1左]] task main () { SetPower(OUT_B,7); //Bのパワーを上げる //★輪郭 pensage(); OnFwd(OUT_A+OUT_C); //前進 Wait(105); Off(OUT_C); //弧を描くため左に曲がる Wait(190); penage(); Off(OUT_A); OnRev(OUT_A+OUT_C); //後退 Wait(50); Off(OUT_C); //回転 Wait(130); Off(OUT_A); OnFwd(OUT_A+OUT_C); //前進 Wait(100); Off(OUT_A+OUT_C); OnFwd(OUT_A); OnRev(OUT_C); Wait(80); Off(OUT_A+OUT_C); OnRev(OUT_A+OUT_C); //後退 Wait(30); Off(OUT_A+OUT_C); pensage(); OnFwd(OUT_A+OUT_C); //描画 Wait(120); Off(OUT_A+OUT_C); OnFwd(OUT_A); Wait(190); penage(); Off(OUT_A); //★髪の毛 OnRev(OUT_A+OUT_C); //位置修正ー後退 Wait(30); Off(OUT_A+OUT_C); OnFwd(OUT_A); //回転 OnRev(OUT_C); Wait(90); // Off(OUT_A+OUT_C); OnRev(OUT_A+OUT_C); Wait(150); Off(OUT_A+OUT_C); pensage(); OnFwd(OUT_A+OUT_C); //描画 Wait(130); penage(); Off(OUT_A+OUT_C); //★目 OnRev(OUT_A); //位置修正 OnFwd(OUT_C) Wait(90); Off(OUT_A+OUT_C); OnFwd(OUT_A+OUT_C); Wait(30); Off(OUT_A+OUT_C); OnRev(OUT_A); OnFwd(OUT_C); Wait(60); Off(OUT_A+OUT_C); OnRev(OUT_A+OUT_C); Wait(30); Off(OUT_A+OUT_C); repeat (2) { pensage(); OnFwd(OUT_A+OUT_C); //描画 Wait(30); Off(OUT_A+OUT_C); penage(); OnFwd(OUT_A+OUT_C); //間を開ける Wait(20); Off(OUT_A+OUT_C); } //★唇 OnFwd(OUT_A+OUT_C); //位置修正 Wait(100); Off(OUT_A+OUT_C); OnFwd(OUT_A); OnRev(OUT_C); Wait(90); Off(OUT_A+OUT_C); OnFwd(OUT_A+OUT_C); //前進 Wait(70); Off(OUT_A+OUT_C); OnFwd(OUT_A); OnRev(OUT_C); Wait(90); Off(OUT_A+OUT_C); OnRev(OUT_A+OUT_C); Wait(30); Off(OUT_A+OUT_C); pensage(); OnFwd(OUT_A+OUT_C); //描画 Wait(50); penage(); Off(OUT_A+OUT_C); //★面疔 OnRev(OUT_A+OUT_C); Wait(50); Off(OUT_A+OUT_C); OnFwd(OUT_A); OnRev(OUT_C); Wait(90); Off(OUT_A+OUT_C); OnRev(OUT_A+OUT_C); Wait(70); Off(OUT_A+OUT_C); pensage(); OnFwd(OUT_A+OUT_C); //描画 Wait(40); penage(); Off(OUT_A+OUT_C); //Fine } sub pensage() { OnFwd(OUT_B); //鉛筆を下ろす Wait(20); Off(OUT_B); } sub penage() { OnRev(OUT_B); //鉛筆を上げる Wait(100); Off(OUT_B); }