diff options
| -rw-r--r-- | src/SVG/SVG2zinc/Backend/PerlClass.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/SVG/SVG2zinc/Backend/PerlClass.pm b/src/SVG/SVG2zinc/Backend/PerlClass.pm index 0f490b2..18ec454 100644 --- a/src/SVG/SVG2zinc/Backend/PerlClass.pm +++ b/src/SVG/SVG2zinc/Backend/PerlClass.pm @@ -68,10 +68,10 @@ sub applyGradient { my $grad = $self -> {gradient} -> {$name}; my $id = $self -> {gradient_id} ++; my %hash = %{$grad}; - my @lignes = 'my ($x1, $y1, $x2, $y2) = $_zinc -> bbox ($previous);'; + my @lignes = 'my ($x1'."$name".', $y1'."$name".', $x2'."$name".', $y2'."$name".') = $_zinc -> bbox ($previous);'; # push (@lignes, 'my ($parent) = $_zinc -> find(\'ancestors\', $previous);'); - push (@lignes, '($x1, $y1, $x2, $y2) = $_zinc -> transform(\'device\', $parent, [$x1+1, $y1+1, $x2-2, $y2-2]);'); - push (@lignes, "my \$grad = getGradient ("); + push (@lignes, '($x1'."$name".', $y1'."$name".', $x2'."$name".', $y2'."$name".') = $_zinc -> transform(\'device\', $parent, [$x1'."$name".'+1, $y1'."$name".'+1, $x2'."$name".'-2, $y2'."$name".'-2]);'); + push (@lignes, "my \$grad"."$name"." = getGradient ("); push (@lignes, "\t'$current_package_name',"); push (@lignes, "\t'$id',"); push (@lignes, "\t'".$hash {type}."',"); @@ -79,9 +79,9 @@ sub applyGradient { push (@lignes, "\t".join (',' , @{$hash{coords}}).","); push (@lignes, "\t'".join ('|' , @{$hash{stops}})."',"); push (@lignes, "\t".join (',' , @{$hash{transform}}).","); - push (@lignes, "\t\$x1, \$y1, \$x2, \$y2"); + push (@lignes, "\t\$x1"."$name".", \$y1"."$name".", \$x2"."$name".", \$y2"."$name"); push (@lignes, ");"); - push (@lignes, "mconfigure (\$previous, $prop => \$grad);"); + push (@lignes, "mconfigure (\$previous, $prop => \$grad"."$name".");"); $self -> {current_gradient} = \@lignes; } |