[[2005/C3]]
授業野無いときにも何度も集まり作製してみたけど完成できませんでした。
その原因はペンを持ってない状態でプログラムを作製していましたが、いざ
ペンを持ってからうごかしてみると全くかけませんでした。そして時間が無くなるという自体に陥ってしまいました。
苦労したところは、ペンを持つ部分が重くて重心が前に傾きすぎて倒れてしまうので何度も補強しなおしました。
ペンを持つ部分は、初めに作ったキャタピラを利用しました。
#define X 20

sub pen_sage()
{
     OnFwd(OUT_B);
     Wait(X); 
     Off(OUT_B);
}

sub pen_age()
{
     OnRev(OUT_B);    
     Wait(X);
     Off(OUT_B);
}
task main()
{
     pen_sage();
     
     OnFwd(OUT_A+OUT_C);
     Wait(25);
     Off(OUT_A+OUT_C);
     
     pen_age(); 
        
     OnFwd(OUT_A+OUT_C);
     Wait(30);
     Off(OUT_A+OUT_C);
     
     OnFwd(OUT_A);
     OnRev(OUT_C);
     Wait(95);
     Float(OUT_A+OUT_C);
     
     pen_sage();
     
     OnRev(OUT_A+OUT_C);
     Wait(100);
     Float(OUT_A+OUT_C); 
         
     pen_age();   
     
     OnFwd(OUT_A+OUT_C);           
     Wait(40);
     Float(OUT_A+OUT_C);
     
     OnFwd(OUT_A);
     OnRev(OUT_C);
     Wait(95);
     Float(OUT_A+OUT_C);
      
     OnRev(OUT_A+OUT_C);
     Wait(30);
     Float(OUT_A+OUT_C);
     
     pen_sage();
     
     OnRev(OUT_A+OUT_C);
     #define X 20

sub pen_sage()
{
     OnFwd(OUT_B);
     Wait(X); 
     Off(OUT_B);
}

sub pen_age()
{
     OnRev(OUT_B);    
     Wait(X);
     Off(OUT_B);
}
task main()
{
     pen_sage();
     
     OnFwd(OUT_A+OUT_C);
     Wait(25);
     Off(OUT_A+OUT_C);
     
     pen_age(); 
        
     OnFwd(OUT_A+OUT_C);
     Wait(30);
     Off(OUT_A+OUT_C);
     
     OnFwd(OUT_A);
     OnRev(OUT_C);
     Wait(95);
     Float(OUT_A+OUT_C);
     
     pen_sage();
     
     OnRev(OUT_A+OUT_C);
     Wait(100);
     Float(OUT_A+OUT_C); 
         
     pen_age();   
     
     OnFwd(OUT_A+OUT_C);           
     Wait(40);
     Float(OUT_A+OUT_C);
     
     OnFwd(OUT_A);
     OnRev(OUT_C);
     Wait(95);
     Float(OUT_A+OUT_C);
      
     OnRev(OUT_A+OUT_C);
     Wait(30);
     Float(OUT_A+OUT_C);
     
     pen_sage();
     
     OnRev(OUT_A+OUT_C);
     Wait(70);
     Float(OUT_A+OUT_C);
     
     OnRev(OUT_A);
     Wait(80);
     Float(OUT_A);
     
     pen_age();
     
     OnFwd(OUT_C);          
     Wait(170);
     Float(OUT_C);
     
     OnRev(OUT_A+OUT_C);
     Wait(70);
     Float(OUT_A+OUT_C);
}

Wait(70);
     Float(OUT_A+OUT_C);
     
     OnRev(OUT_A);
     Wait(80);
     Float(OUT_A);
     
     pen_age();
     
     OnFwd(OUT_C);          
     Wait(170);
     Float(OUT_C);
     
     OnRev(OUT_A+OUT_C);
     Wait(70);
     Float(OUT_A+OUT_C);
}

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