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

トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS