- 追加された行はこの色です。
- 削除された行はこの色です。
文字「左」
sub Pen_Down()
{OnFwd(OUT_B);Float(OUT_B);Wait(50);}
sub Pen_Up()
{OnRev(OUT_B);}
void Right_Turn(int t)
{OnFwd(OUT_A);OnRev(OUT_C);Wait(t);}
void Left_Turn(int t)
{OnFwd(OUT_C);OnRev(OUT_A);Wait(t);}
void Back(int t)
{OnRev(OUT_A+OUT_C);Wait(t);}
void Go(int t)
{OnFwd(OUT_A+OUT_C);Wait(t);}
sub Stop()
{Off(OUT_A+OUT_C);Wait(50);}
task main()
{
Pen_Down();Wait(20); // The first straight
Go(120);Pen_Up();Stop();
Back(85);Left_Turn(20); //Shift to the second curve
Stop();Pen_Down();Wait(50);Right_Turn(70); //The second curve
Pen_Up();Go(50);Left_Turn(50);Back(45);Stop(); //Shift to the third straight
Pen_Down();Go(60);Stop();Pen_Up(); //The third straight
Go(80);Left_Turn(85);Back(124);Stop(); //Shift to the fourth straight
Pen_Down();Back(50);Stop(); //The fourth straight
Pen_Up();Go(100);Left_Turn(85);Back(75);Stop(); //Shift to the fifth straight
Pen_Down();Back(80);Stop();Pen_Up();Right_Turn(85);Back(50);
Off(OUT_A+OUT_B+OUT_C);
}