2005/C4/あすか の履歴差分(No.1)

• 履歴一覧
• 現在との差分 を表示
• ソース を表示
• 2005/C4/あすか へ行く。
  • 1 (2005-11-11 (金) 10:45:58)
  • 2 (2005-11-25 (金) 11:14:33)
  • 3 (2005-11-28 (月) 14:16:23)
  • 4 (2006-02-03 (金) 10:57:09)
  • 5 (2006-02-06 (月) 06:04:10)

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

[[2005/C4]]

int penstat=0;
task main()
{
	penon();
	OnRev(OUT_A+OUT_B);
	Wait(300);
	penoff();
	Off(OUT_A);
	Wait(10);
	OnFwd(OUT_A+OUT_B);
	Wait(10);
	Off(OUT_A);
	Wait(10);
	penon();
	OnFwd(OUT_A);
	Wait(300);
	penoff();
	OnRev(OUT_A+OUT_B);
	Wait(100);
	Off(OUT_A+OUT_B);
	OnFwd(OUT_A);
	penon();
	OnFwd(OUT_B);
	Wait(100);
	penoff();
	OnRev(OUT_A+OUT_B);
	Wait(50);
	Off(OUT_A);
	Wait(80);
	penon();
	OnFwd(OUT_B);
	Wait(50);
	penoff();
	OnRev(OUT_B);
	Wait(80);
	OnRev(OUT_A);
	Wait(80);
	penon();
	OnFwd(OUT_A);
	Wait(100);
	penoff();
	Off(OUT_A+OUT_B);
}
sub penon(){
        if(penstat!=1){
                //Write
                SetPower(OUT_C,3);
                OnFwd(OUT_C);
                Wait(20);
                Float(OUT_C);
                penstat=1;
                Wait(50);
        }
}

sub penoff(){
        if(penstat!=0){
                //Dont Write
                SetPower(OUT_C,4);
                OnRev(OUT_C);
                Wait(10);
                Float(OUT_C);
                penstat=0;
                Wait(50);
        }
}