2009a/A8/課題１右/プログラム２ の履歴ソース(No.2)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 2009a/A8/課題１右/プログラム２ へ行く。
  • 1 (2009-05-20 (水) 08:22:13)
  • 2 (2009-05-20 (水) 14:03:29)

[[2009a/A8/課題１右]]

[[2009a/A8/課題１右/プログラム１]]

[[2009a/A8/課題１右/プログラム３]]
**作・小林 [#ice64ec8]
 #define PEN 5　　//ペンの上げ下げの時間の定義

 sub up()          //ペンを上げる動作
 {
 OnFwd(OUT_B);
 Wait(PEN);
 Off(OUT_B);
 }
 
 sub down()　　　　//ペンを下げる動作
 {
 OnRev(OUT_B);
 Wait(PEN);
 Off(OUT_B);
 }
 
 
 task main()
 { 　　　　　　　　　　　　　
 OnFwd(OUT_A+OUT_C);　　//輪郭の描き始め
 Wait(110);
 
 up();
  
 Off(OUT_A);
 Wait(155);
 Off(OUT_C);
 OnRev(OUT_A+OUT_C);
 Wait(80);
 Off(OUT_A+OUT_C);
 
 down();
 
 OnFwd(OUT_A+OUT_C);
 Wait(80);
 
 up();
 
 Off(OUT_A);
 Wait(140);
 Off(OUT_C);
 OnRev(OUT_A+OUT_C);
 Wait(75);
 Off(OUT_A+OUT_C);
 
 down();
 
 OnFwd(OUT_A+OUT_C);
 Wait(80);
 
 up();
 
 Off(OUT_A);
 Wait(155);
 Off(OUT_C);
 OnRev(OUT_A+OUT_C);
 Wait(75);
 Off(OUT_A+OUT_C);
 
 down();
 
 OnFwd(OUT_A+OUT_C);
 Wait(110);
 
 Off(OUT_A);
 Wait(370);
 Off(OUT_C);
 Wait(20);　　//輪郭の描き終わり
 
 up();
 
 OnRev(OUT_A+OUT_C);
 Wait(100);
 Off(OUT_A+OUT_C);
 
 down();
 
 OnFwd(OUT_C);　　//髪の毛（右側）
 Wait(200);
 Off(OUT_C);
 
 up();
 
 OnRev(OUT_A+OUT_C);
 Wait(80);
 Off(OUT_A+OUT_C);
 
 down();
 
 OnFwd(OUT_A);　　//髪の毛（左側）
 OnRev(OUT_C);
 Wait(100);
 Off(OUT_A+OUT_C);
 
 up();
 
 OnRev(OUT_A);
 OnFwd(OUT_C);
 Wait(30);
 Off(OUT_A+OUT_C);
 
 OnFwd(OUT_A+OUT_C);
 Wait(100);
 Off(OUT_A+OUT_C);
 
 OnFwd(OUT_A);
 OnRev(OUT_C);
 Wait(120);
 
 OnRev(OUT_A+OUT_C);　　//目の描き始め
 Wait(40);
 
 down();
 Wait(25);
 
 up();
 Wait(20);
 
 down();
 Wait(25);　　//目の描き終わり
 
 up();
 
 OnRev(OUT_A);
 OnFwd(OUT_C);
 Wait(100);
 Off(OUT_A+OUT_C);
 
 OnFwd(OUT_A+OUT_C);
 Wait(80);
 Off(OUT_A+OUT_C);
 
 OnFwd(OUT_A);
 OnRev(OUT_C);
 Wait(85);
 Off(OUT_A+OUT_C);
 
 OnFwd(OUT_A+OUT_C);　　//口の描き始め
 Wait(10);
 down();
 Wait(35);
 up();     //口の描き終わり
 
 Off(OUT_A+OUT_C);
 }