[[2006a/A4/課題左]]

+『水』という字を書くプログラム
 
#define pen_down OnRev(OUT_B);Wait(25);Off(OUT_B);Wait(20);
#define pen_up OnFwd(OUT_B);Wait(25);Off(OUT_B);Wait(20);

void mv_F(int t)// 63=10cm
{
  OnFwd(OUT_A+OUT_C);
  Wait(t);
  Off(OUT_A+OUT_C);
  Wait(30);
}

void mv_R(int t)// 63=10cm
{
  OnRev(OUT_A+OUT_C);
  Wait(t);
  Off(OUT_A+OUT_C);
  Wait(30);
}

void turn_R(int t)// 245=360
{
  OnRev(OUT_A);
  OnFwd(OUT_C);
  Wait(t);
  Off(OUT_A+OUT_C);
  Wait(30);

}

void turn_L(int t)// 245=360
{
  OnRev(OUT_C);
  OnFwd(OUT_A);
  Wait(t);
  Off(OUT_A+OUT_C);
  Wait(30);

} 



 task main()
{
Wait(100);

/* 1 */
pen_down;
 
mv_F(40);
 
  OnRev(OUT_A);
  Wait(16);
  Off(OUT_A);
  Wait(20);
 
pen_up;
 
 OnFwd(OUT_A);
 Wait(16);
 Off(OUT_A);
 
 /* 2 */
mv_R(11);
 
turn_R(62);// 245=360

mv_F(8);
  
pen_down;
  
mv_R(20);

  OnFwd(OUT_A);
  Wait(45);
  Off(OUT_A);
  Wait(20);
  
pen_up;

  OnRev(OUT_A);
  Wait(45);
  Off(OUT_A);
  Wait(30);

mv_R(5);

turn_L(30);

mv_R(23);

turn_R(7);

pen_down;  
mv_F(22);
pen_up;

mv_F(13);

turn_R(47);

mv_R(19);

pen_down;

mv_R(23);

pen_up;


}


トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS