You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
qt3/src/kernel/qpsprinter.ps

806 lines
18 KiB

% 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.
/d /def load def
/D {bind d} bind d
/d2 {dup dup} D
/B {0 d2} D
/W {255 d2} D
/ED {exch d} D
/D0 {0 ED} D
/LT {lineto} D
/MT {moveto} D
/S {stroke} D
/F {setfont} D
/SW {setlinewidth} D
/CP {closepath} D
/RL {rlineto} D
/NP {newpath} D
/CM {currentmatrix} D
/SM {setmatrix} D
/TR {translate} D
/SD {setdash} D
/SC {aload pop setrgbcolor} D
/CR {currentfile read pop} D
/i {index} D
/bs {bitshift} D
/scs {setcolorspace} D
/DB {dict dup begin} D
/DE {end d} D
/ie {ifelse} D
/sp {astore pop} D
% ENDUNCOMPRESSED: Warning: leave this line in.
% Everything before this line will be left untouched by the compression
/BSt 0 d % brush style
/LWi 1 d % line width
/PSt 1 d % pen style
/Cx 0 d % current x position
/Cy 0 d % current y position
/WFi false d % winding fill
/OMo false d % opaque mode (not transparent)
/BCol [ 1 1 1 ] d % brush color
/PCol [ 0 0 0 ] d % pen color
/BkCol [ 1 1 1 ] d % background color
/BDArr [ % Brush dense patterns
0.94
0.88
0.63
0.50
0.37
0.12
0.06
] d
/defM matrix d
/nS 0 d % number of saved painter states
% LArr for the Pen styles is defined in emitHeader because of scaling
% GPS: GetPenStyle
% Returns the line pattern (from pen style PSt).
%
% bool GPS pattern
% true : returns draw pattern
% false: returns fill pattern
/GPS {
PSt 1 ge PSt 5 le and % valid pen pattern?
{
{ LArr PSt 1 sub 2 mul get } % draw pattern
{ LArr PSt 2 mul 1 sub get } ifelse % opaque pattern
}
{ [] } ifelse % out of range => solid line
} D
% QS: QtStroke
% draw and fill current path
%
% - QS -
/QS { % stroke command
PSt 0 ne % != NO_PEN
{
gsave
LWi SW % set line width
true GPS 0 setdash S % draw line pattern
OMo PSt 1 ne and % opaque mode and not solid line?
{
BkCol SC
false GPS dup 0 get setdash S % fill in opaque pattern
} if
grestore
} if
} D
%% The following operations are used to read compressed data from the file
%% Until now this is only used for image compression
% read 28 bits and leave them on tos
%
% - r28 num
/r28 {
% skip past whitespace and read one character
{ currentfile read pop
dup 32 gt { exit } if
pop
} loop
% read three more
3 {
currentfile read pop
} repeat
% make an accumulator
0
% for each character, shift the accumulator and add in the character
4 {
7 bitshift exch
dup 128 gt { 84 sub } if 42 sub 127 and
add
} repeat
} D
/rA 0 d % accumulator
/rL 0 d % bits left
% takes number of bits, leaves number
%
% num rB num
/rB {
rL 0 eq {
% if we have nothing, let's get something
/rA r28 d
/rL 28 d
} if
dup rL gt {
% if we don't have enough, take what we have and get more
rA exch rL sub rL exch
/rA 0 d /rL 0 d
rB exch bitshift add
} {
% else take some of what we have
dup rA 16#fffffff 3 -1 roll bitshift not and exch
% ... and update rL and rA
dup rL exch sub /rL ED
neg rA exch bitshift /rA ED
} ifelse
} D
% uncompresses image data from currentfile until the string on the
% stack is full; leaves the string there.
% assumes that nothing could conceivably go wrong, ie. the compressed data has
% to be in the correct format and the length of the string has to be exactly right
% to hold the compressed data
%
% string uc string
%
%%% Warning: if you change the method here, change the table in qpsprinter.cpp:compress()!
/uc {
/rL 0 d
0
{ % string pos
dup 2 index length ge { exit } if
1 rB
1 eq { % compressed
3 rB % string pos bits
dup 3 ge {
1 add dup rB % string pos bits extra
1 index 5 ge {
1 index 6 ge {
1 index 7 ge {
1 index 8 ge {
128 add
} if
64 add
} if
32 add
} if
16 add
} if
3 add
exch pop
} if
3 add
% string pos length
exch 10 rB 1 add
% string length pos dist
{
dup 3 index lt {
dup
} {
2 index
} ifelse % string length pos dist length-this-time
4 index 3 index 3 index sub 2 index getinterval
5 index 4 index 3 -1 roll putinterval
dup 4 -1 roll add 3 1 roll
4 -1 roll exch sub
dup 0 eq { exit } if
3 1 roll
} loop % string pos dist length
pop pop
} { % uncompressed
3 rB 1 add
{
2 copy 8 rB put 1 add
} repeat
} ifelse
} loop
pop
} D
%% image drawing routines
/sl D0 % ### is this needed ?
% 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 ED
/QCIgray QCIcolor length 3 idiv string d
0 1 QCIcolor length 3 idiv 1 sub
{ /QCIindex ED
/x QCIindex 3 mul d
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
} D
% 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
false eq { % no mask, draw solid background
pop
true 3 1 roll % width height false matrix image
4 index
4 index
false
4 index
4 index
imagemask
BkCol SC
imagemask
} {
pop
false 3 1 roll % width height false matrix image
imagemask
} ifelse
} {
dup false ne {
% have a mask, see if we can use it
/languagelevel where {
pop
languagelevel 3 ge
} { false } ifelse
} {
false
} ifelse
{
% languagelevel3, we can use image mask and dicts
% store the image mask
/ma exch d
% select colorspace according to 8|24 bit depth and set the decode array /dc
8 eq {
/dc [0 1] d
/DeviceGray
} {
/dc [0 1 0 1 0 1] d
/DeviceRGB
} ifelse
setcolorspace
% the image data
/im exch d
% transformation matrix
/mt exch d
% width and height
/h exch def
/w exch def
% the image dict
/id
7 dict dup begin
/ImageType 1 d
/Width w d
/Height h d
/ImageMatrix mt d
/DataSource im d
/BitsPerComponent 8 d
/Decode dc d
end d
% the mask dictionary
/md
7 dict dup begin
/ImageType 1 d
/Width w d
/Height h d
/ImageMatrix mt d
/DataSource ma d
/BitsPerComponent 1 d
/Decode [0 1] d
end d
% and the combined image dict
4 dict dup begin
/ImageType 3 d
/DataDict id d
/MaskDict md d
/InterleaveType 3 d
end
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
} d
/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 ED
% 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
defM SM
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 ED
sub /w ED
OMo {
NP
0 0 MT
0 h RL
w 0 RL
0 h neg RL
CP
BkCol SC
fill
} if
BCol SC
0.3 SW
NP
BSt 9 eq BSt 11 eq or % horiz or cross pattern
{ 0 4 h
{ dup 0 exch MT w exch LT } for
} if
BSt 10 eq BSt 11 eq or % vert or cross pattern
{ 0 4 w
{ dup 0 MT h LT } for
} if
BSt 12 eq BSt 14 eq or % F-diag or diag cross
{ w h gt
{ 0 6 w h add
{ dup 0 MT h sub h LT } for
} { 0 6 w h add
{ dup 0 exch MT w sub w exch LT } 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 MT h sub 0 LT } for
} { 0 6 w h add
{ dup w exch MT w sub 0 exch LT } for
} ifelse
} if
S
} if
BSt 24 eq % CustomPattern
{
} if
grestore
} D
% for arc
/mat matrix d
/ang1 D0 /ang2 D0
/w D0 /h D0
/x D0 /y D0
/ARC { % Generic ARC function [ X Y W H ang1 ang2 ]
/ang2 ED /ang1 ED /h ED /w ED /y ED /x ED
mat CM pop
x w 2 div add y h 2 div add TR
1 h w div neg scale
ang2 0 ge
{0 0 w 2 div ang1 ang1 ang2 add arc }
{0 0 w 2 div ang1 ang1 ang2 add arcn} ifelse
mat SM
} D
/C D0
/P { % PdcDrawPoint [x y]
NP
MT
0.5 0.5 rmoveto
0 -1 RL
-1 0 RL
0 1 RL
CP
fill
} D
/M { % PdcMoveTo [x y]
/Cy ED /Cx ED
} D
/L { % PdcLineTo [x y]
NP
Cx Cy MT
/Cy ED /Cx ED
Cx Cy LT
QS
} D
/DL { % PdcDrawLine [x1 y1 x0 y0]
NP
MT
LT
QS
} D
/HL { % PdcDrawLine [x1 y x0]
1 index DL
} D
/VL { % PdcDrawLine [x y1 y0]
2 index exch DL
} D
/R { % PdcDrawRect [x y w h]
/h ED /w ED /y ED /x ED
NP
x y MT
0 h RL
w 0 RL
0 h neg RL
CP
BF
QS
} D
/ACR { % add clip rect
/h ED /w ED /y ED /x ED
x y MT
0 h RL
w 0 RL
0 h neg RL
CP
} D
/xr D0 /yr D0
/rx D0 /ry D0 /rx2 D0 /ry2 D0
/RR { % PdcDrawRoundRect [x y w h xr yr]
/yr ED /xr ED /h ED /w ED /y ED /x ED
xr 0 le yr 0 le or
{x y w h R} % Do rect if one of rounding values is less than 0.
{xr 100 ge yr 100 ge or
{x y w h E} % Do ellipse if both rounding values are larger than 100
{
/rx xr w mul 200 div d
/ry yr h mul 200 div d
/rx2 rx 2 mul d
/ry2 ry 2 mul d
NP
x rx add y MT
x y rx2 ry2 180 -90
x y h add ry2 sub rx2 ry2 270 -90
x w add rx2 sub y h add ry2 sub rx2 ry2 0 -90
x w add rx2 sub y rx2 ry2 90 -90
ARC ARC ARC ARC
CP
BF
QS
} ifelse
} ifelse
} D
/E { % PdcDrawEllipse [x y w h]
/h ED /w ED /y ED /x ED
mat CM pop
x w 2 div add y h 2 div add translate
1 h w div scale
NP
0 0 w 2 div 0 360 arc
mat SM
BF
QS
} D
/A { % PdcDrawArc [x y w h ang1 ang2]
16 div exch 16 div exch
NP
ARC
QS
} D
/PIE { % PdcDrawPie [x y w h ang1 ang2]
/ang2 ED /ang1 ED /h ED /w ED /y ED /x ED
NP
x w 2 div add y h 2 div add MT
x y w h ang1 16 div ang2 16 div ARC
CP
BF
QS
} D
/CH { % PdcDrawChord [x y w h ang1 ang2]
16 div exch 16 div exch
NP
ARC
CP
BF
QS
} D
/BZ { % PdcDrawCubicBezier [4 points]
curveto
QS
} D
/CRGB { % Compute RGB [R G B] => R/255 G/255 B/255
255 div 3 1 roll
255 div 3 1 roll
255 div 3 1 roll
} D
/BC { % PdcSetBkColor [R G B]
CRGB
BkCol astore pop
} D
/BR { % PdcSetBrush [style R G B]
CRGB
BCol astore pop
/BSt ED
} D
/WB { % set white solid brush
1 W BR
} D
/NB { % set nobrush
0 B BR
} D
/PE { % PdcSetPen [style width R G B Cap Join]
setlinejoin setlinecap
CRGB
PCol astore pop
/LWi ED
/PSt ED
LWi 0 eq { 0.25 /LWi ED } if % ### 3.0 remove this line
PCol SC
} D
/P1 { % PdcSetPen [R G B]
1 0 5 2 roll 0 0 PE
} D
/ST { % SET TRANSFORM [matrix]
defM setmatrix
concat
} D
%% Font handling
% the next three commands are for defining fonts. The first one
% tries to find the most suitable printer font out of a fontlist.
% if encoding is false the default one will be used.
/MF { % newname encoding fontlist
% this function tries to find a suitable postscript font.
% We try quite hard not to get courier for a
% proportional font. The following takes an array of fonts.
% The algorithm will take the first font that
% gives a match (defined as not resulting in a courier font).
% each entry in the table is an array of the form [ /Fontname x-stretch slant ]
% x-strtch can be used to stretch/squeeze the font in x direction.
% This gives better results when eg substituting helvetica for arial
% slant is an optional slant. 0 is non slanted, 0.2 is a typical value for a syntetic oblique.
% encoding can be either an encoding vector of false if the default font encoding is requested.
true exch true exch % push a dummy on the stack,
{ % so the loop over the array will leave a font in any case when exiting.
exch pop exch pop % (dummy | oldfont) (dummy | fontdict) fontarray
dup 0 get dup findfont % get the fontname from the array and load it
dup /FontName get % see if the font exists
3 -1 roll eq { % see if fontname and the one provided are equal
exit
} if
} forall
exch % font fontarray
% newname encoding font fontarray defines a postscript font
dup
1 get /fxscale exch def % define scale, sland and encoding
2 get /fslant exch def
exch /fencoding exch def
[ fxscale 0 fslant 1 0 0 ] makefont % transform font accordingly
fencoding false eq { % check if we have an encoding and use it if available
} {
dup maxlength dict begin % copy font
{
1 index /FID ne % don't copy FID, as it's not allowed in PS Level 1
{def}{pop pop}ifelse
} forall
/Encoding fencoding def % replace encoding
currentdict
end
} ifelse
definefont pop
} D
% an embedded font. This is used for the base fonts of the composite font used later on.
/MFEmb { % newname encoding fontname
findfont dup length dict
begin
{
1 index /FID ne
{d}{pop pop}ifelse
} forall
/Encoding ED currentdict
end
definefont pop
} D
% DF: define font
% used to get a scaled version of an already loaded font
%
% newname pointsize fontmame DF -
/DF {
findfont
% get the fontsize on top of the stack and define font matrix
/fs 3 -1 roll d [ fs 0 0 fs -1 mul 0 0 ]
makefont
d
} D
/ty 0 d
/Y {
/ty ED
} D
/Tl { % draw underline/strikeout line: () w x y lw ->Tl-> () w x
gsave
setlinewidth
NP 1 index exch MT
1 index 0 rlineto stroke
grestore
} D
/XYT { % [string [x/y displacement array] width x]
ty MT % pops x
/xyshow where { % interpreter has xyshow
pop pop
xyshow
} { % use ashow
exch pop % string cwidth
1 index % string cwidth string
dup length 2 div exch % string cwidth length string !have to divide by 2 since we use unicode!
stringwidth pop % string cwidth length pwidth
3 -1 roll % string length pwidth cwidth
exch sub exch div % string extraperchar
exch 0 exch % extraperchar 0 string
ashow
} ifelse
} D
/AT {
ty MT % pops x
1 index % string cwidth string
dup length 2 div exch % string cwidth length string !have to divide by 2 since we use unicode!
stringwidth pop % string cwidth length pwidth
3 -1 roll % string length pwidth cwidth
exch sub exch div % string extraperchar
exch 0 exch % extraperchar 0 string
ashow
} D
%% start of page
/QI {
/C save d
pageinit
/Cx 0 d % reset current x position
/Cy 0 d % reset current y position
/OMo false d
} D
%% end of page
/QP { % show page
C restore
showpage
} D
% merges one key value pair into the page device dict
%
% key value SPD -
/SPD {
/setpagedevice where {
1 dict dup begin 3 1 roll def end
setpagedevice
} { pop pop } ifelse
} D
/SV { % Save painter state
BSt LWi PSt Cx Cy WFi OMo BCol PCol BkCol
/nS nS 1 add d
gsave
} D
/RS { % Restore painter state
nS 0 gt
{ grestore
/BkCol ED /PCol ED /BCol ED /OMo ED /WFi ED
/Cy ED /Cx ED /PSt ED /LWi ED /BSt ED
/nS nS 1 sub d
} if
} D
/CLSTART { % clipping start
/clipTmp matrix CM d % save current matrix
defM SM % Page default matrix
NP
} D
/CLEND { % clipping end
clip
NP
clipTmp SM % restore the current matrix
} D
/CLO { % clipping off
grestore % restore top of page state
gsave % save it back again
defM SM % set coordsys (defensive progr.)
} D