#!/usr/bin/perl
# File: pslet2a4.pl
# Mar-97 Jouni.Lohikoski@iki.fi
# Converts Letter postscript files to A4, hopefully.
# Usage: perl pslet2a4.pl lettersized.ps >a4sized.ps
# http://epics.aps.anl.gov/asd/controls/epics/maillists/tech-talk/199505/19950524.html

binmode 1;  # Just in case this is run on M$-dos Perl
while (<>) {
        s/\s612\s792\s/ 595.3 841.9 /;
        s/^\%\%BeginPaperSize\: Letter/\%\%BeginPaperSize\: A4/;
#        s/^\%\%Page\:.*/\%\%Page\: 28\.3 0 translate 0\.94 0\.94 scale/;
        s/^\%\%Page\:/\%\%Page\: 28\.3 0 translate 0\.94 0\.94 scale /;
        print;
}
__END__