#!/mit/watchmaker/@sys/perl

sleep(2);

$| = 1;

while (1) {
	for ($x=0;$x<=10;$x+=0.5) {
		$y = -0.4*$x*$x+4*$x;
		$t = $y*2;
		print "$x $y -$t $t 0\n";
		select(0,0,0,0.1);
	}
	for ($x=10;$x>=0;$x-=0.5) {
		$y = -0.4*$x*$x+4*$x;
		$t = $y*2;
		print "$x $y -$t $t 0\n";
		select(0,0,0,0.1);
	}
}
