[[2017a/Member]]

#contents

 #define pen_down OnFwd(OUT_A,25);Wait(180);Off(OUT_A);//ペンを下げる
 #define pen_up OnFwd(OUT_A,-25);Wait(220);Off(OUT_A);//ペンを上げる

 sub ONE()//1画目
 {
   pen_down;
   OnFwd(OUT_C,-25);
   Wait(1240);
   Off(OUT_C);
   pen_up;
 }
 sub TWO()//2画目
 {
   OnFwd(OUT_C,25);
   Wait(1240);
   Off(OUT_C);
   pen_down;
   OnFwd(OUT_B,-35);
   Wait(800);
   Off(OUT_B);
   OnFwd(OUT_C,-25);
   Wait(1240);
   Off(OUT_C);
   pen_up;
  } 
 sub THREE()//3画目
 {
   OnFwd(OUT_C,25);
   Wait(600);
   Off(OUT_C);
   OnFwd(OUT_B,35);
   Wait(800);
   Off(OUT_B);
   pen_down;
   OnFwd(OUT_B,-35);
   Wait(800);
   Off(OUT_B);
   OnFwd(OUT_B,-35);
   pen_up;
 }
 sub FOUR()//4画目
 {
   OnFwd(OUT_B,35);
   Wait(950);
   Off(OUT_B);
   OnFwd(OUT_C,-25);
   Wait(650);
   Off(OUT_C);
   pen_down;
   OnFwd(OUT_B,-35);
   Wait(800);
   Off(OUT_B);
   pen_up;
 } 
 task main ()//メイン
 {
   ONE();
   TWO();
   THREE();
   FOUR();
 }

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