2005/C2/2回目
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
[[2005/C2/あんず]]
sub up_pen() //ペン上げ
{
OnFwd(OUT_B);
Wait(50);
Off(OUT_A+OUT_B+OUT_C);
Wait(200);
}
task main()
{
OnFwd(OUT_A+OUT_C); //1画目
Wait(100);
up_pen();
OnRev(OUT_A);
Wait(130);
OnRev(OUT_B); //ペン下げ
OnRev(OUT_A+OUT_C); //2画目
Wait(150);
up_pen();
OnFwd(OUT_A+OUT_C);
Wait(200);
OnRev(OUT_A);
Wait(108);
OnRev(OUT_A+OUT_C);
Wait(75);
OnRev(OUT_B); //ペン下げ
OnRev(OUT_A+OUT_C); //3画目
Wait(90);
up_pen();
OnFwd(OUT_A+OUT_C);
Wait(180);
OnRev(OUT_A);
Wait(85);
OnRev(OUT_A+OUT_C);
Wait(85);
OnFwd(OUT_A+OUT_C); //4画目
OnRev(OUT_B); //ペン下げ
Wait(55);
up_pen();
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(90);
OnRev(OUT_A+OUT_C);
Wait(15);
OnRev(OUT_B); //ペン下げ
OnRev(OUT_A+OUT_C); //5画目
Wait(120);
Off(OUT_A+OUT_B+OUT_C);
}
終了行:
[[2005/C2/あんず]]
sub up_pen() //ペン上げ
{
OnFwd(OUT_B);
Wait(50);
Off(OUT_A+OUT_B+OUT_C);
Wait(200);
}
task main()
{
OnFwd(OUT_A+OUT_C); //1画目
Wait(100);
up_pen();
OnRev(OUT_A);
Wait(130);
OnRev(OUT_B); //ペン下げ
OnRev(OUT_A+OUT_C); //2画目
Wait(150);
up_pen();
OnFwd(OUT_A+OUT_C);
Wait(200);
OnRev(OUT_A);
Wait(108);
OnRev(OUT_A+OUT_C);
Wait(75);
OnRev(OUT_B); //ペン下げ
OnRev(OUT_A+OUT_C); //3画目
Wait(90);
up_pen();
OnFwd(OUT_A+OUT_C);
Wait(180);
OnRev(OUT_A);
Wait(85);
OnRev(OUT_A+OUT_C);
Wait(85);
OnFwd(OUT_A+OUT_C); //4画目
OnRev(OUT_B); //ペン下げ
Wait(55);
up_pen();
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(90);
OnRev(OUT_A+OUT_C);
Wait(15);
OnRev(OUT_B); //ペン下げ
OnRev(OUT_A+OUT_C); //5画目
Wait(120);
Off(OUT_A+OUT_B+OUT_C);
}
ページ名: