Date: | 2014-02-02 06:33:42 (10 years 1 month ago) |
---|---|
Author: | Werner Almesberger |
Commit: | 453f64e4fe4e3ea491194047453042b6d1fd9c38 |
Message: | cameo/fped2d2z.pl: hack: maintain decimal point across flipping |
Files: |
cameo/fped2d2z.pl (1 diff) |
Change Details
cameo/fped2d2z.pl | ||
---|---|---|
74 | 74 | undef $t; |
75 | 75 | for $s (split(/\n/, $z{$z})) { |
76 | 76 | if ($s =~ /^(-?[0-9]*\.[0-9]*)\s+(-?[0-9]*\.[0-9]*)/) { |
77 | $s = (($xmax+$xmin)/2-$1)." $2" if $flip_y; | |
77 | $s = sprintf("%.6f", ($xmax+$xmin)/2-$1)." $2" | |
78 | if $flip_y; | |
78 | 79 | |
79 | 80 | # re-scan, so that we can flip on both axes |
80 | 81 | die unless $s =~ |
Branches:
master