Please title this page. (emulate-ibmlp.ps.htm)

%!PS-Adobe-2.0 %%Creator: RZ Uni Zurich, Switzerland %%Title: ISOLatin1.ps %%CreationDate: 10.12.92 %%DocumentFonts: Courier Courier-Bold Helvetica Helvetica-Bold %%EndComments % % This PostScript code simulates the behavior of an IBM standard % line printer. It supports the ASA carriage control characters, % some of the machine CC characters and the ISO Latin character set. % Additionally different format and positioning are user selectable % as well as line spacing and font size. % % By setting the parameters of the user section below you can customize % your own line printer emulator, simply copy this code in front of your % listing and send the whole to your PostScript printer with PRINTDOC % (the 2 chars %! in front of the file define your file as a native % PostScript file to PRINTDOC, don't remove them). % !! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! % !! Don't touch the lines of code from here to the user section,!! % !! unless you are a native PostScript expert. !! % !! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! /bdef { bind def } def /even {/printall false def /printodd false def} bdef % options def. /odd {/printall false def /printodd true def} bdef /CC {/withcc true def} bdef /lm {currentfile token {/x0 exch def}if } bdef /tm {currentfile token {/y0 exch def}if } bdef /bm {currentfile token {/y1 exch def}if } bdef /ps {currentfile token {/ips exch def}if } bdef /il {currentfile token {/iil exch def /inl 0 def}if } bdef /nl {currentfile token {/inl exch def /iil 0 def}if } bdef /A4H {/A4Qopt false def /x0 100 def /y0 750 def /y1 38 def /ips 9 def} bdef /A4Q {/A4Qopt true def /x0 55 def /y0 540 def /y1 17 def /ips 7 def } bdef /Helvetica {/fontname (Helvetica) def} bdef /bold {/ibold (-Bold) def} bdef % options almost case insensitive /EVEN {even} bdef /ODD {odd} bdef /a4h {A4H} bdef /a4q {A4Q} bdef /cc {CC} bdef /reencdict 24 dict def /ReEncode { % define character set (ISO Latin 1) reencdict begin /newcodesandnames exch def /newfontname exch def /basefontname exch def /basefontdict basefontname findfont def /newfont basefontdict maxlength dict def basefontdict { exch dup /FID ne { dup /Encoding eq { exch dup length array copy newfont 3 1 roll put } { exch newfont 3 1 roll put } ifelse } { pop pop } ifelse } forall newfont /FontName newfontname put newcodesandnames aload pop newcodesandnames length 2 idiv { newfont /Encoding get 3 1 roll put } repeat newfontname newfont definefont pop end } def /RZUvec [ 226 /acircumflex 228 /adieresis 224 /agrave 233 /eacute 234 /ecircumflex 235 /edieresis 232 /egrave 238 /icircumflex 239 /idieresis 236 /igrave 244 /ocircumflex 246 /odieresis 242 /ograve 251 /ucircumflex 252 /udieresis 249 /ugrave 231 /ccedilla 196 /Adieresis 214 /Odieresis 220 /Udieresis 223 /germandbls ] def /strcat { exch 2 copy length exch length exch dup 5 1 roll add string dup 3 1 roll copy pop dup 4 2 roll putinterval } bdef % define printer emulation procedure /startprint { /toprint printodd printall or def % initialize /fontname fontname ibold strcat def % prepare text font fontname /RZUfont RZUvec ReEncode /textfont /RZUfont findfont ips scalefont def /psplus ips .03 mul def % calculate overprint incr. iil 0 eq { % calculate interline spacing /iil inl 0 eq {ips ips .1 mul add } % defaults to 110% fontsize {y0 y1 sub inl div } ifelse def } if % define outpage ... pagenr 0 gt { % numbering on /titlefont /Courier findfont 5 scalefont def % set numbering font titlefont setfont /xt printodd not {50} {A4Qopt {700} {530} ifelse filename stringwidth pop sub} ifelse def /yt y0 ips ips add add def /outpage { % output page with numbering toprint { titlefont setfont xt yt moveto filename show 3 0 rmoveto pagenr 4 string cvs show textfont setfont gsave showpage grestore } if /pagenr pagenr 1 add def printall not {/toprint toprint not def} if } bdef } { /outpage { % output page without numbering toprint {gsave showpage grestore} if printall not {/toprint toprint not def} if } bdef } ifelse A4Qopt {600.0 0 translate 90 rotate} if x0 y0 iil add moveto textfont setfont /str256 256 string def currentfile str256 readline % clean start line garbage pop pop % main loop: { currentfile str256 readline % Start of printer emulator loop { dup length 0 le {pop ( ) } if withcc {dup 0 get} {32} ifelse /cc exch def currentpoint exch pop { cc 49 eq cc 12 eq or { y0 le {outpage} if % 1 skip to line 1 y0 exit } if % on new page dup y0 gt withcc and {pop y0} if cc 32 eq { iil sub exit } if % blank space 1 line cc 48 eq { iil 2 mul sub exit } if % 0 space 2 lines cc 45 eq { iil 3 mul sub exit } if % - space 3 lines cc 43 eq { psplus sub exit } if % + suppress space cc 01 eq { exit } if % space 1 line after printing cc 50 eq { exit } if % space 1 line after printing (PRTLW PS: invalid ASA or machine char) = pstack iil sub exit } loop dup y1 lt {pop outpage y0} if % too far at bottom x0 exch moveto cc 43 eq { psplus 0 rmoveto} if withcc {dup length 1 sub 1 exch getinterval} if toprint { show } { pop } ifelse cc 43 eq {0 psplus rmoveto} if cc 01 eq { 0 iil neg rmoveto } if % space 1 line after printing cc 50 eq { 0 iil neg rmoveto } if % space 1 line after printing } {pop outpage printodd not toprint and {showpage} if exit} ifelse } loop } bdef %%EndProlog %%BeginSetup /fontname (Courier) def /ibold () def /pagenr 0 def /filename (Page) def %Fname: text to be printed on the right top corner in pointsize 5 % followed by a page number, 2*fontsize points above the top margin %Nr : 0 no numbering of the pages, Fname will not printed too % > 0 numbering on, start number of 1. page sent to printer /printall true def /printodd true def A4H /iil 0 def /inl 0 def /withcc false def % %%%%%%%%%%%%% % % User section: % % %%%%%%%%%%%%% % %Note: the char % starts a comment on a line !!!!!!!!!!!!!!! % Here follows a description of the parameters you can modify, % insert them before the last line. % Per default the imbed of this PostScript prolog in front of % a file allows you to print it as a text on an A4 unrotated page % with font size 10, interline spacing 11, top margin 750, % bottom margin 38 and left margin 100 and font Courier. %You can override these defaults by entering the corresponding command %before the last line of this prolog: (see example at the bottom) %"A4H" : select A4H format (unrotated) and set % font height (ps), interline (il), top margin (tm), % bottom margin (bm) and left margin to % ps 10 il 11 tm 750 bm 38 lm 100 nl 72 %"A4Q" : select A4Q format (rotated) and set % ps 7 il 7.7 tm 540 bm 17 lm 55 nl 68 %"ps" value: font size in points (1/72 inch) %"il" value: interline 0: defaults to 110% of fontsize %"nl" value: number of lines per page, compute "il" as "tm-bm/nl" %"bm" value: bottom margin %"tm" value: top margin %"lm" value: left margin %Additionally you can select the folowing print options (keyword) %"Helvetica": Helvetica font selected, (proportional!) % default font is Courier %"bold": bold font %"even": only even pages are to be printed %"odd" : only odd pages are to be printed %"CC" : ASA or machine carriage control chars in first column % Usage Note:- the last entered options superseeds any previous one % e.g. lm 200 bm 200 CC A4Q A4H even odd gives CC A4H odd % and default margins for A4H % - the print options *must* appear before the start of the emulator % unless they would be considered as a text line, the last line % with the keyword "startprint" below starts the emulator % - options and keywords are case sensitive % Examples (commented): % ps 10 bm 38 tm 750 lm 100 nl 65 % A4H, fontsize 10 points % ps 9 bm 38 tm 750 lm 100 nl 72 % PRINTDOC A4H param. % ps 7 bm 17 tm 540 lm 55 nl 68 % PRINTDOC A4Q param. % Print etiquette high quality, (generally the last etiquette is too far % at bottom and not printed), uncomment next line for manualfeed! % (manualfeed don't work correctly on some LaserWriter) % statusdict begin /manualfeed true def end % ps 8 bm 44 tm 800 lm 340 % 7 etiqu a 12 lines % ps 8 bm 10 tm 720 lm 320 % 10 etiqu a 8 lines % ps 10 il 10.75 bm 56 tm 810 lm 200 % 7 etiqu a 10 lines % for subsequent photocopy on NASHUA 4100 (RZ office) /#copies 1 def %Here again an example, this time uncommented. % your text/listing have to be appended after the *last* line % A4Q CC A4Q %%OPTIONS%% %%EndSetup startprint % never touch this line !!!!!!!!!!!!