[[2006b/A6/R Room/あおっページ]]
#contents
*プログラム「弘」[#p6773482]

ペンの上げ下げの定義
#define pen_down OnRev(OUT_A);Wait(80);Off(OUT_A);
#define pen_up OnFwd(OUT_A);Wait(80);Off(OUT_A);


 task main()
 {
  pen_down;
  OnFwd(OUT_B+OUT_C);
  Wait(75);
  OnRev(OUT_C);
  Wait(88);
  OnFwd(OUT_C);
  Wait(75);
    Off(OUT_B+OUT_C);
  pen_up;
  Wait(50);          
  
  OnFwd(OUT_C);
  OnRev(OUT_B);
  Wait(100);
  OnRev(OUT_C);
  Wait(75);
  Off(OUT_B+OUT_C);
  Wait(30);
  
  pen_down;
  OnFwd(OUT_B+OUT_C);
  Wait(75);
  Off(OUT_B+OUT_C);
  Wait(30);
  pen_up;
  
  OnRev(OUT_B+OUT_C);
  Wait(75);
  OnFwd(OUT_B);
  Wait(10);
  
  pen_down;
  OnFwd(OUT_B+OUT_C);
  Wait(75);
  OnRev(OUT_B);
  Wait(88);
  OnFwd(OUT_B);
  Wait(75);
  OnRev(OUT_C);
  Wait(88);
  OnFwd(OUT_C);
  Wait(75);
  OnRev(OUT_C);
  Wait(88);
  OnFwd(OUT_C);
  Wait(40);
  Off(OUT_B+OUT_C);
  Wait(50);
  pen_up;
   
  OnRev(OUT_B+OUT_C);
  Wait(80);
  OnFwd(OUT_C);
  Wait(63);
  OnRev(OUT_C);
  Wait(120);
  Off(OUT_B+OUT_C);
  Wait(50);
  
  pen_down;
  OnFwd(OUT_B+OUT_C);
  Wait(120);
  OnRev(OUT_B);
  Wait(88);
  OnFwd(OUT_B);
  Wait(130);
  Off(OUT_B+OUT_C);
  pen_up;
  
  OnFwd(OUT_B);
  OnRev(OUT_C);
  Wait(87);
  OnRev(OUT_B);
  Wait(40);
  
  pen_down;
  OnFwd(OUT_B);
  Wait(80);
  Off(OUT_B+OUT_C);
  pen_up;
 }

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