2005/C2/キャベツ の履歴ソース(No.2)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 2005/C2/キャベツ へ行く。
  • 1 (2005-11-04 (金) 09:49:22)
  • 2 (2005-11-04 (金) 10:09:09)
  • 3 (2005-11-11 (金) 10:11:26)
  • 4 (2005-11-16 (水) 06:58:09)
  • 5 (2005-11-29 (火) 05:27:41)
  • 6 (2005-11-30 (水) 00:35:08)
  • 7 (2005-11-30 (水) 07:59:38)
  • 8 (2005-12-07 (水) 05:48:31)

[[2005/C2]]
キャベツのキャベツ畑
-キャベツの初収穫
 #define PEN_TIME 10
 
 sub pen_down()
 {
     OnFwd(OUT_B);
     Wait(PEN_TIME);
    Float(OUT_B);
 }
 
 sub pen_up()
 {
     OnRev(OUT_B);
     Wait(PEN_TIME);
     Float(OUT_B);
 }
 
 task main() 
 {   
     PlaySound(SOUND_CLICK) ;  
     pen_down();
     Wait(20);
     OnFwd(OUT_A+OUT_C);
     Wait(10);
     repeat(35){
         OnRev(OUT_C);
	 Wait(1);
         OnFwd(OUT_C);
	 Wait(3);
     }
     Float(OUT_A+OUT_C);
     Wait(10);
     pen_up();
     Wait(10);
     OnRev(OUT_C);
     OnFwd(OUT_A);
     Wait(220);
     OnFwd(OUT_C);
     Wait(120);
     OnRev(OUT_C);
     Wait(147);
     OnRev(OUT_A);
     Wait(100);
     Float(OUT_A+OUT_C);
     Wait(20);
        
     pen_down(); 
     Wait(PEN_TIME); OnFwd(OUT_A+OUT_C); Wait(100); 
     Float(OUT_A+OUT_C);
     Wait(10);
     pen_up();
     Wait(10);
     OnRev(OUT_A+OUT_C);
     Wait(60);
     OnFwd(OUT_A);
     OnRev(OUT_C);
     Wait(147);
     OnRev(OUT_A);
     Wait(100);
     OnFwd(OUT_A+OUT_C);
     Wait(25);
     Float(OUT_A+OUT_C);
     Wait(20);
    
     pen_down();  
     Wait(PEN_TIME);
     OnFwd(OUT_A+OUT_C);
     Wait(45);
     Float(OUT_A+OUT_C);
     Wait(10);
     pen_up();
     Wait(10);
     OnRev(OUT_A+OUT_C);
     Wait(45);
     OnRev(OUT_A);
     OnFwd(OUT_C);
     Wait(147);
     Rev(OUT_A+OUT_C);
     Wait(100);
     Float(OUT_A+OUT_C);
     Wait(20);
  
     pen_down();
     Wait(PEN_TIME);
     OnFwd(OUT_A+OUT_C);
     Wait(60);
     Float(OUT_A+OUT_C);
     Wait(10);
     pen_up();
     Wait(10);
     OnFwd(OUT_A+OUT_C);
     Wait(100);
     OnRev(OUT_C);
     Wait(147);
     OnRev(OUT_A+OUT_C);
     Wait(100);
     Float(OUT_A+OUT_C);
     Wait(20);
     pen_down();
     Wait(PEN_TIME);
     OnFwd(OUT_A+OUT_C);
     Wait(45);
     Float(OUT_A+OUT_C);
     Wait(10);
     pen_up(); 
     Wait(10);
     OnFwd(OUT_A+OUT_C);
     Wait(100);
     OnRev(OUT_A);
     Wait(147);
     OnRev(OUT_A+OUT_C);
     Wait(160);
     Float(OUT_A+OUT_C);
     Wait(20);   
 
     pen_down();
     Wait(10);
     OnFwd(OUT_A+OUT_C);
     Wait(60);
     Float(OUT_A+OUT_C);
     Wait(10);
     pen_up();
     Wait(10);
     OnFwd(OUT_A+OUT_C);
     Wait(100);
     Float(OUT_A+OUT_C);
     PlaySound(SOUND_FAST_UP) ; 
 }
-感想
  今回は不作でした。今度はもっと美味しいものを作れるように頑張ります。
  いつかは無農薬で作りたいです。