From: ian Date: Sun, 1 Jun 2008 21:28:56 +0000 (+0000) Subject: fractional overlay-info locations X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=de87ab0c13ae5028728cbb3234d842956d3abc26;p=trains.git fractional overlay-info locations --- diff --git a/layout/genoverlayinfo b/layout/genoverlayinfo index d3779fd..f5b922d 100755 --- a/layout/genoverlayinfo +++ b/layout/genoverlayinfo @@ -24,7 +24,7 @@ for ($i=0; $i<4; $i++) { $matrix[1] *= -1; $matrix[2] *= -1; -print STDERR join("\n",@matrix),"\n"; +print STDERR "matrix: ",join(" ",map { $_+0 } @matrix),"\n"; open C, $plandatac or die $!; for (;;) { @@ -57,7 +57,7 @@ while () { $x -= $crop_x; $y -= $crop_y; - printf "%s %d %d\n", $lhs, $x, $y or die $!; + printf "%s %f %f\n", $lhs, $x, $y or die $!; } U->error and die $!; close U or die $!;