1 /////////////////////////////////////////////////////////////////////////////
3 // Purpose: Generic wxPostScriptDC implementation
4 // Author: Julian Smart, Robert Roebling, Markus Holzhem
8 // Copyright: (c) Julian Smart
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
13 #pragma implementation "dcpsg.h"
16 #include "wx/wxprec.h"
25 #if wxUSE_PRINTING_ARCHITECTURE
31 #include "wx/dcmemory.h"
37 #include "wx/generic/dcpsg.h"
38 #include "wx/prntbase.h"
40 #include "wx/filefn.h"
41 #if WXWIN_COMPATIBILITY_2_2
42 #include "wx/window.h"
43 #include "wx/printdlg.h"
68 //-----------------------------------------------------------------------------
69 // start and end of document/page
70 //-----------------------------------------------------------------------------
72 static const char *wxPostScriptHeaderConicTo
= "\
76 /conic_cntrl_y exch def\n\
77 /conic_cntrl_x exch def\n\
81 /p1_x p0_x conic_cntrl_x p0_x sub 2 3 div mul add def\n\
82 /p1_y p0_y conic_cntrl_y p0_y sub 2 3 div mul add def\n\
83 /p2_x p1_x to_x p0_x sub 1 3 div mul add def\n\
84 /p2_y p1_y to_y p0_y sub 1 3 div mul add def\n\
85 p1_x p1_y p2_x p2_y to_x to_y curveto\n\
89 static const char *wxPostScriptHeaderEllipse
= "\
90 /ellipsedict 8 dict def\n\
91 ellipsedict /mtrx matrix put\n\
95 /startangle exch def\n\
100 /savematrix mtrx currentmatrix def\n\
103 0 0 1 startangle endangle arc\n\
104 savematrix setmatrix\n\
109 static const char *wxPostScriptHeaderEllipticArc
= "\
110 /ellipticarcdict 8 dict def\n\
111 ellipticarcdict /mtrx matrix put\n\
113 { ellipticarcdict begin\n\
115 /endangle exch def\n\
116 /startangle exch def\n\
121 /savematrix mtrx currentmatrix def\n\
124 do_fill { 0 0 moveto } if\n\
125 0 0 1 startangle endangle arc\n\
126 savematrix setmatrix\n\
127 do_fill { fill }{ stroke } ifelse\n\
131 static const char *wxPostScriptHeaderSpline
= "\
132 /DrawSplineSection {\n\
139 /xa x1 x2 x1 sub 0.666667 mul add def\n\
140 /ya y1 y2 y1 sub 0.666667 mul add def\n\
141 /xb x3 x2 x3 sub 0.666667 mul add def\n\
142 /yb y3 y2 y3 sub 0.666667 mul add def\n\
144 xa ya xb yb x3 y3 curveto\n\
148 static const char *wxPostScriptHeaderColourImage
= "\
149 %% define 'colorimage' if it isn't defined\n\
150 %% ('colortogray' and 'mergeprocs' come from xwd2ps\n\
152 /colorimage where %% do we know about 'colorimage'?\n\
153 { pop } %% yes: pop off the 'dict' returned\n\
154 { %% no: define one\n\
155 /colortogray { %% define an RGB->I function\n\
156 /rgbdata exch store %% call input 'rgbdata'\n\
157 rgbdata length 3 idiv\n\
158 /npixls exch store\n\
160 0 1 npixls 1 sub {\n\
162 rgbdata rgbindx get 20 mul %% Red\n\
163 rgbdata rgbindx 1 add get 32 mul %% Green\n\
164 rgbdata rgbindx 2 add get 12 mul %% Blue\n\
165 add add 64 idiv %% I = .5G + .31R + .18B\n\
167 /rgbindx rgbindx 3 add store\n\
169 grays 0 npixls getinterval\n\
172 %% Utility procedure for colorimage operator.\n\
173 %% This procedure takes two procedures off the\n\
174 %% stack and merges them into a single procedure.\n\
176 /mergeprocs { %% def\n\
195 /colorimage { %% def\n\
196 pop pop %% remove 'false 3' operands\n\
197 {colortogray} mergeprocs\n\
200 } ifelse %% end of 'false' case\n\
205 static char wxPostScriptHeaderReencodeISO1
[] =
207 "dup dup findfont dup length dict begin\n"
208 "{ 1 index /FID ne { def }{ pop pop } ifelse } forall\n"
209 "/Encoding ISOLatin1Encoding def\n"
210 "currentdict end definefont\n"
212 "/ISOLatin1Encoding [\n"
213 "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n"
214 "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n"
215 "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n"
216 "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n"
217 "/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright\n"
218 "/parenleft/parenright/asterisk/plus/comma/minus/period/slash\n"
219 "/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon\n"
220 "/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N\n"
221 "/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright\n"
222 "/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m\n"
223 "/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde\n"
224 "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n"
225 "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n"
226 "/.notdef/dotlessi/grave/acute/circumflex/tilde/macron/breve\n"
227 "/dotaccent/dieresis/.notdef/ring/cedilla/.notdef/hungarumlaut\n";
229 static char wxPostScriptHeaderReencodeISO2
[] =
230 "/ogonek/caron/space/exclamdown/cent/sterling/currency/yen/brokenbar\n"
231 "/section/dieresis/copyright/ordfeminine/guillemotleft/logicalnot\n"
232 "/hyphen/registered/macron/degree/plusminus/twosuperior/threesuperior\n"
233 "/acute/mu/paragraph/periodcentered/cedilla/onesuperior/ordmasculine\n"
234 "/guillemotright/onequarter/onehalf/threequarters/questiondown\n"
235 "/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla\n"
236 "/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex\n"
237 "/Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis\n"
238 "/multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute\n"
239 "/Thorn/germandbls/agrave/aacute/acircumflex/atilde/adieresis\n"
240 "/aring/ae/ccedilla/egrave/eacute/ecircumflex/edieresis/igrave\n"
241 "/iacute/icircumflex/idieresis/eth/ntilde/ograve/oacute/ocircumflex\n"
242 "/otilde/odieresis/divide/oslash/ugrave/uacute/ucircumflex/udieresis\n"
243 "/yacute/thorn/ydieresis\n"
247 //-------------------------------------------------------------------------------
249 //-------------------------------------------------------------------------------
251 IMPLEMENT_DYNAMIC_CLASS(wxPostScriptDC
, wxDC
)
253 float wxPostScriptDC::ms_PSScaleFactor
= 1.0;
255 void wxPostScriptDC::SetResolution(int ppi
)
257 ms_PSScaleFactor
= (float)ppi
/ 72.0;
260 int wxPostScriptDC::GetResolution()
262 return (int)(ms_PSScaleFactor
* 72.0);
265 //-------------------------------------------------------------------------------
267 wxPostScriptDC::wxPostScriptDC ()
269 m_pstream
= (FILE*) NULL
;
279 m_underlinePosition
= 0.0;
280 m_underlineThickness
= 0.0;
282 m_signX
= 1; // default x-axis left to right
283 m_signY
= -1; // default y-axis bottom up -> top down
286 wxPostScriptDC::wxPostScriptDC (const wxPrintData
& printData
)
288 m_pstream
= (FILE*) NULL
;
298 m_underlinePosition
= 0.0;
299 m_underlineThickness
= 0.0;
301 m_signX
= 1; // default x-axis left to right
302 m_signY
= -1; // default y-axis bottom up -> top down
304 m_printData
= printData
;
309 wxPostScriptDC::~wxPostScriptDC ()
314 m_pstream
= (FILE*) NULL
;
318 #if WXWIN_COMPATIBILITY_2_2
319 bool wxPostScriptDC::Create( const wxString
&output
, bool interactive
, wxWindow
*parent
)
322 data
.SetFilename( output
);
323 data
.SetPrintMode( wxPRINT_MODE_FILE
);
327 wxPrintDialogData
ddata( data
);
328 wxPrintDialog
dialog( parent
, &data
);
329 dialog
.GetPrintDialogData().SetSetupDialog(TRUE
);
330 if (dialog
.ShowModal() != wxID_OK
)
335 data
= dialog
.GetPrintDialogData().GetPrintData();
343 bool wxPostScriptDC::Ok() const
348 void wxPostScriptDC::DoSetClippingRegion (wxCoord x
, wxCoord y
, wxCoord w
, wxCoord h
)
350 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
352 if (m_clipping
) DestroyClippingRegion();
354 wxDC::DoSetClippingRegion(x
, y
, w
, h
);
363 "closepath clip newpath\n",
364 LogicalToDeviceX(x
), LogicalToDeviceY(y
),
365 LogicalToDeviceX(x
+w
), LogicalToDeviceY(y
),
366 LogicalToDeviceX(x
+w
), LogicalToDeviceY(y
+h
),
367 LogicalToDeviceX(x
), LogicalToDeviceY(y
+h
) );
371 void wxPostScriptDC::DestroyClippingRegion()
373 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
378 fprintf( m_pstream
, "grestore\n" );
381 wxDC::DestroyClippingRegion();
384 void wxPostScriptDC::Clear()
386 wxFAIL_MSG( wxT("wxPostScriptDC::Clear not implemented.") );
389 bool wxPostScriptDC::DoFloodFill (wxCoord
WXUNUSED(x
), wxCoord
WXUNUSED(y
), const wxColour
&WXUNUSED(col
), int WXUNUSED(style
))
391 wxFAIL_MSG( wxT("wxPostScriptDC::FloodFill not implemented.") );
395 bool wxPostScriptDC::DoGetPixel (wxCoord
WXUNUSED(x
), wxCoord
WXUNUSED(y
), wxColour
* WXUNUSED(col
)) const
397 wxFAIL_MSG( wxT("wxPostScriptDC::GetPixel not implemented.") );
401 void wxPostScriptDC::DoCrossHair (wxCoord
WXUNUSED(x
), wxCoord
WXUNUSED(y
))
403 wxFAIL_MSG( wxT("wxPostScriptDC::CrossHair not implemented.") );
406 void wxPostScriptDC::DoDrawLine (wxCoord x1
, wxCoord y1
, wxCoord x2
, wxCoord y2
)
408 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
410 if (m_pen
.GetStyle() == wxTRANSPARENT
) return;
419 LogicalToDeviceX(x1
), LogicalToDeviceY(y1
),
420 LogicalToDeviceX(x2
), LogicalToDeviceY (y2
) );
422 CalcBoundingBox( x1
, y1
);
423 CalcBoundingBox( x2
, y2
);
426 #define RAD2DEG 57.29577951308
428 void wxPostScriptDC::DoDrawArc (wxCoord x1
, wxCoord y1
, wxCoord x2
, wxCoord y2
, wxCoord xc
, wxCoord yc
)
430 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
432 wxCoord dx
= x1
- xc
;
433 wxCoord dy
= y1
- yc
;
434 wxCoord radius
= (wxCoord
) sqrt( (double)(dx
*dx
+dy
*dy
) );
435 double alpha1
, alpha2
;
437 if (x1
== x2
&& y1
== y2
)
442 else if (radius
== 0.0)
444 alpha1
= alpha2
= 0.0;
448 alpha1
= (x1
- xc
== 0) ?
449 (y1
- yc
< 0) ? 90.0 : -90.0 :
450 -atan2(double(y1
-yc
), double(x1
-xc
)) * RAD2DEG
;
451 alpha2
= (x2
- xc
== 0) ?
452 (y2
- yc
< 0) ? 90.0 : -90.0 :
453 -atan2(double(y2
-yc
), double(x2
-xc
)) * RAD2DEG
;
455 while (alpha1
<= 0) alpha1
+= 360;
456 while (alpha2
<= 0) alpha2
+= 360; // adjust angles to be between
457 while (alpha1
> 360) alpha1
-= 360; // 0 and 360 degree
458 while (alpha2
> 360) alpha2
-= 360;
460 if (m_brush
.GetStyle() != wxTRANSPARENT
)
466 "%d %d %d %d %d %d ellipse\n"
470 LogicalToDeviceX(xc
), LogicalToDeviceY(yc
), LogicalToDeviceXRel(radius
), LogicalToDeviceYRel(radius
), (wxCoord
)alpha1
, (wxCoord
) alpha2
,
471 LogicalToDeviceX(xc
), LogicalToDeviceY(yc
) );
473 CalcBoundingBox( xc
-radius
, yc
-radius
);
474 CalcBoundingBox( xc
+radius
, yc
+radius
);
477 if (m_pen
.GetStyle() != wxTRANSPARENT
)
483 "%d %d %d %d %d %d ellipse\n"
487 LogicalToDeviceX(xc
), LogicalToDeviceY(yc
), LogicalToDeviceXRel(radius
), LogicalToDeviceYRel(radius
), (wxCoord
)alpha1
, (wxCoord
) alpha2
,
488 LogicalToDeviceX(xc
), LogicalToDeviceY(yc
) );
490 CalcBoundingBox( xc
-radius
, yc
-radius
);
491 CalcBoundingBox( xc
+radius
, yc
+radius
);
495 void wxPostScriptDC::DoDrawEllipticArc(wxCoord x
,wxCoord y
,wxCoord w
,wxCoord h
,double sa
,double ea
)
497 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
499 if (sa
>=360 || sa
<=-360) sa
=sa
-int(sa
/360)*360;
500 if (ea
>=360 || ea
<=-360) ea
=ea
-int(ea
/360)*360;
506 DrawEllipse(x
,y
,w
,h
);
510 if (m_brush
.GetStyle () != wxTRANSPARENT
)
516 "%d %d %d %d %d %d true ellipticarc\n",
517 LogicalToDeviceX(x
+w
/2), LogicalToDeviceY(y
+h
/2), LogicalToDeviceXRel(w
/2), LogicalToDeviceYRel(h
/2), (wxCoord
)sa
, (wxCoord
)ea
);
519 CalcBoundingBox( x
,y
);
520 CalcBoundingBox( x
+w
, y
+h
);
523 if (m_pen
.GetStyle () != wxTRANSPARENT
)
529 "%d %d %d %d %d %d false ellipticarc\n",
530 LogicalToDeviceX(x
+w
/2), LogicalToDeviceY(y
+h
/2), LogicalToDeviceXRel(w
/2), LogicalToDeviceYRel(h
/2), (wxCoord
)sa
, (wxCoord
)ea
);
532 CalcBoundingBox( x
,y
);
533 CalcBoundingBox( x
+w
, y
+h
);
537 void wxPostScriptDC::DoDrawPoint (wxCoord x
, wxCoord y
)
539 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
541 if (m_pen
.GetStyle() == wxTRANSPARENT
) return;
550 LogicalToDeviceX(x
), LogicalToDeviceY(y
),
551 LogicalToDeviceX(x
+1), LogicalToDeviceY(y
) );
553 CalcBoundingBox( x
, y
);
556 void wxPostScriptDC::DoDrawPolygon (int n
, wxPoint points
[], wxCoord xoffset
, wxCoord yoffset
, int WXUNUSED(fillStyle
))
558 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
562 if (m_brush
.GetStyle () != wxTRANSPARENT
)
566 fprintf( m_pstream
, "newpath\n" );
568 wxCoord xx
= LogicalToDeviceX(points
[0].x
+ xoffset
);
569 wxCoord yy
= LogicalToDeviceY(points
[0].y
+ yoffset
);
571 fprintf( m_pstream
, "%d %d moveto\n", xx
, yy
);
573 CalcBoundingBox( points
[0].x
+ xoffset
, points
[0].y
+ yoffset
);
575 for (int i
= 1; i
< n
; i
++)
577 xx
= LogicalToDeviceX(points
[i
].x
+ xoffset
);
578 yy
= LogicalToDeviceY(points
[i
].y
+ yoffset
);
580 fprintf( m_pstream
, "%d %d lineto\n", xx
, yy
);
582 CalcBoundingBox( points
[i
].x
+ xoffset
, points
[i
].y
+ yoffset
);
585 fprintf( m_pstream
, "fill\n" );
588 if (m_pen
.GetStyle () != wxTRANSPARENT
)
592 fprintf( m_pstream
, "newpath\n" );
594 wxCoord xx
= LogicalToDeviceX(points
[0].x
+ xoffset
);
595 wxCoord yy
= LogicalToDeviceY(points
[0].y
+ yoffset
);
597 fprintf( m_pstream
, "%d %d moveto\n", xx
, yy
);
599 CalcBoundingBox( points
[0].x
+ xoffset
, points
[0].y
+ yoffset
);
601 for (int i
= 1; i
< n
; i
++)
603 xx
= LogicalToDeviceX(points
[i
].x
+ xoffset
);
604 yy
= LogicalToDeviceY(points
[i
].y
+ yoffset
);
606 fprintf( m_pstream
, "%d %d lineto\n", xx
, yy
);
608 CalcBoundingBox( points
[i
].x
+ xoffset
, points
[i
].y
+ yoffset
);
611 fprintf( m_pstream
, "closepath\n" );
612 fprintf( m_pstream
, "stroke\n" );
616 void wxPostScriptDC::DoDrawLines (int n
, wxPoint points
[], wxCoord xoffset
, wxCoord yoffset
)
618 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
620 if (m_pen
.GetStyle() == wxTRANSPARENT
) return;
627 for ( i
=0; i
<n
; i
++ )
629 CalcBoundingBox( LogicalToDeviceX(points
[i
].x
+xoffset
), LogicalToDeviceY(points
[i
].y
+yoffset
));
635 LogicalToDeviceX(points
[0].x
+xoffset
), LogicalToDeviceY(points
[0].y
+yoffset
) );
637 for (i
= 1; i
< n
; i
++)
641 LogicalToDeviceX(points
[i
].x
+xoffset
), LogicalToDeviceY(points
[i
].y
+yoffset
) );
644 fprintf( m_pstream
, "stroke\n" );
647 void wxPostScriptDC::DoDrawRectangle (wxCoord x
, wxCoord y
, wxCoord width
, wxCoord height
)
649 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
651 if (m_brush
.GetStyle () != wxTRANSPARENT
)
663 LogicalToDeviceX(x
), LogicalToDeviceY(y
),
664 LogicalToDeviceX(x
+ width
), LogicalToDeviceY(y
),
665 LogicalToDeviceX(x
+ width
), LogicalToDeviceY(y
+ height
),
666 LogicalToDeviceX(x
), LogicalToDeviceY(y
+ height
) );
668 CalcBoundingBox( x
, y
);
669 CalcBoundingBox( x
+ width
, y
+ height
);
672 if (m_pen
.GetStyle () != wxTRANSPARENT
)
684 LogicalToDeviceX(x
), LogicalToDeviceY(y
),
685 LogicalToDeviceX(x
+ width
), LogicalToDeviceY(y
),
686 LogicalToDeviceX(x
+ width
), LogicalToDeviceY(y
+ height
),
687 LogicalToDeviceX(x
), LogicalToDeviceY(y
+ height
) );
689 CalcBoundingBox( x
, y
);
690 CalcBoundingBox( x
+ width
, y
+ height
);
694 void wxPostScriptDC::DoDrawRoundedRectangle (wxCoord x
, wxCoord y
, wxCoord width
, wxCoord height
, double radius
)
696 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
700 // Now, a negative radius is interpreted to mean
701 // 'the proportion of the smallest X or Y dimension'
702 double smallest
= 0.0;
707 radius
= (-radius
* smallest
);
710 wxCoord rad
= (wxCoord
) radius
;
712 if (m_brush
.GetStyle () != wxTRANSPARENT
)
716 /* Draw rectangle anticlockwise */
719 "%d %d %d 90 180 arc\n"
721 "%d %d %d 180 270 arc\n"
723 "%d %d %d 270 0 arc\n"
725 "%d %d %d 0 90 arc\n"
729 LogicalToDeviceX(x
+ rad
), LogicalToDeviceY(y
+ rad
), LogicalToDeviceXRel(rad
),
730 LogicalToDeviceX(x
), LogicalToDeviceY(y
+ rad
),
731 LogicalToDeviceX(x
+ rad
), LogicalToDeviceY(y
+ height
- rad
), LogicalToDeviceXRel(rad
),
732 LogicalToDeviceX(x
+ width
- rad
), LogicalToDeviceY(y
+ height
),
733 LogicalToDeviceX(x
+ width
- rad
), LogicalToDeviceY(y
+ height
- rad
), LogicalToDeviceXRel(rad
),
734 LogicalToDeviceX(x
+ width
), LogicalToDeviceY(y
+ rad
),
735 LogicalToDeviceX(x
+ width
- rad
), LogicalToDeviceY(y
+ rad
), LogicalToDeviceXRel(rad
),
736 LogicalToDeviceX(x
+ rad
), LogicalToDeviceY(y
) );
738 CalcBoundingBox( x
, y
);
739 CalcBoundingBox( x
+ width
, y
+ height
);
742 if (m_pen
.GetStyle () != wxTRANSPARENT
)
746 /* Draw rectangle anticlockwise */
749 "%d %d %d 90 180 arc\n"
751 "%d %d %d 180 270 arc\n"
753 "%d %d %d 270 0 arc\n"
755 "%d %d %d 0 90 arc\n"
759 LogicalToDeviceX(x
+ rad
), LogicalToDeviceY(y
+ rad
), LogicalToDeviceXRel(rad
),
760 LogicalToDeviceX(x
), LogicalToDeviceY(y
+ rad
),
761 LogicalToDeviceX(x
+ rad
), LogicalToDeviceY(y
+ height
- rad
), LogicalToDeviceXRel(rad
),
762 LogicalToDeviceX(x
+ width
- rad
), LogicalToDeviceY(y
+ height
),
763 LogicalToDeviceX(x
+ width
- rad
), LogicalToDeviceY(y
+ height
- rad
), LogicalToDeviceXRel(rad
),
764 LogicalToDeviceX(x
+ width
), LogicalToDeviceY(y
+ rad
),
765 LogicalToDeviceX(x
+ width
- rad
), LogicalToDeviceY(y
+ rad
), LogicalToDeviceXRel(rad
),
766 LogicalToDeviceX(x
+ rad
), LogicalToDeviceY(y
) );
768 CalcBoundingBox( x
, y
);
769 CalcBoundingBox( x
+ width
, y
+ height
);
773 void wxPostScriptDC::DoDrawEllipse (wxCoord x
, wxCoord y
, wxCoord width
, wxCoord height
)
775 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
777 if (m_brush
.GetStyle () != wxTRANSPARENT
)
783 "%d %d %d %d 0 360 ellipse\n"
785 LogicalToDeviceX(x
+ width
/ 2), LogicalToDeviceY(y
+ height
/ 2),
786 LogicalToDeviceXRel(width
/ 2), LogicalToDeviceYRel(height
/ 2) );
788 CalcBoundingBox( x
- width
, y
- height
);
789 CalcBoundingBox( x
+ width
, y
+ height
);
792 if (m_pen
.GetStyle () != wxTRANSPARENT
)
798 "%d %d %d %d 0 360 ellipse\n"
800 LogicalToDeviceX(x
+ width
/ 2), LogicalToDeviceY(y
+ height
/ 2),
801 LogicalToDeviceXRel(width
/ 2), LogicalToDeviceYRel(height
/ 2) );
803 CalcBoundingBox( x
- width
, y
- height
);
804 CalcBoundingBox( x
+ width
, y
+ height
);
808 void wxPostScriptDC::DoDrawIcon( const wxIcon
& icon
, wxCoord x
, wxCoord y
)
810 DrawBitmap( icon
, x
, y
, TRUE
);
813 /* this has to be char, not wxChar */
814 static char hexArray
[] = "0123456789ABCDEF";
815 static void LocalDecToHex( int dec
, char *buf
)
817 int firstDigit
= (int)(dec
/16.0);
818 int secondDigit
= (int)(dec
- (firstDigit
*16.0));
819 buf
[0] = hexArray
[firstDigit
];
820 buf
[1] = hexArray
[secondDigit
];
824 void wxPostScriptDC::DoDrawBitmap( const wxBitmap
& bitmap
, wxCoord x
, wxCoord y
, bool WXUNUSED(useMask
) )
826 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
828 if (!bitmap
.Ok()) return;
830 wxImage image
= bitmap
.ConvertToImage();
832 if (!image
.Ok()) return;
834 wxCoord w
= image
.GetWidth();
835 wxCoord h
= image
.GetHeight();
837 wxCoord ww
= LogicalToDeviceXRel(image
.GetWidth());
838 wxCoord hh
= LogicalToDeviceYRel(image
.GetHeight());
840 wxCoord xx
= LogicalToDeviceX(x
);
841 wxCoord yy
= LogicalToDeviceY(y
+ bitmap
.GetHeight());
844 "/origstate save def\n"
846 "/pix %d string def\n"
847 "/grays %d string def\n"
854 "{currentfile pix readhexstring pop}\n"
855 "false 3 colorimage\n",
856 w
, w
, xx
, yy
, ww
, hh
, w
, h
, w
, -h
, h
);
859 for (int j
= 0; j
< h
; j
++)
861 for (int i
= 0; i
< w
; i
++)
864 LocalDecToHex( image
.GetRed(i
,j
), buffer
);
865 fprintf( m_pstream
, buffer
);
866 LocalDecToHex( image
.GetGreen(i
,j
), buffer
);
867 fprintf( m_pstream
, buffer
);
868 LocalDecToHex( image
.GetBlue(i
,j
), buffer
);
869 fprintf( m_pstream
, buffer
);
871 fprintf( m_pstream
, "\n" );
874 fprintf( m_pstream
, "end\n" );
875 fprintf( m_pstream
, "origstate restore\n" );
878 void wxPostScriptDC::SetFont( const wxFont
& font
)
880 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
882 if (!font
.Ok()) return;
888 int Style
= m_font
.GetStyle();
889 int Weight
= m_font
.GetWeight();
892 switch (m_font
.GetFamily())
897 if (Style
== wxITALIC
)
899 if (Weight
== wxBOLD
)
900 name
= "/Courier-BoldOblique";
902 name
= "/Courier-Oblique";
906 if (Weight
== wxBOLD
)
907 name
= "/Courier-Bold";
915 if (Style
== wxITALIC
)
917 if (Weight
== wxBOLD
)
918 name
= "/Times-BoldItalic";
920 name
= "/Times-Italic";
924 if (Weight
== wxBOLD
)
925 name
= "/Times-Bold";
927 name
= "/Times-Roman";
933 name
= "/ZapfChancery-MediumItalic";
941 if (Style
== wxITALIC
)
943 if (Weight
== wxBOLD
)
944 name
= "/Helvetica-BoldOblique";
946 name
= "/Helvetica-Oblique";
950 if (Weight
== wxBOLD
)
951 name
= "/Helvetica-Bold";
959 fprintf( m_pstream
, name
);
960 fprintf( m_pstream
, " reencodeISO def\n" );
961 fprintf( m_pstream
, name
);
962 fprintf( m_pstream
, " findfont\n" );
965 sprintf( buffer
, "%f scalefont setfont\n", LogicalToDeviceYRel(m_font
.GetPointSize() * 1000) / 1000.0F
);
966 // this is a hack - we must scale font size (in pts) according to m_scaleY but
967 // LogicalToDeviceYRel works with wxCoord type (int or longint). Se we first convert font size
968 // to 1/1000th of pt and then back.
969 for (int i
= 0; i
< 100; i
++)
970 if (buffer
[i
] == ',') buffer
[i
] = '.';
971 fprintf( m_pstream
, buffer
);
976 void wxPostScriptDC::SetPen( const wxPen
& pen
)
978 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
980 if (!pen
.Ok()) return;
982 int oldStyle
= m_pen
.GetStyle();
989 sprintf( buffer
, "%f setlinewidth\n", LogicalToDeviceXRel(1000 * m_pen
.GetWidth()) / 1000.0f
);
991 sprintf( buffer
, "%f setlinewidth\n", LogicalToDeviceXRel(1000 * m_pen
.GetWidth()) / 1000.0f
);
993 for (int i
= 0; i
< 100; i
++)
994 if (buffer
[i
] == ',') buffer
[i
] = '.';
995 fprintf( m_pstream
, buffer
);
999 Line style - WRONG: 2nd arg is OFFSET
1001 Here, I'm afraid you do not conceive meaning of parameters of 'setdash'
1002 operator correctly. You should look-up this in the Red Book: the 2nd parame-
1003 ter is not number of values in the array of the first one, but an offset
1004 into this description of the pattern. I mean a real *offset* not index
1005 into array. I.e. If the command is [3 4] 1 setdash is used, then there
1006 will be first black line *2* units wxCoord, then space 4 units, then the
1007 pattern of *3* units black, 4 units space will be repeated.
1010 static const char *dotted
= "[2 5] 2";
1011 static const char *short_dashed
= "[4 4] 2";
1012 static const char *wxCoord_dashed
= "[4 8] 2";
1013 static const char *dotted_dashed
= "[6 6 2 6] 4";
1015 const char *psdash
= (char *) NULL
;
1016 switch (m_pen
.GetStyle())
1018 case wxDOT
: psdash
= dotted
; break;
1019 case wxSHORT_DASH
: psdash
= short_dashed
; break;
1020 case wxLONG_DASH
: psdash
= wxCoord_dashed
; break;
1021 case wxDOT_DASH
: psdash
= dotted_dashed
; break;
1024 default: psdash
= "[] 0"; break;
1027 if (oldStyle
!= m_pen
.GetStyle())
1029 fprintf( m_pstream
, psdash
);
1030 fprintf( m_pstream
," setdash\n" );
1034 unsigned char red
= m_pen
.GetColour().Red();
1035 unsigned char blue
= m_pen
.GetColour().Blue();
1036 unsigned char green
= m_pen
.GetColour().Green();
1040 // Anything not white is black
1041 if (! (red
== (unsigned char) 255 &&
1042 blue
== (unsigned char) 255 &&
1043 green
== (unsigned char) 255) )
1045 red
= (unsigned char) 0;
1046 green
= (unsigned char) 0;
1047 blue
= (unsigned char) 0;
1052 if (!(red
== m_currentRed
&& green
== m_currentGreen
&& blue
== m_currentBlue
))
1054 double redPS
= (double)(red
) / 255.0;
1055 double bluePS
= (double)(blue
) / 255.0;
1056 double greenPS
= (double)(green
) / 255.0;
1060 "%.8f %.8f %.8f setrgbcolor\n",
1061 redPS
, greenPS
, bluePS
);
1062 for (int i
= 0; i
< 100; i
++)
1063 if (buffer
[i
] == ',') buffer
[i
] = '.';
1064 fprintf( m_pstream
, buffer
);
1067 m_currentBlue
= blue
;
1068 m_currentGreen
= green
;
1072 void wxPostScriptDC::SetBrush( const wxBrush
& brush
)
1074 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
1076 if (!brush
.Ok()) return;
1081 unsigned char red
= m_brush
.GetColour().Red();
1082 unsigned char blue
= m_brush
.GetColour().Blue();
1083 unsigned char green
= m_brush
.GetColour().Green();
1087 // Anything not white is black
1088 if (! (red
== (unsigned char) 255 &&
1089 blue
== (unsigned char) 255 &&
1090 green
== (unsigned char) 255) )
1092 red
= (unsigned char) 0;
1093 green
= (unsigned char) 0;
1094 blue
= (unsigned char) 0;
1099 if (!(red
== m_currentRed
&& green
== m_currentGreen
&& blue
== m_currentBlue
))
1101 double redPS
= (double)(red
) / 255.0;
1102 double bluePS
= (double)(blue
) / 255.0;
1103 double greenPS
= (double)(green
) / 255.0;
1107 "%.8f %.8f %.8f setrgbcolor\n",
1108 redPS
, greenPS
, bluePS
);
1109 for (int i
= 0; i
< 100; i
++)
1110 if (buffer
[i
] == ',') buffer
[i
] = '.';
1111 fprintf( m_pstream
, buffer
);
1114 m_currentBlue
= blue
;
1115 m_currentGreen
= green
;
1121 #define PANGO_ENABLE_ENGINE
1124 #include "wx/gtk/private.h"
1125 #include "gtk/gtk.h"
1127 #include "wx/x11/private.h"
1130 #include "wx/fontutil.h"
1131 #include <pango/pangoft2.h>
1132 #include <freetype/ftglyph.h>
1134 #ifndef FT_Outline_Decompose
1135 FT_EXPORT( FT_Error
) FT_Outline_Decompose(
1136 FT_Outline
* outline
,
1137 const FT_Outline_Funcs
* interface
,
1141 typedef struct _OutlineInfo OutlineInfo
;
1142 struct _OutlineInfo
{
1146 static int paps_move_to( FT_Vector
* to
,
1149 OutlineInfo
*outline_info
= (OutlineInfo
*)user_data
;
1150 fprintf(outline_info
->file
, "%d %d moveto\n",
1156 static int paps_line_to( FT_Vector
* to
,
1159 OutlineInfo
*outline_info
= (OutlineInfo
*)user_data
;
1160 fprintf(outline_info
->file
, "%d %d lineto\n",
1166 static int paps_conic_to( FT_Vector
* control
,
1170 OutlineInfo
*outline_info
= (OutlineInfo
*)user_data
;
1171 fprintf(outline_info
->file
, "%d %d %d %d conicto\n",
1179 static int paps_cubic_to( FT_Vector
* control1
,
1180 FT_Vector
* control2
,
1184 OutlineInfo
*outline_info
= (OutlineInfo
*)user_data
;
1185 fprintf(outline_info
->file
,
1186 "%d %d %d %d %d %d curveto\n",
1196 void draw_bezier_outline(FILE *file
,
1198 FT_UInt glyph_index
,
1204 FT_Int load_flags
= FT_LOAD_NO_BITMAP
;
1207 FT_Outline_Funcs outlinefunc
=
1215 OutlineInfo outline_info
;
1216 outline_info
.file
= file
;
1218 fprintf(file
, "gsave\n");
1219 fprintf(file
, "%d %d translate\n", pos_x
, pos_y
);
1221 // We have to replace the "," from the German
1222 // locale with the Englich "." for PostScript
1224 sprintf(buf
, "%.8f %.8f scale\n", scale_x
, scale_y
);
1225 for (size_t i
= 0; i
< strlen(buf
); i
++)
1226 if (buf
[i
] == ',') buf
[i
] = '.';
1229 FT_Load_Glyph(face
, glyph_index
, load_flags
);
1230 FT_Get_Glyph (face
->glyph
, &glyph
);
1231 FT_Outline_Decompose (&(((FT_OutlineGlyph
)glyph
)->outline
),
1232 &outlinefunc
, &outline_info
);
1233 fprintf(file
, "closepath fill grestore\n");
1235 FT_Done_Glyph (glyph
);
1240 void wxPostScriptDC::DoDrawText( const wxString
& text
, wxCoord x
, wxCoord y
)
1242 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
1244 if (m_textForegroundColour
.Ok())
1246 unsigned char red
= m_textForegroundColour
.Red();
1247 unsigned char blue
= m_textForegroundColour
.Blue();
1248 unsigned char green
= m_textForegroundColour
.Green();
1252 // Anything not white is black
1253 if (! (red
== (unsigned char) 255 &&
1254 blue
== (unsigned char) 255 &&
1255 green
== (unsigned char) 255))
1257 red
= (unsigned char) 0;
1258 green
= (unsigned char) 0;
1259 blue
= (unsigned char) 0;
1263 // maybe setgray here ?
1264 if (!(red
== m_currentRed
&& green
== m_currentGreen
&& blue
== m_currentBlue
))
1266 double redPS
= (double)(red
) / 255.0;
1267 double bluePS
= (double)(blue
) / 255.0;
1268 double greenPS
= (double)(green
) / 255.0;
1272 "%.8f %.8f %.8f setrgbcolor\n",
1273 redPS
, greenPS
, bluePS
);
1274 for (size_t i
= 0; i
< strlen(buffer
); i
++)
1275 if (buffer
[i
] == ',') buffer
[i
] = '.';
1276 fprintf( m_pstream
, buffer
);
1279 m_currentBlue
= blue
;
1280 m_currentGreen
= green
;
1286 int pango_dpi
= 600;
1287 PangoContext
*context
= pango_ft2_get_context ( pango_dpi
, pango_dpi
);
1289 double scale
= (double)pango_dpi
/ (double)ps_dpi
;
1290 scale
/= m_userScaleY
;
1292 pango_context_set_language (context
, pango_language_from_string ("en_US"));
1293 pango_context_set_base_dir (context
, PANGO_DIRECTION_LTR
);
1295 pango_context_set_font_description (context
, m_font
.GetNativeFontInfo()->description
);
1297 PangoLayout
*layout
= pango_layout_new (context
);
1299 wxCharBuffer buffer
= wxConvUTF8
.cWC2MB( text
);
1301 wxCharBuffer buffer
= wxConvUTF8
.cWC2MB( wxConvLocal
.cWX2WC( text
) );
1303 pango_layout_set_text( layout
, (const char*) buffer
, strlen(buffer
) );
1305 fprintf( m_pstream
, "%%%% %s\n", (const char*)buffer
);
1307 PangoRectangle rect
;
1308 pango_layout_get_extents(layout
, NULL
, &rect
);
1310 int xx
= LogicalToDeviceX( x
);
1311 int yy
= LogicalToDeviceY( y
);
1313 int xxx
= xx
* PANGO_SCALE
;
1314 int yyy
= yy
* PANGO_SCALE
- (int)(rect
.height
* 0.66 / scale
); // Move down by estimated baseline. HACK.
1316 #define ps_kludge_factor 2.8
1318 // Loop over lines in layout
1319 int num_lines
= pango_layout_get_line_count( layout
);
1320 for (int i
= 0; i
< num_lines
; i
++)
1322 PangoLayoutLine
*line
= pango_layout_get_line( layout
, i
);
1324 // width of glyphs already printed
1327 // Loop over runs in line
1328 GSList
*runs_list
= line
->runs
;
1331 PangoLayoutRun
*run
= (PangoLayoutRun
*) runs_list
->data
;
1332 PangoItem
*item
= run
->item
;
1333 PangoGlyphString
*glyphs
= run
->glyphs
;
1334 PangoAnalysis
*analysis
= &item
->analysis
;
1335 PangoFont
*font
= analysis
->font
;
1336 FT_Face ft_face
= pango_ft2_font_get_face(font
);
1338 int num_glyphs
= glyphs
->num_glyphs
;
1339 for (int glyph_idx
= 0; glyph_idx
< num_glyphs
; glyph_idx
++)
1341 PangoGlyphGeometry geometry
= glyphs
->glyphs
[glyph_idx
].geometry
;
1342 int pos_x
= xxx
+ (int)((double)(all_width
+geometry
.x_offset
) / scale
);
1343 int pos_y
= yyy
+ (int)((double)geometry
.y_offset
/ scale
);
1344 all_width
+= geometry
.width
;
1346 draw_bezier_outline( m_pstream
, ft_face
,
1347 (FT_UInt
)(glyphs
->glyphs
[glyph_idx
].glyph
),
1348 pos_x
/ PANGO_SCALE
,
1349 pos_y
/ PANGO_SCALE
,
1350 1.0/(ps_kludge_factor
* scale
* 26.6),
1351 1.0/(ps_kludge_factor
* scale
* 26.6) );
1353 runs_list
= runs_list
->next
;
1357 g_object_unref( G_OBJECT( layout
) );
1358 g_object_unref( G_OBJECT( context
) );
1360 wxCoord text_w
, text_h
, text_descent
;
1362 GetTextExtent(text
, &text_w
, &text_h
, &text_descent
);
1364 // VZ: this seems to be unnecessary, so taking it out for now, if it
1365 // doesn't create any problems, remove this comment entirely
1366 //SetFont( m_font );
1369 int size
= m_font
.GetPointSize();
1371 // wxCoord by = y + (wxCoord)floor( double(size) * 2.0 / 3.0 ); // approximate baseline
1372 // commented by V. Slavik and replaced by accurate version
1373 // - note that there is still rounding error in text_descent!
1374 wxCoord by
= y
+ size
- text_descent
; // baseline
1375 fprintf( m_pstream
, "%d %d moveto\n", LogicalToDeviceX(x
), LogicalToDeviceY(by
) );
1377 fprintf( m_pstream
, "(" );
1378 const wxWX2MBbuf textbuf
= text
.mb_str();
1379 size_t len
= strlen(textbuf
);
1381 for (i
= 0; i
< len
; i
++)
1383 int c
= (unsigned char) textbuf
[i
];
1384 if (c
== ')' || c
== '(' || c
== '\\')
1386 /* Cope with special characters */
1387 fprintf( m_pstream
, "\\" );
1388 fputc(c
, m_pstream
);
1390 else if ( c
>= 128 )
1392 /* Cope with character codes > 127 */
1393 fprintf(m_pstream
, "\\%o", c
);
1397 fputc(c
, m_pstream
);
1401 fprintf( m_pstream
, ") show\n" );
1403 if (m_font
.GetUnderlined())
1405 wxCoord uy
= (wxCoord
)(y
+ size
- m_underlinePosition
);
1415 LogicalToDeviceX(x
), LogicalToDeviceY(uy
),
1416 m_underlineThickness
,
1417 LogicalToDeviceX(x
+ text_w
), LogicalToDeviceY(uy
) );
1418 for (i
= 0; i
< 100; i
++)
1419 if (buffer
[i
] == ',') buffer
[i
] = '.';
1420 fprintf( m_pstream
, buffer
);
1423 CalcBoundingBox( x
, y
);
1424 CalcBoundingBox( x
+ size
* text
.Length() * 2/3 , y
);
1428 void wxPostScriptDC::DoDrawRotatedText( const wxString
& text
, wxCoord x
, wxCoord y
, double angle
)
1432 DoDrawText(text
, x
, y
);
1436 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
1440 if (m_textForegroundColour
.Ok())
1442 unsigned char red
= m_textForegroundColour
.Red();
1443 unsigned char blue
= m_textForegroundColour
.Blue();
1444 unsigned char green
= m_textForegroundColour
.Green();
1448 // Anything not white is black
1449 if (! (red
== (unsigned char) 255 &&
1450 blue
== (unsigned char) 255 &&
1451 green
== (unsigned char) 255))
1453 red
= (unsigned char) 0;
1454 green
= (unsigned char) 0;
1455 blue
= (unsigned char) 0;
1459 // maybe setgray here ?
1460 if (!(red
== m_currentRed
&& green
== m_currentGreen
&& blue
== m_currentBlue
))
1462 double redPS
= (double)(red
) / 255.0;
1463 double bluePS
= (double)(blue
) / 255.0;
1464 double greenPS
= (double)(green
) / 255.0;
1468 "%.8f %.8f %.8f setrgbcolor\n",
1469 redPS
, greenPS
, bluePS
);
1470 for (int i
= 0; i
< 100; i
++)
1471 if (buffer
[i
] == ',') buffer
[i
] = '.';
1472 fprintf( m_pstream
, buffer
);
1475 m_currentBlue
= blue
;
1476 m_currentGreen
= green
;
1480 int size
= m_font
.GetPointSize();
1482 fprintf(m_pstream
, "%d %d moveto\n",
1483 LogicalToDeviceX(x
), LogicalToDeviceY(y
));
1486 sprintf(buffer
, "%.8f rotate\n", angle
);
1488 for (i
= 0; i
< 100; i
++)
1489 if (buffer
[i
] == ',') buffer
[i
] = '.';
1490 fprintf(m_pstream
, buffer
);
1492 fprintf( m_pstream
, "(" );
1493 const wxWX2MBbuf textbuf
= text
.mb_str();
1494 size_t len
= strlen(textbuf
);
1495 for (i
= 0; i
< len
; i
++)
1497 int c
= (unsigned char) textbuf
[i
];
1498 if (c
== ')' || c
== '(' || c
== '\\')
1500 /* Cope with special characters */
1501 fprintf( m_pstream
, "\\" );
1502 fputc(c
, m_pstream
);
1504 else if ( c
>= 128 )
1506 /* Cope with character codes > 127 */
1507 fprintf(m_pstream
, "\\%o", c
);
1511 fputc(c
, m_pstream
);
1515 fprintf( m_pstream
, ") show\n" );
1517 sprintf( buffer
, "%.8f rotate\n", -angle
);
1518 for (i
= 0; i
< 100; i
++)
1519 if (buffer
[i
] == ',') buffer
[i
] = '.';
1520 fprintf( m_pstream
, buffer
);
1522 if (m_font
.GetUnderlined())
1524 wxCoord uy
= (wxCoord
)(y
+ size
- m_underlinePosition
);
1527 GetTextExtent(text
, &w
, &h
);
1536 LogicalToDeviceX(x
), LogicalToDeviceY(uy
),
1537 m_underlineThickness
,
1538 LogicalToDeviceX(x
+ w
), LogicalToDeviceY(uy
) );
1539 for (i
= 0; i
< 100; i
++)
1540 if (buffer
[i
] == ',') buffer
[i
] = '.';
1541 fprintf( m_pstream
, buffer
);
1544 CalcBoundingBox( x
, y
);
1545 CalcBoundingBox( x
+ size
* text
.Length() * 2/3 , y
);
1548 void wxPostScriptDC::SetBackground (const wxBrush
& brush
)
1550 m_backgroundBrush
= brush
;
1553 void wxPostScriptDC::SetLogicalFunction (int WXUNUSED(function
))
1555 wxFAIL_MSG( wxT("wxPostScriptDC::SetLogicalFunction not implemented.") );
1558 void wxPostScriptDC::DoDrawSpline( wxList
*points
)
1560 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
1564 double a
, b
, c
, d
, x1
, y1
, x2
, y2
, x3
, y3
;
1567 wxList::compatibility_iterator node
= points
->GetFirst();
1568 p
= (wxPoint
*)node
->GetData();
1572 node
= node
->GetNext();
1573 p
= (wxPoint
*)node
->GetData();
1576 x3
= a
= (double)(x1
+ c
) / 2;
1577 y3
= b
= (double)(y1
+ d
) / 2;
1583 LogicalToDeviceX((wxCoord
)x1
), LogicalToDeviceY((wxCoord
)y1
),
1584 LogicalToDeviceX((wxCoord
)x3
), LogicalToDeviceY((wxCoord
)y3
) );
1586 CalcBoundingBox( (wxCoord
)x1
, (wxCoord
)y1
);
1587 CalcBoundingBox( (wxCoord
)x3
, (wxCoord
)y3
);
1589 while ((node
= node
->GetNext()))
1591 q
= (wxPoint
*)node
->GetData();
1599 x3
= (double)(x2
+ c
) / 2;
1600 y3
= (double)(y2
+ d
) / 2;
1603 "%d %d %d %d %d %d DrawSplineSection\n",
1604 LogicalToDeviceX((wxCoord
)x1
), LogicalToDeviceY((wxCoord
)y1
),
1605 LogicalToDeviceX((wxCoord
)x2
), LogicalToDeviceY((wxCoord
)y2
),
1606 LogicalToDeviceX((wxCoord
)x3
), LogicalToDeviceY((wxCoord
)y3
) );
1608 CalcBoundingBox( (wxCoord
)x1
, (wxCoord
)y1
);
1609 CalcBoundingBox( (wxCoord
)x3
, (wxCoord
)y3
);
1613 At this point, (x2,y2) and (c,d) are the position of the
1614 next-to-last and last point respectively, in the point list
1620 LogicalToDeviceX((wxCoord
)c
), LogicalToDeviceY((wxCoord
)d
) );
1623 wxCoord
wxPostScriptDC::GetCharWidth() const
1625 // Chris Breeze: reasonable approximation using wxMODERN/Courier
1626 return (wxCoord
) (GetCharHeight() * 72.0 / 120.0);
1630 void wxPostScriptDC::SetAxisOrientation( bool xLeftRight
, bool yBottomUp
)
1632 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
1634 m_signX
= (xLeftRight
? 1 : -1);
1635 m_signY
= (yBottomUp
? 1 : -1);
1637 // FIXME there is no such function in MSW nor in OS2/PM
1638 #if !defined(__WXMSW__) && !defined(__WXPM__)
1639 ComputeScaleAndOrigin();
1643 void wxPostScriptDC::SetDeviceOrigin( wxCoord x
, wxCoord y
)
1645 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
1651 wxDC::SetDeviceOrigin( x
, h
-y
);
1654 void wxPostScriptDC::DoGetSize(int* width
, int* height
) const
1656 wxPaperSize id
= m_printData
.GetPaperId();
1658 wxPrintPaperType
*paper
= wxThePrintPaperDatabase
->FindPaperType(id
);
1660 if (!paper
) paper
= wxThePrintPaperDatabase
->FindPaperType(wxPAPER_A4
);
1666 w
= paper
->GetSizeDeviceUnits().x
;
1667 h
= paper
->GetSizeDeviceUnits().y
;
1670 if (m_printData
.GetOrientation() == wxLANDSCAPE
)
1677 if (width
) *width
= (int)(w
* ms_PSScaleFactor
);
1678 if (height
) *height
= (int)(h
* ms_PSScaleFactor
);
1681 void wxPostScriptDC::DoGetSizeMM(int *width
, int *height
) const
1683 wxPaperSize id
= m_printData
.GetPaperId();
1685 wxPrintPaperType
*paper
= wxThePrintPaperDatabase
->FindPaperType(id
);
1687 if (!paper
) paper
= wxThePrintPaperDatabase
->FindPaperType(wxPAPER_A4
);
1693 w
= paper
->GetWidth() / 10;
1694 h
= paper
->GetHeight() / 10;
1697 if (m_printData
.GetOrientation() == wxLANDSCAPE
)
1704 if (width
) *width
= w
;
1705 if (height
) *height
= h
;
1708 // Resolution in pixels per logical inch
1709 wxSize
wxPostScriptDC::GetPPI(void) const
1711 return wxSize((int)(72 * ms_PSScaleFactor
),
1712 (int)(72 * ms_PSScaleFactor
));
1716 bool wxPostScriptDC::StartDoc( const wxString
& message
)
1718 wxCHECK_MSG( m_ok
, FALSE
, wxT("invalid postscript dc") );
1720 if (m_printData
.GetFilename() == wxT(""))
1722 wxString filename
= wxGetTempFileName( wxT("ps") );
1723 m_printData
.SetFilename(filename
);
1726 m_pstream
= wxFopen( m_printData
.GetFilename().c_str(), wxT("w+") ); // FIXME: use fn_str() here under Unicode?
1730 wxLogError( _("Cannot open file for PostScript printing!"));
1737 fprintf( m_pstream
, "%%!PS-Adobe-2.0\n" );
1738 fprintf( m_pstream
, "%%%%Title: %s\n", (const char *) m_title
.ToAscii() );
1739 fprintf( m_pstream
, "%%%%Creator: wxWindows PostScript renderer\n" );
1740 fprintf( m_pstream
, "%%%%CreationDate: %s\n", (const char *) wxNow().ToAscii() );
1741 if (m_printData
.GetOrientation() == wxLANDSCAPE
)
1742 fprintf( m_pstream
, "%%%%Orientation: Landscape\n" );
1744 fprintf( m_pstream
, "%%%%Orientation: Portrait\n" );
1746 // fprintf( m_pstream, "%%%%Pages: %d\n", (wxPageNumber - 1) );
1749 switch (m_printData
.GetPaperId())
1751 case wxPAPER_LETTER
: paper
= "Letter"; break; // Letter: paper ""; 8 1/2 by 11 inches
1752 case wxPAPER_LEGAL
: paper
= "Legal"; break; // Legal, 8 1/2 by 14 inches
1753 case wxPAPER_A4
: paper
= "A4"; break; // A4 Sheet, 210 by 297 millimeters
1754 case wxPAPER_TABLOID
: paper
= "Tabloid"; break; // Tabloid, 11 by 17 inches
1755 case wxPAPER_LEDGER
: paper
= "Ledger"; break; // Ledger, 17 by 11 inches
1756 case wxPAPER_STATEMENT
: paper
= "Statement"; break; // Statement, 5 1/2 by 8 1/2 inches
1757 case wxPAPER_EXECUTIVE
: paper
= "Executive"; break; // Executive, 7 1/4 by 10 1/2 inches
1758 case wxPAPER_A3
: paper
= "A3"; break; // A3 sheet, 297 by 420 millimeters
1759 case wxPAPER_A5
: paper
= "A5"; break; // A5 sheet, 148 by 210 millimeters
1760 case wxPAPER_B4
: paper
= "B4"; break; // B4 sheet, 250 by 354 millimeters
1761 case wxPAPER_B5
: paper
= "B5"; break; // B5 sheet, 182-by-257-millimeter paper
1762 case wxPAPER_FOLIO
: paper
= "Folio"; break; // Folio, 8-1/2-by-13-inch paper
1763 case wxPAPER_QUARTO
: paper
= "Quaro"; break; // Quarto, 215-by-275-millimeter paper
1764 case wxPAPER_10X14
: paper
= "10x14"; break; // 10-by-14-inch sheet
1765 default: paper
= "A4";
1767 fprintf( m_pstream
, "%%%%DocumentPaperSizes: %s\n", paper
);
1768 fprintf( m_pstream
, "%%%%EndComments\n\n" );
1770 fprintf( m_pstream
, "%%%%BeginProlog\n" );
1771 fprintf( m_pstream
, wxPostScriptHeaderConicTo
);
1772 fprintf( m_pstream
, wxPostScriptHeaderEllipse
);
1773 fprintf( m_pstream
, wxPostScriptHeaderEllipticArc
);
1774 fprintf( m_pstream
, wxPostScriptHeaderColourImage
);
1777 fprintf( m_pstream
, wxPostScriptHeaderReencodeISO1
);
1778 fprintf( m_pstream
, wxPostScriptHeaderReencodeISO2
);
1780 if (wxPostScriptHeaderSpline
)
1781 fprintf( m_pstream
, wxPostScriptHeaderSpline
);
1782 fprintf( m_pstream
, "%%%%EndProlog\n" );
1784 SetBrush( *wxBLACK_BRUSH
);
1785 SetPen( *wxBLACK_PEN
);
1786 SetBackground( *wxWHITE_BRUSH
);
1787 SetTextForeground( *wxBLACK
);
1789 // set origin according to paper size
1790 SetDeviceOrigin( 0,0 );
1798 void wxPostScriptDC::EndDoc ()
1800 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
1805 fprintf( m_pstream
, "grestore\n" );
1808 fclose( m_pstream
);
1809 m_pstream
= (FILE *) NULL
;
1812 // THE FOLLOWING HAS BEEN CONTRIBUTED BY Andy Fyfe <andy@hyperparallel.com>
1813 wxCoord wx_printer_translate_x
, wx_printer_translate_y
;
1814 double wx_printer_scale_x
, wx_printer_scale_y
;
1816 wx_printer_translate_x
= (wxCoord
)m_printData
.GetPrinterTranslateX();
1817 wx_printer_translate_y
= (wxCoord
)m_printData
.GetPrinterTranslateY();
1819 wx_printer_scale_x
= m_printData
.GetPrinterScaleX();
1820 wx_printer_scale_y
= m_printData
.GetPrinterScaleY();
1822 // Compute the bounding box. Note that it is in the default user
1823 // coordinate system, thus we have to convert the values.
1824 wxCoord minX
= (wxCoord
) LogicalToDeviceX(m_minX
);
1825 wxCoord minY
= (wxCoord
) LogicalToDeviceY(m_minY
);
1826 wxCoord maxX
= (wxCoord
) LogicalToDeviceX(m_maxX
);
1827 wxCoord maxY
= (wxCoord
) LogicalToDeviceY(m_maxY
);
1829 // LOG2DEV may have changed the minimum to maximum vice versa
1830 if ( minX
> maxX
) { wxCoord tmp
= minX
; minX
= maxX
; maxX
= tmp
; }
1831 if ( minY
> maxY
) { wxCoord tmp
= minY
; minY
= maxY
; maxY
= tmp
; }
1833 // account for used scaling (boundingbox is before scaling in ps-file)
1834 double scale_x
= m_printData
.GetPrinterScaleX() / ms_PSScaleFactor
;
1835 double scale_y
= m_printData
.GetPrinterScaleY() / ms_PSScaleFactor
;
1837 wxCoord llx
, lly
, urx
, ury
;
1838 llx
= (wxCoord
) ((minX
+wx_printer_translate_x
)*scale_x
);
1839 lly
= (wxCoord
) ((minY
+wx_printer_translate_y
)*scale_y
);
1840 urx
= (wxCoord
) ((maxX
+wx_printer_translate_x
)*scale_x
);
1841 ury
= (wxCoord
) ((maxY
+wx_printer_translate_y
)*scale_y
);
1842 // (end of bounding box computation)
1845 // If we're landscape, our sense of "x" and "y" is reversed.
1846 if (m_printData
.GetOrientation() == wxLANDSCAPE
)
1849 tmp
= llx
; llx
= lly
; lly
= tmp
;
1850 tmp
= urx
; urx
= ury
; ury
= tmp
;
1852 // We need either the two lines that follow, or we need to subtract
1853 // min_x from real_translate_y, which is commented out below.
1854 llx
= llx
- (wxCoord
)(m_minX
*wx_printer_scale_y
);
1855 urx
= urx
- (wxCoord
)(m_minX
*wx_printer_scale_y
);
1858 // The Adobe specifications call for integers; we round as to make
1859 // the bounding larger.
1861 "%%%%BoundingBox: %d %d %d %d\n",
1862 (wxCoord
)floor((double)llx
), (wxCoord
)floor((double)lly
),
1863 (wxCoord
)ceil((double)urx
), (wxCoord
)ceil((double)ury
) );
1865 // To check the correctness of the bounding box, postscript commands
1866 // to draw a box corresponding to the bounding box are generated below.
1867 // But since we typically don't want to print such a box, the postscript
1868 // commands are generated within comments. These lines appear before any
1869 // adjustment of scale, rotation, or translation, and hence are in the
1870 // default user coordinates.
1871 fprintf( m_pstream
, "%% newpath\n" );
1872 fprintf( m_pstream
, "%% %d %d moveto\n", llx
, lly
);
1873 fprintf( m_pstream
, "%% %d %d lineto\n", urx
, lly
);
1874 fprintf( m_pstream
, "%% %d %d lineto\n", urx
, ury
);
1875 fprintf( m_pstream
, "%% %d %d lineto closepath stroke\n", llx
, ury
);
1878 #if defined(__X__) || defined(__WXGTK__)
1879 if (m_ok
&& (m_printData
.GetPrintMode() == wxPRINT_MODE_PRINTER
))
1882 command
+= m_printData
.GetPrinterCommand();
1883 command
+= wxT(" ");
1884 command
+= m_printData
.GetPrinterOptions();
1885 command
+= wxT(" ");
1886 command
+= m_printData
.GetFilename();
1888 wxExecute( command
, TRUE
);
1889 wxRemoveFile( m_printData
.GetFilename() );
1894 void wxPostScriptDC::StartPage()
1896 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
1898 fprintf( m_pstream
, "%%%%Page: %d\n", wxPageNumber
++ );
1900 // What is this one supposed to do? RR.
1901 // *m_pstream << "matrix currentmatrix\n";
1903 // Added by Chris Breeze
1905 // Each page starts with an "initgraphics" which resets the
1906 // transformation and so we need to reset the origin
1907 // (and rotate the page for landscape printing)
1910 wxCoord translate_x
, translate_y
;
1911 double scale_x
, scale_y
;
1913 translate_x
= (wxCoord
)m_printData
.GetPrinterTranslateX();
1914 translate_y
= (wxCoord
)m_printData
.GetPrinterTranslateY();
1916 scale_x
= m_printData
.GetPrinterScaleX();
1917 scale_y
= m_printData
.GetPrinterScaleY();
1919 if (m_printData
.GetOrientation() == wxLANDSCAPE
)
1922 GetSize( (int*) NULL
, &h
);
1924 fprintf( m_pstream
, "90 rotate\n" );
1926 // I copied this one from a PostScript tutorial, but to no avail. RR.
1927 // fprintf( m_pstream, "90 rotate llx neg ury nef translate\n" );
1931 sprintf( buffer
, "%.8f %.8f scale\n", scale_x
/ ms_PSScaleFactor
,
1932 scale_y
/ ms_PSScaleFactor
);
1933 for (int i
= 0; i
< 100; i
++)
1934 if (buffer
[i
] == ',') buffer
[i
] = '.';
1935 fprintf( m_pstream
, buffer
);
1937 fprintf( m_pstream
, "%d %d translate\n", translate_x
, translate_y
);
1940 void wxPostScriptDC::EndPage ()
1942 wxCHECK_RET( m_ok
&& m_pstream
, wxT("invalid postscript dc") );
1944 fprintf( m_pstream
, "showpage\n" );
1947 bool wxPostScriptDC::DoBlit( wxCoord xdest
, wxCoord ydest
,
1948 wxCoord fwidth
, wxCoord fheight
,
1950 wxCoord xsrc
, wxCoord ysrc
,
1951 int rop
, bool WXUNUSED(useMask
), wxCoord
WXUNUSED(xsrcMask
), wxCoord
WXUNUSED(ysrcMask
) )
1953 wxCHECK_MSG( m_ok
&& m_pstream
, FALSE
, wxT("invalid postscript dc") );
1955 wxCHECK_MSG( source
, FALSE
, wxT("invalid source dc") );
1957 /* blit into a bitmap */
1958 wxBitmap
bitmap( (int)fwidth
, (int)fheight
);
1960 memDC
.SelectObject(bitmap
);
1961 memDC
.Blit(0, 0, fwidth
, fheight
, source
, xsrc
, ysrc
, rop
); /* TODO: Blit transparently? */
1962 memDC
.SelectObject(wxNullBitmap
);
1964 /* draw bitmap. scaling and positioning is done there */
1965 DrawBitmap( bitmap
, xdest
, ydest
);
1970 wxCoord
wxPostScriptDC::GetCharHeight() const
1973 return m_font
.GetPointSize();
1978 void wxPostScriptDC::DoGetTextExtent(const wxString
& string
,
1979 wxCoord
*x
, wxCoord
*y
,
1980 wxCoord
*descent
, wxCoord
*externalLeading
,
1981 wxFont
*theFont
) const
1983 wxFont
*fontToUse
= theFont
;
1985 if (!fontToUse
) fontToUse
= (wxFont
*) &m_font
;
1987 wxCHECK_RET( fontToUse
, wxT("GetTextExtent: no font defined") );
1989 if (string
.IsEmpty())
1993 if (descent
) (*descent
) = 0;
1994 if (externalLeading
) (*externalLeading
) = 0;
1999 int wx_dpi
= GetResolution();
2000 int pango_dpi
= 600;
2001 PangoContext
*context
= pango_ft2_get_context ( pango_dpi
, pango_dpi
);
2003 double scale
= pango_dpi
/ wx_dpi
;
2004 scale
/= m_userScaleY
;
2006 pango_context_set_language (context
, pango_language_from_string ("en_US"));
2007 pango_context_set_base_dir (context
, PANGO_DIRECTION_LTR
);
2009 PangoLayout
*layout
= pango_layout_new (context
);
2011 PangoFontDescription
*desc
= fontToUse
->GetNativeFontInfo()->description
;
2012 pango_layout_set_font_description(layout
, desc
);
2014 const wxCharBuffer data
= wxConvUTF8
.cWC2MB( string
);
2016 const wxWCharBuffer wdata
= wxConvLocal
.cMB2WC( string
);
2017 const wxCharBuffer data
= wxConvUTF8
.cWC2MB( wdata
);
2019 pango_layout_set_text(layout
, (const char*) data
, strlen( (const char*) data
));
2020 PangoLayoutLine
*line
= (PangoLayoutLine
*)pango_layout_get_lines(layout
)->data
;
2022 PangoRectangle rect
;
2023 pango_layout_line_get_extents(line
, NULL
, &rect
);
2025 if (x
) (*x
) = (wxCoord
) ( rect
.width
/ PANGO_SCALE
/ scale
);
2026 if (y
) (*y
) = (wxCoord
) ( rect
.height
/ PANGO_SCALE
/ scale
);
2029 // Do something about metrics here
2032 if (externalLeading
) (*externalLeading
) = 0; // ??
2034 g_object_unref( G_OBJECT( layout
) );
2038 const wxWX2MBbuf strbuf
= string
.mb_str();
2040 #if !wxUSE_AFM_FOR_POSTSCRIPT
2041 /* Provide a VERY rough estimate (avoid using it).
2042 * Produces accurate results for mono-spaced font
2043 * such as Courier (aka wxMODERN) */
2048 height
= fontToUse
->GetPointSize();
2051 *x
= strlen (strbuf
) * height
* 72 / 120;
2053 *y
= (wxCoord
) (height
* 1.32); /* allow for descender */
2054 if (descent
) *descent
= 0;
2055 if (externalLeading
) *externalLeading
= 0;
2058 /* method for calculating string widths in postscript:
2059 / read in the AFM (adobe font metrics) file for the
2060 / actual font, parse it and extract the character widths
2061 / and also the descender. this may be improved, but for now
2062 / it works well. the AFM file is only read in if the
2063 / font is changed. this may be chached in the future.
2064 / calls to GetTextExtent with the font unchanged are rather
2067 / for each font and style used there is an AFM file necessary.
2068 / currently i have only files for the roman font family.
2069 / I try to get files for the other ones!
2071 / CAVE: the size of the string is currently always calculated
2072 / in 'points' (1/72 of an inch). this should later on be
2073 / changed to depend on the mapping mode.
2074 / CAVE: the path to the AFM files must be set before calling this
2075 / function. this is usually done by a call like the following:
2076 / wxSetAFMPath("d:\\wxw161\\afm\\");
2080 / wxPostScriptDC dc(NULL, TRUE);
2082 / wxSetAFMPath("d:\\wxw161\\afm\\");
2083 / dc.StartDoc("Test");
2086 / dc.SetFont(new wxFont(10, wxROMAN, wxNORMAL, wxNORMAL));
2087 / dc.GetTextExtent("Hallo",&w,&h);
2092 / by steve (stefan.hammes@urz.uni-heidelberg.de)
2094 / updated: 14.05.95 */
2096 /* these static vars are for storing the state between calls */
2097 static int lastFamily
= INT_MIN
;
2098 static int lastSize
= INT_MIN
;
2099 static int lastStyle
= INT_MIN
;
2100 static int lastWeight
= INT_MIN
;
2101 static int lastDescender
= INT_MIN
;
2102 static int lastWidths
[256]; /* widths of the characters */
2104 double UnderlinePosition
= 0.0;
2105 double UnderlineThickness
= 0.0;
2107 // Get actual parameters
2108 int Family
= fontToUse
->GetFamily();
2109 int Size
= fontToUse
->GetPointSize();
2110 int Style
= fontToUse
->GetStyle();
2111 int Weight
= fontToUse
->GetWeight();
2113 // If we have another font, read the font-metrics
2114 if (Family
!=lastFamily
|| Size
!=lastSize
|| Style
!=lastStyle
|| Weight
!=lastWeight
)
2116 // Store actual values
2117 lastFamily
= Family
;
2120 lastWeight
= Weight
;
2122 const wxChar
*name
= NULL
;
2129 if ((Style
== wxITALIC
) && (Weight
== wxBOLD
)) name
= wxT("CourBoO.afm");
2130 else if ((Style
!= wxITALIC
) && (Weight
== wxBOLD
)) name
= wxT("CourBo.afm");
2131 else if ((Style
== wxITALIC
) && (Weight
!= wxBOLD
)) name
= wxT("CourO.afm");
2132 else name
= wxT("Cour.afm");
2137 if ((Style
== wxITALIC
) && (Weight
== wxBOLD
)) name
= wxT("TimesBoO.afm");
2138 else if ((Style
!= wxITALIC
) && (Weight
== wxBOLD
)) name
= wxT("TimesBo.afm");
2139 else if ((Style
== wxITALIC
) && (Weight
!= wxBOLD
)) name
= wxT("TimesO.afm");
2140 else name
= wxT("TimesRo.afm");
2145 name
= wxT("Zapf.afm");
2152 if ((Style
== wxITALIC
) && (Weight
== wxBOLD
)) name
= wxT("HelvBoO.afm");
2153 else if ((Style
!= wxITALIC
) && (Weight
== wxBOLD
)) name
= wxT("HelvBo.afm");
2154 else if ((Style
== wxITALIC
) && (Weight
!= wxBOLD
)) name
= wxT("HelvO.afm");
2155 else name
= wxT("Helv.afm");
2160 FILE *afmFile
= NULL
;
2162 // Get the directory of the AFM files
2164 if (!m_printData
.GetFontMetricPath().IsEmpty())
2166 afmName
= m_printData
.GetFontMetricPath();
2167 afmName
<< wxFILE_SEP_PATH
<< name
;
2168 afmFile
= wxFopen(afmName
,wxT("r"));
2171 #if defined(__UNIX__) && !defined(__VMS__)
2174 afmName
= wxGetDataDir();
2175 afmName
<< wxFILE_SEP_PATH
2176 #if defined(__LINUX__) || defined(__FREEBSD__)
2177 << wxT("gs_afm") << wxFILE_SEP_PATH
2179 << wxT("afm") << wxFILE_SEP_PATH
2182 afmFile
= wxFopen(afmName
,wxT("r"));
2186 /* 2. open and process the file
2187 / a short explanation of the AFM format:
2188 / we have for each character a line, which gives its size
2191 / C 63 ; WX 444 ; N question ; B 49 -14 395 676 ;
2193 / that means, we have a character with ascii code 63, and width
2194 / (444/1000 * fontSize) points.
2195 / the other data is ignored for now!
2197 / when the font has changed, we read in the right AFM file and store the
2198 / character widths in an array, which is processed below (see point 3.). */
2201 wxLogDebug( wxT("GetTextExtent: can't open AFM file '%s'"), afmName
.c_str() );
2202 wxLogDebug( wxT(" using approximate values"));
2203 for (int i
=0; i
<256; i
++) lastWidths
[i
] = 500; /* an approximate value */
2204 lastDescender
= -150; /* dito. */
2208 /* init the widths array */
2209 for(int i
=0; i
<256; i
++) lastWidths
[i
] = INT_MIN
;
2210 /* some variables for holding parts of a line */
2211 char cString
[10],semiString
[10],WXString
[10],descString
[20];
2212 char upString
[30], utString
[30], encString
[50];
2215 /* read in the file and parse it */
2216 while(fgets(line
,sizeof(line
),afmFile
)!=NULL
)
2218 /* A.) check for descender definition */
2219 if (strncmp(line
,"Descender",9)==0)
2221 if ((sscanf(line
,"%s%d",descString
,&lastDescender
)!=2) ||
2222 (strcmp(descString
,"Descender")!=0))
2224 wxLogDebug( wxT("AFM-file '%s': line '%s' has error (bad descender)"), afmName
.c_str(),line
);
2227 /* JC 1.) check for UnderlinePosition */
2228 else if(strncmp(line
,"UnderlinePosition",17)==0)
2230 if ((sscanf(line
,"%s%lf",upString
,&UnderlinePosition
)!=2) ||
2231 (strcmp(upString
,"UnderlinePosition")!=0))
2233 wxLogDebug( wxT("AFM-file '%s': line '%s' has error (bad UnderlinePosition)"), afmName
.c_str(), line
);
2236 /* JC 2.) check for UnderlineThickness */
2237 else if(strncmp(line
,"UnderlineThickness",18)==0)
2239 if ((sscanf(line
,"%s%lf",utString
,&UnderlineThickness
)!=2) ||
2240 (strcmp(utString
,"UnderlineThickness")!=0))
2242 wxLogDebug( wxT("AFM-file '%s': line '%s' has error (bad UnderlineThickness)"), afmName
.c_str(), line
);
2245 /* JC 3.) check for EncodingScheme */
2246 else if(strncmp(line
,"EncodingScheme",14)==0)
2248 if ((sscanf(line
,"%s%s",utString
,encString
)!=2) ||
2249 (strcmp(utString
,"EncodingScheme")!=0))
2251 wxLogDebug( wxT("AFM-file '%s': line '%s' has error (bad EncodingScheme)"), afmName
.c_str(), line
);
2253 else if (strncmp(encString
, "AdobeStandardEncoding", 21))
2255 wxLogDebug( wxT("AFM-file '%s': line '%s' has error (unsupported EncodingScheme %s)"),
2256 afmName
.c_str(),line
, encString
);
2259 /* B.) check for char-width */
2260 else if(strncmp(line
,"C ",2)==0)
2262 if (sscanf(line
,"%s%d%s%s%d",cString
,&ascii
,semiString
,WXString
,&cWidth
)!=5)
2264 wxLogDebug(wxT("AFM-file '%s': line '%s' has an error (bad character width)"),afmName
.c_str(),line
);
2266 if(strcmp(cString
,"C")!=0 || strcmp(semiString
,";")!=0 || strcmp(WXString
,"WX")!=0)
2268 wxLogDebug(wxT("AFM-file '%s': line '%s' has a format error"),afmName
.c_str(),line
);
2270 /* printf(" char '%c'=%d has width '%d'\n",ascii,ascii,cWidth); */
2271 if (ascii
>=0 && ascii
<256)
2273 lastWidths
[ascii
] = cWidth
; /* store width */
2277 /* MATTHEW: this happens a lot; don't print an error */
2278 /* wxLogDebug("AFM-file '%s': ASCII value %d out of range",afmName.c_str(),ascii); */
2281 /* C.) ignore other entries. */
2285 /* hack to compute correct values for german 'Umlaute'
2286 / the correct way would be to map the character names
2287 / like 'adieresis' to corresp. positions of ISOEnc and read
2288 / these values from AFM files, too. Maybe later ... */
2290 // NB: casts to int are needed to suppress gcc 3.3 warnings
2291 lastWidths
[196] = lastWidths
[(int)'A']; // Ä
2292 lastWidths
[228] = lastWidths
[(int)'a']; // ä
2293 lastWidths
[214] = lastWidths
[(int)'O']; // Ö
2294 lastWidths
[246] = lastWidths
[(int)'o']; // ö
2295 lastWidths
[220] = lastWidths
[(int)'U']; // Ü
2296 lastWidths
[252] = lastWidths
[(int)'u']; // ü
2297 lastWidths
[223] = lastWidths
[(int)251]; // ß
2299 /* JC: calculate UnderlineThickness/UnderlinePosition */
2301 // VS: dirty, but is there any better solution?
2303 pt
= (double*) &m_underlinePosition
;
2304 *pt
= LogicalToDeviceYRel((wxCoord
)(UnderlinePosition
* fontToUse
->GetPointSize())) / 1000.0f
;
2305 pt
= (double*) &m_underlineThickness
;
2306 *pt
= LogicalToDeviceYRel((wxCoord
)(UnderlineThickness
* fontToUse
->GetPointSize())) / 1000.0f
;
2311 /* 3. now the font metrics are read in, calc size this
2312 / is done by adding the widths of the characters in the
2313 / string. they are given in 1/1000 of the size! */
2316 wxCoord height
=Size
; /* by default */
2318 for(p
=(unsigned char *)wxMBSTRINGCAST strbuf
; *p
; p
++)
2320 if(lastWidths
[*p
]== INT_MIN
)
2322 wxLogDebug(wxT("GetTextExtent: undefined width for character '%c' (%d)"), *p
,*p
);
2323 sum
+= lastWidths
[(unsigned char)' ']; /* assume space */
2327 sum
+= lastWidths
[*p
];
2331 double widthSum
= sum
;
2333 widthSum
/= 1000.0F
;
2335 /* add descender to height (it is usually a negative value) */
2336 //if (lastDescender != INT_MIN)
2338 // height += (wxCoord)(((-lastDescender)/1000.0F) * Size); /* MATTHEW: forgot scale */
2340 // - commented by V. Slavik - height already contains descender in it
2341 // (judging from few experiments)
2343 /* return size values */
2345 *x
= (wxCoord
)widthSum
;
2349 /* return other parameters */
2352 if(lastDescender
!=INT_MIN
)
2354 *descent
= (wxCoord
)(((-lastDescender
)/1000.0F
) * Size
); /* MATTHEW: forgot scale */
2362 /* currently no idea how to calculate this! */
2363 if (externalLeading
) *externalLeading
= 0;
2371 #if WXWIN_COMPATIBILITY_2_2
2372 WXDLLEXPORT wxPrintSetupData
*wxThePrintSetupData
= 0;
2374 void wxInitializePrintSetupData(bool init
)
2378 // gets initialized in the constructor
2379 wxThePrintSetupData
= new wxPrintSetupData
;
2383 delete wxThePrintSetupData
;
2385 wxThePrintSetupData
= (wxPrintSetupData
*) NULL
;
2389 // A module to allow initialization/cleanup of PostScript-related
2390 // things without calling these functions from app.cpp.
2392 class WXDLLEXPORT wxPostScriptModule
: public wxModule
2394 DECLARE_DYNAMIC_CLASS(wxPostScriptModule
)
2396 wxPostScriptModule() {}
2401 IMPLEMENT_DYNAMIC_CLASS(wxPostScriptModule
, wxModule
)
2403 bool wxPostScriptModule::OnInit()
2405 wxInitializePrintSetupData();
2410 void wxPostScriptModule::OnExit()
2412 wxInitializePrintSetupData(FALSE
);
2415 // WXWIN_COMPATIBILITY_2_2
2421 // wxUSE_PRINTING_ARCHITECTURE