$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 (;;) {
$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 $!;