「井」の字sub使用バージョンです

勉強ノート1−2

sub DOWN()      筆を下ろします
{
 OnFwd(OUT_B);
  Wait(40);
   Off(OUT_B);
    Wait(50);
}

sub RISE()      筆を上げます
{
 OnRev(OUT_B);
  Wait(40);
   Off(OUT_B);
    Wait(50);
}

sub FIRST()      1,3画目です
{           縦と横の「FIRST」です
 OnFwd(OUT_A+OUT_C);
  Wait(100);
   Off(OUT_C+OUT_A);
    Wait(50);
}

sub SECOND()      2,4画目です
{           理由は同じです
 OnFwd(OUT_A+OUT_C);
  Wait(135);
   Off(OUT_A+OUT_C);
    Wait(50);
}

task main()
{
sub DOWN();      1画目です

sub FIRST();

sub RISE();

 OnRev(0UT_A);     左回転します
  OnFwd(OUT_C);
   Wait(20);
    OnRev(OUT_C);     バックします
     Wait(130);
      OnFwd(OUT_A);     右回転します
       Wait(20);
        Off(OUT_A+OUT_C);
         Wait(50);

sub DOWN();      2画目です

sub SECOND();

sub RISE();


 OnRev(OUT_A+OUT_C);  バックします
  Wait(140);
   OnFwd(OUT_A);     90度回転します
    Wait(82);
     Off(OUT_A+OUT_C);
      Wait(50);

sub DOWN();      3画目です

sub FIRST();

sub RISE();

 OnFwd(OUT_A);     1画目-2画目間とは左右逆の動きです
  OnRev(OUT_C);
   Wait(20);
    OnRev(OUT_A);
     Wait(130);
      OnFwd(OUT_C);
       Wait(20);
        Off(OUT_A+OUT_C);
         Wait(50);

sub DOWN();      4画目です

sub SECOND();

sub RISE();
}

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-12-08 (金) 16:19:26