[[2006a/C3/課題1左]]

 #define MOVE_TIME 20         //ペンを上げ下げする時間
 sub pen_up()         //ペンを上げる
  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