[[2006b/A6/L Room]]
#contents
*プログラム [#ic65d202]

+書道ロボット
 /*Write a "NAKA"*/
 sub pen_down(){
     OnRev(OUT_B);
     Wait(20);
     Float(OUT_B);
     }  
 sub pen_up(){
     OnFwd(OUT_B);
     Wait(20);
     Float(OUT_B);
     }
 task main(){
     pen_down(); /*Pen move down*/   
     OnFwd(OUT_A+OUT_C); /*First write*/
     Wait(70);    
     pen_up(); /*Pen move up*/
     Float(OUT_A+OUT_C);
     Wait(30);
     OnRev(OUT_A+OUT_C);  /*Go to Next place*/
     Wait(75);
     OnFwd(OUT_C); /*90 Turn*/
     Wait(95);
     OnRev(OUT_C);
     Wait(60);
    
     pen_down(); /*Pen move down*/
     OnFwd(OUT_A+OUT_C); /*Second write*/
     Wait(150);
     Off(OUT_A+OUT_C);    
     pen_up(); /*Pen move up*/
     Wait(10);
     OnFwd(OUT_A+OUT_C);
     Wait(85);
     OnRev(OUT_C);  /*90 Turn*/
     Wait(95);
     OnRev(OUT_A+OUT_C);
     Wait(15);
     pen_down(); /*Pen move down*/ 
     OnFwd(OUT_A+OUT_C);
     Wait(70);    
     pen_up();/*Pen move up*/
     Float(OUT_A+OUT_C);
     Wait(30);
    
     OnFwd(OUT_A+OUT_C);  /*Go to Next place*/
     Wait(65);
     OnRev(OUT_C); /*90 Turn*/
     Wait(98);
     OnRev(OUT_A+OUT_C);
     Wait(15);
    
     pen_down(); /*Pen move down*/
     OnFwd(OUT_A+OUT_C); /*Third write*/
     Wait(150);    
     pen_up(); /*Pen move up*/
     Float(OUT_A+OUT_C);
     Wait(30);
     
     OnRev(OUT_A+OUT_C); /*Go to Next place*/
     Wait(70);
     OnFwd(OUT_C); /*90 Turn*/
     Wait(97);
     OnRev(OUT_C);
     Wait(185);
    
     pen_down(); /*Pen move down*/
     OnFwd(OUT_A+OUT_C); /*Last write*/
     Wait(200);    
     pen_up(); /*Pen move up*/
     Float(OUT_A+OUT_B+OUT_C);/*Stop ALL*/
     }


トップ   編集 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS