"

 COPYRIGHT (c) 1988 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

PrinterStream subclass:#PostscriptPrinterStream

		pageStartAction pageEndAction'

	classVariableNames:'Prolog Trailer PageProlog PageTrailer FontNames FontHeight

		FontWidth LeftX TopY PageHeight LinesPerPage PhysicalPageHeight

		Italic Bold Normal BoldItalic Courier Times Helvetica TopInset

		LeftInset BottomInset'

	poolDictionaries:''

	category:'Streams-External'

!

!PostscriptPrinterStream class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1988 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    This class provides simple text output to postscript printers;

    to use it, evaluate 

    (usually in some rc file).

    or change it via the launchers settings-menu.

    See examples on how to send something to the printer.

    For now, only Helvetica, Courier and Times fonts in italic, roman and bold

    are supported.

    It does not directly support graphics and other fancy features of Postscript,

    but provides a compatible interface for simple text line-printing 

    (see other subclasses of PrinterStream).

    If you already have a postscript string at hand, this can be sent to

    the printer in native mode.

    To output graphics, you need the PSGraphicsContext (and friend-) classes.

    These provide protocol similar to the one provided by display graphicContexts.

    Notice, that these postscript classes are derived from public domain code;

    there is no warranty.

    [see also:]

    [author:]

"

!

examples

"

    For text printing, use:

    or, if you already have emphasized text at hand:

    placing a page-hook, to add a page number:

    (page hooks require that you understand some postscript ...

     ... and have a look at how this class generates its postscript code)

    placing a page-hook, to add a custom frame, logo or company letter-head:

    (page hooks require that you understand some postscript ...

     ... and have a look at how this class generates its postscript code.

     ... and notice that the code below is a q&d demo, working with letter-sized

     pages only; a real program should ask the printerStream about the actual 

     pageHeight/pageWidth.)

    If you already have a postscript string at hand, this can be sent to

    the printer in native mode:

    To output graphics, you need the PSGraphicsContext (and friend-) classes.

    These provide protocol similar to the one provided by display graphicContexts.

    Notice, that these postscript classes are derived from public domain code;

    there is no warranty.

    Usage:

      the same in a view:

"

! !

!PostscriptPrinterStream class methodsFor:'initialization'!

initCharacterSize

    "setup the character parameters"

    FontHeight := 200.   "/ used to scale fonts - corresponds to a 10 point font size

    FontWidth := 120.    "/ used to compute width of tabs

    "Created: 23.4.1996 / 19:53:34 / cg"

    "Modified: 23.4.1996 / 20:05:17 / cg"

    "Modified: 30.5.1996 / 17:24:05 / ca"

!

initFonts

    "setup the font names.

     initProlog uses those parameters."

    Italic := 0.     "/ offset from base-font# to italic version

    Bold := 1.       "/ offset from base-font# to bold version

    BoldItalic := 2. "/ offset from base-font# to boldItalic version

    Normal := 3.     "/ offset from base-font# to normal version

    Helvetica := 0.  "/ # of helvetica base font

    Times := 4.      "/ # of times base font

    Courier := 8.    "/ # of courier base font

    FontNames := #( 

    "Modified: 18.5.1996 / 09:37:48 / cg"

!

initPage

    "setup the page parameters.

     All coordinates are scaled by 20 w.r.t the PS coordinates (i.e. in twips)."

    PageFormat isNil ifTrue:[

    ].

    TopInset isNil ifTrue:[

    ].

    BottomInset isNil ifTrue:[

    ].

    LeftInset isNil ifTrue:[

    ].

    "/     +-----------------------------------------------+  PageHeight

    "/     |                                               |

    "/     | LeftX +---------------------------------------|  TopY

    "/     |       |1st printed line                       |

    "/     |       |                                       |

    "/     |       |                                       |

    "/     |       |                                       |

    "/     |       |                                       |

    "/     |       |last line (linesPerPage)               |

    "/     |       +---------------------------------------|

    "/     |                                               |

    "/     (0/0)-------------------------------------------+  0

    LeftX := (UnitConverter convert:LeftInset from:#inch to:#twip) rounded.

    PhysicalPageHeight := (UnitConverter convert:1 from:(PageFormat , 'H') to:#twip) rounded.

    Landscape ifTrue:[

    ] ifFalse:[

    ].

    TopY := PageHeight - (UnitConverter convert:TopInset from:#inch to:#twip) rounded.

    LinesPerPage := TopY - (UnitConverter convert:BottomInset from:#inch to:#twip) rounded // 200.

    "

     TopInset := LeftInset := BottomInset := nil.

     self initPage

    "

    "Modified: 30.5.1996 / 17:24:55 / ca"

    "Modified: 4.6.1996 / 17:18:25 / cg"

!

initPageProlog

    "define the page prolog"

    PageProlog :=

'StartPage

'.

    "Created: 23.4.1996 / 19:56:16 / cg"

!

initPageTrailer

    "define the page epilog"

    PageTrailer :=

'EndPage

'.

    "Modified: 23.4.1996 / 19:55:50 / cg"

    "Created: 23.4.1996 / 19:56:30 / cg"

!

initProlog

    "define the documents prolog"

    |tmpString t fontNr|

    tmpString :=

'%!!PS-Adobe-1.0

%%Creator: Smalltalk/X

%%DocumentFonts: Courier-Oblique Courier-Bold Courier Times-Italic Times-Bold Times

save/SmalltalkJob exch def

/OriginalState gstate def

/StartSmalltalkDoc{$smalltalk begin}def

/$smalltalk 50 dict def $smalltalk begin

/EndSmalltalkDoc{end}def

/S/show load def

/X{exch 0 rmoveto S}def

/Y{exch 0 exch rmoveto S}def

/B{3 1 roll moveto S}def

/SUL {gsave currentpoint currentfont /FontInfo get /UnderlinePosition get

 0 exch currentfont /FontMatrix get dtransform exch pop add newpath moveto

 dup stringwidth rlineto stroke grestore S} def

/BUL{3 1 roll moveto SUL}def

/F{$fd exch get setfont}def

/StartPage{/svpg save def .05 dup scale}def

/EndPage{svpg restore showpage}def

/DoPreFeed{/statusdict where{pop

 statusdict/prefeed known{statusdict exch/prefeed exch put 0}if}if pop}def

/Landscape{90 rotate 0 -' , PageHeight printString "15840", ' translate}def

/ISOrecode {findfont dup length dict begin

 {1 index /FID ne {def} {pop pop} ifelse} forall

 /Encoding ISOLatin1Encoding def

 currentdict end definefont pop} def

/SetUpFonts

 {dup/$fd exch array def{findfont exch scalefont $fd 3 1 roll put}repeat}def

/InitGaudy{/TwoColumn exch def /BarLength exch def

/ftD /ISO-Times-Bold findfont 12 UP scalefont def

/ftF /ISO-Times-Roman findfont 14 UP scalefont def

/ftP /ISO-Helvetica-Bold findfont 30 UP scalefont def}def

/U{1440 mul}def

/UP{U 72 div}def

/LB{/pts exch UP def /charcolor exch def /boxcolor exch def /font exch def

 /label exch def /dy exch def /dx exch def /lly exch def /llx exch def

 gsave boxcolor setgray

 llx lly moveto dx 0 rlineto 0 dy rlineto dx neg 0 rlineto closepath fill

 /lines label length def

 /yp lly dy add dy lines pts mul sub 2 div sub pts .85 mul sub def

 font setfont charcolor setgray

 label {dup stringwidth pop 2 div llx dx 2 div add exch sub yp moveto show

   /yp yp pts sub def}forall grestore}def

/Gaudy{/Page exch def /Date exch def /File exch def /Comment exch def

 .25 U 10.2 U BarLength .1 sub U .25 U [File] ftF .97 0 14 LB

 .25 U 10.45 U BarLength .1 sub U .25 U [Comment] ftF 1 0 14 LB

 .25 U 10.2 U 1 U .5 U Date ftD .7 0 12 LB

 BarLength .75 sub U 10.2 U 1 U .5 U [Page] ftP .7 1 30 LB

 TwoColumn{BarLength 2 div .19 add U 10.2 U moveto 0 -10 U rlineto stroke}if

}def

end

StartSmalltalkDoc 

% end of fixed prolog

'.

    t := ''.

    FontNames do:[:aName |

'.

    ].

    t := t , '

'.

    tmpString := tmpString , t.

    t := ''.

    fontNr := 0.

    FontNames do:[:aName |

    ].

    tmpString := tmpString , t.

    tmpString := tmpString , fontNr printString , ' SetUpFonts

% end of prolog

'.

    Prolog := tmpString.

    "

     PostscriptPrinterStream initProlog

    "

    "Created: 23.4.1996 / 19:40:44 / cg"

    "Modified: 3.6.1996 / 16:54:33 / cg"

!

initTrailer

    "define the documents epilog"

'EndSmalltalkDoc

SmalltalkJob restore

'

    "Created: 23.4.1996 / 19:55:24 / cg"

    "Modified: 23.4.1996 / 19:55:38 / cg"

!

initialize

    Normal isNil ifTrue:[

    ]

    "

     Normal := nil.

     self initialize