2004/B6/ハート型を描くロボット の履歴の現在との差分(No.3)

• 履歴一覧
• 差分 を表示
• ソース を表示
• 2004/B6/ハート型を描くロボット へ行く。
  • 1 (2004-12-17 (金) 08:30:44)
  • 2 (2004-12-17 (金) 08:38:05)
  • 3 (2005-01-28 (金) 08:02:25)

• 追加された行はこの色です。
• 削除された行はこの色です。

[[2004/B6/33班]]

ハート型を描くロボット

----

 task main()
 {
 OnFwd(OUT_A+OUT_C);
 Wait(150);
 Off(OUT_A+OUT_C);
 OnFwd(OUT_A);
 Wait(310);
 Off(OUT_A);
 OnFwd(OUT_A+OUT_C);
 Wait(25);
 Off(OUT_A+OUT_C);
 OnFwd(OUT_C);
 OnRev(OUT_A);
 Wait(70);       /*回転 ハートのへこんでるところ*/
 Off(OUT_A+OUT_C);
 OnFwd(OUT_A+OUT_C);
 Wait(25);
 Off(OUT_A+OUT_C);
 OnFwd(OUT_A);
 Wait(310);
 Off(OUT_A);
 OnFwd(OUT_A+OUT_C);
 Wait(140);
 Off(OUT_A+OUT_C);
  OnFwd(OUT_A+OUT_C); /*まっすぐ進む*/
  Wait(150);
  Off(OUT_A+OUT_C);
  OnFwd(OUT_A); /*外輪だけ回してハートの曲線を描く*/
  Wait(310);
  Off(OUT_A);
  OnFwd(OUT_A+OUT_C);
  Wait(25);
  Off(OUT_A+OUT_C);
  OnFwd(OUT_C);
  OnRev(OUT_A); /*回転 ハートのへこんでるところ*/
  Wait(70);
  Off(OUT_A+OUT_C);
  OnFwd(OUT_A+OUT_C);
  Wait(25);
  Off(OUT_A+OUT_C);
  OnFwd(OUT_A); /*ここでも外輪だけ回す*/
  Wait(310);
  Off(OUT_A);
  OnFwd(OUT_A+OUT_C);
  Wait(140);
  Off(OUT_A+OUT_C);
 }

----