Hallo Bastien, zuerst einmal möchte ich mich entschuldigen. Ich war auf dem Ctrl-X gelandet (pine) ... On Sun, 29 Nov 1998, Bastien Chevreux wrote:
Na, etwas ausfuehrlicher haette der PS-Teil schon ausfallen koennen. Aber mittlerweile habe ich den mit etwas Hilfe zusammenbekommen. Per Hand eingesetzt klappt das schon ganz gut. Jetzt fehlt nur noch das Perl Skript. War auch noch nicht fertig ... ist mir leider etwas zu früh ins Netz gerutscht. Also, für den PS-Teil: x y moveto /Times-Roman findfont 10 scalefont setfont ($filename) show 0as ist mein Vorschlag - es findet sich eine sehr gute PS-Anleitung in LinuxFocus, May1998 (<A HREF="http://www.linuxfocus.org"><A HREF="http://www.linuxfocus.org</A">http://www.linuxfocus.org).
Mist, nun muss ich wirklich Perl lernen :) Es lohnt sich!!! Das Perlscript: #!/usr/bin/perl # nimmt zwei argumente - infile und outfile , bzw nur infile, dann outfile # stdout, oder nix => filter
$infilename=$ARGV[0]; $infilename='-' unless $infilename; open INFILE,$infilename or die "Unable to open $infilename"; $outfilename=$ARGV[0]; $outfilename='-' unless $outfilename; open OUTFILE,$outfilename or die "Unable to open $outfilename"; $infilename='<STDIN>' if $infilename=~/^-$/; while(<INFILE>) { print OUTFILE $_ if /^%/; next if /^%/; print OUTFILE "400 800 moveto /Times-Roman findfont 10 scalefont setfont ($filename) show\n$_"; last; } while(<INFILE>) { print OUTFILE $_; } Eventuell musst du noch an den Positionen etwas herumfeilen - aber im Großen und Ganzen sollte es wohl so laufen. Geht sicher auch noch zu beschleunigen. Viel Erfolg! Axel Axel Franke Combustion Physics Lund Institute of Technology / Sweden Phone +46-46-22-20353 Fax +46-46-22-24542 -- Um aus der Liste ausgetragen zu werden, eine Mail an majordomo@suse.com schicken, mit dem Text: unsubscribe suse-linux