『斗』という漢字を書くプログラム †  task main ()

{int x;
x=140;
repeat (2)
{
//GO  WRITING
OnFwd (OUT_A);
OnRev (OUT_C);
Wait (20);
Off (OUT_A+OUT_C);
//PEN UP
OnRev (OUT_B);
Wait (20);
Off (OUT_B);
//TURN
OnRev (OUT_A+OUT_C);
Wait (140);
//GO
OnFwd (OUT_A);
OnRev (OUT_C);
Wait (39);
Off (OUT_A+OUT_C);
//TURN
OnFwd (OUT_A+OUT_C);
Wait (x);
Off (OUT_A+OUT_C);  
x=215;
//PEN DOWN
OnFwd (OUT_B);
Wait (20);
Off (OUT_B);
} //REPEAT FINISH
//GO  WRITING
OnFwd (OUT_A);
OnRev (OUT_C);
Wait (126);
Off (OUT_A+OUT_C);
//PEN UP
OnRev (OUT_B);
Wait (20);
Off (OUT_B);
//TURN
OnFwd (OUT_A+OUT_C);
Wait (196);
Off (OUT_A+OUT_C);
//GO
OnFwd (OUT_A);
OnRev (OUT_C);
Wait (127);
Off (OUT_A+OUT_C);
//TURN
OnFwd (OUT_A+OUT_C);
Wait (300);
Off (OUT_A+OUT_C);  
//PEN DOWN
OnFwd (OUT_B);
Wait (20);
Off (OUT_B);
//GO  WRITING
OnFwd (OUT_A);
OnRev (OUT_C);
Wait (169);
Off (OUT_A+OUT_C);
}

                       

Last-modified: Fri, 04 Nov 2*四角形をつくるプログラム [#wf8a177b] 2005/C6

task main()
{
   OnRev(OUT_B);
   Wait(30);
   Off(OUT_B); 
   OnFwd(OUT_A);
   OnRev(OUT_C);
   Wait(150);
   Off(OUT_A+OUT_C);
   OnFwd(OUT_B);
   Wait(70);
   Off(OUT_B);
   OnFwd(OUT_A);
   OnRev(OUT_C);
   Wait(130);
   Off(OUT_A+OUT_C);
   OnFwd(OUT_A);
   Wait(80);
   Off(OUT_A);
   OnFwd(OUT_C);
   Wait(410);
   Off(OUT_A+OUT_C);
   OnRev(OUT_A);
   OnFwd(OUT_C);
   Wait(30);
   Off(OUT_A+OUT_C);
   OnRev(OUT_B);
   Wait(30);
   Off(OUT_B);
   OnFwd(OUT_A);
   OnRev(OUT_C);
   Wait(230);
   Off(OUT_A+OUT_C);
   OnFwd(OUT_B);
   Wait(50);
   Off(OUT_B);
   OnRev(OUT_A);
   OnFwd(OUT_C);
   Wait(100);
   Off(OUT_A+OUT_C);
   OnRev(OUT_A+OUT_C);
   Wait(160);
   Off(OUT_A+OUT_C);
   OnRev(OUT_A);
   OnFwd(OUT_C);
   Wait(50);
   Off(OUT_A+OUT_C);
   OnFwd(OUT_A);
   OnRev(OUT_C);
   Wait(100);
   Off(OUT_A+OUT_C);
   OnRev(OUT_B);
   Wait(30);
   Off(OUT_B);
   OnFwd(OUT_A);
   OnRev(OUT_C);
   Wait(80);
   Off(OUT_A+OUT_C);
   OnFwd(OUT_B);
   Wait(50);
   Off(OUT_B);
   OnRev(OUT_A);
   OnFwd(OUT_C);
   Wait(80);
   Off(OUT_A+OUT_C);  
   OnFwd(OUT_A+OUT_C);
   Wait(160);
   Off(OUT_A+OUT_C);
   OnRev(OUT_B);
   Wait(30);
   Off(OUT_B);
   OnFwd(OUT_A);
   OnRev(OUT_C);
   Wait(80);
   Off(OUT_A+OUT_C);
   OnFwd(OUT_B);
   Wait(50);
   Off(OUT_B);
   OnRev(OUT_A+OUT_C);
   Wait(160);
   Off(OUT_A+OUT_C);
   OnRev(OUT_B);
   Wait(30);
   Off(OUT_B);
   OnFwd(OUT_A);
   OnRev(OUT_C);
   Wait(80);
   Off(OUT_A+OUT_C);
   OnFwd(OUT_B);
   Wait(50);
   Off(OUT_B);
   OnFwd(OUT_A+OUT_C);
   Wait(160);
   Off(OUT_A+OUT_C);
   OnRev(OUT_A);
   OnFwd(OUT_C);
   Wait(100);
   Off(OUT_A+OUT_B);
   OnRev(OUT_B);
   Wait(30);
   Off(OUT_B);
   OnFwd(OUT_A);
   OnRev(OUT_C);
   Wait(80);
   Off(OUT_A+OUT_C);
   OnFwd(OUT_B);
   Wait(50);
   Off(OUT_B);
}

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-11-11 (金) 18:40:36