///////////////////////////////////////////////////////////////////////////// // Name: src/generic/dcpsg.cpp // Purpose: Generic wxPostScriptDC implementation // Author: Julian Smart, Robert Roebling, Markus Holzhem // Modified by: // Created: 04/01/98 // Copyright: (c) Julian Smart // Licence: wxWindows licence ///////////////////////////////////////////////////////////////////////////// #include "wx/wxprec.h" #if wxUSE_PRINTING_ARCHITECTURE && wxUSE_POSTSCRIPT #include "wx/generic/dcpsg.h" #ifndef WX_PRECOMP #include "wx/intl.h" #include "wx/log.h" #include "wx/utils.h" #include "wx/dcmemory.h" #include "wx/math.h" #include "wx/image.h" #include "wx/icon.h" #endif // WX_PRECOMP #include "wx/prntbase.h" #include "wx/generic/prntdlgg.h" #include "wx/paper.h" #include "wx/filename.h" #include "wx/stdpaths.h" #ifdef __WXMSW__ #ifdef DrawText #undef DrawText #endif #ifdef StartDoc #undef StartDoc #endif #ifdef GetCharWidth #undef GetCharWidth #endif #ifdef FindWindow #undef FindWindow #endif #endif //----------------------------------------------------------------------------- // start and end of document/page //----------------------------------------------------------------------------- static const char *wxPostScriptHeaderConicTo = "\ /conicto {\n\ /to_y exch def\n\ /to_x exch def\n\ /conic_cntrl_y exch def\n\ /conic_cntrl_x exch def\n\ currentpoint\n\ /p0_y exch def\n\ /p0_x exch def\n\ /p1_x p0_x conic_cntrl_x p0_x sub 2 3 div mul add def\n\ /p1_y p0_y conic_cntrl_y p0_y sub 2 3 div mul add def\n\ /p2_x p1_x to_x p0_x sub 1 3 div mul add def\n\ /p2_y p1_y to_y p0_y sub 1 3 div mul add def\n\ p1_x p1_y p2_x p2_y to_x to_y curveto\n\ } bind def\n\ "; static const char *wxPostScriptHeaderEllipse = "/ellipse {\n" // x y xrad yrad startangle endangle " matrix currentmatrix\n" // x y xrad yrad startangle endangle CTM " 0 0 1\n" // x y xrad yrad startangle endangle CTM 0 0 1 " 10 4 roll\n" // CTM 0 0 1 x y xrad yrad startangle endangle " 6 2 roll\n" // CTM 0 0 1 startangle endangle x y xrad yrad " 4 2 roll\n" // CTM 0 0 1 startangle endangle xrad yrad x y " translate\n" // CTM 0 0 1 startangle endangle xrad yrad " scale\n" // CTM 0 0 1 startangle endangle " arc\n" // CTM " setmatrix\n" // -> restore transformation matrix "} def\n"; static const char *wxPostScriptHeaderEllipticArc= "/ellipticarc {\n" // x y xrad yrad startangle endangle do_fill " dup\n" // x y xrad yrad startangle endangle do_fill do_fill " 8 1 roll\n" // do_fill x y xrad yrad startangle endangle do_fill " matrix currentmatrix\n" // do_fill x y xrad yrad startangle endangle do_fill CTM " 0 0 1\n" // do_fill x y xrad yrad startangle endangle do_fill CTM 0 0 1 " 11 4 roll\n" // do_fill CTM 0 0 1 x y xrad yrad startangle endangle do_fill " 7 3 roll\n" // do_fill CTM 0 0 1 startangle endangle do_fill x y xrad yrad " 4 2 roll\n" // do_fill CTM 0 0 1 startangle endangle do_fill xrad yrad x y " translate\n" // do_fill CTM 0 0 1 startangle endangle do_fill xrad yrad " scale\n" // do_fill CTM 0 0 1 startangle endangle do_fill " { 0 0 moveto } if\n" // do_fill CTM 0 0 1 startangle endangle " arc\n" // do_fill CTM -> draw arc " setmatrix\n" // do_fill -> restore transformation matrix " { fill }{ stroke } ifelse\n" // -> fill or stroke "} def\n"; static const char *wxPostScriptHeaderSpline = "\ /DrawSplineSection {\n\ /y3 exch def\n\ /x3 exch def\n\ /y2 exch def\n\ /x2 exch def\n\ /y1 exch def\n\ /x1 exch def\n\ /xa x1 x2 x1 sub 0.666667 mul add def\n\ /ya y1 y2 y1 sub 0.666667 mul add def\n\ /xb x3 x2 x3 sub 0.666667 mul add def\n\ /yb y3 y2 y3 sub 0.666667 mul add def\n\ x1 y1 lineto\n\ xa ya xb yb x3 y3 curveto\n\ } def\n\ "; static const char *wxPostScriptHeaderColourImage = "\ % define 'colorimage' if it isn't defined\n\ % ('colortogray' and 'mergeprocs' come from xwd2ps\n\ % via xgrab)\n\ /colorimage where % do we know about 'colorimage'?\n\ { pop } % yes: pop off the 'dict' returned\n\ { % no: define one\n\ /colortogray { % define an RGB->I function\n\ /rgbdata exch store % call input 'rgbdata'\n\ rgbdata length 3 idiv\n\ /npixls exch store\n\ /rgbindx 0 store\n\ 0 1 npixls 1 sub {\n\ grays exch\n\ rgbdata rgbindx get 20 mul % Red\n\ rgbdata rgbindx 1 add get 32 mul % Green\n\ rgbdata rgbindx 2 add get 12 mul % Blue\n\ add add 64 idiv % I = .5G + .31R + .18B\n\ put\n\ /rgbindx rgbindx 3 add store\n\ } for\n\ grays 0 npixls getinterval\n\ } bind def\n\ \n\ % Utility procedure for colorimage operator.\n\ % This procedure takes two procedures off the\n\ % stack and merges them into a single procedure.\n\ \n\ /mergeprocs { % def\n\ dup length\n\ 3 -1 roll\n\ dup\n\ length\n\ dup\n\ 5 1 roll\n\ 3 -1 roll\n\ add\n\ array cvx\n\ dup\n\ 3 -1 roll\n\ 0 exch\n\ putinterval\n\ dup\n\ 4 2 roll\n\ putinterval\n\ } bind def\n\ \n\ /colorimage { % def\n\ pop pop % remove 'false 3' operands\n\ {colortogray} mergeprocs\n\ image\n\ } bind def\n\ } ifelse % end of 'false' case\n\ "; static const char wxPostScriptHeaderReencodeISO1[] = "\n/reencodeISO {\n" "dup dup findfont dup length dict begin\n" "{ 1 index /FID ne { def }{ pop pop } ifelse } forall\n" "/Encoding ISOLatin1Encoding def\n" "currentdict end definefont\n" "} def\n" "/ISOLatin1Encoding [\n" "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n" "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n" "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n" "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n" "/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright\n" "/parenleft/parenright/asterisk/plus/comma/minus/period/slash\n" "/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon\n" "/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N\n" "/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright\n" "/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m\n" "/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde\n" "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n" "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n" "/.notdef/dotlessi/grave/acute/circumflex/tilde/macron/breve\n" "/dotaccent/dieresis/.notdef/ring/cedilla/.notdef/hungarumlaut\n"; static const char wxPostScriptHeaderReencodeISO2[] = "/ogonek/caron/space/exclamdown/cent/sterling/currency/yen/brokenbar\n" "/section/dieresis/copyright/ordfeminine/guillemotleft/logicalnot\n" "/hyphen/registered/macron/degree/plusminus/twosuperior/threesuperior\n" "/acute/mu/paragraph/periodcentered/cedilla/onesuperior/ordmasculine\n" "/guillemotright/onequarter/onehalf/threequarters/questiondown\n" "/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla\n" "/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex\n" "/Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis\n" "/multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute\n" "/Thorn/germandbls/agrave/aacute/acircumflex/atilde/adieresis\n" "/aring/ae/ccedilla/egrave/eacute/ecircumflex/edieresis/igrave\n" "/iacute/icircumflex/idieresis/eth/ntilde/ograve/oacute/ocircumflex\n" "/otilde/odieresis/divide/oslash/ugrave/uacute/ucircumflex/udieresis\n" "/yacute/thorn/ydieresis\n" "] def\n\n"; // Split multiline string and store each line in the array. static const char *wxPostScriptHeaderStrSplit = "/strsplit {\n" // str delim " [ 3 1 roll\n" // [ str delim " {\n" // [ str-items str delim " search {\n" // [ str-items post match pre " 3 1 roll\n" // [ str-items pre post match => [ str-items new-item remaining-str delim " }{\n" // [ str-items str " exit\n" // [ str-items str => exit from loop " }ifelse\n" " }loop\n" // [ str-items " ]\n" // [ str-items ] "} def\n"; //------------------------------------------------------------------------------- // wxPostScriptDC //------------------------------------------------------------------------------- wxIMPLEMENT_DYNAMIC_CLASS(wxPostScriptDC, wxDC); wxPostScriptDC::wxPostScriptDC() : wxDC(new wxPostScriptDCImpl(this)) { } wxPostScriptDC::wxPostScriptDC(const wxPrintData& printData) : wxDC(new wxPostScriptDCImpl(this, printData)) { } // we don't want to use only 72 dpi from PS print static const int DPI = 600; static const double PS2DEV = 600.0 / 72.0; static const double DEV2PS = 72.0 / 600.0; #define XLOG2DEV(x) ((double)(LogicalToDeviceX(x)) * DEV2PS) #define XLOG2DEVREL(x) ((double)(LogicalToDeviceXRel(x)) * DEV2PS) #define YLOG2DEV(x) ((m_pageHeight - (double)LogicalToDeviceY(x)) * DEV2PS) #define YLOG2DEVREL(x) ((double)(LogicalToDeviceYRel(x)) * DEV2PS) wxIMPLEMENT_ABSTRACT_CLASS(wxPostScriptDCImpl, wxDCImpl); //------------------------------------------------------------------------------- wxPostScriptDCImpl::wxPostScriptDCImpl( wxPostScriptDC *owner ) : wxDCImpl( owner ) { Init(); m_pageHeight = 842 * PS2DEV; m_ok = true; } wxPostScriptDCImpl::wxPostScriptDCImpl( wxPostScriptDC *owner, const wxPrintData& data ) : wxDCImpl( owner ) { Init(); // this calculates m_pageHeight required for // taking the inverted Y axis into account SetPrintData( data ); m_ok = true; } wxPostScriptDCImpl::wxPostScriptDCImpl( wxPrinterDC *owner ) : wxDCImpl( owner ) { Init(); m_pageHeight = 842 * PS2DEV; m_ok = true; } wxPostScriptDCImpl::wxPostScriptDCImpl( wxPrinterDC *owner, const wxPrintData& data ) : wxDCImpl( owner ) { Init(); // this calculates m_pageHeight required for // taking the inverted Y axis into account SetPrintData( data ); m_ok = true; } void wxPostScriptDCImpl::Init() { m_pstream = NULL; m_currentRed = 0; m_currentGreen = 0; m_currentBlue = 0; m_pageNumber = 0; m_clipping = false; m_underlinePosition = 0.0; m_underlineThickness = 0.0; m_isFontChanged = false; } wxPostScriptDCImpl::~wxPostScriptDCImpl () { if (m_pstream) { fclose( m_pstream ); m_pstream = NULL; } } bool wxPostScriptDCImpl::IsOk() const { return m_ok; } wxRect wxPostScriptDCImpl::GetPaperRect() const { int w = 0; int h = 0; DoGetSize( &w, &h ); return wxRect(0,0,w,h); } int wxPostScriptDCImpl::GetResolution() const { return DPI; } void wxPostScriptDCImpl::DoSetClippingRegion (wxCoord x, wxCoord y, wxCoord w, wxCoord h) { wxCHECK_RET( m_ok , wxT("invalid postscript dc") ); if (m_clipping) DestroyClippingRegion(); m_clipX1 = x; m_clipY1 = y; m_clipX2 = x + w; m_clipY2 = y + h; m_clipping = true; wxString buffer; buffer.Printf( "gsave\n" "newpath\n" "%f %f moveto\n" "%f %f lineto\n" "%f %f lineto\n" "%f %f lineto\n" "closepath clip newpath\n", XLOG2DEV(x), YLOG2DEV(y), XLOG2DEV(x+w), YLOG2DEV(y), XLOG2DEV(x+w), YLOG2DEV(y+h), XLOG2DEV(x), YLOG2DEV(y+h) ); buffer.Replace( ",", "." ); PsPrint( buffer ); } void wxPostScriptDCImpl::DestroyClippingRegion() { wxCHECK_RET( m_ok , wxT("invalid postscript dc") ); if (m_clipping) { m_clipping = false; PsPrint( "grestore\n" ); } wxDCImpl::DestroyClippingRegion(); } void wxPostScriptDCImpl::Clear() { // This should fail silently to avoid unnecessary // asserts // wxFAIL_MSG( wxT("wxPostScriptDCImpl::Clear not implemented.") ); } bool wxPostScriptDCImpl::DoFloodFill (wxCoord WXUNUSED(x), wxCoord WXUNUSED(y), const wxColour &WXUNUSED(col), wxFloodFillStyle WXUNUSED(style)) { wxFAIL_MSG( wxT("wxPostScriptDCImpl::FloodFill not implemented.") ); return false; } bool wxPostScriptDCImpl::DoGetPixel (wxCoord WXUNUSED(x), wxCoord WXUNUSED(y), wxColour * WXUNUSED(col)) const { wxFAIL_MSG( wxT("wxPostScriptDCImpl::GetPixel not implemented.") ); return false; } void wxPostScriptDCImpl::DoCrossHair (wxCoord WXUNUSED(x), wxCoord WXUNUSED(y)) { wxFAIL_MSG( wxT("wxPostScriptDCImpl::CrossHair not implemented.") ); } void wxPostScriptDCImpl::DoDrawLine (wxCoord x1, wxCoord y1, wxCoord x2, wxCoord y2) { wxCHECK_RET( m_ok, wxT("invalid postscript dc") ); if ( m_pen.IsTransparent() ) return; SetPen( m_pen ); wxString buffer; buffer.Printf( "newpath\n" "%f %f moveto\n" "%f %f lineto\n" "stroke\n", XLOG2DEV(x1), YLOG2DEV(y1), XLOG2DEV(x2), YLOG2DEV(y2) ); buffer.Replace( ",", "." ); PsPrint( buffer ); CalcBoundingBox( x1, y1 ); CalcBoundingBox( x2, y2 ); } void wxPostScriptDCImpl::DoDrawArc (wxCoord x1, wxCoord y1, wxCoord x2, wxCoord y2, wxCoord xc, wxCoord yc) { wxCHECK_RET( m_ok, wxT("invalid postscript dc") ); wxCoord dx = x1 - xc; wxCoord dy = y1 - yc; double radius = sqrt( (double)(dx*dx+dy*dy) ); double alpha1, alpha2; if (x1 == x2 && y1 == y2) { alpha1 = 0.0; alpha2 = 360.0; } else if ( wxIsNullDouble(radius) ) { alpha1 = alpha2 = 0.0; } else { alpha1 = (x1 - xc == 0) ? (y1 - yc < 0) ? 90.0 : -90.0 : wxRadToDeg(-atan2(double(y1-yc), double(x1-xc))); alpha2 = (x2 - xc == 0) ? (y2 - yc < 0) ? 90.0 : -90.0 : wxRadToDeg(-atan2(double(y2-yc), double(x2-xc))); } while (alpha1 < 0) alpha1 += 360; while (alpha2 < 0) alpha2 += 360; // adjust angles to be between while (alpha1 > 360) alpha1 -= 360; // 0 and 360 degree while (alpha2 > 360) alpha2 -= 360; int i_radius = wxRound( radius ); // Draw the arc (open) wxString buffer; if ( m_brush.IsNonTransparent() || m_pen.IsNonTransparent() ) { buffer.Printf( "newpath\n" "%f %f %f %f %f %f ellipse\n", XLOG2DEV(xc), YLOG2DEV(yc), XLOG2DEVREL(i_radius), YLOG2DEVREL(i_radius), alpha1, alpha2 ); buffer.Replace( ",", "." ); PsPrint( buffer ); } // Close and fill the arc if brush is not transparent. if ( m_brush.IsNonTransparent() ) { // Lines connecting the centre with endpoints // shouldn't be drawn if arc is full. if ( x1 != x2 || y1 != y2 ) { buffer.Printf( "%f %f lineto\n", XLOG2DEV(xc), YLOG2DEV(yc) ); buffer.Replace( ",", "." ); PsPrint( buffer ); } PsPrint( "closepath\n" ); SetBrush(m_brush); // We need to preserve current path to draw the contour in the next step. if ( m_pen.IsNonTransparent() ) PsPrint( "gsave fill grestore\n" ); else PsPrint( "fill\n" ); } if ( m_pen.IsNonTransparent() ) { SetPen(m_pen); PsPrint( "stroke\n" ); } CalcBoundingBox( xc-i_radius, yc-i_radius ); CalcBoundingBox( xc+i_radius, yc+i_radius ); } void wxPostScriptDCImpl::DoDrawEllipticArc(wxCoord x,wxCoord y,wxCoord w,wxCoord h,double sa,double ea) { wxCHECK_RET( m_ok, wxT("invalid postscript dc") ); if ( sa >= 360 || sa <= -360 ) sa -= int(sa/360)*360; if ( ea >= 360 || ea <=- 360 ) ea -= int(ea/360)*360; if ( sa < 0 ) sa += 360; if ( ea < 0 ) ea += 360; if ( wxIsSameDouble(sa, ea) ) { DoDrawEllipse(x,y,w,h); return; } if ( m_brush.IsNonTransparent() ) { SetBrush( m_brush ); wxString buffer; buffer.Printf( "newpath\n" "%f %f %f %f %f %f true ellipticarc\n", XLOG2DEV(x+w/2), YLOG2DEV(y+h/2), XLOG2DEVREL(w/2), YLOG2DEVREL(h/2), sa, ea ); buffer.Replace( ",", "." ); PsPrint( buffer ); CalcBoundingBox( x ,y ); CalcBoundingBox( x+w, y+h ); } if ( m_pen.IsNonTransparent() ) { SetPen( m_pen ); wxString buffer; buffer.Printf( "newpath\n" "%f %f %f %f %f %f false ellipticarc\n", XLOG2DEV(x+w/2), YLOG2DEV(y+h/2), XLOG2DEVREL(w/2), YLOG2DEVREL(h/2), sa, ea ); buffer.Replace( ",", "." ); PsPrint( buffer ); CalcBoundingBox( x ,y ); CalcBoundingBox( x+w, y+h ); } } void wxPostScriptDCImpl::DoDrawPoint (wxCoord x, wxCoord y) { wxCHECK_RET( m_ok, wxT("invalid postscript dc") ); if ( m_pen.IsTransparent() ) return; SetPen (m_pen); wxString buffer; buffer.Printf( "newpath\n" "%f %f moveto\n" "%f %f lineto\n" "stroke\n", XLOG2DEV(x), YLOG2DEV(y), XLOG2DEV(x+1), YLOG2DEV(y) ); buffer.Replace( ",", "." ); PsPrint( buffer ); CalcBoundingBox( x, y ); } void wxPostScriptDCImpl::DoDrawPolygon (int n, const wxPoint points[], wxCoord xoffset, wxCoord yoffset, wxPolygonFillMode fillStyle) { wxCHECK_RET( m_ok, wxT("invalid postscript dc") ); if (n <= 0) return; if ( m_brush.IsNonTransparent() ) { SetBrush( m_brush ); PsPrint( "newpath\n" ); double xx = XLOG2DEV(points[0].x + xoffset); double yy = YLOG2DEV(points[0].y + yoffset); wxString buffer; buffer.Printf( "%f %f moveto\n", xx, yy ); buffer.Replace( ",", "." ); PsPrint( buffer ); CalcBoundingBox( points[0].x + xoffset, points[0].y + yoffset ); for (int i = 1; i < n; i++) { xx = XLOG2DEV(points[i].x + xoffset); yy = YLOG2DEV(points[i].y + yoffset); buffer.Printf( "%f %f lineto\n", xx, yy ); buffer.Replace( ",", "." ); PsPrint( buffer ); CalcBoundingBox( points[i].x + xoffset, points[i].y + yoffset); } PsPrint( (fillStyle == wxODDEVEN_RULE ? "eofill\n" : "fill\n") ); } if ( m_pen.IsNonTransparent() ) { SetPen( m_pen ); PsPrint( "newpath\n" ); double xx = XLOG2DEV(points[0].x + xoffset); double yy = YLOG2DEV(points[0].y + yoffset); wxString buffer; buffer.Printf( "%f %f moveto\n", xx, yy ); buffer.Replace( ",", "." ); PsPrint( buffer ); CalcBoundingBox( points[0].x + xoffset, points[0].y + yoffset ); for (int i = 1; i < n; i++) { xx = XLOG2DEV(points[i].x + xoffset); yy = YLOG2DEV(points[i].y + yoffset); buffer.Printf( "%f %f lineto\n", xx, yy ); buffer.Replace( ",", "." ); PsPrint( buffer ); CalcBoundingBox( points[i].x + xoffset, points[i].y + yoffset); } PsPrint( "closepath\n" ); PsPrint( "stroke\n" ); } } void wxPostScriptDCImpl::DoDrawPolyPolygon (int n, const int count[], const wxPoint points[], wxCoord xoffset, wxCoord yoffset, wxPolygonFillMode fillStyle) { wxCHECK_RET( m_ok, wxT("invalid postscript dc") ); if (n <= 0) return; if ( m_brush.IsNonTransparent() ) { SetBrush( m_brush ); PsPrint( "newpath\n" ); int ofs = 0; for (int i = 0; i < n; ofs += count[i++]) { double xx = XLOG2DEV(points[ofs].x + xoffset); double yy = YLOG2DEV(points[ofs].y + yoffset); wxString buffer; buffer.Printf( "%f %f moveto\n", xx, yy ); buffer.Replace( ",", "." ); PsPrint( buffer ); CalcBoundingBox( points[ofs].x + xoffset, points[ofs].y + yoffset ); for (int j = 1; j < count[i]; j++) { xx = XLOG2DEV(points[ofs+j].x + xoffset); yy = YLOG2DEV(points[ofs+j].y + yoffset); buffer.Printf( "%f %f lineto\n", xx, yy ); buffer.Replace( ",", "." ); PsPrint( buffer ); CalcBoundingBox( points[ofs+j].x + xoffset, points[ofs+j].y + yoffset); } } PsPrint( (fillStyle == wxODDEVEN_RULE ? "eofill\n" : "fill\n") ); } if ( m_pen.IsNonTransparent() ) { SetPen( m_pen ); PsPrint( "newpath\n" ); int ofs = 0; for (int i = 0; i < n; ofs += count[i++]) { double xx = XLOG2DEV(points[ofs].x + xoffset); double yy = YLOG2DEV(points[ofs].y + yoffset); wxString buffer; buffer.Printf( "%f %f moveto\n", xx, yy ); buffer.Replace( ",", "." ); PsPrint( buffer ); CalcBoundingBox( points[ofs].x + xoffset, points[ofs].y + yoffset ); for (int j = 1; j < count[i]; j++) { xx = XLOG2DEV(points[ofs+j].x + xoffset); yy = YLOG2DEV(points[ofs+j].y + yoffset); buffer.Printf( "%f %f lineto\n", xx, yy ); buffer.Replace( ",", "." ); PsPrint( buffer ); CalcBoundingBox( points[ofs+j].x + xoffset, points[ofs+j].y + yoffset); } } PsPrint( "closepath\n" ); PsPrint( "stroke\n" ); } } void wxPostScriptDCImpl::DoDrawLines (int n, const wxPoint points[], wxCoord xoffset, wxCoord yoffset) { wxCHECK_RET( m_ok, wxT("invalid postscript dc") ); if ( m_pen.IsTransparent() ) return; if (n <= 0) return; SetPen (m_pen); int i; for ( i =0; i= 128 ) { /* Cope with character codes > 127 */ buffer.Printf( "\\%o", c ); PsPrint( buffer ); } else { PsPrint( (char) c ); } } PsPrint( ")" ); // Split multiline text and store individual lines in the array. PsPrint( " (\\n) strsplit\n" ); // Print each line individually by fetching lines from the array PsPrint( "{\n" ); // Preserve current point. PsPrint( " currentpoint 3 -1 roll\n" ); // x y (str) if (m_font.GetUnderlined()) { // We need relative underline position // with reference to the baseline: // uy = y + size - m_underlinePosition => // uy = by + text_descent - m_underlinePosition => // dy = -(text_descent - m_underlinePosition) // It's negated due to the orientation of Y-axis. buffer.Printf( " gsave\n" " 0.0 %f rmoveto\n" " %f setlinewidth\n" " dup stringwidth rlineto\n" " stroke\n" " grestore\n", -YLOG2DEVREL(textDescent - m_underlinePosition), m_underlineThickness ); buffer.Replace( ",", "." ); PsPrint( buffer ); } PsPrint( " show\n" ); // x y // Advance to the beginning of th next line. buffer.Printf( " %f add moveto\n", -YLOG2DEVREL(lineHeight) ); buffer.Replace( ",", "." ); PsPrint( buffer ); // Execute above statements for all elements of the array PsPrint( "} forall\n" ); } void wxPostScriptDCImpl::DoDrawText( const wxString& text, wxCoord x, wxCoord y ) { wxCHECK_RET( m_ok, wxT("invalid postscript dc") ); const wxWX2MBbuf textbuf = text.mb_str(); if ( !textbuf ) return; SetPSFont(); wxCoord text_descent; GetOwner()->GetTextExtent(text, NULL, NULL, &text_descent); int size = m_font.GetPointSize(); // wxCoord by = y + (wxCoord)floor( double(size) * 2.0 / 3.0 ); // approximate baseline // commented by V. Slavik and replaced by accurate version // - note that there is still rounding error in text_descent! wxCoord by = y + size - text_descent; // baseline wxString buffer; buffer.Printf( "%f %f moveto\n", XLOG2DEV(x), YLOG2DEV(by) ); buffer.Replace( ",", "." ); PsPrint( buffer ); DrawAnyText(textbuf, text_descent, size); wxCoord w, h; GetOwner()->GetMultiLineTextExtent(text, &w, &h); CalcBoundingBox(x, y); CalcBoundingBox(x + w , y + h); } void wxPostScriptDCImpl::DoDrawRotatedText( const wxString& text, wxCoord x, wxCoord y, double angle ) { if ( wxIsNullDouble(angle) ) { DoDrawText(text, x, y); return; } wxCHECK_RET( m_ok, wxT("invalid postscript dc") ); const wxWX2MBbuf textbuf = text.mb_str(); if ( !textbuf ) return; SetPSFont(); // Calculate bottom-left coordinates of the rotated text wxCoord text_descent; GetOwner()->GetTextExtent(text, NULL, NULL, &text_descent); int size = m_font.GetPointSize(); double rad = wxDegToRad(angle); wxCoord bx = wxRound(x + (size - text_descent) * sin(rad)); wxCoord by = wxRound(y + (size - text_descent) * cos(rad)); wxString buffer; buffer.Printf( "%f %f moveto\n", XLOG2DEV(bx), YLOG2DEV(by)); buffer.Replace( ",", "." ); PsPrint( buffer ); buffer.Printf( "%f rotate\n", angle ); buffer.Replace( ",", "." ); PsPrint( buffer ); DrawAnyText(textbuf, text_descent, size); buffer.Printf( "%f rotate\n", -angle ); buffer.Replace( ",", "." ); PsPrint( buffer ); wxCoord w, h; GetOwner()->GetMultiLineTextExtent(text, &w, &h); // "upper left" and "upper right" CalcBoundingBox(x, y); CalcBoundingBox(x + wxCoord(w*cos(rad)), y - wxCoord(w*sin(rad))); // "bottom left" and "bottom right" x += (wxCoord)(h*sin(rad)); y += (wxCoord)(h*cos(rad)); CalcBoundingBox(x, y); CalcBoundingBox(x + wxCoord(w*cos(rad)), y - wxCoord(w*sin(rad))); } void wxPostScriptDCImpl::SetBackground (const wxBrush& brush) { m_backgroundBrush = brush; } void wxPostScriptDCImpl::SetLogicalFunction(wxRasterOperationMode WXUNUSED(function)) { wxFAIL_MSG( wxT("wxPostScriptDCImpl::SetLogicalFunction not implemented.") ); } #if wxUSE_SPLINES void wxPostScriptDCImpl::DoDrawSpline( const wxPointList *points ) { wxCHECK_RET( m_ok, wxT("invalid postscript dc") ); wxCHECK_RET(points, "NULL pointer to spline points?"); wxCHECK_RET(points->GetCount() >= 2, "incomplete list of spline points?"); SetPen( m_pen ); // a and b are not used //double a, b; double c, d, x1, y1, x3, y3; wxPoint *p, *q; wxPointList::compatibility_iterator node = points->GetFirst(); p = node->GetData(); x1 = p->x; y1 = p->y; node = node->GetNext(); p = node->GetData(); c = p->x; d = p->y; x3 = #if 0 a = #endif (double)(x1 + c) / 2; y3 = #if 0 b = #endif (double)(y1 + d) / 2; wxString buffer; buffer.Printf( "newpath\n" "%f %f moveto\n" "%f %f lineto\n", XLOG2DEV(wxRound(x1)), YLOG2DEV(wxRound(y1)), XLOG2DEV(wxRound(x3)), YLOG2DEV(wxRound(y3)) ); buffer.Replace( ",", "." ); PsPrint( buffer ); CalcBoundingBox( (wxCoord)x1, (wxCoord)y1 ); CalcBoundingBox( (wxCoord)x3, (wxCoord)y3 ); node = node->GetNext(); while (node) { double x2, y2; q = node->GetData(); x1 = x3; y1 = y3; x2 = c; y2 = d; c = q->x; d = q->y; x3 = (double)(x2 + c) / 2; y3 = (double)(y2 + d) / 2; buffer.Printf( "%f %f %f %f %f %f DrawSplineSection\n", XLOG2DEV(wxRound(x1)), YLOG2DEV(wxRound(y1)), XLOG2DEV(wxRound(x2)), YLOG2DEV(wxRound(y2)), XLOG2DEV(wxRound(x3)), YLOG2DEV(wxRound(y3)) ); buffer.Replace( ",", "." ); PsPrint( buffer ); CalcBoundingBox( (wxCoord)x1, (wxCoord)y1 ); CalcBoundingBox( (wxCoord)x3, (wxCoord)y3 ); node = node->GetNext(); } /* At this point, (x2,y2) and (c,d) are the position of the next-to-last and last point respectively, in the point list */ buffer.Printf( "%f %f lineto\nstroke\n", XLOG2DEV(wxRound(c)), YLOG2DEV(wxRound(d)) ); buffer.Replace( ",", "." ); PsPrint( buffer ); } #endif // wxUSE_SPLINES wxCoord wxPostScriptDCImpl::GetCharWidth() const { // Chris Breeze: reasonable approximation using wxFONTFAMILY_MODERN/Courier return (wxCoord) (GetCharHeight() * 72.0 / 120.0); } void wxPostScriptDCImpl::SetPrintData(const wxPrintData& data) { m_printData = data; wxPaperSize id = m_printData.GetPaperId(); wxPrintPaperType *paper = wxThePrintPaperDatabase->FindPaperType(id); if (!paper) paper = wxThePrintPaperDatabase->FindPaperType(wxPAPER_A4); int w = 595; int h = 842; if (paper) { w = paper->GetSizeDeviceUnits().x; h = paper->GetSizeDeviceUnits().y; } if (m_printData.GetOrientation() == wxLANDSCAPE) m_pageHeight = w * PS2DEV; else m_pageHeight = h * PS2DEV; } void wxPostScriptDCImpl::ComputeScaleAndOrigin() { const wxRealPoint origScale(m_scaleX, m_scaleY); wxDCImpl::ComputeScaleAndOrigin(); // If scale has changed call SetPen to recalculate the line width // and request for recalculating the font size at nearest opportunity. if ( wxRealPoint(m_scaleX, m_scaleY) != origScale ) { if ( m_pen.IsOk() ) SetPen( m_pen ); m_isFontChanged = true; } } void wxPostScriptDCImpl::DoGetSize(int* width, int* height) const { wxPaperSize id = m_printData.GetPaperId(); wxPrintPaperType *paper = wxThePrintPaperDatabase->FindPaperType(id); if (!paper) paper = wxThePrintPaperDatabase->FindPaperType(wxPAPER_A4); int w = 595; int h = 842; if (paper) { w = paper->GetSizeDeviceUnits().x; h = paper->GetSizeDeviceUnits().y; } if (m_printData.GetOrientation() == wxLANDSCAPE) { wxSwap(w, h); } if (width) *width = wxRound( w * PS2DEV ); if (height) *height = wxRound( h * PS2DEV ); } void wxPostScriptDCImpl::DoGetSizeMM(int *width, int *height) const { wxPaperSize id = m_printData.GetPaperId(); wxPrintPaperType *paper = wxThePrintPaperDatabase->FindPaperType(id); if (!paper) paper = wxThePrintPaperDatabase->FindPaperType(wxPAPER_A4); int w = 210; int h = 297; if (paper) { w = paper->GetWidth() / 10; h = paper->GetHeight() / 10; } if (m_printData.GetOrientation() == wxLANDSCAPE) { wxSwap(w, h); } if (width) *width = w; if (height) *height = h; } // Resolution in pixels per logical inch wxSize wxPostScriptDCImpl::GetPPI() const { return wxSize( DPI, DPI ); } bool wxPostScriptDCImpl::StartDoc( const wxString& WXUNUSED(message) ) { wxCHECK_MSG( m_ok, false, wxT("invalid postscript dc") ); if (m_printData.GetPrintMode() != wxPRINT_MODE_STREAM ) { if ( m_printData.GetFilename().empty() ) { wxString filename = wxFileName::CreateTempFileName( wxT("ps") ); m_printData.SetFilename(filename); } m_pstream = wxFopen( m_printData.GetFilename(), wxT("w+") ); if (!m_pstream) { wxLogError( _("Cannot open file for PostScript printing!")); m_ok = false; return false; } } m_ok = true; wxString buffer; PsPrint( "%!PS-Adobe-2.0\n" ); PsPrint( "%%Creator: wxWidgets PostScript renderer\n" ); buffer.Printf( "%%%%CreationDate: %s\n", wxNow() ); PsPrint( buffer ); if (m_printData.GetOrientation() == wxLANDSCAPE) PsPrint( "%%Orientation: Landscape\n" ); else PsPrint( "%%Orientation: Portrait\n" ); const wxChar *paper; switch (m_printData.GetPaperId()) { case wxPAPER_LETTER: paper = wxT("Letter"); break; // Letter: paper ""; 8 1/2 by 11 inches case wxPAPER_LEGAL: paper = wxT("Legal"); break; // Legal, 8 1/2 by 14 inches case wxPAPER_A4: paper = wxT("A4"); break; // A4 Sheet, 210 by 297 millimeters case wxPAPER_TABLOID: paper = wxT("Tabloid"); break; // Tabloid, 11 by 17 inches case wxPAPER_LEDGER: paper = wxT("Ledger"); break; // Ledger, 17 by 11 inches case wxPAPER_STATEMENT: paper = wxT("Statement"); break; // Statement, 5 1/2 by 8 1/2 inches case wxPAPER_EXECUTIVE: paper = wxT("Executive"); break; // Executive, 7 1/4 by 10 1/2 inches case wxPAPER_A3: paper = wxT("A3"); break; // A3 sheet, 297 by 420 millimeters case wxPAPER_A5: paper = wxT("A5"); break; // A5 sheet, 148 by 210 millimeters case wxPAPER_B4: paper = wxT("B4"); break; // B4 sheet, 250 by 354 millimeters case wxPAPER_B5: paper = wxT("B5"); break; // B5 sheet, 182-by-257-millimeter paper case wxPAPER_FOLIO: paper = wxT("Folio"); break; // Folio, 8-1/2-by-13-inch paper case wxPAPER_QUARTO: paper = wxT("Quaro"); break; // Quarto, 215-by-275-millimeter paper case wxPAPER_10X14: paper = wxT("10x14"); break; // 10-by-14-inch sheet default: paper = wxT("A4"); } buffer.Printf( "%%%%DocumentPaperSizes: %s\n", paper ); PsPrint( buffer ); PsPrint( "%%EndComments\n\n" ); PsPrint( "%%BeginProlog\n" ); PsPrint( wxPostScriptHeaderConicTo ); PsPrint( wxPostScriptHeaderEllipse ); PsPrint( wxPostScriptHeaderEllipticArc ); PsPrint( wxPostScriptHeaderColourImage ); PsPrint( wxPostScriptHeaderReencodeISO1 ); PsPrint( wxPostScriptHeaderReencodeISO2 ); if (wxPostScriptHeaderSpline) PsPrint( wxPostScriptHeaderSpline ); PsPrint( wxPostScriptHeaderStrSplit ); PsPrint( "%%EndProlog\n" ); SetBrush( *wxBLACK_BRUSH ); SetPen( *wxBLACK_PEN ); SetBackground( *wxWHITE_BRUSH ); SetTextForeground( *wxBLACK ); // set origin according to paper size SetDeviceOrigin( 0,0 ); m_pageNumber = 1; // Reset the list of fonts for which PS font registration code was generated. m_definedPSFonts.Empty(); return true; } void wxPostScriptDCImpl::EndDoc () { wxCHECK_RET( m_ok, wxT("invalid postscript dc") ); if (m_clipping) { m_clipping = false; PsPrint( "grestore\n" ); } if ( m_pstream ) { fclose( m_pstream ); m_pstream = NULL; } // Reset the list of fonts for which PS font registration code was generated. m_definedPSFonts.Empty(); #if 0 // THE FOLLOWING HAS BEEN CONTRIBUTED BY Andy Fyfe wxCoord wx_printer_translate_x, wx_printer_translate_y; double wx_printer_scale_x, wx_printer_scale_y; wx_printer_translate_x = (wxCoord)m_printData.GetPrinterTranslateX(); wx_printer_translate_y = (wxCoord)m_printData.GetPrinterTranslateY(); wx_printer_scale_x = m_printData.GetPrinterScaleX(); wx_printer_scale_y = m_printData.GetPrinterScaleY(); // Compute the bounding box. Note that it is in the default user // coordinate system, thus we have to convert the values. wxCoord minX = (wxCoord) XLOG2DEV(m_minX); wxCoord minY = (wxCoord) YLOG2DEV(m_minY); wxCoord maxX = (wxCoord) XLOG2DEV(m_maxX); wxCoord maxY = (wxCoord) YLOG2DEV(m_maxY); // LOG2DEV may have changed the minimum to maximum vice versa if ( minX > maxX ) { wxSwap(minX, maxX); } if ( minY > maxY ) { wxSwap(minY, maxY); } // account for used scaling (boundingbox is before scaling in ps-file) double scale_x = m_printData.GetPrinterScaleX() / ms_PSScaleFactor; double scale_y = m_printData.GetPrinterScaleY() / ms_PSScaleFactor; wxCoord llx, lly, urx, ury; llx = (wxCoord) ((minX+wx_printer_translate_x)*scale_x); lly = (wxCoord) ((minY+wx_printer_translate_y)*scale_y); urx = (wxCoord) ((maxX+wx_printer_translate_x)*scale_x); ury = (wxCoord) ((maxY+wx_printer_translate_y)*scale_y); // (end of bounding box computation) // If we're landscape, our sense of "x" and "y" is reversed. if (m_printData.GetOrientation() == wxLANDSCAPE) { wxSwap(llx, lly); wxSwap(urx, ury); // We need either the two lines that follow, or we need to subtract // min_x from real_translate_y, which is commented out below. llx = llx - (wxCoord)(m_minX*wx_printer_scale_y); urx = urx - (wxCoord)(m_minX*wx_printer_scale_y); } // The Adobe specifications call for integers; we round as to make // the bounding larger. PsPrintf( wxT("%%%%BoundingBox: %d %d %d %d\n"), (wxCoord)floor((double)llx), (wxCoord)floor((double)lly), (wxCoord)ceil((double)urx), (wxCoord)ceil((double)ury) ); // To check the correctness of the bounding box, postscript commands // to draw a box corresponding to the bounding box are generated below. // But since we typically don't want to print such a box, the postscript // commands are generated within comments. These lines appear before any // adjustment of scale, rotation, or translation, and hence are in the // default user coordinates. PsPrint( "% newpath\n" ); PsPrintf( wxT("%% %d %d moveto\n"), llx, lly ); PsPrintf( wxT("%% %d %d lineto\n"), urx, lly ); PsPrintf( wxT("%% %d %d lineto\n"), urx, ury ); PsPrintf( wxT("%% %d %d lineto closepath stroke\n"), llx, ury ); #endif #ifndef __WXMSW__ // Pointer to PrintNativeData not always points to wxPostScriptPrintNativeData, // e.g. under wxGTK it can point to wxGtkPrintNativeData and so calling // wxPostScriptPrintNativeData methods on it crashes. wxPostScriptPrintNativeData *data = wxDynamicCast(m_printData.GetNativeData(), wxPostScriptPrintNativeData); if (m_ok && data && (m_printData.GetPrintMode() == wxPRINT_MODE_PRINTER)) { wxString command; command += data->GetPrinterCommand(); command += wxT(" "); command += data->GetPrinterOptions(); command += wxT(" "); command += m_printData.GetFilename(); wxExecute( command, true ); wxRemoveFile( m_printData.GetFilename() ); } #endif } void wxPostScriptDCImpl::StartPage() { wxCHECK_RET( m_ok, wxT("invalid postscript dc") ); wxString buffer; buffer.Printf( wxT("%%%%Page: %d\n"), m_pageNumber++ ); PsPrint( buffer ); #if 0 wxPostScriptPrintNativeData *data = wxDynamicCast(m_printData.GetNativeData(), wxPostScriptPrintNativeData); wxCHECK_RET( data, wxS("No PostScript print data") ); wxCoord translate_x = (wxCoord)data->GetPrinterTranslateX(); wxCoord translate_y = (wxCoord)data->GetPrinterTranslateY(); buffer.Printf( "%d %d translate\n", translate_x, translate_y ); PsPrint( buffer ); double scale_x = data->GetPrinterScaleX(); double scale_y = data->GetPrinterScaleY(); buffer.Printf( "%f %f scale\n", scale_x, scale_y ); buffer.Replace( ",", "." ); PsPrint( buffer ); #endif // Each page starts with an "initgraphics" which resets the // transformation and so we need to rotate the page for // landscape printing) // I copied this one from a PostScript tutorial, but to no avail. RR. // PsPrint( "90 rotate llx neg ury nef translate\n" ); if (m_printData.GetOrientation() == wxLANDSCAPE) PsPrint( "90 rotate\n" ); } void wxPostScriptDCImpl::EndPage () { wxCHECK_RET( m_ok , wxT("invalid postscript dc") ); PsPrint( "showpage\n" ); } bool wxPostScriptDCImpl::DoBlit( wxCoord xdest, wxCoord ydest, wxCoord fwidth, wxCoord fheight, wxDC *source, wxCoord xsrc, wxCoord ysrc, wxRasterOperationMode rop, bool WXUNUSED(useMask), wxCoord WXUNUSED(xsrcMask), wxCoord WXUNUSED(ysrcMask) ) { wxCHECK_MSG( m_ok, false, wxT("invalid postscript dc") ); wxCHECK_MSG( source, false, wxT("invalid source dc") ); // blit into a bitmap wxBitmap bitmap( (int)fwidth, (int)fheight ); wxMemoryDC memDC; memDC.SelectObject(bitmap); memDC.Blit(0, 0, fwidth, fheight, source, xsrc, ysrc, rop); /* TODO: Blit transparently? */ memDC.SelectObject(wxNullBitmap); //draw bitmap. scaling and positioning is done there GetOwner()->DrawBitmap( bitmap, xdest, ydest ); return true; } wxCoord wxPostScriptDCImpl::GetCharHeight() const { if (m_font.IsOk()) return m_font.GetPointSize(); else return 12; } void wxPostScriptDCImpl::PsPrint( const wxString& str ) { const wxCharBuffer psdata(str.utf8_str()); switch (m_printData.GetPrintMode()) { #if wxUSE_STREAMS // append to output stream case wxPRINT_MODE_STREAM: { // Pointer to PrintNativeData not always points to wxPostScriptPrintNativeData, // e.g. under wxGTK it can point to wxGtkPrintNativeData and so calling // wxPostScriptPrintNativeData methods on it crashes. wxPostScriptPrintNativeData *data = wxDynamicCast(m_printData.GetNativeData(), wxPostScriptPrintNativeData); wxCHECK_RET( data, wxS("Cannot obtain output stream") ); wxOutputStream* outputstream = data->GetOutputStream(); wxCHECK_RET( outputstream, wxT("invalid outputstream") ); outputstream->Write( psdata, strlen( psdata ) ); } break; #endif // wxUSE_STREAMS // save data into file default: wxCHECK_RET( m_pstream, wxT("invalid postscript dc") ); fwrite( psdata, 1, strlen( psdata ), m_pstream ); } } void wxPostScriptDCImpl::DoGetTextExtent(const wxString& string, wxCoord *x, wxCoord *y, wxCoord *descent, wxCoord *externalLeading, const wxFont *theFont ) const { const wxFont *fontToUse = theFont; if (!fontToUse) fontToUse = &m_font; const float fontSize = fontToUse->GetPointSize() * GetFontPointSizeAdjustment(72.0); if (string.empty()) { if (x) (*x) = 0; if (y) (*y) = 0; if (descent) (*descent) = 0; if (externalLeading) (*externalLeading) = 0; return; } // GTK 2.0 const wxWX2MBbuf strbuf = string.mb_str(); // conversion failed (non e.g. ISO characters) if ( !strbuf ) return; #if !wxUSE_AFM_FOR_POSTSCRIPT /* Provide a VERY rough estimate (avoid using it). * Produces accurate results for mono-spaced font * such as Courier (aka wxFONTFAMILY_MODERN) */ if ( x ) *x = strlen (strbuf) * fontSize * 72.0 / 120.0; if ( y ) *y = (wxCoord) (fontSize * 1.32); /* allow for descender */ if (descent) *descent = 0; if (externalLeading) *externalLeading = 0; #else /* method for calculating string widths in postscript: / read in the AFM (adobe font metrics) file for the / actual font, parse it and extract the character widths / and also the descender. this may be improved, but for now / it works well. the AFM file is only read in if the / font is changed. this may be chached in the future. / calls to GetTextExtent with the font unchanged are rather / efficient!!! / / for each font and style used there is an AFM file necessary. / currently i have only files for the roman font family. / I try to get files for the other ones! / / CAVE: the size of the string is currently always calculated / in 'points' (1/72 of an inch). this should later on be / changed to depend on the mapping mode. / CAVE: the path to the AFM files must be set before calling this / fun3B3Bction. this is usually done by a call like the following: / wxSetAFMPath("d:\\wxw161\\afm\\"); / / example: / / wxPostScriptDC dc(NULL, true); / if (dc.IsOk()){ / wxSetAFMPath("d:\\wxw161\\afm\\"); / dc.StartDoc("Test"); / dc.StartPage(); / wxCoord w,h; / dc.SetFont(new wxFontInfo(10).Family(wxFONTFAMILY_ROMAN)); / dc.GetTextExtent("Hallo",&w,&h); / dc.EndPage(); / dc.EndDoc(); / } / / by steve (stefan.hammes@urz.uni-heidelberg.de) / created: 10.09.94 / updated: 14.05.95 */ /* these static vars are for storing the state between calls */ static int lastFamily= INT_MIN; static int lastSize= INT_MIN; static int lastStyle= INT_MIN; static int lastWeight= INT_MIN; static int lastDescender = INT_MIN; static int lastWidths[256]; /* widths of the characters */ double UnderlinePosition = 0.0; double UnderlineThickness = 0.0; // Get actual parameters int Family = fontToUse->GetFamily(); int Size = fontToUse->GetPointSize(); int Style = fontToUse->GetStyle(); int Weight = fontToUse->GetWeight(); // If we have another font, read the font-metrics if (Family!=lastFamily || Size!=lastSize || Style!=lastStyle || Weight!=lastWeight) { // Store actual values lastFamily = Family; lastSize = Size; lastStyle = Style; lastWeight = Weight; const wxChar *name; switch (Family) { case wxFONTFAMILY_MODERN: case wxFONTFAMILY_TELETYPE: { if ((Style == wxFONTSTYLE_ITALIC) && (Weight == wxFONTWEIGHT_BOLD)) name = wxT("CourBoO.afm"); else if ((Style != wxFONTSTYLE_ITALIC) && (Weight == wxFONTWEIGHT_BOLD)) name = wxT("CourBo.afm"); else if ((Style == wxFONTSTYLE_ITALIC) && (Weight != wxFONTWEIGHT_BOLD)) name = wxT("CourO.afm"); else name = wxT("Cour.afm"); break; } case wxFONTFAMILY_ROMAN: { if ((Style == wxFONTSTYLE_ITALIC) && (Weight == wxFONTWEIGHT_BOLD)) name = wxT("TimesBoO.afm"); else if ((Style != wxFONTSTYLE_ITALIC) && (Weight == wxFONTWEIGHT_BOLD)) name = wxT("TimesBo.afm"); else if ((Style == wxFONTSTYLE_ITALIC) && (Weight != wxFONTWEIGHT_BOLD)) name = wxT("TimesO.afm"); else name = wxT("TimesRo.afm"); break; } case wxFONTFAMILY_SCRIPT: { name = wxT("Zapf.afm"); break; } case wxFONTFAMILY_SWISS: default: { if ((Style == wxFONTSTYLE_ITALIC) && (Weight == wxFONTWEIGHT_BOLD)) name = wxT("HelvBoO.afm"); else if ((Style != wxFONTSTYLE_ITALIC) && (Weight == wxFONTWEIGHT_BOLD)) name = wxT("HelvBo.afm"); else if ((Style == wxFONTSTYLE_ITALIC) && (Weight != wxFONTWEIGHT_BOLD)) name = wxT("HelvO.afm"); else name = wxT("Helv.afm"); break; } } FILE *afmFile = NULL; // Get the directory of the AFM files wxString afmName; // VZ: I don't know if the cast always works under Unix but it clearly // never does under Windows where the pointer is // wxWindowsPrintNativeData and so calling GetFontMetricPath() on // it just crashes #ifndef __WIN32__ wxPostScriptPrintNativeData *data = wxDynamicCast(m_printData.GetNativeData(), wxPostScriptPrintNativeData); if (data && !data->GetFontMetricPath().empty()) { afmName = data->GetFontMetricPath(); afmName << wxFILE_SEP_PATH << name; } #endif // __WIN32__ if ( !afmName.empty() ) afmFile = wxFopen(afmName, wxT("r")); if ( !afmFile ) { #if defined(__UNIX__) && !defined(__VMS__) afmName = wxGetDataDir(); #else // !__UNIX__ afmName = wxStandardPaths::Get().GetDataDir(); #endif // __UNIX__/!__UNIX__ afmName << wxFILE_SEP_PATH #if defined(__LINUX__) || defined(__FREEBSD__) << wxT("gs_afm") << wxFILE_SEP_PATH #else << wxT("afm") << wxFILE_SEP_PATH #endif << name; afmFile = wxFopen(afmName,wxT("r")); } /* 2. open and process the file / a short explanation of the AFM format: / we have for each character a line, which gives its size / e.g.: / / C 63 ; WX 444 ; N question ; B 49 -14 395 676 ; / / that means, we have a character with ascii code 63, and width / (444/1000 * fontSize) points. / the other data is ignored for now! / / when the font has changed, we read in the right AFM file and store the / character widths in an array, which is processed below (see point 3.). */ if (afmFile==NULL) { wxLogDebug( wxT("GetTextExtent: can't open AFM file '%s'"), afmName.c_str() ); wxLogDebug( wxT(" using approximate values")); for (int i=0; i<256; i++) lastWidths[i] = 500; /* an approximate value */ lastDescender = -150; /* dito. */ } else { /* init the widths array */ for(int i=0; i<256; i++) lastWidths[i] = INT_MIN; /* some variables for holding parts of a line */ char cString[10], semiString[10], WXString[10]; char descString[20]; char upString[30], utString[30]; char encString[50]; char line[256]; int ascii,cWidth; /* read in the file and parse it */ while(fgets(line,sizeof(line),afmFile)!=NULL) { /* A.) check for descender definition */ if (strncmp(line,"Descender",9)==0) { if ((sscanf(line,"%s%d",descString,&lastDescender)!=2) || (strcmp(descString,"Descender")!=0)) { wxLogDebug( wxT("AFM-file '%s': line '%s' has error (bad descender)"), afmName.c_str(),line ); } } /* JC 1.) check for UnderlinePosition */ else if(strncmp(line,"UnderlinePosition",17)==0) { if ((sscanf(line,"%s%lf",upString,&UnderlinePosition)!=2) || (strcmp(upString,"UnderlinePosition")!=0)) { wxLogDebug( wxT("AFM-file '%s': line '%s' has error (bad UnderlinePosition)"), afmName.c_str(), line ); } } /* JC 2.) check for UnderlineThickness */ else if(strncmp(line,"UnderlineThickness",18)==0) { if ((sscanf(line,"%s%lf",utString,&UnderlineThickness)!=2) || (strcmp(utString,"UnderlineThickness")!=0)) { wxLogDebug( wxT("AFM-file '%s': line '%s' has error (bad UnderlineThickness)"), afmName.c_str(), line ); } } /* JC 3.) check for EncodingScheme */ else if(strncmp(line,"EncodingScheme",14)==0) { if ((sscanf(line,"%s%s",utString,encString)!=2) || (strcmp(utString,"EncodingScheme")!=0)) { wxLogDebug( wxT("AFM-file '%s': line '%s' has error (bad EncodingScheme)"), afmName.c_str(), line ); } else if (strncmp(encString, "AdobeStandardEncoding", 21)) { wxLogDebug( wxT("AFM-file '%s': line '%s' has error (unsupported EncodingScheme %s)"), afmName.c_str(),line, encString); } } /* B.) check for char-width */ else if(strncmp(line,"C ",2)==0) { if (sscanf(line,"%s%d%s%s%d",cString,&ascii,semiString,WXString,&cWidth)!=5) { wxLogDebug(wxT("AFM-file '%s': line '%s' has an error (bad character width)"),afmName.c_str(),line); } if(strcmp(cString,"C")!=0 || strcmp(semiString,";")!=0 || strcmp(WXString,"WX")!=0) { wxLogDebug(wxT("AFM-file '%s': line '%s' has a format error"),afmName.c_str(),line); } /* printf(" char '%c'=%d has width '%d'\n",ascii,ascii,cWidth); */ if (ascii>=0 && ascii<256) { lastWidths[ascii] = cWidth; /* store width */ } else { /* MATTHEW: this happens a lot; don't print an error */ /* wxLogDebug("AFM-file '%s': ASCII value %d out of range",afmName.c_str(),ascii); */ } } /* C.) ignore other entries. */ } fclose(afmFile); } /* hack to compute correct values for german 'Umlaute' / the correct way would be to map the character names / like 'adieresis' to corresp. positions of ISOEnc and read / these values from AFM files, too. Maybe later ... */ // NB: casts to int are needed to suppress gcc 3.3 warnings lastWidths[196] = lastWidths[(int)'A']; // U+00C4 A Umlaute lastWidths[228] = lastWidths[(int)'a']; // U+00E4 a Umlaute lastWidths[214] = lastWidths[(int)'O']; // U+00D6 O Umlaute lastWidths[246] = lastWidths[(int)'o']; // U+00F6 o Umlaute lastWidths[220] = lastWidths[(int)'U']; // U+00DC U Umlaute lastWidths[252] = lastWidths[(int)'u']; // U+00FC u Umlaute lastWidths[223] = lastWidths[(int)251]; // U+00DF eszett (scharfes s) /* JC: calculate UnderlineThickness/UnderlinePosition */ m_underlinePosition = YLOG2DEVREL(int(UnderlinePosition * double(fontSize))) / 1000.0; m_underlineThickness = YLOG2DEVREL(int(UnderlineThickness * double(fontSize))) / 1000.0; } /* 3. now the font metrics are read in, calc size this / is done by adding the widths of the characters in the / string. they are given in 1/1000 of the size! */ long sum=0; float height=fontSize; /* by default */ const unsigned char *p=reinterpret_cast(static_cast(strbuf)); if(!p) { // String couldn't be converted which used to SEGV as reported here: // http://bugs.debian.org/702378 // https://trac.wxwidgets.org/ticket/15300 // Upstream suggests "just return if the conversion failed". if (x) (*x) = 0; if (y) (*y) = 0; if (descent) (*descent) = 0; if (externalLeading) (*externalLeading) = 0; return; } for(; *p; p++) { if(lastWidths[*p]== INT_MIN) { wxLogDebug(wxT("GetTextExtent: undefined width for character '%c' (%d)"), *p,*p); sum += lastWidths[(unsigned char)' ']; /* assume space */ } else { sum += lastWidths[*p]; } } /* add descender to height (it is usually a negative value) */ //if (lastDescender != INT_MIN) //{ // height += (wxCoord)(((-lastDescender)/1000.0F) * Size); /* MATTHEW: forgot scale */ //} // - commented by V. Slavik - height already contains descender in it // (judging from few experiments) /* return size values */ if ( x ) *x = int(sum * fontSize) / 1000; if ( y ) *y = (wxCoord)height; /* return other parameters */ if (descent) { if(lastDescender!=INT_MIN) { *descent = (wxCoord)(((-lastDescender)/1000.0F) * fontSize); /* MATTHEW: forgot scale */ } else { *descent = 0; } } /* currently no idea how to calculate this! */ if (externalLeading) *externalLeading = 0; #endif // Use AFM } #endif // wxUSE_PRINTING_ARCHITECTURE && wxUSE_POSTSCRIPT // vi:sts=4:sw=4:et