2008a/A8/課題１右の履歴ソース(No.3)

[[2008a/MemberOnly/進行状況A]]
*目次 [#p7316d32]
#contents
*課題 [#v8c3ecf3]
レゴマインドストームを使って、人の顔を書く！！
*ロボット [#j463e2f9]
**図 [#b1c6043d]
**写真 [#n6c2ec10]
*プログラム [#f7585ae3]
/* This program makes robot draw face*/
   #define Go_straight(t) OnFwd(OUT_A+OUT_C);Wait(t);Off(OUT_A+OUT_C);
   #define Go_back(t) OnRev(OUT_A+OUT_C);Wait(t);Off(OUT_A+OUT_C);
   #define Turn_right(t) OnFrd(OUT_A);OnRev(OUT_C);Wait(t);Off(OUT_A+OUT_C);
   #define Turn_left(t) OnFwd(OUT_C);OnRev(OUT_A);Wait(t);Off(OUT_A+OUT_C);
   #define U_turn OnFwd(OUT_A);OnRev(OUT_C);Wait(200);Off(OUT_A+OUT_C);
   #define Pen_up OnRev(OUT_B);Wait(15);Off(OUT_B);
   #define Pen_down OnFwd(OUT_B);Wait(15);Off(OUT_B);
   #define Stop_Time 20
   


   task main()
   {
   SetPower(OUT_A+OUT_C,4);
   OnFwd(OUT_A);  /*Outline of face*/
   OnRev(OUT_C);
   Wait(400);
   Off(OUT_A+OUT_C);
   Wait(Stop_Time);
    repeat(2) /*Eyebrow*/
     {
      Pen_up;
      Go_back(30);
      Pen_down;
      Go_back(30)
     }
   Pen_up; /*Eye*/
   Go_straight(55);
   Turn_left;
   Pen_down;/*Right eye*/
   Go_straight(20);
   Pen_up;
   Go_back(20);
   Turn_right;
   Go_straight(30);
   Turn_left;
   Pen_down; /*Left eye*/
   Go_straight(20);
   Pen_up;
   Go_straight(20);
   Turn_left;
   Go_straight(35); /*Mouth*/
   Off(OUT_A+OUT_B+OUT_C);
   

   
   
   
   
   
   }
*工夫した点 [#ue3d52f4]
ただいまハードウェア作成中！！
*失敗した点 [#oaf7aceb]
タイヤが前輪後輪とも大きく、摩擦によって、回転がうまくいかない。
ただいま改良中。
*その他 [#w558af0f]
2008a/A8/課題１右 の履歴ソース(No.3)
