2012a/A4/SanChan/M1 の履歴差分(No.3)

• 履歴一覧
• 現在との差分 を表示
• ソース を表示
• 2012a/A4/SanChan/M1 へ行く。
  • 1 (2012-05-18 (金) 08:03:13)
  • 2 (2012-05-18 (金) 08:18:16)
  • 3 (2012-05-25 (金) 07:26:13)
  • 4 (2012-06-08 (金) 07:46:34)
  • 5 (2012-06-22 (金) 07:20:37)

• 追加された行はこの色です。
• 削除された行はこの色です。

[[ロボティクス入門]]

*課題1 似顔絵を描くロボット [#y5b586b7]

*ロボット本体 [#l860a1f4]

*プログラミング [#feb3e890]

  task main()
  
  {
  OnFwd(OUT_A,30);
  Wait(1200);
  Off(OUT_A);
  Wait(500);     //輪郭
  
  OnRev(OUT_C,40);
  Wait(750);
  Off(OUT_C);
  Wait(500);    //ペン上げ
  
  OnRev(OUT_B,30);
  Wait(100);
  Off(OUT_B);
  Wait(500);    //調整
  
  OnFwd(OUT_C,20);
  Wait(1000);
  Off(OUT_C);
  Wait(500);   //ペン下げ
  
  OnRev(OUT_A,20);
  Wait(200);
  Off(OUT_A);
  Wait(500);   //髪の毛1
  
  OnRev(OUT_C,40);
  Wait(700);
  Off(OUT_C);
  Wait(500);    //ペン上げ
  
  OnRev(OUT_B,20);
  Wait(200);
  Off(OUT_B);
  Wait(500);    //調整
  
  OnFwd(OUT_C,20);
  Wait(1000);
  Off(OUT_C);
  Wait(500);   //ペン下げ
  
  OnFwd(OUT_A,20);
  Wait(200);
  Off(OUT_A);
  Wait(500);   //髪の毛2
  
  OnRev(OUT_C,30);
  Wait(650);
  Off(OUT_C);
  Wait(500);    //ペン上げ
  
  OnRev(OUT_B,30);
  Wait(200);
  Off(OUT_B);
  Wait(500);    //調整
  
  OnFwd(OUT_C,20);
  Wait(1000);
  Off(OUT_C);
  Wait(500);   //ペン下げ
  
  OnRev(OUT_A,20);
  Wait(200);
  Off(OUT_A);
  Wait(500);   //髪の毛3
  
  OnRev(OUT_C,40);
  Wait(700);
  Off(OUT_C);
  Wait(500);    //ペン上げ
  
  OnRev(OUT_B,30);
  Wait(200);
  Off(OUT_B);
  Wait(500);    //調整
  
  OnFwd(OUT_C,25);
  Wait(1300);
  Off(OUT_C);
  Wait(500);   //ペン下げ
  
  OnFwd(OUT_A,30);
  Wait(200);
  Off(OUT_A);
  Wait(500);   //髪の毛4
  
  OnRev(OUT_C,30);
  Wait(600);
  Off(OUT_C);
  Wait(500);    //ペン上げ
  
  OnFwd(OUT_B,30);
  OnRev(OUT_A,25);
  Wait(400);
  Off(OUT_AB);
  Wait(500);   //調整
  
  OnFwd(OUT_C,20);
  Wait(1000);
  Off(OUT_C);
  Wait(500);   //ペン下げ
  
  OnRev(OUT_B,30);
  Wait(200);
  Off(OUT_B);
  Wait(500);   //口
  
  OnRev(OUT_C,40);
  Wait(900);
  Off(OUT_C);
  Wait(500);    //ペン上げ
  
  OnFwd(OUT_A,20);
  OnFwd(OUT_B,30);
  Wait(200);
  Off(OUT_AB);
  Wait(500);   //調整
  
  OnFwd(OUT_C,20);
  Wait(1000);
  Off(OUT_C);
  Wait(500);   //ペン下げ
  
  OnRev(OUT_B,30);
  Wait(150);
  Off(OUT_B);
  Wait(500);   //左目
  
  OnRev(OUT_C,50);
  Wait(700);
  Off(OUT_C);
  Wait(500);    //ペン上げ
  
  OnRev(OUT_B,30);
  Wait(100);
  Off(OUT_B);
  Wait(500);   //調整
  
  OnFwd(OUT_C,20);
  Wait(1000);
  Off(OUT_C);
  Wait(500);   //ペン下げ
  
  OnRev(OUT_B,30);
  Wait(200);
  Off(OUT_B);
  Wait(500);   //右目
  
  OnRev(OUT_C,40);
  Wait(750);
  Off(OUT_C);
  Wait(500);    //ペン上げ
  
  
  }