Hallo, On Thu, 29 Aug 2002, Bernhard Walle wrote:
On Wed, 28 Aug 2002 at 21:35 (+0200), David Haller wrote:
ps-stempel erzeugt doch nur ein ps-objekt, das dann eingefuegt wird. Stattdessen sollte es moeglich sein, ein passend generiertes EPS einzufuegen.
Hm, wenn's da irgendwie einen "allgemeinen Weg" gibt, EPS-Dateien einfach so einzubinden, wäre das natürlich schön. Hast Du da irgendwelche Informationen?
Von Postscript habe ich leider keine Ahnung, das Skript ist ja nur aus einem Beitrag in der c't (welche steht im Kommentar) und einer von mir vorgenommenen (aus dem Perl-Modul Postscript::Simple abgeschauten) Erweiterung bezüglich der Verwendung von Umlauten entstanden.
Ich leider auch nicht, aber wenn ich mir ps-stempel so anschaue und das mit anderen .ps vergleiche... Ah, ich hab hier grad ein perl-script gefunden, das passen koennte und hier ueber die Liste lief. -dnh ==== schnipp ==== #!/usr/bin/perl # # Skript um eine Grafik in eine bestehende PostScript-Datei auf jeder # Seite einzufuegen. # (c) 2000 Frank Kroeger, FKroeger@fks-edv.de # Teile des Source-Codes basierend auf Code von Peter Weingartner # http://www.cs.indiana.edu/hyplan/eweingar.html, pjw@sj.znet.com # # Aufrufkonvention: # # Parameter # 1: Name der PostScript-Datei # 2: Name der Grafik im PS-Format (tiff2ps um TIFF-Dateien zu konvertieren) # 3: x Wert um den die Grafik vom Ursprung bewegt werden soll # 4: y Wert um den die Grafik vom Ursprung bewegt werden soll # # # Beispiel: fax.ps, logo.tif vorhanden # # tiff2ps logo.tif > logo.ps # addlogo.pl fax.ps logo.ps 250 350 > neuesfax.ps # # Mit den Werten fuer x und y musst du wohl ein wenig herumspielen # x=250, y=350 setzt die Grafik ca. in die Mitte # $flag1 = 0; # Hilfsvariable $flag2 = 0; # Hilfsvariable open (TEXT, $ARGV[0]); while (<TEXT>) { if (/^%%Page:/) { if ($flag1) { print "grestore\n"; } $flag1 = 1; print $_; open (GRAFIK, $ARGV[1]); while (<GRAFIK>) { if (/^%%Page:/) { $flag2 = 1; } elsif (/^showpage/) { $flag2 = 0; } elsif ($flag2) { if (/^gsave/) { print "gsave\n"; print $ARGV[2]," ",$ARGV[3]," translate\n"; } else { print; } } } close (GRAFIK); } else { print; } } close (TEXT); ==== schnapp ==== -- 102: Code Reuse (cat a.out_header; cat) > a.out (Enno Rehling)