--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/src/gui/painting/qpsprinter.ps Mon Jan 11 14:00:40 2010 +0000
@@ -0,0 +1,449 @@
+% the postscript header we use for our qpsprinter in uncompressed and commented form.
+% use the makepsheader perl script to generate a compressed version of this header
+% you can then paste into qpsprinter.cpp
+%
+% some compression of the code is done by the makepsheader script, so we don't need to
+% write too criptically here.
+
+/BD {bind def} bind def
+/d2 {dup dup} BD
+/ED {exch def} BD
+/D0 {0 ED} BD
+
+/F {setfont} BD
+/RL {rlineto} BD
+/CM {currentmatrix} BD
+/SM {setmatrix} BD
+/TR {translate} BD
+/SD {setdash} BD
+/SC {aload pop setrgbcolor} BD
+/CR {currentfile read pop} BD
+/i {index} BD
+/scs {setcolorspace} BD
+/DB {dict dup begin} BD
+/DE {end def} BD
+/ie {ifelse} BD
+/gs {gsave} BD
+/gr {grestore} BD
+
+% these use PDF syntax
+/w {setlinewidth} BD
+/d {setdash} BD
+/J {setlinecap} BD
+/j {setlinejoin} BD
+/scn {3 array astore /BCol exch def} BD
+/SCN {3 array astore /PCol exch def} BD
+/cm {6 array astore concat} BD
+
+/m {moveto} BD
+/l {lineto} BD
+/c {curveto} BD
+/h {closepath} BD
+
+/W {clip} BD
+/W* {eoclip} BD
+/n {newpath} BD
+% ENDUNCOMPRESSED: Warning: leave this line in.
+% Everything before this line will be left untouched by the compression
+
+/q {gsave 10 dict begin} BD
+/Q {end grestore} BD
+
+% PDF operators
+/re { % PDF re operator
+ 4 2 roll % w h x y
+ moveto % w h
+ dup % w h h
+ 0 exch rlineto % w h
+ exch 0 rlineto % h
+ 0 exch neg rlineto
+ closepath
+} bind def
+
+/S {
+ gsave
+ PCol SC stroke
+ grestore
+ newpath
+} BD
+
+% PDF text operators
+/BT {gsave 10 dict begin /_m matrix currentmatrix def BCol SC} BD
+/ET {end grestore} BD
+/Tf {
+ /_fs exch def
+ findfont
+ [ _fs 0 0 _fs 0 0 ]
+ makefont
+ setfont
+} BD
+/Tm {6 array astore concat} BD
+/Td {translate} BD
+/Tj {0 0 moveto show} BD
+/BDC {pop pop} BD
+/EMC {} BD
+
+% old operators
+
+/BSt 0 def % brush style
+/WFi false def % winding fill
+
+/BCol [ 1 1 1 ] def % brush color
+/PCol [ 0 0 0 ] def % pen color
+/BDArr [ % Brush dense patterns
+ 0.94
+ 0.88
+ 0.63
+ 0.50
+ 0.37
+ 0.12
+ 0.06
+] def
+
+% -- level3 true/false
+/level3 {
+ /languagelevel where {
+ pop
+ languagelevel 3 ge
+ } { false } ifelse
+} bind def
+
+
+%% image drawing routines
+
+% defines for QCI
+/QCIgray D0 /QCIcolor D0 /QCIindex D0
+
+% this method prints color images if colorimage is available, otherwise
+% converts the string to a grayscale image and uses the reular postscript image
+% operator for printing.
+% Arguments are the same as for the image operator:
+%
+% width height bits/sample matrix datasrc QCI -
+/QCI {
+ /colorimage where {
+ pop
+ false 3 colorimage
+ }{ % the hard way, based on PD code by John Walker <kelvin@autodesk.com>
+ exec /QCIcolor exch def
+ /QCIgray QCIcolor length 3 idiv string def
+ 0 1 QCIcolor length 3 idiv 1 sub
+ { /QCIindex exch def
+ /_x QCIindex 3 mul def
+ QCIgray QCIindex
+ QCIcolor _x get 0.30 mul
+ QCIcolor _x 1 add get 0.59 mul
+ QCIcolor _x 2 add get 0.11 mul
+ add add cvi
+ put
+ } for
+ QCIgray image
+ } ifelse
+} bind def
+
+% general image drawing routine, used from the postscript driver
+%
+% Draws images with and without mask with 1, 8 and 24(rgb) bits depth.
+%
+% width height matrix image 1|8|24 mask|false x y di
+%
+% width and height specify the width/height of the image,
+% matrix a transformation matrix, image a procedure holding the image data
+% (same for mask) and x/y an additional translation.
+%
+% ### should move the translation into the matrix!!!
+/di
+{
+ gsave
+ translate
+ 1 index 1 eq { % bitmap
+ pop pop % get rid of mask and depth
+ false 3 1 roll % width height false matrix image
+ BCol SC
+ imagemask
+ } {
+ dup false ne {
+ % have a mask, see if we can use it
+ level3
+ } {
+ false
+ } ifelse
+
+ {
+ % languagelevel3, we can use image mask and dicts
+
+ % store the image mask
+ /_ma exch def
+ % select colorspace according to 8|24 bit depth and set the decode array /dc
+ 8 eq {
+ /_dc [0 1] def
+ /DeviceGray
+ } {
+ /_dc [0 1 0 1 0 1] def
+ /DeviceRGB
+ } ifelse
+ setcolorspace
+ % the image data
+ /_im exch def
+ % transformation matrix
+ /_mt exch def
+ % width and height
+ /_h exch def
+ /_w exch def
+ % and the combined image dict
+ <<
+ /ImageType 3
+ % the image dict
+ /DataDict <<
+ /ImageType 1
+ /Width _w
+ /Height _h
+ /ImageMatrix _mt
+ /DataSource _im
+ /BitsPerComponent 8
+ /Decode _dc
+ >>
+ % the mask dictionary
+ /MaskDict <<
+ /ImageType 1
+ /Width _w
+ /Height _h
+ /ImageMatrix _mt
+ /DataSource _ma
+ /BitsPerComponent 1
+ /Decode [0 1]
+ >>
+ /InterleaveType 3
+ >>
+ image
+ } {
+ pop % no mask or can't use it, get rid of it
+ 8 % width height image 8|24 8 matrix
+ 4 1 roll
+ 8 eq { % grayscale
+ image
+ } { %color
+ QCI
+ } ifelse
+ } ifelse
+ } ifelse
+ grestore
+} bind def
+
+
+/BF { % brush fill
+ gsave
+ BSt 1 eq % solid brush?
+ {
+ BCol SC
+ WFi { fill } { eofill } ifelse
+ } if
+ BSt 2 ge BSt 8 le and % dense pattern?
+ {
+ BDArr BSt 2 sub get /_sc exch def
+ % the following line scales the brush color according to the pattern. the higher the pattern the lighter the color.
+ BCol
+ {
+ 1. exch sub _sc mul 1. exch sub
+ } forall
+ 3 array astore
+ SC
+ WFi { fill } { eofill } ifelse
+ } if
+ BSt 9 ge BSt 14 le and % brush pattern?
+ {
+ WFi { clip } { eoclip } ifelse
+ pathbbox % left upper right lower
+ 3 index 3 index translate
+ 4 2 roll % right lower left upper
+ 3 2 roll % right left upper lower
+ exch % left right lower upper
+ sub /_h exch def
+ sub /_w exch def
+ BCol SC
+ 0.3 setlinewidth
+ newpath
+ BSt 9 eq BSt 11 eq or % horiz or cross pattern
+ { 0 4 _h
+ { dup 0 exch moveto _w exch lineto } for
+ } if
+ BSt 10 eq BSt 11 eq or % vert or cross pattern
+ { 0 4 _w
+ { dup 0 moveto _h lineto } for
+ } if
+ BSt 12 eq BSt 14 eq or % F-diag or diag cross
+ { _w _h gt
+ { 0 6 _w _h add
+ { dup 0 moveto _h sub _h lineto } for
+ } { 0 6 _w _h add
+ { dup 0 exch moveto _w sub _w exch lineto } for
+ } ifelse
+ } if
+ BSt 13 eq BSt 14 eq or % B-diag or diag cross
+ { _w _h gt
+ { 0 6 _w _h add
+ { dup _h moveto _h sub 0 lineto } for
+ } { 0 6 _w _h add
+ { dup _w exch moveto _w sub 0 exch lineto } for
+ } ifelse
+ } if
+ stroke
+ } if
+ BSt 15 eq
+ {
+ } if
+ BSt 24 eq % TexturePattern
+ {
+ } if
+ grestore
+} bind def
+
+% more PDF operators
+/f { /WFi true def BF newpath } bind def
+/f* { /WFi false def BF newpath } bind def
+/B { /WFi true def BF S newpath } bind def
+/B* { /WFi false def BF S newpath } bind def
+
+%% start of page
+/QI {
+ /C save def
+ pageinit
+ q
+ newpath
+} bind def
+
+%% end of page
+/QP {
+ Q % show page
+ C restore
+ showpage
+} bind def
+
+% merges one key value pair into the page device dict
+%
+% key value SPD -
+/SPD {
+ /setpagedevice where {
+ << 3 1 roll >>
+ setpagedevice
+ } { pop pop } ifelse
+} bind def
+
+
+% font handling
+
+/T1AddMapping { % basefont [glyphname ...] T1AddMapping -
+ 10 dict begin
+ /glyphs exch def
+ /fnt exch def
+ /current fnt /NumGlyphs get def
+ /CMap fnt /CMap get def
+
+ 0 1 glyphs length 1 sub % 0 1 (num glyphs - 1)
+ {
+ glyphs exch get /gn exch def
+
+ current dup % glyph_index glyph_index
+ 256 mod /min exch def % glyph_index
+ 256 idiv /maj exch def % -
+ CMap dup maj get dup % cmap cmap_maj cmap_maj
+ null eq {
+ pop 256 array
+ 0 1 255 {1 index exch /.notdef put} for
+ } if
+ dup % cmap cmap_maj cmap_maj
+ min gn put % cmap cmap_maj
+ maj exch put % -
+
+ /current current 1 add def
+ } for
+
+ fnt /CMap CMap put
+ fnt /NumGlyphs current put
+ end
+} def
+
+/T1AddGlyphs { % basefont [glyphname charstring ...] T1AddGlyphs -
+ 10 dict begin
+ /glyphs exch def
+ /fnt exch def
+ /current fnt /NumGlyphs get def
+ /CMap fnt /CMap get def
+ /CharStrings fnt /CharStrings get def
+
+ 0 1 glyphs length 2 idiv 1 sub % 0 1 (num glyphs - 1)
+ {
+ 2 mul dup
+ glyphs exch get /gn exch def
+ 1 add
+ glyphs exch get /cs exch def
+
+ current dup % glyph_index glyph_index
+ 256 mod /min exch def % glyph_index
+ 256 idiv /maj exch def % -
+ CMap dup maj get dup % cmap cmap_maj cmap_maj
+ null eq {
+ pop 256 array
+ 0 1 255 {1 index exch /.notdef put} for
+ } if
+ dup % cmap cmap_maj cmap_maj
+ min gn put % cmap cmap_maj
+ maj exch put % -
+
+ CharStrings gn cs put
+ /current current 1 add def
+ } for
+
+ fnt /CharStrings CharStrings put
+ fnt /CMap CMap put
+ fnt /NumGlyphs current put
+ end
+} def
+
+
+
+/StringAdd { % string1 string2 stringadd result
+ 1 index length 1 index length add
+ string
+ 3 1 roll
+ 2 index 0 3 index putinterval
+ 2 index 2 index length 2 index putinterval
+ pop pop
+} def
+
+
+/T1Setup { % fontname T1Setup -
+10 dict begin
+ dup /FontName exch def
+ (-Base) StringAdd cvx cvn /Font exch def
+ /MaxPage Font /NumGlyphs get 1 sub 256 idiv def
+
+ /FDepVector MaxPage 1 add array def
+ /Encoding MaxPage 1 add array def
+
+ 0 1 MaxPage {
+ dup Encoding exch dup put
+
+
+ dup /Page exch def
+ FontName (-) StringAdd
+ exch
+ 20 string cvs StringAdd % page fontname
+ cvn
+
+ Font 0 dict copy dup dup /CMap get
+ Page get
+ /Encoding exch put definefont
+ FDepVector exch Page exch put
+ } for
+
+ FontName cvn <<
+ /FontType 0
+ /FMapType 2
+ /FontMatrix[1 0 0 1 0 0]
+ /Encoding Encoding
+ /FDepVector FDepVector
+ >> definefont pop
+ end
+} def
+