- 追加された行はこの色です。
- 削除された行はこの色です。
*作業用。 [#vdd4b121]
どちらのプログラムかわかるように印とかつけとくことー
#br
#br
#br
いちおう打ってみました。
鉛筆を車体の中央に持ってくることは可能でしょうか?
すごいことにちょっと気づいてしまったのですが……
円の方がうまくいきそうです。。。
#br
定義がきちんとできているのかとかがとても心配です。正直なところ。
#define TURN_T 54 //time for faceturn
#define turn_l OnRev(OUT_A);OnFwd(OUT_C);Wait(81);Off(OUT_A+OUT_C); //turn
#defrine turn_r OnFwd(OUT_A);OnRev(OUT_C);Wait(108);Off(OUT_A+OUT_C);
sub hair()
{
OnFwd(OUT_A+OUT_C);
Wait(35);
Off(OUT_A+OUT_C);
OnRev(OUT_A);OnFwd(OUT_C);
Wait(108);
Off(OUT_A+OUT_C);
OnFwd(OUT_A+OUT_C);
Wait(35);
Off(OUT_A+OUT_C);
}
sub turn() //sub for turn
{
OnRev(OUT_A); OnFwd(OUT_C);
Wait(TURN_T);
Off(OUT_A+OUT_C);
}
sub go() //sub for face
{
OnFwd(OUT_A+OUT_C);
Wait(30);
Off(OUT_A+OUT_C);
}
task main()
{
OnFwd(OUT_A+OUT_C); Wait(10); Off(OUT_A+OUT_C); //eye
turn_l;
//for face start
go();
turn();
go();
turn();
go();
turn(); // faceline end
turn_l;
OnFwd(OUT_A+OUT_C); Wait(10); Off(OUT_A+OUT_C); //eye go
OnRev(OUT_A+OUT_C); Wait(10); Off(OUT_A+OUT_C); //eye back
OnFwd(OUT_A); OnRev(OUT_C); Wait(54); Off(OUT_A+OUT_C); //turn
OnFwd(OUT_A+OUT_C);Wait(5);Off(OUT_A+OUT_C); //forehead
hair();
turn_r;
hair();
turn_r:
hair();
OnFwd(OUT_A); OnRev(OUT_C); Wait(54); Off(OUT_A+OUT_C); //turn
OnFwd(OUT_A+OUT_C);Wait(5);Off(OUT_A+OUT_C); //forehead
}
[[2008b/A4/left]]