2005/C2/どみ/課題１ の履歴ソース(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 2005/C2/どみ/課題１ へ行く。
  • 1 (2005-11-11 (金) 09:43:50)
  • 2 (2005-11-11 (金) 10:12:08)
  • 3 (2005-11-11 (金) 13:56:52)
  • 4 (2005-11-21 (月) 06:00:45)
  • 5 (2005-11-25 (金) 10:32:34)

[[2005/C2/どみ]]
*文字を書くロボット [#mefc2a60]

 #define TURN_TIME 148/90°曲がる時間

 sub go_fwd() {/前に進む
 	OnFwd(OUT_A+OUT_C);
 }

 sub go_rev() {
 	OnRev(OUT_A+OUT_C);
 }

 sub turn_right() {
 	OnFwd(OUT_A);
 	OnRev(OUT_C);
 }

sub turn_left() {
	OnFwd(OUT_C);
	OnRev(OUT_A);
	}

sub stop_ac() {
	Off(OUT_A+OUT_C);
	Wait(50);
}

sub pen_down() {
	OnFwd(OUT_B);
	Wait(18);
	Off(OUT_B);
	Wait(50);
}

sub pen_up() {
	OnRev(OUT_B);
	Wait(10);
	Off(OUT_B);
	Wait(50);
}

task main() {
//1
	pen_down();
	OnFwd(OUT_A);
	Wait(120);
	stop_ac();
	pen_up();

	go_fwd();
	Wait(40);
	stop_ac();
	turn_left();
	Wait(140);
	stop_ac();
	go_rev();
	Wait(80);
	stop_ac();
//2
	pen_down();
	go_fwd();
	Wait(100);
	stop_ac();
	pen_up();

	turn_right();
	Wait(TURN_TIME);
	stop_ac();
	go_rev();
	Wait(60);
	stop_ac();
//3
	pen_down();
	go_fwd();
	Wait(45);
	stop_ac();
	pen_up();

	go_fwd();
	Wait(25);
	stop_ac();
	turn_left();
	Wait(TURN_TIME);
	stop_ac();
	go_rev();
	Wait(75);
	stop_ac();
//4-1
	pen_down();
	go_fwd();
	Wait(55);
	stop_ac();
	pen_up();

	go_fwd();
	Wait(75);
	stop_ac();
	turn_right();
	Wait(TURN_TIME);
	stop_ac();
	go_rev();
	Wait(75);
	stop_ac();
//4-2
	pen_down();
	go_fwd();
	Wait(45);
	stop_ac();
	pen_up();

	go_fwd();
	Wait(70);
	stop_ac();
	turn_right();
	Wait(TURN_TIME);
	stop_ac();
	go_rev();
	Wait(20);
	stop_ac();
//5
	pen_down();
	go_rev();
	Wait(55);
	stop_ac();
	pen_up();
}