SVG: Syntaxfrage (solved) (Fragen zu Perl-Modulen)

[thread]15885[/thread]

SVG: Syntaxfrage [solved]

Readers: 21

Articles: hide open all | hide show old branches

+8 replies

Dynaaamo

2011-01-25 11:23

User since
2011-01-25
4 articles
BenutzerIn
[default_avatar]

Hallo zusammen,

ich habe ein Problem mit dem SVG-Modul.
Ich möchte einfach 2 Vierecke zeichnen lassen und diese in einer Gruppe zusammenfassen. Danach möchte ich diese gesamte Gruppe mittels des "transform"-Befehls an einer anderen Stelle im SVG-Bild positionieren.
Aber irgendwie kriege ich das syntaxmässig nicht gebacken. Entweder wird nur 1 Viereck dargestellt oder gar nix...
Das Problem ist, dass ich nicht weiss, wie ich die beiden Vierecke in die Gruppe "gr_viereck" reinkriege.

Mein bisheriger Code funktioniert jedenfalls so nicht (da wird nur "viereck1" erzeugt):

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use SVG;

my $svg = SVG->new(width => 600, height => 600);

my $viereck=$svg->group(id => 'gr_viereck')
-> rectangle(id=>'viereck1', 'stroke' => 'red', 'fill'=>'yellow', x=>0, y=>0, width=>50, height=>50)

-> rectangle(id=>'viereck2', 'stroke' => 'blue', 'fill'=>'white', x=>100, y=>100, width=>150, height=>150)
;

# das hier soll das eigentliche Ziel sein:
my $v -> use(-href=>'#gr_viereck', transform=>'translate(250, 250) scale(0.9)');

print $svg->xmlify;

Hat jemand 'nen Tipp für mich?
Vielen Dank und viele Grüsse
Dynaaamo

mod-edit pq: perl-tags hinzugefügt
Last edited: 2011-01-25 11:33:04 +0100 (CET)

GwenDragon

2011-01-25 11:41

User since
2005-01-17
14051 articles
Admin1

Move from Allgemeines zu Perl to Fragen zu Perl-Modulen
die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
+6 replies

GwenDragon

2011-01-25 11:50

User since
2005-01-17
14051 articles
Admin1

Du musst wohl erst die Gruppe erzeugen und dann darin die Unterelemente.

ungetestet (mangels SVG-Modul):

Code (perl): (dl )

1
2
3

my $viereck=$svg->group(id => 'gr_viereck');
$viereck->rectangle(id=>'viereck1', 'stroke' => 'red', 'fill'=>'yellow', x=>0, y=>0, width=>50, height=>50);
$viereck->rectangle(id=>'viereck2', 'stroke' => 'blue', 'fill'=>'white', x=>100, y=>100, width=>150, height=>150);

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

Dynaaamo

2011-01-25 12:39

User since
2011-01-25
4 articles
BenutzerIn

Nee, das kann es nicht sein.
Denn dann habe ich zwar 2 Vierecke, die ich natürlich auch einzeln über ihre "id" ansprechen und transformieren kann, aber das Ziel ist ja, alles in einem Rutsch zu verschieben - also nur über die ID der Group!

Der abgebildete Code soll auch nur als Beispiel dienen. In Wirklichkeit soll meine Gruppe aus viel mehr als nur 2 Vierecken bestehen (mehrere rectangles, circles und paths)...
+4 replies

GwenDragon

2011-01-25 16:06

User since
2005-01-17
14051 articles
Admin1

Wenn ich das Beispiel http://cpansearch.perl.org/src/RONAN/SVG-2.50/exam... interpretiere, musst du sehr wohl die Elemente nacheinander in die Gruppe "einfügen":

Code: (dl )

my $y=$svg->group(
    id    => 'group_y',
    style => { stroke=>'red', fill=>'green' }
);

$y->circle(cx=>100, cy=>100, r=>50, id=>'circle_in_group_y_1');
# add a circle to the group
$y->circle(cx=>100, cy=>100, r=>50, id=>'circle_in_group_y_2');
$y->comment('This is a comment');
$y->circle(cx=>100, cy=>100, r=>50, id=>'circle_in_group_y_3');
# now render the SVG object, implicitly use svg namespace
print "\nfirst drawing\n";
print $svg->xmlify;

Folgender Test:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

use SVG;

my $svg = SVG->new(width => 600, height => 600);

my $viereck=$svg->group(id => 'gr_viereck');
$viereck-> rectangle(id=>'viereck1', 'stroke' => 'red', 'fill'=>'yellow', x=>0, y=>0, width=>50, height=>50);
$viereck-> rectangle(id=>'viereck2', 'stroke' => 'blue', 'fill'=>'white', x=>100, y=>100, width=>150, height=>150);

# das hier soll das eigentliche Ziel sein:
my $v = $svg->use(-href=>'#gr_viereck', transform=>'translate(250, 250) scale(0.9)');

print $svg->xmlify;

erzeugt:

Code: (dl )

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.0//EN" "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">
<svg height="600" width="600" xmlns="http://www.w3.org/2000/svg" xmlns:svg="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
	<g id="gr_viereck">
		<rect fill="yellow" height="50" id="viereck1" stroke="red" width="50" x="0" y="0" />
		<rect fill="white" height="150" id="viereck2" stroke="blue" width="150" x="100" y="100" />
	</g>
	<use transform="translate(250, 250) scale(0.9)" xlink:href="#gr_viereck" />
	<!-- 
	Generated using the Perl SVG Module V2.50
	by Ronan Oger
	Info: http://www.roitsystems.com/
 -->
</svg>

Und was ist daran falsch?

Wenn ich die Ausgabe der SPerlprogramms in eine Datei namens test.svg umleite und die im Brwoser öffne, sehe ich die eine Gruppe Vierecke gelb- und weiß-gefüllt und verkleinert und verschoben die transformierte.
Last edited: 2011-01-25 16:26:02 +0100 (CET)

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

+3 replies
Dynaaamo

2011-01-25 17:52
User since
2011-01-25
4 articles
BenutzerIn
VIELEN DANK!

Es lag an dem vergessenem "$svg"!
Code (perl): (dl )

my $v = $svg->use(-href=>'#gr_viereck'...
Jetzt klappts!
Hurra!

Nochmals danke und Gruss
Dynaaamo
- +2 replies
- GwenDragon
  
  2011-01-25 17:55
  
  User since
  2005-01-17
  14051 articles
  Admin1
  
  Und es lag wohl auch an deinem falschen Hinzufügen der Kindelemente zur Gruppe.
  Last edited: 2011-01-25 17:56:52 +0100 (CET)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - Dynaaamo
    
    2011-01-25 19:14
    User since
    2011-01-25
    4 articles
    BenutzerIn
    
    Ich hatte mich an dem Beispiel aus dem Manual vom SVG-Package orientiert:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    my $k = $z->anchor( id => 'anchor_k', -href => 'http://test.hackmare.com/', target => 'new_window_0' )->rectangle( x => 20, y => 50, width => 20, height => 30, rx => 10, ry => 5, id => 'rect_k_in_anchor_k_in_group_z' );
    
    Aber das geht wahrscheinlich nur für 1 Element.
    Naja, wieder was dazugelernt.

View all threads created 2011-01-25 11:23.