2006a/C3/課題1左

 sub pen_up()         //ペンを上げる
{
  OnFwd(OUT_B);
  Wait(15);
  Off(OUT_B);    
}
sub  pen_down()        //ペンを下げる
{
  OnRev(OUT_B);
  Wait(20);
  Off(OUT_B);
} 
void go_fwd(int t)       //t秒間前に進む
{
  OnFwd(OUT_A+OUT_C);Wait(t);
  Off(OUT_A+OUT_C);
}
void go_rev(int t)      //t秒間後進する
{
  OnRev(OUT_A+OUT_C);Wait(t);
  Off(OUT_A+OUT_C);
}
void turn_left(int t)     //左に曲がる
{
  OnFwd(OUT_C);Wait(t);
  OnRev(OUT_A);Wait(t);
  Off(OUT_A+OUT_C);
}
task main()
{
  pen_down();
   go_fwd(130);          //一画目縦線
   pen_up();             
  go_rev(87);
  turn_left(30);     //方向転換
  go_fwd(70);
  pen_down();
   go_rev(20);       //一画目はね
   pen_up();
  go_rev(170);
  turn_left(35);         //方向転換
  go_fwd(90);
  pen_down();
   go_fwd(35);       //二画目横線 
   pen_up();       
  go_rev(90);
  turn_left(45);         //方向転換
  go_fwd(67);
  pen_down();
   go_rev(60);      //二画目斜線
   pen_up();
  go_rev(10);                       
  turn_right(35);    //方向転換
  go_fwd(75); 
  turn_left(10);     
  go_fwd(35);   
  pen_down();
   go_rev(40);      //三画目
   pen_up();    
  go_rev(94);
  turn_right(50);    //方向転換
  go_fwd(65);
  pen_down();
   go_fwd(75);      //四画目
   pen_up();  
}

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-05-25 (木) 19:58:35 (4834d)