2006a/C3/課題１左

 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