chiark / gitweb /
fractional overlay-info locations
authorian <ian>
Sun, 1 Jun 2008 21:28:56 +0000 (21:28 +0000)
committerian <ian>
Sun, 1 Jun 2008 21:28:56 +0000 (21:28 +0000)
layout/genoverlayinfo

index d3779fd53401b5249054e8ba491c6a86cc6dbdf4..f5b922dc9e778f9048eb97e34a00cfe467bf740c 100755 (executable)
@@ -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 (<U>) {
     $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 $!;