diff options
author | etienne | 2003-10-02 08:42:31 +0000 |
---|---|---|
committer | etienne | 2003-10-02 08:42:31 +0000 |
commit | b3baa229947509b92a4d56669cfdceb54d7a7011 (patch) | |
tree | 91a5bca96e34a8749f52a6f6d707e4e8ef6d920e | |
parent | 50bb935e3978499146deaa612ec93a4675d18efa (diff) | |
download | tkzinc-b3baa229947509b92a4d56669cfdceb54d7a7011.zip tkzinc-b3baa229947509b92a4d56669cfdceb54d7a7011.tar.gz tkzinc-b3baa229947509b92a4d56669cfdceb54d7a7011.tar.bz2 tkzinc-b3baa229947509b92a4d56669cfdceb54d7a7011.tar.xz |
Fixed a bug in device coordinates when a non group item has a transformation.
-rw-r--r-- | Perl/Zinc/Debug.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm index 207f5b6..271dcd3 100644 --- a/Perl/Zinc/Debug.pm +++ b/Perl/Zinc/Debug.pm @@ -1075,7 +1075,7 @@ sub showcoords { ## The first item of the list is not a reference, so the ## list is guarranted to be a flat list (x, y, ...) ## normaly of only one pair of (x y) - @coords = $zinc->transform(scalar $zinc->group($item), 1, [@coords]) + @coords = $zinc->transform($item, 1, [@coords]) if $deviceflag; for (my $j=0; $j < @coords; $j += 2) { push(@{$contour[$i]}, [$coords[$j], $coords[$j+1]]); @@ -1086,7 +1086,7 @@ sub showcoords { ## other elements of the list for (my $j=0; $j < @coords; $j ++) { my @c = @{$coords[$j]}; - @c = $zinc->transform(scalar $zinc->group($item), 1, [@c]) + @c = $zinc->transform($item, 1, [@c]) if $deviceflag; push(@{$contour[$i]}, [@c]); } @@ -1229,7 +1229,7 @@ sub showgroupattributes { # device coords $fm->Label(-text => 'Device coords', -relief => 'ridge') ->grid(-row => $r, -col => 1, -ipady => 10, -ipadx => 5, -sticky => 'nswe'); - @coords = $zinc->transform(scalar $zinc->group($item), 1, [@coords]); + @coords = $zinc->transform($item, 1, [@coords]); if (@coords == 2) { my $x0 = int($coords[0]); my $y0 = int($coords[1]); @@ -1721,7 +1721,7 @@ sub showattributes { ->grid(-row => $i, -col => 7, -sticky => 'nswe', -ipadx => 5); } # device coords - @coords = $zinc->transform(scalar $zinc->group($item), 1, [@coords]); + @coords = $zinc->transform($item, 1, [@coords]); if (!ref $coords[0]) { my $x0 = int($coords[0]); my $y0 = int($coords[1]); |