文字「左」
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);
}


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