Thread Grafikprogramm in Perl (8 answers)
Opened by [E|B] at 2005-08-21 23:33

ptk
 2005-08-24 17:26
#44407 #44407
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
[quote=Strat,22.08.2005, 12:52]gibt es eigentlich eine einfache moeglichkeit, postscripts wieder in einen canvas reinzubringen?

ich wuerde als zwischenformat was eigenes benuetzen, wo die aktionen, die zum erstellen der grafik gemacht wurden, der reihe nach gespeichert sind (oder kann man den Canvas auch mit Storable serialisieren und dann wiederherstellen?),
[/quote]
Ein $canvas->dump gibt es zwar nicht, aber ist nicht allzu schwer zu realisieren. In Pseudo-Code:
Code: (dl )
1
2
3
4
5
6
7
for my $id ($canvas->find("all")) {
push @canvas, { type => $canvas->type($id),
coords => [ $canvas->coords($id) ],
config => [ map { ($_->[0], $canvas->itemcget($id, $_->[0])) } $canvas->itemconfigure($id) ],
# evtl. weitere interessante Optionen
};
}

Das Deserialisieren ueberlasse ich als Aufgabe fuer den Leser.
Quote
und falls jpeg oder aehnliches gewuenscht ist, die aktionen auf GD oder Image::Magick uebertragen und ausfuehren...

View full thread Grafikprogramm in Perl