%!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 !!!!!!!!!!!!
file: /Techref/language/PS/emulate-ibmlp.ps.htm, 9KB, , updated: 2003/9/4 13:21, local time: 2024/8/14 16:22,
18.223.170.148:LOG IN
|
©2024 These pages are served without commercial sponsorship. (No popup ads, etc...).Bandwidth abuse increases hosting cost forcing sponsorship or shutdown. This server aggressively defends against automated copying for any reason including offline viewing, duplication, etc... Please respect this requirement and DO NOT RIP THIS SITE. Questions? <A HREF="http://sxlist.com/techref/language/PS/emulate-ibmlp.ps.htm"> language PS emulate-ibmlp</A> |
Did you find what you needed? |
Welcome to sxlist.com!sales, advertizing, & kind contributors just like you! Please don't rip/copy (here's why Copies of the site on CD are available at minimal cost. |
Welcome to sxlist.com! |
.