"{ Encoding: utf8 }"

"

 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.

"

"{ Package: 'stx:libbasic2' }"

"{ NameSpace: Smalltalk }"

PrinterStream subclass:#PostscriptPrinterStream

	instanceVariableNames:'xPos yPos lineStream colNr lineNr fFamily fStyle pageStartAction

		pageEndAction pageCount sendXPosition'

	classVariableNames:'Prolog Trailer PageProlog PageTrailer FontNames FontHeight

		FontWidth LeftX TopY PageHeight LinesPerPage PhysicalPageHeight

		Italic Bold Normal BoldItalic Courier Times Helvetica TopMargin

		LeftMargin BottomMargin RightMargin SupportsColor Resolution

		SupportsGreyscale'

	poolDictionaries:''

	category:'Interface-Printing'

!

!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 

        Smalltalk at:#Printer put:PostscriptPrinterStream

    (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.

    PSGraphicsContext generates its own postscript - not caring for the margin/font settings

    here (these are only used if the printer-stream protocol is used (i.e. nextPut, cr etc.)

    [Disclaimer:]    

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

        there is no warranty.

    [see also:]

        PSGraphicsContext 

        EpsonFX1PrinterStream HPLjetIIPrinterStream PrinterStream

    [author:]

        Claus Gittinger

"

!

examples

"

    For text printing, use:

                                                                        [exBegin]

        |s|

        s := Printer new.

        s nextPutAll:'hello'; cr.

        s nextPutAll:'normal '.

        s bold; nextPutAll:'this is bold'; normal; cr.

        s nextPutAll:'normal '.

        s italic; nextPutAll:'this is italic'; normal; cr.

        s nextPutAll:'normal '.

        s boldItalic; nextPutAll:'this is boldItalic'; normal; cr.

        s nextPutAll:'normal '.

        s underline; nextPutAll:'this is underlined'; noUnderline; cr.

        s nextPutAll:'normal again '.

        s strikeout; nextPutAll:'this is strikedout'; noStrikeout; cr.

        s helvetica.

        s nextPutAll:'helvetica '.

        s underline; nextPutAll:' helv-underline'; noUnderline;

          space; strikeout; nextPutAll:'helv-strikeout'; noStrikeout;

          bold; nextPutAll:' helv-bold'; normal; cr.

        s times.

        s nextPutAll:'times'; cr.

        s courier.

        s nextPutAll:'courier'; cr.

        s close

                                                                        [exEnd]

    or, if you already have emphasized text at hand:

                                                                        [exBegin]

        |s|

        s := Printer new.

        s nextPutAll:'hello'; cr.

        s nextPutAll:'this is '; 

          nextPutAll:(Text string:'bold' emphasis:#bold); 

          cr;

          nextPutAll:'this is '; 

          nextPutAll:(Text string:'italic' emphasis:#italic); 

          cr;

          nextPutAll:'this is ';

          nextPutAll:(Text string:'boldItalic' emphasis:#(bold italic)); 

          cr;

          nextPutAll:'normal again'; 

          cr;

          helvetica;

          nextPutAll:'helvetica';

          cr;

          times;

          nextPutAll:'times'; 

          cr;

          courier;

          nextPutAll:'courier';

          cr.

        s close

                                                                        [exEnd]

    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)

                                                                        [exBegin]

        |s hook pageNr|

        s := Printer new.

        pageNr := 0.

        hook := [ 

                    pageNr := pageNr + 1.

                    s placeString:('page ' , pageNr printString) at:(5500 @ 400).

                ].

        s pageEndAction:hook.

        (1 to:200) do:[:lineNr |

            s nextPutAll:'line ' , lineNr printString.

            s cr.

        ].

        s close.

                                                                        [exEnd]

    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.)

                                                                        [exBegin]

        |s hook pageNr|

        s := Printer new.

        pageNr := 0.

        hook := [ 

                    pageNr := pageNr + 1.

                    s placeString:('page ' , pageNr printString) at:(5500 @ 400).

                    s placeString:('Document revision:') at:(900 @ 1200).

                    s placeString:('Revieved by:')       at:(900 @ 900).

                    s setNative:true.

                    s nextPutAll:'0 setlinewidth'; cr.

                    s nextPutAll:'800 800 moveto'; cr.

                    s nextPutAll:'11000 800 lineto'; cr.

                    s nextPutAll:'11000 15500 lineto'; cr.

                    s nextPutAll:'800 15500 lineto'; cr.

                    s nextPutAll:'800 800 lineto'; cr.

                    s nextPutAll:'stroke'; cr.

                    s nextPutAll:'800 1100 moveto'; cr.

                    s nextPutAll:'11000 1100 lineto'; cr.

                    s nextPutAll:'stroke'; cr.

                    s nextPutAll:'800 1400 moveto'; cr.

                    s nextPutAll:'11000 1400 lineto'; cr.

                    s nextPutAll:'stroke'; cr.

                    s setNative:false.

                ].

        s pageEndAction:hook.

        (1 to:200) do:[:lineNr |

            s nextPutAll:'line ' , lineNr printString.

            s cr.

        ].

        s close.

                                                                        [exEnd]

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

    the printer in native mode:

                                                                        [exBegin]

        |s|

        s := Printer newNative.

        s nextPutAll:<your postscript string>.

                                                                        [exEnd]

        s close

    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:

                                                                        [exBegin]

        |drawable s|

        s := Printer newNative.

        drawable := PSGraphicsContext on:s.

        drawable displayLineFrom:(0@0) to:(100@100).

        drawable displayLineFrom:(100@0) to:(0@100).

        drawable displayCircle:(150@150) radius:50.

        (Image fromFile:'bitmaps/SBrowser.xbm') displayOn:drawable at:(50@30).

        drawable close.

                                                                        [exEnd]

      the same in a view:

                                                                        [exBegin]

        |drawable|

        drawable := (View extent:200@200) openAndWait.

        drawable displayLineFrom:(0@0) to:(100@100).

        drawable displayLineFrom:(100@0) to:(0@100).

        drawable displayCircle:(150@150) radius:50.

        (Image fromFile:'bitmaps/SBrowser.xbm') displayOn:drawable at:(50@30).

                                                                        [exEnd]

"

! !

!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 := #( 

                    'Helvetica-Oblique'

                    'Helvetica-Bold'

                    'Helvetica-BoldOblique'

                    'Helvetica'

                    'Times-Italic'

                    'Times-Bold'

                    'Times-BoldItalic'

                    'Times'

                    'Courier-Oblique'

                    'Courier-Bold'

                    'Courier-BoldOblique'

                    'Courier' 

                  )

    "

     PostscriptPrinterStream initFonts

    "

!

initPage

    "setup the page parameters.

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

    |fmt|

    (fmt := self pageFormat) isNil ifTrue:[

        self pageFormat:#a4.

        fmt := self pageFormat.

    ].

    TopMargin isNil ifTrue:[

        TopMargin := 0.6.      "/ inches

    ].

    BottomMargin isNil ifTrue:[

        BottomMargin := 1.2    "/ inches

    ].

    LeftMargin isNil ifTrue:[

        LeftMargin := 0.6.     "/ inches

    ].

    RightMargin isNil ifTrue:[

        RightMargin := 0.6.    "/ inches

    ].

    Resolution isNil ifTrue:[

        Resolution := 300@300. "/ DPI

    ].

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

    "/     |                   TOPMARGIN             |     |

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

    "/     |       |1st printed line                 |     |

    "/     |       |                                 |     |

    "/     | LEFT  |                                 |RIGHT| (only used by

    "/     | MARGIN|                                 |MARG.|  PSGraphicsContext)

    "/     |       |                                 |     |

    "/     |       |last line (linesPerPage)         |     |

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

    "/     |                   BOTTOMMARGIN          |     |

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

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

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

    self landscape == true ifTrue:[

        PageHeight := (UnitConverter convert:1 from:(fmt , 'lH') to:#twip) rounded.

    ] ifFalse:[

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

    ].

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

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

    "

     TopMargin := LeftMargin := BottomMargin := nil.

     self initPage

    "

    "Modified: / 30-05-1996 / 17:24:55 / ca"

    "Modified (format): / 18-09-2017 / 10:20:37 / 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-2.0

%%Creator: Smalltalk/X

%%CreationDate: ' , Timestamp now printString , '

%%DocumentFonts: '.

    FontNames do:[:aName |

        tmpString := tmpString , aName , ' '

    ].

    tmpString := tmpString , '

%%Pages: (atend)

%%EndComments

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

/SSO {gsave currentpoint 300

 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

/BSO{3 1 roll moveto SSO}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 , '/ISO-' , aName , ' /' , aName , ' ISOrecode

'.

    ].

    t := t , '

'.

    tmpString := tmpString , t.

    t := ''.

    fontNr := 0.

    FontNames do:[:aName |

        t := t , (fontNr printString) , ' ' 

               , (FontHeight printString) , ' '

               , '/ISO-' , aName , (Character nl) asString.

        fontNr := fontNr + 1

    ].

    tmpString := tmpString , t.

    tmpString := tmpString , fontNr printString , ' SetUpFonts

% end of prolog

%%EndProlog

'.

    Prolog := tmpString.

    "

     PostscriptPrinterStream initProlog