sub pen_up()
 {
  OnRev(OUT_B);
 }
 sub pen_down()
 {
  Off(OUT_AC);
  Wait(50);
  Off(OUT_B);
  Wait(100);
 }

 task main()
 {
  OnFwd(OUT_C);     //1画目
  Wait(53);
  Off(OUT_C);
  Wait(52);
  pen_up();         //移動
  OnFwd(OUT_A);
  Wait(9);
  Off(OUT_A);
  OnRev(OUT_C);
  Wait(43);
  pen_down();

  OnRev(OUT_A);     //2画目
  Wait(14);
  pen_up();         //移動
  OnFwd(OUT_A);
  Wait(18);
  Off(OUT_A);
  OnFwd(OUT_C);
  Wait(40);
  pen_down();

  OnRev(OUT_A);     //3画目
  Wait(14);
  Off(OUT_A);
  pen_up();         //移動
  OnRev(OUT_C);
  Wait(22);
  pen_down();
  
  OnRev(OUT_A);     //4画目
  Wait(11);
  Off(OUT_A);
  Wait(50);
  pen_up();         //移動
  OnRev(OUT_C);
  Wait(30);
  pen_down();

  OnFwd(OUT_C);     //口部分
  Wait(44);
  Off(OUT_C);
  Wait(50);
  OnRev(OUT_A);
  Wait(20);
  Off(OUT_A);
  Wait(50);
  OnRev(OUT_C);
  Wait(44);
  Off(OUT_C);
  Wait(50);
  OnFwd(OUT_A);
  Wait(16);
  Off(OUT_A);
  Wait(50);
  pen_up();          //移動
  OnFwd(OUT_A);
  Wait(10);
  Off(OUT_A);
  OnRev(OUT_C);
  Wait(10);
  pen_down();
  
  OnFwd(OUT_C);      //画目
  Wait(49);
  Off(OUT_ABC);
  }[[2017a/Member]]

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