[[2005/C2/あんず]]

 sub up_pen()           //ペン上げ
 {
     OnFwd(OUT_B);
     Wait(50);
     Off(OUT_A+OUT_B+OUT_C);
     Wait(200);
 }
 
 void 1kaku()
 {
    OnFwd(OUT_A+OUT_C);
    Wait(100);
    up_pen();
    OnRev(OUT_A);                //移動
    Wait(130);
    OnRev(OUT_B);                //ペン下げ
 }
 
 void 2kaku()
 {
    OnRev(OUT_A+OUT_C);
    Wait(150);
    up_pen();
    OnFwd(OUT_A+OUT_C);          //移動
    Wait(200);
    OnRev(OUT_A);
    Wait(108);
    OnRev(OUT_A+OUT_C);
    Wait(75);
    OnRev(OUT_B);        //ペン下げ
 }
 
 void 3kaku()
 {
    OnRev(OUT_A+OUT_C);
    Wait(90);
    up_pen();
    OnFwd(OUT_A+OUT_C);          //移動
    Wait(180);
    OnRev(OUT_A);
    Wait(85);
    OnRev(OUT_A+OUT_C);
    Wait(85);
 }
 
 void 4kaku()
 {
    OnFwd(OUT_A+OUT_C);          //進みながらペン下げる
    OnRev(OUT_B);
    Wait(55);
    up_pen();
    OnFwd(OUT_A);
    OnRev(OUT_C);
    Wait(90);
    OnRev(OUT_A+OUT_C);
    Wait(15);
    OnRev(OUT_B);        //ペン下げ
 }
 
 void 5kaku()
 {
    OnRev(OUT_A+OUT_C);
    Wait(120);
    Off(OUT_A+OUT_B+OUT_C);
 }
 
 task main()
 {
    void 1kaku();
    void 2kaku();
    void 3kaku();
    void 4kaku();
    void 5kaku();
 }   


トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS