]> git.saurik.com Git - wxWidgets.git/blob - src/generic/dcpsg.cpp
fixes to focus handling in menus
[wxWidgets.git] / src / generic / dcpsg.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: dcpsg.cpp
3 // Purpose: Generic wxPostScriptDC implementation
4 // Author: Julian Smart, Robert Roebling, Markus Holzhem
5 // Modified by:
6 // Created: 04/01/98
7 // RCS-ID: $Id$
8 // Copyright: (c) Julian Smart and Markus Holzem
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
11
12 #ifdef __GNUG__
13 #pragma implementation
14 #pragma interface
15 #endif
16
17 #include "wx/wxprec.h"
18
19 #ifdef __BORLANDC__
20 #pragma hdrstop
21 #endif
22
23 #ifndef WX_PRECOMP
24 #endif // WX_PRECOMP
25
26 #if wxUSE_PRINTING_ARCHITECTURE
27
28 #if wxUSE_POSTSCRIPT
29
30 #include "wx/window.h"
31 #include "wx/dcmemory.h"
32 #include "wx/utils.h"
33 #include "wx/intl.h"
34 #include "wx/filedlg.h"
35 #include "wx/app.h"
36 #include "wx/msgdlg.h"
37 #include "wx/image.h"
38 #include "wx/log.h"
39 #include "wx/generic/dcpsg.h"
40 #include "wx/generic/prntdlgg.h"
41 #include "wx/button.h"
42 #include "wx/stattext.h"
43 #include "wx/radiobox.h"
44 #include "wx/textctrl.h"
45 #include "wx/prntbase.h"
46 #include "wx/paper.h"
47 #include "wx/filefn.h"
48
49 #include <math.h>
50
51 #ifdef __WXMSW__
52
53 #ifdef DrawText
54 #undef DrawText
55 #endif
56
57 #ifdef StartDoc
58 #undef StartDoc
59 #endif
60
61 #ifdef GetCharWidth
62 #undef GetCharWidth
63 #endif
64
65 #ifdef FindWindow
66 #undef FindWindow
67 #endif
68
69 #endif
70
71 //-----------------------------------------------------------------------------
72 // start and end of document/page
73 //-----------------------------------------------------------------------------
74
75 static const char *wxPostScriptHeaderEllipse = "\
76 /ellipsedict 8 dict def\n\
77 ellipsedict /mtrx matrix put\n\
78 /ellipse {\n\
79 ellipsedict begin\n\
80 /endangle exch def\n\
81 /startangle exch def\n\
82 /yrad exch def\n\
83 /xrad exch def\n\
84 /y exch def\n\
85 /x exch def\n\
86 /savematrix mtrx currentmatrix def\n\
87 x y translate\n\
88 xrad yrad scale\n\
89 0 0 1 startangle endangle arc\n\
90 savematrix setmatrix\n\
91 end\n\
92 } def\n\
93 ";
94
95 static const char *wxPostScriptHeaderEllipticArc= "\
96 /ellipticarcdict 8 dict def\n\
97 ellipticarcdict /mtrx matrix put\n\
98 /ellipticarc\n\
99 { ellipticarcdict begin\n\
100 /do_fill exch def\n\
101 /endangle exch def\n\
102 /startangle exch def\n\
103 /yrad exch def\n\
104 /xrad exch def \n\
105 /y exch def\n\
106 /x exch def\n\
107 /savematrix mtrx currentmatrix def\n\
108 x y translate\n\
109 xrad yrad scale\n\
110 do_fill { 0 0 moveto } if\n\
111 0 0 1 startangle endangle arc\n\
112 savematrix setmatrix\n\
113 do_fill { fill }{ stroke } ifelse\n\
114 end\n\
115 } def\n";
116
117 static const char *wxPostScriptHeaderSpline = "\
118 /DrawSplineSection {\n\
119 /y3 exch def\n\
120 /x3 exch def\n\
121 /y2 exch def\n\
122 /x2 exch def\n\
123 /y1 exch def\n\
124 /x1 exch def\n\
125 /xa x1 x2 x1 sub 0.666667 mul add def\n\
126 /ya y1 y2 y1 sub 0.666667 mul add def\n\
127 /xb x3 x2 x3 sub 0.666667 mul add def\n\
128 /yb y3 y2 y3 sub 0.666667 mul add def\n\
129 x1 y1 lineto\n\
130 xa ya xb yb x3 y3 curveto\n\
131 } def\n\
132 ";
133
134 static const char *wxPostScriptHeaderColourImage = "\
135 %% define 'colorimage' if it isn't defined\n\
136 %% ('colortogray' and 'mergeprocs' come from xwd2ps\n\
137 %% via xgrab)\n\
138 /colorimage where %% do we know about 'colorimage'?\n\
139 { pop } %% yes: pop off the 'dict' returned\n\
140 { %% no: define one\n\
141 /colortogray { %% define an RGB->I function\n\
142 /rgbdata exch store %% call input 'rgbdata'\n\
143 rgbdata length 3 idiv\n\
144 /npixls exch store\n\
145 /rgbindx 0 store\n\
146 0 1 npixls 1 sub {\n\
147 grays exch\n\
148 rgbdata rgbindx get 20 mul %% Red\n\
149 rgbdata rgbindx 1 add get 32 mul %% Green\n\
150 rgbdata rgbindx 2 add get 12 mul %% Blue\n\
151 add add 64 idiv %% I = .5G + .31R + .18B\n\
152 put\n\
153 /rgbindx rgbindx 3 add store\n\
154 } for\n\
155 grays 0 npixls getinterval\n\
156 } bind def\n\
157 \n\
158 %% Utility procedure for colorimage operator.\n\
159 %% This procedure takes two procedures off the\n\
160 %% stack and merges them into a single procedure.\n\
161 \n\
162 /mergeprocs { %% def\n\
163 dup length\n\
164 3 -1 roll\n\
165 dup\n\
166 length\n\
167 dup\n\
168 5 1 roll\n\
169 3 -1 roll\n\
170 add\n\
171 array cvx\n\
172 dup\n\
173 3 -1 roll\n\
174 0 exch\n\
175 putinterval\n\
176 dup\n\
177 4 2 roll\n\
178 putinterval\n\
179 } bind def\n\
180 \n\
181 /colorimage { %% def\n\
182 pop pop %% remove 'false 3' operands\n\
183 {colortogray} mergeprocs\n\
184 image\n\
185 } bind def\n\
186 } ifelse %% end of 'false' case\n\
187 ";
188
189 static char wxPostScriptHeaderReencodeISO1[] =
190 "\n/reencodeISO {\n"
191 "dup dup findfont dup length dict begin\n"
192 "{ 1 index /FID ne { def }{ pop pop } ifelse } forall\n"
193 "/Encoding ISOLatin1Encoding def\n"
194 "currentdict end definefont\n"
195 "} def\n"
196 "/ISOLatin1Encoding [\n"
197 "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n"
198 "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n"
199 "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n"
200 "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n"
201 "/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright\n"
202 "/parenleft/parenright/asterisk/plus/comma/minus/period/slash\n"
203 "/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon\n"
204 "/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N\n"
205 "/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright\n"
206 "/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m\n"
207 "/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde\n"
208 "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n"
209 "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n"
210 "/.notdef/dotlessi/grave/acute/circumflex/tilde/macron/breve\n"
211 "/dotaccent/dieresis/.notdef/ring/cedilla/.notdef/hungarumlaut\n";
212
213 static char wxPostScriptHeaderReencodeISO2[] =
214 "/ogonek/caron/space/exclamdown/cent/sterling/currency/yen/brokenbar\n"
215 "/section/dieresis/copyright/ordfeminine/guillemotleft/logicalnot\n"
216 "/hyphen/registered/macron/degree/plusminus/twosuperior/threesuperior\n"
217 "/acute/mu/paragraph/periodcentered/cedilla/onesuperior/ordmasculine\n"
218 "/guillemotright/onequarter/onehalf/threequarters/questiondown\n"
219 "/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla\n"
220 "/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex\n"
221 "/Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis\n"
222 "/multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute\n"
223 "/Thorn/germandbls/agrave/aacute/acircumflex/atilde/adieresis\n"
224 "/aring/ae/ccedilla/egrave/eacute/ecircumflex/edieresis/igrave\n"
225 "/iacute/icircumflex/idieresis/eth/ntilde/ograve/oacute/ocircumflex\n"
226 "/otilde/odieresis/divide/oslash/ugrave/uacute/ucircumflex/udieresis\n"
227 "/yacute/thorn/ydieresis\n"
228 "] def\n\n";
229
230 //-------------------------------------------------------------------------------
231 // wxPostScriptDC
232 //-------------------------------------------------------------------------------
233
234 float wxPostScriptDC::ms_PSScaleFactor = 10.0;
235
236 void wxPostScriptDC::SetResolution(int ppi)
237 {
238 ms_PSScaleFactor = (float)ppi / 72.0;
239 }
240
241 int wxPostScriptDC::GetResolution()
242 {
243 return (int)(ms_PSScaleFactor * 72.0);
244 }
245
246
247
248 wxPostScriptDC::wxPostScriptDC ()
249 {
250 m_pstream = (FILE*) NULL;
251
252 m_currentRed = 0;
253 m_currentGreen = 0;
254 m_currentBlue = 0;
255
256 m_pageNumber = 0;
257
258 m_clipping = FALSE;
259
260 m_underlinePosition = 0.0;
261 m_underlineThickness = 0.0;
262
263 m_signX = 1; // default x-axis left to right
264 m_signY = -1; // default y-axis bottom up -> top down
265
266 // Compatibility only
267 // HH: Doesn't seem to work for wxMSW...
268 #ifndef __WXMSW__
269 m_printData = * wxThePrintSetupData;
270 #endif
271 }
272
273 wxPostScriptDC::wxPostScriptDC (const wxString& file, bool interactive, wxWindow *parent)
274 {
275 m_pstream = (FILE*) NULL;
276
277 m_currentRed = 0;
278 m_currentGreen = 0;
279 m_currentBlue = 0;
280
281 m_pageNumber = 0;
282
283 m_clipping = FALSE;
284
285 m_underlinePosition = 0.0;
286 m_underlineThickness = 0.0;
287
288 m_signX = 1; // default x-axis left to right
289 m_signY = -1; // default y-axis bottom up -> top down
290
291 Create(file, interactive, parent);
292 }
293
294 bool wxPostScriptDC::Create(const wxString& file, bool interactive, wxWindow *parent)
295 {
296 m_isInteractive = interactive;
297
298 m_title = "";
299 m_printData.SetFilename(file);
300
301 #ifdef __WXMSW__
302 // Can only send to file in Windows
303 m_printData.SetPrintMode(wxPRINT_MODE_FILE);
304 #endif
305
306 if (m_isInteractive)
307 {
308 if ((m_ok = PrinterDialog (parent) ) == FALSE) return FALSE;
309 }
310 else
311 {
312 m_ok = TRUE;
313 }
314
315 return m_ok;
316 }
317
318 wxPostScriptDC::wxPostScriptDC (const wxPrintData& printData)
319 {
320 m_pstream = (FILE*) NULL;
321
322 m_currentRed = 0;
323 m_currentGreen = 0;
324 m_currentBlue = 0;
325
326 m_pageNumber = 0;
327
328 m_clipping = FALSE;
329
330 m_underlinePosition = 0.0;
331 m_underlineThickness = 0.0;
332
333 m_signX = 1; // default x-axis left to right
334 m_signY = -1; // default y-axis bottom up -> top down
335
336 m_printData = printData;
337
338 m_ok = TRUE;
339 }
340
341 wxPostScriptDC::~wxPostScriptDC ()
342 {
343 if (m_pstream)
344 {
345 fclose( m_pstream );
346 m_pstream = (FILE*) NULL;
347 }
348 }
349
350 bool wxPostScriptDC::Ok() const
351 {
352 return m_ok;
353 }
354
355 // This dialog is deprecated now: use wxGenericPrintDialog or the printing framework
356 bool wxPostScriptDC::PrinterDialog(wxWindow *parent)
357 {
358 wxPostScriptPrintDialog dialog( parent, _("Printer Settings"), wxPoint(150, 150), wxSize(400, 400),
359 wxDEFAULT_DIALOG_STYLE | wxDIALOG_MODAL );
360 m_ok = (dialog.ShowModal () == wxID_OK);
361
362 if (!m_ok) return FALSE;
363
364 if ((m_printData.GetFilename() == "") &&
365 (m_printData.GetPrintMode() == wxPRINT_MODE_PREVIEW ||
366 m_printData.GetPrintMode() == wxPRINT_MODE_PRINTER))
367 {
368 // steve, 05.09.94
369 #ifdef __VMS__
370 m_printData.SetFilename("preview");
371 #else
372 // For PS_PRINTER action this depends on a Unix-style print spooler
373 // since the wx_printer_file can be destroyed during a session
374 // @@@ TODO: a Windows-style answer for non-Unix
375 wxChar userId[256];
376 wxGetUserId (userId, sizeof (userId) / sizeof (char));
377 wxChar tmp[256];
378 wxStrcpy (tmp, wxT("/tmp/preview_"));
379 wxStrcat (tmp, userId);
380 m_printData.SetFilename(tmp);
381 #endif
382 wxChar tmp2[256];
383 wxStrcpy(tmp2, m_printData.GetFilename());
384 wxStrcat (tmp2, wxT(".ps"));
385 m_printData.SetFilename(tmp2);
386 }
387 else if ((m_printData.GetFilename() == wxT("")) && (m_printData.GetPrintMode() == wxPRINT_MODE_FILE))
388 {
389 wxString file = wxSaveFileSelector (_("PostScript"), wxT("ps"));
390 if ( file.IsEmpty() )
391 {
392 m_ok = FALSE;
393 return FALSE;
394 }
395
396 m_printData.SetFilename(file);
397 m_ok = TRUE;
398 }
399
400 return m_ok;
401 }
402
403 void wxPostScriptDC::DoSetClippingRegion (wxCoord x, wxCoord y, wxCoord w, wxCoord h)
404 {
405 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
406
407 if (m_clipping) DestroyClippingRegion();
408
409 wxDC::DoSetClippingRegion(x, y, w, h);
410
411 m_clipping = TRUE;
412 fprintf( m_pstream,
413 "gsave\n newpath\n"
414 "%d %d moveto\n"
415 "%d %d lineto\n"
416 "%d %d lineto\n"
417 "%d %d lineto\n"
418 "closepath clip newpath\n",
419 XLOG2DEV(x), YLOG2DEV(y),
420 XLOG2DEV(x+w), YLOG2DEV(y),
421 XLOG2DEV(x+w), YLOG2DEV(y+h),
422 XLOG2DEV(x), YLOG2DEV(y+h) );
423 }
424
425
426 void wxPostScriptDC::DestroyClippingRegion()
427 {
428 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
429
430 if (m_clipping)
431 {
432 m_clipping = FALSE;
433 fprintf( m_pstream, "grestore\n" );
434 }
435
436 wxDC::DestroyClippingRegion();
437 }
438
439 void wxPostScriptDC::Clear()
440 {
441 wxFAIL_MSG( wxT("wxPostScriptDC::Clear not implemented.") );
442 }
443
444 void wxPostScriptDC::DoFloodFill (wxCoord WXUNUSED(x), wxCoord WXUNUSED(y), const wxColour &WXUNUSED(col), int WXUNUSED(style))
445 {
446 wxFAIL_MSG( wxT("wxPostScriptDC::FloodFill not implemented.") );
447 }
448
449 bool wxPostScriptDC::DoGetPixel (wxCoord WXUNUSED(x), wxCoord WXUNUSED(y), wxColour * WXUNUSED(col)) const
450 {
451 wxFAIL_MSG( wxT("wxPostScriptDC::GetPixel not implemented.") );
452 return FALSE;
453 }
454
455 void wxPostScriptDC::DoCrossHair (wxCoord WXUNUSED(x), wxCoord WXUNUSED(y))
456 {
457 wxFAIL_MSG( wxT("wxPostScriptDC::CrossHair not implemented.") );
458 }
459
460 void wxPostScriptDC::DoDrawLine (wxCoord x1, wxCoord y1, wxCoord x2, wxCoord y2)
461 {
462 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
463
464 if (m_pen.GetStyle() == wxTRANSPARENT) return;
465
466 SetPen( m_pen );
467
468 fprintf( m_pstream,
469 "newpath\n"
470 "%d %d moveto\n"
471 "%d %d lineto\n"
472 "stroke\n",
473 XLOG2DEV(x1), YLOG2DEV(y1),
474 XLOG2DEV(x2), YLOG2DEV (y2) );
475
476 CalcBoundingBox( x1, y1 );
477 CalcBoundingBox( x2, y2 );
478 }
479
480 #define RAD2DEG 57.29577951308
481
482 void wxPostScriptDC::DoDrawArc (wxCoord x1, wxCoord y1, wxCoord x2, wxCoord y2, wxCoord xc, wxCoord yc)
483 {
484 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
485
486 wxCoord dx = x1 - xc;
487 wxCoord dy = y1 - yc;
488 wxCoord radius = (wxCoord) sqrt( (double)(dx*dx+dy*dy) );
489 double alpha1, alpha2;
490
491 if (x1 == x2 && y1 == y2)
492 {
493 alpha1 = 0.0;
494 alpha2 = 360.0;
495 }
496 else if (radius == 0.0)
497 {
498 alpha1 = alpha2 = 0.0;
499 }
500 else
501 {
502 alpha1 = (x1 - xc == 0) ?
503 (y1 - yc < 0) ? 90.0 : -90.0 :
504 -atan2(double(y1-yc), double(x1-xc)) * RAD2DEG;
505 alpha2 = (x2 - xc == 0) ?
506 (y2 - yc < 0) ? 90.0 : -90.0 :
507 -atan2(double(y2-yc), double(x2-xc)) * RAD2DEG;
508 }
509 while (alpha1 <= 0) alpha1 += 360;
510 while (alpha2 <= 0) alpha2 += 360; // adjust angles to be between
511 while (alpha1 > 360) alpha1 -= 360; // 0 and 360 degree
512 while (alpha2 > 360) alpha2 -= 360;
513
514 if (m_brush.GetStyle() != wxTRANSPARENT)
515 {
516 SetBrush( m_brush );
517
518 fprintf( m_pstream,
519 "newpath\n"
520 "%d %d %d %d %d %d ellipse\n"
521 "%d %d lineto\n"
522 "closepath\n"
523 "fill\n",
524 XLOG2DEV(xc), YLOG2DEV(yc), XLOG2DEVREL(radius), YLOG2DEVREL(radius), (wxCoord)alpha1, (wxCoord) alpha2,
525 XLOG2DEV(xc), YLOG2DEV(yc) );
526
527 CalcBoundingBox( xc-radius, yc-radius );
528 CalcBoundingBox( xc+radius, yc+radius );
529 }
530
531 if (m_pen.GetStyle() != wxTRANSPARENT)
532 {
533 SetPen( m_pen );
534
535 fprintf( m_pstream,
536 "newpath\n"
537 "%d %d %d %d %d %d ellipse\n"
538 "%d %d lineto\n"
539 "stroke\n"
540 "fill\n",
541 XLOG2DEV(xc), YLOG2DEV(yc), XLOG2DEVREL(radius), YLOG2DEVREL(radius), (wxCoord)alpha1, (wxCoord) alpha2,
542 XLOG2DEV(xc), YLOG2DEV(yc) );
543
544 CalcBoundingBox( xc-radius, yc-radius );
545 CalcBoundingBox( xc+radius, yc+radius );
546 }
547 }
548
549 void wxPostScriptDC::DoDrawEllipticArc(wxCoord x,wxCoord y,wxCoord w,wxCoord h,double sa,double ea)
550 {
551 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
552
553 if (sa>=360 || sa<=-360) sa=sa-int(sa/360)*360;
554 if (ea>=360 || ea<=-360) ea=ea-int(ea/360)*360;
555 if (sa<0) sa+=360;
556 if (ea<0) ea+=360;
557
558 if (sa==ea)
559 {
560 DrawEllipse(x,y,w,h);
561 return;
562 }
563
564 if (m_brush.GetStyle () != wxTRANSPARENT)
565 {
566 SetBrush( m_brush );
567
568 fprintf( m_pstream,
569 "newpath\n"
570 "%d %d %d %d %d %d true ellipticarc\n",
571 XLOG2DEV(x+w/2), YLOG2DEV(y+h/2), XLOG2DEVREL(w/2), YLOG2DEVREL(h/2), (wxCoord)sa, (wxCoord)ea );
572
573 CalcBoundingBox( x ,y );
574 CalcBoundingBox( x+w, y+h );
575 }
576
577 if (m_pen.GetStyle () != wxTRANSPARENT)
578 {
579 SetPen( m_pen );
580
581 fprintf(m_pstream,
582 "newpath\n"
583 "%d %d %d %d %d %d false ellipticarc\n",
584 XLOG2DEV(x+w/2), YLOG2DEV(y+h/2), XLOG2DEVREL(w/2), YLOG2DEVREL(h/2), (wxCoord)sa, (wxCoord)ea );
585
586 CalcBoundingBox( x ,y );
587 CalcBoundingBox( x+w, y+h );
588 }
589 }
590
591 void wxPostScriptDC::DoDrawPoint (wxCoord x, wxCoord y)
592 {
593 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
594
595 if (m_pen.GetStyle() == wxTRANSPARENT) return;
596
597 SetPen (m_pen);
598
599 fprintf( m_pstream,
600 "newpath\n"
601 "%d %d moveto\n"
602 "%d %d lineto\n"
603 "stroke\n",
604 XLOG2DEV(x), YLOG2DEV(y),
605 XLOG2DEV(x+1), YLOG2DEV(y) );
606
607 CalcBoundingBox( x, y );
608 }
609
610 void wxPostScriptDC::DoDrawPolygon (int n, wxPoint points[], wxCoord xoffset, wxCoord yoffset, int WXUNUSED(fillStyle))
611 {
612 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
613
614 if (n <= 0) return;
615
616 if (m_brush.GetStyle () != wxTRANSPARENT)
617 {
618 SetBrush( m_brush );
619
620 fprintf( m_pstream, "newpath\n" );
621
622 wxCoord xx = XLOG2DEV(points[0].x + xoffset);
623 wxCoord yy = YLOG2DEV(points[0].y + yoffset);
624
625 fprintf( m_pstream, "%d %d moveto\n", xx, yy );
626
627 CalcBoundingBox( points[0].x + xoffset, points[0].y + yoffset );
628
629 for (int i = 1; i < n; i++)
630 {
631 xx = XLOG2DEV(points[i].x + xoffset);
632 yy = YLOG2DEV(points[i].y + yoffset);
633
634 fprintf( m_pstream, "%d %d lineto\n", xx, yy );
635
636 CalcBoundingBox( points[i].x + xoffset, points[i].y + yoffset);
637 }
638
639 fprintf( m_pstream, "fill\n" );
640 }
641
642 if (m_pen.GetStyle () != wxTRANSPARENT)
643 {
644 SetPen( m_pen );
645
646 fprintf( m_pstream, "newpath\n" );
647
648 wxCoord xx = XLOG2DEV(points[0].x + xoffset);
649 wxCoord yy = YLOG2DEV(points[0].y + yoffset);
650
651 fprintf( m_pstream, "%d %d moveto\n", xx, yy );
652
653 CalcBoundingBox( points[0].x + xoffset, points[0].y + yoffset );
654
655 for (int i = 1; i < n; i++)
656 {
657 xx = XLOG2DEV(points[i].x + xoffset);
658 yy = YLOG2DEV(points[i].y + yoffset);
659
660 fprintf( m_pstream, "%d %d lineto\n", xx, yy );
661
662 CalcBoundingBox( points[i].x + xoffset, points[i].y + yoffset);
663 }
664
665 fprintf( m_pstream, "closepath\n" );
666 fprintf( m_pstream, "stroke\n" );
667 }
668 }
669
670 void wxPostScriptDC::DoDrawLines (int n, wxPoint points[], wxCoord xoffset, wxCoord yoffset)
671 {
672 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
673
674 if (m_pen.GetStyle() == wxTRANSPARENT) return;
675
676 if (n <= 0) return;
677
678 SetPen (m_pen);
679
680 int i;
681 for ( i =0; i<n ; i++ )
682 {
683 CalcBoundingBox( XLOG2DEV(points[i].x+xoffset), YLOG2DEV(points[i].y+yoffset));
684 }
685
686 fprintf( m_pstream,
687 "newpath\n"
688 "%d %d moveto\n",
689 XLOG2DEV(points[0].x+xoffset), YLOG2DEV(points[0].y+yoffset) );
690
691 for (i = 1; i < n; i++)
692 {
693 fprintf( m_pstream,
694 "%d %d lineto\n",
695 XLOG2DEV(points[i].x+xoffset), YLOG2DEV(points[i].y+yoffset) );
696 }
697
698 fprintf( m_pstream, "stroke\n" );
699 }
700
701 void wxPostScriptDC::DoDrawRectangle (wxCoord x, wxCoord y, wxCoord width, wxCoord height)
702 {
703 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
704
705 if (m_brush.GetStyle () != wxTRANSPARENT)
706 {
707 SetBrush( m_brush );
708
709 fprintf( m_pstream,
710 "newpath\n"
711 "%d %d moveto\n"
712 "%d %d lineto\n"
713 "%d %d lineto\n"
714 "%d %d lineto\n"
715 "closepath\n"
716 "fill\n",
717 XLOG2DEV(x), YLOG2DEV(y),
718 XLOG2DEV(x + width), YLOG2DEV(y),
719 XLOG2DEV(x + width), YLOG2DEV(y + height),
720 XLOG2DEV(x), YLOG2DEV(y + height) );
721
722 CalcBoundingBox( x, y );
723 CalcBoundingBox( x + width, y + height );
724 }
725
726 if (m_pen.GetStyle () != wxTRANSPARENT)
727 {
728 SetPen (m_pen);
729
730 fprintf( m_pstream,
731 "newpath\n"
732 "%d %d moveto\n"
733 "%d %d lineto\n"
734 "%d %d lineto\n"
735 "%d %d lineto\n"
736 "closepath\n"
737 "stroke\n",
738 XLOG2DEV(x), YLOG2DEV(y),
739 XLOG2DEV(x + width), YLOG2DEV(y),
740 XLOG2DEV(x + width), YLOG2DEV(y + height),
741 XLOG2DEV(x), YLOG2DEV(y + height) );
742
743 CalcBoundingBox( x, y );
744 CalcBoundingBox( x + width, y + height );
745 }
746 }
747
748 void wxPostScriptDC::DoDrawRoundedRectangle (wxCoord x, wxCoord y, wxCoord width, wxCoord height, double radius)
749 {
750 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
751
752 if (radius < 0.0)
753 {
754 // Now, a negative radius is interpreted to mean
755 // 'the proportion of the smallest X or Y dimension'
756 double smallest = 0.0;
757 if (width < height)
758 smallest = width;
759 else
760 smallest = height;
761 radius = (-radius * smallest);
762 }
763
764 wxCoord rad = (wxCoord) radius;
765
766 if (m_brush.GetStyle () != wxTRANSPARENT)
767 {
768 SetBrush( m_brush );
769
770 /* Draw rectangle anticlockwise */
771 fprintf( m_pstream,
772 "newpath\n"
773 "%d %d %d 90 180 arc\n"
774 "%d %d moveto\n"
775 "%d %d %d 180 270 arc\n"
776 "%d %d lineto\n"
777 "%d %d %d 270 0 arc\n"
778 "%d %d lineto\n"
779 "%d %d %d 0 90 arc\n"
780 "%d %d lineto\n"
781 "closepath\n"
782 "fill\n",
783 XLOG2DEV(x + rad), YLOG2DEV(y + rad), XLOG2DEVREL(rad),
784 XLOG2DEV(x), YLOG2DEV(y + rad),
785 XLOG2DEV(x + rad), YLOG2DEV(y + height - rad), XLOG2DEVREL(rad),
786 XLOG2DEV(x + width - rad), YLOG2DEV(y + height),
787 XLOG2DEV(x + width - rad), YLOG2DEV(y + height - rad), XLOG2DEVREL(rad),
788 XLOG2DEV(x + width), YLOG2DEV(y + rad),
789 XLOG2DEV(x + width - rad), YLOG2DEV(y + rad), XLOG2DEVREL(rad),
790 XLOG2DEV(x + rad), YLOG2DEV(y) );
791
792 CalcBoundingBox( x, y );
793 CalcBoundingBox( x + width, y + height );
794 }
795
796 if (m_pen.GetStyle () != wxTRANSPARENT)
797 {
798 SetPen (m_pen);
799
800 /* Draw rectangle anticlockwise */
801 fprintf( m_pstream,
802 "newpath\n"
803 "%d %d %d 90 180 arc\n"
804 "%d %d moveto\n"
805 "%d %d %d 180 270 arc\n"
806 "%d %d lineto\n"
807 "%d %d %d 270 0 arc\n"
808 "%d %d lineto\n"
809 "%d %d %d 0 90 arc\n"
810 "%d %d lineto\n"
811 "closepath\n"
812 "stroke\n",
813 XLOG2DEV(x + rad), YLOG2DEV(y + rad), XLOG2DEVREL(rad),
814 XLOG2DEV(x), YLOG2DEV(y + rad),
815 XLOG2DEV(x + rad), YLOG2DEV(y + height - rad), XLOG2DEVREL(rad),
816 XLOG2DEV(x + width - rad), YLOG2DEV(y + height),
817 XLOG2DEV(x + width - rad), YLOG2DEV(y + height - rad), XLOG2DEVREL(rad),
818 XLOG2DEV(x + width), YLOG2DEV(y + rad),
819 XLOG2DEV(x + width - rad), YLOG2DEV(y + rad), XLOG2DEVREL(rad),
820 XLOG2DEV(x + rad), YLOG2DEV(y) );
821
822 CalcBoundingBox( x, y );
823 CalcBoundingBox( x + width, y + height );
824 }
825 }
826
827 void wxPostScriptDC::DoDrawEllipse (wxCoord x, wxCoord y, wxCoord width, wxCoord height)
828 {
829 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
830
831 if (m_brush.GetStyle () != wxTRANSPARENT)
832 {
833 SetBrush (m_brush);
834
835 fprintf( m_pstream,
836 "newpath\n"
837 "%d %d %d %d 0 360 ellipse\n"
838 "fill\n",
839 XLOG2DEV(x + width / 2), YLOG2DEV(y + height / 2),
840 XLOG2DEVREL(width / 2), YLOG2DEVREL(height / 2) );
841
842 CalcBoundingBox( x - width, y - height );
843 CalcBoundingBox( x + width, y + height );
844 }
845
846 if (m_pen.GetStyle () != wxTRANSPARENT)
847 {
848 SetPen (m_pen);
849
850 fprintf( m_pstream,
851 "newpath\n"
852 "%d %d %d %d 0 360 ellipse\n"
853 "stroke\n",
854 XLOG2DEV(x + width / 2), YLOG2DEV(y + height / 2),
855 XLOG2DEVREL(width / 2), YLOG2DEVREL(height / 2) );
856
857 CalcBoundingBox( x - width, y - height );
858 CalcBoundingBox( x + width, y + height );
859 }
860 }
861
862 void wxPostScriptDC::DoDrawIcon( const wxIcon& icon, wxCoord x, wxCoord y )
863 {
864 DrawBitmap( icon, x, y, TRUE );
865 }
866
867 /* this has to be char, not wxChar */
868 static char hexArray[] = "0123456789ABCDEF";
869 static void LocalDecToHex( int dec, char *buf )
870 {
871 int firstDigit = (int)(dec/16.0);
872 int secondDigit = (int)(dec - (firstDigit*16.0));
873 buf[0] = hexArray[firstDigit];
874 buf[1] = hexArray[secondDigit];
875 buf[2] = 0;
876 }
877
878 void wxPostScriptDC::DoDrawBitmap( const wxBitmap& bitmap, wxCoord x, wxCoord y, bool WXUNUSED(useMask) )
879 {
880 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
881
882 if (!bitmap.Ok()) return;
883
884 wxImage image( bitmap );
885
886 if (!image.Ok()) return;
887
888 wxCoord w = image.GetWidth();
889 wxCoord h = image.GetHeight();
890
891 wxCoord ww = XLOG2DEVREL(image.GetWidth());
892 wxCoord hh = YLOG2DEVREL(image.GetHeight());
893
894 wxCoord xx = XLOG2DEV(x);
895 wxCoord yy = YLOG2DEV(y + bitmap.GetHeight());
896
897 fprintf( m_pstream,
898 "/origstate save def\n"
899 "20 dict begin\n"
900 "/pix %d string def\n"
901 "/grays %d string def\n"
902 "/npixels 0 def\n"
903 "/rgbindx 0 def\n"
904 "%d %d translate\n"
905 "%d %d scale\n"
906 "%d %d 8\n"
907 "[%d 0 0 %d 0 %d]\n"
908 "{currentfile pix readhexstring pop}\n"
909 "false 3 colorimage\n",
910 w, w, xx, yy, ww, hh, w, h, w, -h, h );
911
912
913 for (int j = 0; j < h; j++)
914 {
915 for (int i = 0; i < w; i++)
916 {
917 char buffer[5];
918 LocalDecToHex( image.GetRed(i,j), buffer );
919 fprintf( m_pstream, buffer );
920 LocalDecToHex( image.GetGreen(i,j), buffer );
921 fprintf( m_pstream, buffer );
922 LocalDecToHex( image.GetBlue(i,j), buffer );
923 fprintf( m_pstream, buffer );
924 }
925 fprintf( m_pstream, "\n" );
926 }
927
928 fprintf( m_pstream, "end\n" );
929 fprintf( m_pstream, "origstate restore\n" );
930 }
931
932 void wxPostScriptDC::SetFont( const wxFont& font )
933 {
934 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
935
936 if (!font.Ok()) return;
937
938 m_font = font;
939
940 int Style = m_font.GetStyle();
941 int Weight = m_font.GetWeight();
942
943 const char *name;
944 switch (m_font.GetFamily())
945 {
946 case wxTELETYPE:
947 case wxMODERN:
948 {
949 if (Style == wxITALIC)
950 {
951 if (Weight == wxBOLD)
952 name = "/Courier-BoldOblique";
953 else
954 name = "/Courier-Oblique";
955 }
956 else
957 {
958 if (Weight == wxBOLD)
959 name = "/Courier-Bold";
960 else
961 name = "/Courier";
962 }
963 break;
964 }
965 case wxROMAN:
966 {
967 if (Style == wxITALIC)
968 {
969 if (Weight == wxBOLD)
970 name = "/Times-BoldItalic";
971 else
972 name = "/Times-Italic";
973 }
974 else
975 {
976 if (Weight == wxBOLD)
977 name = "/Times-Bold";
978 else
979 name = "/Times-Roman";
980 }
981 break;
982 }
983 case wxSCRIPT:
984 {
985 name = "/ZapfChancery-MediumItalic";
986 Style = wxNORMAL;
987 Weight = wxNORMAL;
988 break;
989 }
990 case wxSWISS:
991 default:
992 {
993 if (Style == wxITALIC)
994 {
995 if (Weight == wxBOLD)
996 name = "/Helvetica-BoldOblique";
997 else
998 name = "/Helvetica-Oblique";
999 }
1000 else
1001 {
1002 if (Weight == wxBOLD)
1003 name = "/Helvetica-Bold";
1004 else
1005 name = "/Helvetica";
1006 }
1007 break;
1008 }
1009 }
1010
1011 fprintf( m_pstream, name );
1012 fprintf( m_pstream, " reencodeISO def\n" );
1013 fprintf( m_pstream, name );
1014 fprintf( m_pstream, " findfont\n" );
1015
1016 char buffer[100];
1017 sprintf( buffer, "%f scalefont setfont\n", YLOG2DEVREL(m_font.GetPointSize() * 1000) / 1000.0F);
1018 // this is a hack - we must scale font size (in pts) according to m_scaleY but
1019 // YLOG2DEVREL works with wxCoord type (int or longint). Se we first convert font size
1020 // to 1/1000th of pt and then back.
1021 for (int i = 0; i < 100; i++)
1022 if (buffer[i] == ',') buffer[i] = '.';
1023 fprintf( m_pstream, buffer );
1024 }
1025
1026 void wxPostScriptDC::SetPen( const wxPen& pen )
1027 {
1028 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
1029
1030 if (!pen.Ok()) return;
1031
1032 int oldStyle = m_pen.GetStyle();
1033
1034 m_pen = pen;
1035
1036 {
1037 char buffer[100];
1038 #ifdef __WXMSW__
1039 sprintf( buffer, "%f setlinewidth\n", XLOG2DEVREL(1000 * m_pen.GetWidth()) / 1000.0f );
1040 #else
1041 sprintf( buffer, "%f setlinewidth\n", XLOG2DEVREL(1000 * m_pen.GetWidth()) / 1000.0f );
1042 #endif
1043 for (int i = 0; i < 100; i++)
1044 if (buffer[i] == ',') buffer[i] = '.';
1045 fprintf( m_pstream, buffer );
1046 }
1047
1048 /*
1049 Line style - WRONG: 2nd arg is OFFSET
1050
1051 Here, I'm afraid you do not conceive meaning of parameters of 'setdash'
1052 operator correctly. You should look-up this in the Red Book: the 2nd parame-
1053 ter is not number of values in the array of the first one, but an offset
1054 into this description of the pattern. I mean a real *offset* not index
1055 into array. I.e. If the command is [3 4] 1 setdash is used, then there
1056 will be first black line *2* units wxCoord, then space 4 units, then the
1057 pattern of *3* units black, 4 units space will be repeated.
1058 */
1059
1060 static const char *dotted = "[2 5] 2";
1061 static const char *short_dashed = "[4 4] 2";
1062 static const char *wxCoord_dashed = "[4 8] 2";
1063 static const char *dotted_dashed = "[6 6 2 6] 4";
1064
1065 const char *psdash = (char *) NULL;
1066 switch (m_pen.GetStyle())
1067 {
1068 case wxDOT: psdash = dotted; break;
1069 case wxSHORT_DASH: psdash = short_dashed; break;
1070 case wxLONG_DASH: psdash = wxCoord_dashed; break;
1071 case wxDOT_DASH: psdash = dotted_dashed; break;
1072 case wxSOLID:
1073 case wxTRANSPARENT:
1074 default: psdash = "[] 0"; break;
1075 }
1076
1077 if (oldStyle != m_pen.GetStyle())
1078 {
1079 fprintf( m_pstream, psdash );
1080 fprintf( m_pstream," setdash\n" );
1081 }
1082
1083 // Line colour
1084 unsigned char red = m_pen.GetColour().Red();
1085 unsigned char blue = m_pen.GetColour().Blue();
1086 unsigned char green = m_pen.GetColour().Green();
1087
1088 if (!m_colour)
1089 {
1090 // Anything not white is black
1091 if (! (red == (unsigned char) 255 &&
1092 blue == (unsigned char) 255 &&
1093 green == (unsigned char) 255) )
1094 {
1095 red = (unsigned char) 0;
1096 green = (unsigned char) 0;
1097 blue = (unsigned char) 0;
1098 }
1099 // setgray here ?
1100 }
1101
1102 if (!(red == m_currentRed && green == m_currentGreen && blue == m_currentBlue))
1103 {
1104 double redPS = (double)(red) / 255.0;
1105 double bluePS = (double)(blue) / 255.0;
1106 double greenPS = (double)(green) / 255.0;
1107
1108 char buffer[100];
1109 sprintf( buffer,
1110 "%.8f %.8f %.8f setrgbcolor\n",
1111 redPS, greenPS, bluePS );
1112 for (int i = 0; i < 100; i++)
1113 if (buffer[i] == ',') buffer[i] = '.';
1114 fprintf( m_pstream, buffer );
1115
1116 m_currentRed = red;
1117 m_currentBlue = blue;
1118 m_currentGreen = green;
1119 }
1120 }
1121
1122 void wxPostScriptDC::SetBrush( const wxBrush& brush )
1123 {
1124 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
1125
1126 if (!brush.Ok()) return;
1127
1128 m_brush = brush;
1129
1130 // Brush colour
1131 unsigned char red = m_brush.GetColour().Red();
1132 unsigned char blue = m_brush.GetColour().Blue();
1133 unsigned char green = m_brush.GetColour().Green();
1134
1135 if (!m_colour)
1136 {
1137 // Anything not white is black
1138 if (! (red == (unsigned char) 255 &&
1139 blue == (unsigned char) 255 &&
1140 green == (unsigned char) 255) )
1141 {
1142 red = (unsigned char) 0;
1143 green = (unsigned char) 0;
1144 blue = (unsigned char) 0;
1145 }
1146 // setgray here ?
1147 }
1148
1149 if (!(red == m_currentRed && green == m_currentGreen && blue == m_currentBlue))
1150 {
1151 double redPS = (double)(red) / 255.0;
1152 double bluePS = (double)(blue) / 255.0;
1153 double greenPS = (double)(green) / 255.0;
1154
1155 char buffer[100];
1156 sprintf( buffer,
1157 "%.8f %.8f %.8f setrgbcolor\n",
1158 redPS, greenPS, bluePS );
1159 for (int i = 0; i < 100; i++)
1160 if (buffer[i] == ',') buffer[i] = '.';
1161 fprintf( m_pstream, buffer );
1162
1163 m_currentRed = red;
1164 m_currentBlue = blue;
1165 m_currentGreen = green;
1166 }
1167 }
1168
1169 void wxPostScriptDC::DoDrawText( const wxString& text, wxCoord x, wxCoord y )
1170 {
1171 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
1172
1173 wxCoord text_w, text_h, text_descent;
1174
1175 GetTextExtent(text, &text_w, &text_h, &text_descent);
1176
1177 // VZ: this seems to be unnecessary, so taking it out for now, if it
1178 // doesn't create any problems, remove this comment entirely
1179 //SetFont( m_font );
1180
1181 if (m_textForegroundColour.Ok())
1182 {
1183 unsigned char red = m_textForegroundColour.Red();
1184 unsigned char blue = m_textForegroundColour.Blue();
1185 unsigned char green = m_textForegroundColour.Green();
1186
1187 if (!m_colour)
1188 {
1189 // Anything not white is black
1190 if (! (red == (unsigned char) 255 &&
1191 blue == (unsigned char) 255 &&
1192 green == (unsigned char) 255))
1193 {
1194 red = (unsigned char) 0;
1195 green = (unsigned char) 0;
1196 blue = (unsigned char) 0;
1197 }
1198 }
1199
1200 // maybe setgray here ?
1201 if (!(red == m_currentRed && green == m_currentGreen && blue == m_currentBlue))
1202 {
1203 double redPS = (double)(red) / 255.0;
1204 double bluePS = (double)(blue) / 255.0;
1205 double greenPS = (double)(green) / 255.0;
1206
1207 char buffer[100];
1208 sprintf( buffer,
1209 "%.8f %.8f %.8f setrgbcolor\n",
1210 redPS, greenPS, bluePS );
1211 for (int i = 0; i < 100; i++)
1212 if (buffer[i] == ',') buffer[i] = '.';
1213 fprintf( m_pstream, buffer );
1214
1215 m_currentRed = red;
1216 m_currentBlue = blue;
1217 m_currentGreen = green;
1218 }
1219 }
1220
1221 int size = m_font.GetPointSize();
1222
1223 // wxCoord by = y + (wxCoord)floor( double(size) * 2.0 / 3.0 ); // approximate baseline
1224 // commented by V. Slavik and replaced by accurate version
1225 // - note that there is still rounding error in text_descent!
1226 wxCoord by = y + size - text_descent; // baseline
1227 fprintf( m_pstream, "%d %d moveto\n", XLOG2DEV(x), YLOG2DEV(by) );
1228
1229 fprintf( m_pstream, "(" );
1230 const wxWX2MBbuf textbuf = text.mb_str();
1231 int len = strlen(textbuf);
1232 int i;
1233 for (i = 0; i < len; i++)
1234 {
1235 int c = (unsigned char) textbuf[i];
1236 if (c == ')' || c == '(' || c == '\\')
1237 {
1238 /* Cope with special characters */
1239 fprintf( m_pstream, "\\" );
1240 fputc(c, m_pstream);
1241 }
1242 else if ( c >= 128 )
1243 {
1244 /* Cope with character codes > 127 */
1245 fprintf(m_pstream, "\\%o", c);
1246 }
1247 else
1248 {
1249 fputc(c, m_pstream);
1250 }
1251 }
1252
1253 fprintf( m_pstream, ") show\n" );
1254
1255 if (m_font.GetUnderlined())
1256 {
1257 wxCoord uy = (wxCoord)(y + size - m_underlinePosition);
1258 char buffer[100];
1259
1260 sprintf( buffer,
1261 "gsave\n"
1262 "%d %d moveto\n"
1263 "%f setlinewidth\n"
1264 "%d %d lineto\n"
1265 "stroke\n"
1266 "grestore\n",
1267 XLOG2DEV(x), YLOG2DEV(uy),
1268 m_underlineThickness,
1269 XLOG2DEV(x + text_w), YLOG2DEV(uy) );
1270 for (i = 0; i < 100; i++)
1271 if (buffer[i] == ',') buffer[i] = '.';
1272 fprintf( m_pstream, buffer );
1273 }
1274
1275 CalcBoundingBox( x, y );
1276 CalcBoundingBox( x + size * text.Length() * 2/3 , y );
1277 }
1278
1279 void wxPostScriptDC::DoDrawRotatedText( const wxString& text, wxCoord x, wxCoord y, double angle )
1280 {
1281 if (angle == 0.0)
1282 {
1283 DoDrawText(text, x, y);
1284 return;
1285 }
1286
1287 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
1288
1289 SetFont( m_font );
1290
1291 if (m_textForegroundColour.Ok())
1292 {
1293 unsigned char red = m_textForegroundColour.Red();
1294 unsigned char blue = m_textForegroundColour.Blue();
1295 unsigned char green = m_textForegroundColour.Green();
1296
1297 if (!m_colour)
1298 {
1299 // Anything not white is black
1300 if (! (red == (unsigned char) 255 &&
1301 blue == (unsigned char) 255 &&
1302 green == (unsigned char) 255))
1303 {
1304 red = (unsigned char) 0;
1305 green = (unsigned char) 0;
1306 blue = (unsigned char) 0;
1307 }
1308 }
1309
1310 // maybe setgray here ?
1311 if (!(red == m_currentRed && green == m_currentGreen && blue == m_currentBlue))
1312 {
1313 double redPS = (double)(red) / 255.0;
1314 double bluePS = (double)(blue) / 255.0;
1315 double greenPS = (double)(green) / 255.0;
1316
1317 char buffer[100];
1318 sprintf( buffer,
1319 "%.8f %.8f %.8f setrgbcolor\n",
1320 redPS, greenPS, bluePS );
1321 for (int i = 0; i < 100; i++)
1322 if (buffer[i] == ',') buffer[i] = '.';
1323 fprintf( m_pstream, buffer );
1324
1325 m_currentRed = red;
1326 m_currentBlue = blue;
1327 m_currentGreen = green;
1328 }
1329 }
1330
1331 int size = m_font.GetPointSize();
1332
1333 long by = y + (long)floor( double(size) * 2.0 / 3.0 ); // approximate baseline
1334
1335 // FIXME only correct for 90 degrees
1336 fprintf(m_pstream, "%d %d moveto\n",
1337 XLOG2DEV((wxCoord)(x + size)), YLOG2DEV((wxCoord)by) );
1338
1339 char buffer[100];
1340 sprintf(buffer, "%.8f rotate\n", angle);
1341 int i;
1342 for (i = 0; i < 100; i++)
1343 if (buffer[i] == ',') buffer[i] = '.';
1344 fprintf(m_pstream, buffer);
1345
1346 fprintf( m_pstream, "(" );
1347 const wxWX2MBbuf textbuf = text.mb_str();
1348 int len = strlen(textbuf);
1349 for (i = 0; i < len; i++)
1350 {
1351 int c = (unsigned char) textbuf[i];
1352 if (c == ')' || c == '(' || c == '\\')
1353 {
1354 /* Cope with special characters */
1355 fprintf( m_pstream, "\\" );
1356 fputc(c, m_pstream);
1357 }
1358 else if ( c >= 128 )
1359 {
1360 /* Cope with character codes > 127 */
1361 fprintf(m_pstream, "\\%o", c);
1362 }
1363 else
1364 {
1365 fputc(c, m_pstream);
1366 }
1367 }
1368
1369 fprintf( m_pstream, ") show\n" );
1370
1371 sprintf( buffer, "%.8f rotate\n", -angle );
1372 for (i = 0; i < 100; i++)
1373 if (buffer[i] == ',') buffer[i] = '.';
1374 fprintf( m_pstream, buffer );
1375
1376 if (m_font.GetUnderlined())
1377 {
1378 wxCoord uy = (wxCoord)(y + size - m_underlinePosition);
1379 wxCoord w, h;
1380 char buffer[100];
1381 GetTextExtent(text, &w, &h);
1382
1383 sprintf( buffer,
1384 "gsave\n"
1385 "%d %d moveto\n"
1386 "%f setlinewidth\n"
1387 "%d %d lineto\n"
1388 "stroke\n"
1389 "grestore\n",
1390 XLOG2DEV(x), YLOG2DEV(uy),
1391 m_underlineThickness,
1392 XLOG2DEV(x + w), YLOG2DEV(uy) );
1393 for (i = 0; i < 100; i++)
1394 if (buffer[i] == ',') buffer[i] = '.';
1395 fprintf( m_pstream, buffer );
1396 }
1397
1398 CalcBoundingBox( x, y );
1399 CalcBoundingBox( x + size * text.Length() * 2/3 , y );
1400 }
1401
1402 void wxPostScriptDC::SetBackground (const wxBrush& brush)
1403 {
1404 m_backgroundBrush = brush;
1405 }
1406
1407 void wxPostScriptDC::SetLogicalFunction (int WXUNUSED(function))
1408 {
1409 wxFAIL_MSG( wxT("wxPostScriptDC::SetLogicalFunction not implemented.") );
1410 }
1411
1412 void wxPostScriptDC::DoDrawSpline( wxList *points )
1413 {
1414 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
1415
1416 SetPen( m_pen );
1417
1418 double a, b, c, d, x1, y1, x2, y2, x3, y3;
1419 wxPoint *p, *q;
1420
1421 wxNode *node = points->First();
1422 p = (wxPoint *)node->Data();
1423 x1 = p->x;
1424 y1 = p->y;
1425
1426 node = node->Next();
1427 p = (wxPoint *)node->Data();
1428 c = p->x;
1429 d = p->y;
1430 x3 = a = (double)(x1 + c) / 2;
1431 y3 = b = (double)(y1 + d) / 2;
1432
1433 fprintf( m_pstream,
1434 "newpath\n"
1435 "%d %d moveto\n"
1436 "%d %d lineto\n",
1437 XLOG2DEV((wxCoord)x1), YLOG2DEV((wxCoord)y1),
1438 XLOG2DEV((wxCoord)x3), YLOG2DEV((wxCoord)y3) );
1439
1440 CalcBoundingBox( (wxCoord)x1, (wxCoord)y1 );
1441 CalcBoundingBox( (wxCoord)x3, (wxCoord)y3 );
1442
1443 while ((node = node->Next()) != NULL)
1444 {
1445 q = (wxPoint *)node->Data();
1446
1447 x1 = x3;
1448 y1 = y3;
1449 x2 = c;
1450 y2 = d;
1451 c = q->x;
1452 d = q->y;
1453 x3 = (double)(x2 + c) / 2;
1454 y3 = (double)(y2 + d) / 2;
1455
1456 fprintf( m_pstream,
1457 "%d %d %d %d %d %d DrawSplineSection\n",
1458 XLOG2DEV((wxCoord)x1), YLOG2DEV((wxCoord)y1),
1459 XLOG2DEV((wxCoord)x2), YLOG2DEV((wxCoord)y2),
1460 XLOG2DEV((wxCoord)x3), YLOG2DEV((wxCoord)y3) );
1461
1462 CalcBoundingBox( (wxCoord)x1, (wxCoord)y1 );
1463 CalcBoundingBox( (wxCoord)x3, (wxCoord)y3 );
1464 }
1465
1466 /*
1467 At this point, (x2,y2) and (c,d) are the position of the
1468 next-to-last and last point respectively, in the point list
1469 */
1470
1471 fprintf( m_pstream,
1472 "%d %d lineto\n"
1473 "stroke\n",
1474 XLOG2DEV((wxCoord)c), YLOG2DEV((wxCoord)d) );
1475 }
1476
1477 wxCoord wxPostScriptDC::GetCharWidth() const
1478 {
1479 // Chris Breeze: reasonable approximation using wxMODERN/Courier
1480 return (wxCoord) (GetCharHeight() * 72.0 / 120.0);
1481 }
1482
1483
1484 void wxPostScriptDC::SetAxisOrientation( bool xLeftRight, bool yBottomUp )
1485 {
1486 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
1487
1488 m_signX = (xLeftRight ? 1 : -1);
1489 m_signY = (yBottomUp ? 1 : -1);
1490
1491 // FIXME there is no such function in MSW nor in OS2/PM
1492 #if !defined(__WXMSW__) && !defined(__WXPM__)
1493 ComputeScaleAndOrigin();
1494 #endif
1495 }
1496
1497 void wxPostScriptDC::SetDeviceOrigin( wxCoord x, wxCoord y )
1498 {
1499 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
1500
1501 int h = 0;
1502 int w = 0;
1503 GetSize( &w, &h );
1504
1505 wxDC::SetDeviceOrigin( x, h-y );
1506 }
1507
1508 void wxPostScriptDC::DoGetSize(int* width, int* height) const
1509 {
1510 wxPaperSize id = m_printData.GetPaperId();
1511
1512 wxPrintPaperType *paper = wxThePrintPaperDatabase->FindPaperType(id);
1513
1514 if (!paper) paper = wxThePrintPaperDatabase->FindPaperType(wxPAPER_A4);
1515
1516 int w = 595;
1517 int h = 842;
1518 if (paper)
1519 {
1520 w = paper->GetSizeDeviceUnits().x;
1521 h = paper->GetSizeDeviceUnits().y;
1522 }
1523
1524 if (m_printData.GetOrientation() == wxLANDSCAPE)
1525 {
1526 int tmp = w;
1527 w = h;
1528 h = tmp;
1529 }
1530
1531 if (width) *width = (int)(w * ms_PSScaleFactor);
1532 if (height) *height = (int)(h * ms_PSScaleFactor);
1533 }
1534
1535 void wxPostScriptDC::DoGetSizeMM(int *width, int *height) const
1536 {
1537 wxPaperSize id = m_printData.GetPaperId();
1538
1539 wxPrintPaperType *paper = wxThePrintPaperDatabase->FindPaperType(id);
1540
1541 if (!paper) paper = wxThePrintPaperDatabase->FindPaperType(wxPAPER_A4);
1542
1543 int w = 210;
1544 int h = 297;
1545 if (paper)
1546 {
1547 w = paper->GetWidth() / 10;
1548 h = paper->GetHeight() / 10;
1549 }
1550
1551 if (m_printData.GetOrientation() == wxLANDSCAPE)
1552 {
1553 int tmp = w;
1554 w = h;
1555 h = tmp;
1556 }
1557
1558 if (width) *width = w;
1559 if (height) *height = h;
1560 }
1561
1562 // Resolution in pixels per logical inch
1563 wxSize wxPostScriptDC::GetPPI(void) const
1564 {
1565 return wxSize((int)(72 * ms_PSScaleFactor),
1566 (int)(72 * ms_PSScaleFactor));
1567 }
1568
1569
1570 bool wxPostScriptDC::StartDoc( const wxString& message )
1571 {
1572 wxCHECK_MSG( m_ok, FALSE, wxT("invalid postscript dc") );
1573
1574 if (m_printData.GetFilename() == "")
1575 {
1576 wxString filename = wxGetTempFileName("ps");
1577 m_printData.SetFilename(filename);
1578 }
1579
1580 m_pstream = fopen( m_printData.GetFilename().fn_str(), "w+" );
1581
1582 if (!m_pstream)
1583 {
1584 wxLogError( _("Cannot open file for PostScript printing!"));
1585 m_ok = FALSE;
1586 return FALSE;
1587 }
1588
1589 m_ok = TRUE;
1590
1591 fprintf( m_pstream, "%%%%BeginProlog\n" );
1592 fprintf( m_pstream, wxPostScriptHeaderEllipse );
1593 fprintf( m_pstream, wxPostScriptHeaderEllipticArc );
1594 fprintf( m_pstream, wxPostScriptHeaderColourImage );
1595 fprintf( m_pstream, wxPostScriptHeaderReencodeISO1 );
1596 fprintf( m_pstream, wxPostScriptHeaderReencodeISO2 );
1597 if (wxPostScriptHeaderSpline)
1598 fprintf( m_pstream, wxPostScriptHeaderSpline );
1599 fprintf( m_pstream, "%%%%EndProlog\n" );
1600
1601 SetBrush( *wxBLACK_BRUSH );
1602 SetPen( *wxBLACK_PEN );
1603 SetBackground( *wxWHITE_BRUSH );
1604 SetTextForeground( *wxBLACK );
1605
1606 // set origin according to paper size
1607 SetDeviceOrigin( 0,0 );
1608
1609 wxPageNumber = 1;
1610 m_pageNumber = 1;
1611 m_title = message;
1612 return TRUE;
1613 }
1614
1615 void wxPostScriptDC::EndDoc ()
1616 {
1617 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
1618
1619 if (m_clipping)
1620 {
1621 m_clipping = FALSE;
1622 fprintf( m_pstream, "grestore\n" );
1623 }
1624
1625 fclose( m_pstream );
1626 m_pstream = (FILE *) NULL;
1627
1628 wxChar *header_file = wxGetTempFileName("ps");
1629
1630 m_pstream = fopen( wxConvFile.cWX2MB(header_file) , "w+" );
1631
1632 fprintf( m_pstream, "%%!PS-Adobe-2.0\n" ); // PostScript magic strings
1633 fprintf( m_pstream, "%%%%Title: %s\n", (const char *)m_title.mb_str() );
1634 fprintf( m_pstream, "%%%%Creator: %s\n", (const char*)wxConvCurrent->cWX2MB(wxTheApp->argv[0]) );
1635 fprintf( m_pstream, "%%%%CreationDate: %s\n", (const char *)wxNow().mb_str() );
1636
1637 wxChar userID[256];
1638 if ( wxGetEmailAddress(userID, sizeof(userID)) )
1639 {
1640 fprintf( m_pstream, "%%%%For: %s ", wxMBSTRINGCAST wxConvCurrent->cWX2MB(userID) );
1641 wxChar userName[245];
1642 if (wxGetUserName(userName, sizeof(userName)))
1643 fprintf( m_pstream, " (%s)", wxMBSTRINGCAST wxConvCurrent->cWX2MB(userName) );
1644 fprintf( m_pstream, "\n" );
1645 }
1646 else if ( wxGetUserName(userID, sizeof(userID)) )
1647 {
1648 fprintf( m_pstream, "%%%%For: %s\n", wxMBSTRINGCAST wxConvCurrent->cWX2MB(userID) );;
1649 }
1650
1651 // THE FOLLOWING HAS BEEN CONTRIBUTED BY Andy Fyfe <andy@hyperparallel.com>
1652
1653 wxCoord wx_printer_translate_x, wx_printer_translate_y;
1654 double wx_printer_scale_x, wx_printer_scale_y;
1655
1656 wx_printer_translate_x = (wxCoord)m_printData.GetPrinterTranslateX();
1657 wx_printer_translate_y = (wxCoord)m_printData.GetPrinterTranslateY();
1658
1659 wx_printer_scale_x = m_printData.GetPrinterScaleX();
1660 wx_printer_scale_y = m_printData.GetPrinterScaleY();
1661
1662 if (m_printData.GetOrientation() == wxLANDSCAPE)
1663 fprintf( m_pstream, "%%%%Orientation: Landscape\n" );
1664 else
1665 fprintf( m_pstream, "%%%%Orientation: Portrait\n" );
1666
1667 // Compute the bounding box. Note that it is in the default user
1668 // coordinate system, thus we have to convert the values.
1669 wxCoord minX = (wxCoord) XLOG2DEV(m_minX);
1670 wxCoord minY = (wxCoord) YLOG2DEV(m_minY);
1671 wxCoord maxX = (wxCoord) XLOG2DEV(m_maxX);
1672 wxCoord maxY = (wxCoord) YLOG2DEV(m_maxY);
1673
1674 // LOG2DEV may have changed the minimum to maximum vice versa
1675 if ( minX > maxX ) { wxCoord tmp = minX; minX = maxX; maxX = tmp; }
1676 if ( minY > maxY ) { wxCoord tmp = minY; minY = maxY; maxY = tmp; }
1677
1678 // account for used scaling (boundingbox is before scaling in ps-file)
1679 double scale_x = m_printData.GetPrinterScaleX() / ms_PSScaleFactor;
1680 double scale_y = m_printData.GetPrinterScaleY() / ms_PSScaleFactor;
1681
1682 wxCoord llx, lly, urx, ury;
1683 llx = (wxCoord) ((minX+wx_printer_translate_x)*scale_x);
1684 lly = (wxCoord) ((minY+wx_printer_translate_y)*scale_y);
1685 urx = (wxCoord) ((maxX+wx_printer_translate_x)*scale_x);
1686 ury = (wxCoord) ((maxY+wx_printer_translate_y)*scale_y);
1687 // (end of bounding box computation)
1688
1689
1690 // If we're landscape, our sense of "x" and "y" is reversed.
1691 if (m_printData.GetOrientation() == wxLANDSCAPE)
1692 {
1693 wxCoord tmp;
1694 tmp = llx; llx = lly; lly = tmp;
1695 tmp = urx; urx = ury; ury = tmp;
1696
1697 // We need either the two lines that follow, or we need to subtract
1698 // min_x from real_translate_y, which is commented out below.
1699 llx = llx - (wxCoord)(m_minX*wx_printer_scale_y);
1700 urx = urx - (wxCoord)(m_minX*wx_printer_scale_y);
1701 }
1702
1703 // The Adobe specifications call for integers; we round as to make
1704 // the bounding larger.
1705 fprintf( m_pstream,
1706 "%%%%BoundingBox: %d %d %d %d\n",
1707 (wxCoord)floor((double)llx), (wxCoord)floor((double)lly),
1708 (wxCoord)ceil((double)urx), (wxCoord)ceil((double)ury) );
1709 fprintf( m_pstream, "%%%%Pages: %d\n", (wxPageNumber - 1) );
1710 fprintf( m_pstream, "%%%%EndComments\n\n" );
1711
1712 // To check the correctness of the bounding box, postscript commands
1713 // to draw a box corresponding to the bounding box are generated below.
1714 // But since we typically don't want to print such a box, the postscript
1715 // commands are generated within comments. These lines appear before any
1716 // adjustment of scale, rotation, or translation, and hence are in the
1717 // default user coordinates.
1718 fprintf( m_pstream, "%% newpath\n" );
1719 fprintf( m_pstream, "%% %d %d moveto\n", llx, lly );
1720 fprintf( m_pstream, "%% %d %d lineto\n", urx, lly );
1721 fprintf( m_pstream, "%% %d %d lineto\n", urx, ury );
1722 fprintf( m_pstream, "%% %d %d lineto closepath stroke\n", llx, ury );
1723
1724 fclose( m_pstream );
1725 m_pstream = (FILE*) NULL;
1726
1727 wxChar *tmp_file = wxGetTempFileName("ps");
1728
1729 // Paste header Before wx_printer_file
1730 wxConcatFiles (header_file, m_printData.GetFilename(), tmp_file );
1731 wxRemoveFile( header_file );
1732 wxRemoveFile( m_printData.GetFilename() );
1733 wxRenameFile( tmp_file, m_printData.GetFilename() );
1734
1735 #if defined(__X__) || defined(__WXGTK__)
1736 if (m_ok)
1737 {
1738 wxString previewCommand(m_printData.GetPreviewCommand());
1739 wxString printerCommand(m_printData.GetPrinterCommand());
1740 wxString printerOptions(m_printData.GetPrinterOptions());
1741 wxString filename(m_printData.GetFilename());
1742
1743 switch (m_printData.GetPrintMode())
1744 {
1745 case wxPRINT_MODE_PREVIEW:
1746 {
1747 wxChar *argv[3];
1748 argv[0] = WXSTRINGCAST previewCommand;
1749 argv[1] = WXSTRINGCAST filename;
1750 argv[2] = (wxChar*) NULL;
1751 wxExecute( argv, TRUE );
1752 wxRemoveFile( m_printData.GetFilename() );
1753 }
1754 break;
1755 case wxPRINT_MODE_PRINTER:
1756 {
1757 wxChar *argv[4];
1758 int argc = 0;
1759 argv[argc++] = WXSTRINGCAST printerCommand;
1760
1761 // !SM! If we simply assign to argv[1] here, if printer options
1762 // are blank, we get an annoying and confusing message from lpr.
1763 wxChar *opts = WXSTRINGCAST printerOptions;
1764 if (opts && *opts)
1765 argv[argc++] = opts;
1766
1767 argv[argc++] = WXSTRINGCAST filename;
1768 argv[argc++] = (wxChar *) NULL;
1769 wxExecute( argv, TRUE );
1770 wxRemoveFile( filename );
1771 }
1772 break;
1773 case wxPRINT_MODE_FILE:
1774 case wxPRINT_MODE_NONE:
1775 break;
1776 }
1777 }
1778 #endif
1779 }
1780
1781 void wxPostScriptDC::StartPage()
1782 {
1783 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
1784
1785 fprintf( m_pstream, "%%%%Page: %d\n", wxPageNumber++ );
1786
1787 // What is this one supposed to do? RR.
1788 // *m_pstream << "matrix currentmatrix\n";
1789
1790 // Added by Chris Breeze
1791
1792 // Each page starts with an "initgraphics" which resets the
1793 // transformation and so we need to reset the origin
1794 // (and rotate the page for landscape printing)
1795
1796 // Output scaling
1797 wxCoord translate_x, translate_y;
1798 double scale_x, scale_y;
1799
1800 translate_x = (wxCoord)m_printData.GetPrinterTranslateX();
1801 translate_y = (wxCoord)m_printData.GetPrinterTranslateY();
1802
1803 scale_x = m_printData.GetPrinterScaleX();
1804 scale_y = m_printData.GetPrinterScaleY();
1805
1806 if (m_printData.GetOrientation() == wxLANDSCAPE)
1807 {
1808 int h;
1809 GetSize( (int*) NULL, &h );
1810 translate_y -= h;
1811 fprintf( m_pstream, "90 rotate\n" );
1812
1813 // I copied this one from a PostScript tutorial, but to no avail. RR.
1814 // fprintf( m_pstream, "90 rotate llx neg ury nef translate\n" );
1815 }
1816
1817 char buffer[100];
1818 sprintf( buffer, "%.8f %.8f scale\n", scale_x / ms_PSScaleFactor,
1819 scale_y / ms_PSScaleFactor);
1820 for (int i = 0; i < 100; i++)
1821 if (buffer[i] == ',') buffer[i] = '.';
1822 fprintf( m_pstream, buffer );
1823
1824 fprintf( m_pstream, "%d %d translate\n", translate_x, translate_y );
1825 }
1826
1827 void wxPostScriptDC::EndPage ()
1828 {
1829 wxCHECK_RET( m_ok && m_pstream, wxT("invalid postscript dc") );
1830
1831 fprintf( m_pstream, "showpage\n" );
1832 }
1833
1834 bool wxPostScriptDC::DoBlit( wxCoord xdest, wxCoord ydest,
1835 wxCoord fwidth, wxCoord fheight,
1836 wxDC *source,
1837 wxCoord xsrc, wxCoord ysrc,
1838 int rop, bool WXUNUSED(useMask), wxCoord WXUNUSED(xsrcMask), wxCoord WXUNUSED(ysrcMask) )
1839 {
1840 wxCHECK_MSG( m_ok && m_pstream, FALSE, wxT("invalid postscript dc") );
1841
1842 wxCHECK_MSG( source, FALSE, wxT("invalid source dc") );
1843
1844 /* blit into a bitmap */
1845 wxBitmap bitmap( (int)fwidth, (int)fheight );
1846 wxMemoryDC memDC;
1847 memDC.SelectObject(bitmap);
1848 memDC.Blit(0, 0, fwidth, fheight, source, xsrc, ysrc, rop); /* TODO: Blit transparently? */
1849 memDC.SelectObject(wxNullBitmap);
1850
1851 /* draw bitmap. scaling and positioning is done there */
1852 DrawBitmap( bitmap, xdest, ydest );
1853
1854 return TRUE;
1855 }
1856
1857 wxCoord wxPostScriptDC::GetCharHeight() const
1858 {
1859 if (m_font.Ok())
1860 return m_font.GetPointSize();
1861 else
1862 return 12;
1863 }
1864
1865 void wxPostScriptDC::DoGetTextExtent(const wxString& string,
1866 wxCoord *x, wxCoord *y,
1867 wxCoord *descent, wxCoord *externalLeading,
1868 wxFont *theFont ) const
1869 {
1870 wxFont *fontToUse = theFont;
1871
1872 if (!fontToUse) fontToUse = (wxFont*) &m_font;
1873
1874 wxCHECK_RET( fontToUse, wxT("GetTextExtent: no font defined") );
1875
1876 const wxWX2MBbuf strbuf = string.mb_str();
1877
1878 #if !wxUSE_AFM_FOR_POSTSCRIPT
1879 /* Provide a VERY rough estimate (avoid using it).
1880 * Produces accurate results for mono-spaced font
1881 * such as Courier (aka wxMODERN) */
1882
1883 int height = 12;
1884 if (fontToUse)
1885 {
1886 height = fontToUse->GetPointSize();
1887 }
1888 if ( x )
1889 *x = strlen (strbuf) * height * 72 / 120;
1890 if ( y )
1891 *y = (wxCoord) (height * 1.32); /* allow for descender */
1892 if (descent) *descent = 0;
1893 if (externalLeading) *externalLeading = 0;
1894 #else
1895
1896 /* method for calculating string widths in postscript:
1897 / read in the AFM (adobe font metrics) file for the
1898 / actual font, parse it and extract the character widths
1899 / and also the descender. this may be improved, but for now
1900 / it works well. the AFM file is only read in if the
1901 / font is changed. this may be chached in the future.
1902 / calls to GetTextExtent with the font unchanged are rather
1903 / efficient!!!
1904 /
1905 / for each font and style used there is an AFM file necessary.
1906 / currently i have only files for the roman font family.
1907 / I try to get files for the other ones!
1908 /
1909 / CAVE: the size of the string is currently always calculated
1910 / in 'points' (1/72 of an inch). this should later on be
1911 / changed to depend on the mapping mode.
1912 / CAVE: the path to the AFM files must be set before calling this
1913 / function. this is usually done by a call like the following:
1914 / wxSetAFMPath("d:\\wxw161\\afm\\");
1915 /
1916 / example:
1917 /
1918 / wxPostScriptDC dc(NULL, TRUE);
1919 / if (dc.Ok()){
1920 / wxSetAFMPath("d:\\wxw161\\afm\\");
1921 / dc.StartDoc("Test");
1922 / dc.StartPage();
1923 / wxCoord w,h;
1924 / dc.SetFont(new wxFont(10, wxROMAN, wxNORMAL, wxNORMAL));
1925 / dc.GetTextExtent("Hallo",&w,&h);
1926 / dc.EndPage();
1927 / dc.EndDoc();
1928 / }
1929 /
1930 / by steve (stefan.hammes@urz.uni-heidelberg.de)
1931 / created: 10.09.94
1932 / updated: 14.05.95 */
1933
1934 /* these static vars are for storing the state between calls */
1935 static int lastFamily= INT_MIN;
1936 static int lastSize= INT_MIN;
1937 static int lastStyle= INT_MIN;
1938 static int lastWeight= INT_MIN;
1939 static int lastDescender = INT_MIN;
1940 static int lastWidths[256]; /* widths of the characters */
1941
1942 double UnderlinePosition = 0.0;
1943 double UnderlineThickness = 0.0;
1944
1945 /* get actual parameters */
1946 int Family = fontToUse->GetFamily();
1947 int Size = fontToUse->GetPointSize();
1948 int Style = fontToUse->GetStyle();
1949 int Weight = fontToUse->GetWeight();
1950
1951 /* if we have another font, read the font-metrics */
1952 if (Family!=lastFamily || Size!=lastSize || Style!=lastStyle || Weight!=lastWeight)
1953 {
1954 /* store actual values */
1955 lastFamily = Family;
1956 lastSize = Size;
1957 lastStyle = Style;
1958 lastWeight = Weight;
1959
1960 char *name = (char*) NULL;
1961
1962 switch (Family)
1963 {
1964 case wxMODERN:
1965 case wxTELETYPE:
1966 {
1967 if ((Style == wxITALIC) && (Weight == wxBOLD)) name = "CourBoO.afm";
1968 else if ((Style != wxITALIC) && (Weight == wxBOLD)) name = "CourBo.afm";
1969 else if ((Style == wxITALIC) && (Weight != wxBOLD)) name = "CourO.afm";
1970 else name = "Cour.afm";
1971 break;
1972 }
1973 case wxROMAN:
1974 {
1975 if ((Style == wxITALIC) && (Weight == wxBOLD)) name = "TimesBoO.afm";
1976 else if ((Style != wxITALIC) && (Weight == wxBOLD)) name = "TimesBo.afm";
1977 else if ((Style == wxITALIC) && (Weight != wxBOLD)) name = "TimesO.afm";
1978 else name = "TimesRo.afm";
1979 break;
1980 }
1981 case wxSCRIPT:
1982 {
1983 name = "Zapf.afm";
1984 Style = wxNORMAL;
1985 Weight = wxNORMAL;
1986 }
1987 case wxSWISS:
1988 default:
1989 {
1990 if ((Style == wxITALIC) && (Weight == wxBOLD)) name = "HelvBoO.afm";
1991 else if ((Style != wxITALIC) && (Weight == wxBOLD)) name = "HelvBo.afm";
1992 else if ((Style == wxITALIC) && (Weight != wxBOLD)) name = "HelvO.afm";
1993 else name = "Helv.afm";
1994 break;
1995 }
1996 }
1997
1998 /* get the directory of the AFM files */
1999 wxString afmName = wxEmptyString;
2000 if (!m_printData.GetFontMetricPath().IsEmpty())
2001 {
2002 afmName = m_printData.GetFontMetricPath();
2003 }
2004
2005 /* 2. open and process the file
2006 / a short explanation of the AFM format:
2007 / we have for each character a line, which gives its size
2008 / e.g.:
2009 /
2010 / C 63 ; WX 444 ; N question ; B 49 -14 395 676 ;
2011 /
2012 / that means, we have a character with ascii code 63, and width
2013 / (444/1000 * fontSize) points.
2014 / the other data is ignored for now!
2015 /
2016 / when the font has changed, we read in the right AFM file and store the
2017 / character widths in an array, which is processed below (see point 3.). */
2018
2019 /* new elements JC Sun Aug 25 23:21:44 MET DST 1996 */
2020
2021 afmName << name;
2022 FILE *afmFile = wxFopen(afmName,wxT("r"));
2023
2024 if (afmFile==NULL)
2025 {
2026 afmName = wxThePrintSetupData->GetAFMPath();
2027 afmName << wxFILE_SEP_PATH << name;
2028 afmFile = wxFopen(afmName,wxT("r"));
2029 }
2030
2031 #if defined(__UNIX__) && !defined(__VMS__)
2032 if (afmFile==NULL)
2033 /* please do NOT change the line above to "else if (afmFile==NULL)" -
2034 - afmFile = fopen() may fail and in that case the next if branch
2035 MUST be executed - and it would not if there was "else" */
2036 {
2037 afmName = wxGetInstallPrefix();
2038 afmName << wxFILE_SEP_PATH
2039 << wxT("share") << wxFILE_SEP_PATH
2040 << wxT("wx") << wxFILE_SEP_PATH
2041 #if defined(__LINUX__) || defined(__FREEBSD__)
2042 << wxT("gs_afm") << wxFILE_SEP_PATH
2043 #else
2044 << wxT("afm") << wxFILE_SEP_PATH
2045 #endif
2046 << name;
2047 afmFile = wxFopen(afmName,wxT("r"));
2048 }
2049 #endif
2050
2051 if (afmFile==NULL)
2052 {
2053 wxLogDebug( wxT("GetTextExtent: can't open AFM file '%hs'"), afmName.c_str() );
2054 wxLogDebug( wxT(" using approximate values"));
2055 for (int i=0; i<256; i++) lastWidths[i] = 500; /* an approximate value */
2056 lastDescender = -150; /* dito. */
2057 }
2058 else
2059 {
2060 /* init the widths array */
2061 for(int i=0; i<256; i++) lastWidths[i] = INT_MIN;
2062 /* some variables for holding parts of a line */
2063 char cString[10],semiString[10],WXString[10],descString[20];
2064 char upString[30], utString[30], encString[50];
2065 char line[256];
2066 int ascii,cWidth;
2067 /* read in the file and parse it */
2068 while(fgets(line,sizeof(line),afmFile)!=NULL)
2069 {
2070 /* A.) check for descender definition */
2071 if (strncmp(line,"Descender",9)==0)
2072 {
2073 if ((sscanf(line,"%s%d",descString,&lastDescender)!=2) ||
2074 (strcmp(descString,"Descender")!=0))
2075 {
2076 wxLogDebug( wxT("AFM-file '%hs': line '%hs' has error (bad descender)"), afmName.c_str(),line );
2077 }
2078 }
2079 /* JC 1.) check for UnderlinePosition */
2080 else if(strncmp(line,"UnderlinePosition",17)==0)
2081 {
2082 if ((sscanf(line,"%s%lf",upString,&UnderlinePosition)!=2) ||
2083 (strcmp(upString,"UnderlinePosition")!=0))
2084 {
2085 wxLogDebug( wxT("AFM-file '%hs': line '%hs' has error (bad UnderlinePosition)"), afmName.c_str(), line );
2086 }
2087 }
2088 /* JC 2.) check for UnderlineThickness */
2089 else if(strncmp(line,"UnderlineThickness",18)==0)
2090 {
2091 if ((sscanf(line,"%s%lf",utString,&UnderlineThickness)!=2) ||
2092 (strcmp(utString,"UnderlineThickness")!=0))
2093 {
2094 wxLogDebug( wxT("AFM-file '%hs': line '%hs' has error (bad UnderlineThickness)"), afmName.c_str(), line );
2095 }
2096 }
2097 /* JC 3.) check for EncodingScheme */
2098 else if(strncmp(line,"EncodingScheme",14)==0)
2099 {
2100 if ((sscanf(line,"%s%s",utString,encString)!=2) ||
2101 (strcmp(utString,"EncodingScheme")!=0))
2102 {
2103 wxLogDebug( wxT("AFM-file '%hs': line '%hs' has error (bad EncodingScheme)"), afmName.c_str(), line );
2104 }
2105 else if (strncmp(encString, "AdobeStandardEncoding", 21))
2106 {
2107 wxLogDebug( wxT("AFM-file '%hs': line '%hs' has error (unsupported EncodingScheme %hs)"),
2108 afmName.c_str(),line, encString);
2109 }
2110 }
2111 /* B.) check for char-width */
2112 else if(strncmp(line,"C ",2)==0)
2113 {
2114 if (sscanf(line,"%s%d%s%s%d",cString,&ascii,semiString,WXString,&cWidth)!=5)
2115 {
2116 wxLogDebug(wxT("AFM-file '%hs': line '%hs' has an error (bad character width)"),afmName.c_str(),line);
2117 }
2118 if(strcmp(cString,"C")!=0 || strcmp(semiString,";")!=0 || strcmp(WXString,"WX")!=0)
2119 {
2120 wxLogDebug(wxT("AFM-file '%hs': line '%hs' has a format error"),afmName.c_str(),line);
2121 }
2122 /* printf(" char '%c'=%d has width '%d'\n",ascii,ascii,cWidth); */
2123 if (ascii>=0 && ascii<256)
2124 {
2125 lastWidths[ascii] = cWidth; /* store width */
2126 }
2127 else
2128 {
2129 /* MATTHEW: this happens a lot; don't print an error */
2130 /* wxLogDebug("AFM-file '%s': ASCII value %d out of range",afmName.c_str(),ascii); */
2131 }
2132 }
2133 /* C.) ignore other entries. */
2134 }
2135 fclose(afmFile);
2136 }
2137 /* hack to compute correct values for german 'Umlaute'
2138 / the correct way would be to map the character names
2139 / like 'adieresis' to corresp. positions of ISOEnc and read
2140 / these values from AFM files, too. Maybe later ... */
2141 lastWidths[196] = lastWidths['A']; // Ä
2142 lastWidths[228] = lastWidths['a']; // ä
2143 lastWidths[214] = lastWidths['O']; // Ö
2144 lastWidths[246] = lastWidths['o']; // ö
2145 lastWidths[220] = lastWidths['U']; // Ü
2146 lastWidths[252] = lastWidths['u']; // ü
2147 lastWidths[223] = lastWidths[251]; // ß
2148
2149 /* JC: calculate UnderlineThickness/UnderlinePosition */
2150
2151 // VS: dirty, but is there any better solution?
2152 double *pt;
2153 pt = (double*) &m_underlinePosition;
2154 *pt = YLOG2DEVREL((wxCoord)(UnderlinePosition * fontToUse->GetPointSize())) / 1000.0f;
2155 pt = (double*) &m_underlineThickness;
2156 *pt = YLOG2DEVREL((wxCoord)(UnderlineThickness * fontToUse->GetPointSize())) / 1000.0f;
2157
2158 }
2159
2160
2161 /* 3. now the font metrics are read in, calc size this
2162 / is done by adding the widths of the characters in the
2163 / string. they are given in 1/1000 of the size! */
2164
2165 long sum=0;
2166 wxCoord height=Size; /* by default */
2167 unsigned char *p;
2168 for(p=(unsigned char *)wxMBSTRINGCAST strbuf; *p; p++)
2169 {
2170 if(lastWidths[*p]== INT_MIN)
2171 {
2172 wxLogDebug(wxT("GetTextExtent: undefined width for character '%hc' (%d)"), *p,*p);
2173 sum += lastWidths[' ']; /* assume space */
2174 }
2175 else
2176 {
2177 sum += lastWidths[*p];
2178 }
2179 }
2180
2181 double widthSum = sum;
2182 widthSum *= Size;
2183 widthSum /= 1000.0F;
2184
2185 /* add descender to height (it is usually a negative value) */
2186 //if (lastDescender != INT_MIN)
2187 //{
2188 // height += (wxCoord)(((-lastDescender)/1000.0F) * Size); /* MATTHEW: forgot scale */
2189 //}
2190 // - commented by V. Slavik - height already contains descender in it
2191 // (judging from few experiments)
2192
2193 /* return size values */
2194 if ( x )
2195 *x = (wxCoord)widthSum;
2196 if ( y )
2197 *y = height;
2198
2199 /* return other parameters */
2200 if (descent)
2201 {
2202 if(lastDescender!=INT_MIN)
2203 {
2204 *descent = (wxCoord)(((-lastDescender)/1000.0F) * Size); /* MATTHEW: forgot scale */
2205 }
2206 else
2207 {
2208 *descent = 0;
2209 }
2210 }
2211
2212 /* currently no idea how to calculate this! */
2213 if (externalLeading) *externalLeading = 0;
2214
2215 #endif
2216 }
2217
2218 // Determine the Default Postscript Previewer
2219 // available on the platform
2220 #if defined(__SUN__) && defined(__XVIEW__)
2221 // OpenWindow/NeWS's Postscript Previewer
2222 # define PS_VIEWER_PROG "pageview"
2223 #elif defined(__VMS__)
2224 #define PS_VIEWER_PROG "view/format=ps/select=x_display"
2225 #elif defined(__SGI__)
2226 // SGI's Display Postscript Previewer
2227 //# define PS_VIEWER_PROG "dps"
2228 # define PS_VIEWER_PROG "xpsview"
2229 #elif defined(__X__) || defined(__WXGTK__)
2230 // Front-end to ghostscript
2231 # define PS_VIEWER_PROG "ghostview"
2232 #else
2233 // Windows ghostscript/ghostview
2234 # define PS_VIEWER_PROG "gsview"
2235 #endif
2236
2237 wxPrintSetupData *wxThePrintSetupData = (wxPrintSetupData *) NULL;
2238
2239 IMPLEMENT_DYNAMIC_CLASS(wxPostScriptDC, wxDC)
2240 IMPLEMENT_DYNAMIC_CLASS(wxPrintSetupData, wxObject)
2241
2242 // Redundant now I think
2243 #if 1
2244 IMPLEMENT_CLASS(wxPostScriptPrintDialog, wxDialog)
2245
2246 wxPostScriptPrintDialog::wxPostScriptPrintDialog (wxWindow *parent, const wxString& title,
2247 const wxPoint& pos, const wxSize& size, wxCoord style):
2248 wxDialog(parent, -1, title, pos, size, style)
2249 {
2250 wxBeginBusyCursor();
2251
2252 char buf[100];
2253 int yPos = 40;
2254 wxString
2255 *orientation = new wxString[2],
2256 *print_modes = new wxString[3];
2257 int features;
2258 wxCoord wx_printer_translate_x, wx_printer_translate_y;
2259 double wx_printer_scale_x, wx_printer_scale_y;
2260
2261 orientation[0] = _("Portrait");
2262 orientation[1] = _("Landscape");
2263
2264 print_modes[0] = _("Send to Printer");
2265 print_modes[1] = _("Print to File");
2266 print_modes[2] = _("Preview Only");
2267
2268
2269
2270 wxButton *okBut = new wxButton (this, wxID_OK, _("OK"), wxPoint(5, 5));
2271 (void) new wxButton (this, wxID_CANCEL, _("Cancel"), wxPoint(40, 5));
2272 okBut->SetDefault();
2273
2274
2275 #if defined(__WXGTK__) || defined (__WXMOTIF__)
2276 (void) new wxStaticText( this, -1, _("Printer Command: "),
2277 wxPoint(5, yPos) );
2278 (void) new wxTextCtrl( this, wxID_PRINTER_COMMAND, wxThePrintSetupData->GetPrinterCommand(),
2279 wxPoint(100, yPos), wxSize(100, -1) );
2280
2281 (void) new wxStaticText( this, -1, _("Printer Options: "),
2282 wxPoint(210, yPos) );
2283 (void) new wxTextCtrl( this, wxID_PRINTER_OPTIONS, wxThePrintSetupData->GetPrinterOptions(),
2284 wxPoint(305, yPos), wxSize(150, -1) );
2285
2286 yPos += 40;
2287 #endif
2288
2289
2290 wxRadioBox *radio0 = new wxRadioBox(this, wxID_PRINTER_ORIENTATION, "Orientation: ", wxPoint(5, yPos), wxSize(-1,-1),
2291 2,orientation,2,wxRA_SPECIFY_ROWS);
2292 radio0->SetSelection((int)wxThePrintSetupData->GetPrinterOrientation() - 1);
2293
2294 // @@@ Configuration hook
2295 if ( !wxThePrintSetupData->GetPrintPreviewCommand() )
2296 wxThePrintSetupData->SetPrintPreviewCommand(PS_VIEWER_PROG);
2297
2298 // wxGetResource ("wxWindows", "PSView", &wxThePrintSetupData->m_previewCommand);
2299
2300 features = (wxThePrintSetupData->GetPrintPreviewCommand() &&
2301 *wxThePrintSetupData->GetPrintPreviewCommand()) ? 3 : 2;
2302
2303 wxRadioBox *radio1 = new wxRadioBox(this, wxID_PRINTER_MODES, _("PostScript:"),
2304 wxPoint(150, yPos),
2305 wxSize(-1,-1), features,
2306 print_modes, features, wxRA_SPECIFY_ROWS);
2307
2308 #ifdef __WXMSW__
2309 radio1->Enable(0, FALSE);
2310 if (wxThePrintSetupData->GetPrintPreviewCommand() && *wxThePrintSetupData->GetPrintPreviewCommand())
2311 radio1->Enable(2, FALSE);
2312 #endif
2313
2314 radio1->SetSelection((int)wxThePrintSetupData->GetPrinterMode());
2315 wxThePrintSetupData->GetPrinterTranslation(&wx_printer_translate_x, &wx_printer_translate_y);
2316 wxThePrintSetupData->GetPrinterScaling(&wx_printer_scale_x, &wx_printer_scale_y);
2317
2318 sprintf (buf, "%.2f", wx_printer_scale_x);
2319
2320 yPos += 90;
2321 (void) new wxStaticText(this, -1, _("X Scaling"), wxPoint(5, yPos));
2322 /* wxTextCtrl *text1 = */ (void) new wxTextCtrl(this, wxID_PRINTER_X_SCALE, buf, wxPoint(100, yPos), wxSize(100, -1));
2323
2324 sprintf (buf, "%.2f", wx_printer_scale_y);
2325 (void) new wxStaticText(this, -1, _("Y Scaling"), wxPoint(220, yPos));
2326 /* wxTextCtrl *text2 = */ (void) new wxTextCtrl(this, wxID_PRINTER_Y_SCALE, buf, wxPoint(320, yPos), wxSize(100, -1));
2327
2328 yPos += 25;
2329
2330 (void) new wxStaticText(this, -1, _("X Translation"), wxPoint(5, yPos));
2331 sprintf (buf, "%.2d", wx_printer_translate_x);
2332 /* wxTextCtrl *text3 = */ (void) new wxTextCtrl(this, wxID_PRINTER_X_TRANS, buf, wxPoint(100, yPos), wxSize(100, -1));
2333
2334 (void) new wxStaticText(this, -1, _("Y Translation"), wxPoint(220, yPos));
2335 sprintf (buf, "%.2d", wx_printer_translate_y);
2336 /* wxTextCtrl *text4 = */ (void) new wxTextCtrl(this, wxID_PRINTER_Y_TRANS, buf, wxPoint(320, yPos), wxSize(100, -1));
2337
2338 Fit ();
2339
2340 delete[] orientation;
2341 delete[] print_modes;
2342
2343 wxEndBusyCursor();
2344 }
2345
2346 int wxPostScriptPrintDialog::ShowModal ()
2347 {
2348 if ( wxDialog::ShowModal() == wxID_OK )
2349 {
2350 // wxTextCtrl *text0 = (wxTextCtrl *)FindWindow(wxID_PRINTER_OPTIONS);
2351 wxTextCtrl *text1 = (wxTextCtrl *)FindWindow(wxID_PRINTER_X_SCALE);
2352 wxTextCtrl *text2 = (wxTextCtrl *)FindWindow(wxID_PRINTER_Y_SCALE);
2353 wxTextCtrl *text3 = (wxTextCtrl *)FindWindow(wxID_PRINTER_X_TRANS);
2354 wxTextCtrl *text4 = (wxTextCtrl *)FindWindow(wxID_PRINTER_Y_TRANS);
2355 // wxTextCtrl *text_prt = (wxTextCtrl *)FindWindow(wxID_PRINTER_COMMAND);
2356 wxRadioBox *radio0 = (wxRadioBox *)FindWindow(wxID_PRINTER_ORIENTATION);
2357 wxRadioBox *radio1 = (wxRadioBox *)FindWindow(wxID_PRINTER_MODES);
2358
2359 StringToDouble (WXSTRINGCAST text1->GetValue (), &wxThePrintSetupData->m_printerScaleX);
2360 StringToDouble (WXSTRINGCAST text2->GetValue (), &wxThePrintSetupData->m_printerScaleY);
2361
2362 long dummy;
2363 StringToLong (WXSTRINGCAST text3->GetValue (), &dummy);
2364 wxThePrintSetupData->m_printerTranslateX = (wxCoord)dummy;
2365 StringToLong (WXSTRINGCAST text4->GetValue (), &dummy);
2366 wxThePrintSetupData->m_printerTranslateY = (wxCoord)dummy;
2367
2368 #ifdef __X__
2369 // wxThePrintSetupData->SetPrinterOptions(WXSTRINGCAST text0->GetValue ());
2370 // wxThePrintSetupData->SetPrinterCommand(WXSTRINGCAST text_prt->GetValue ());
2371 #endif
2372
2373 wxThePrintSetupData->SetPrinterOrientation((radio0->GetSelection() == 1 ? wxLANDSCAPE : wxPORTRAIT));
2374
2375 // C++ wants this
2376 switch ( radio1->GetSelection() ) {
2377 case 0: wxThePrintSetupData->SetPrinterMode(PS_PRINTER); break;
2378 case 1: wxThePrintSetupData->SetPrinterMode(PS_FILE); break;
2379 case 2: wxThePrintSetupData->SetPrinterMode(PS_PREVIEW); break;
2380 }
2381 return wxID_OK;
2382 }
2383 return wxID_CANCEL;
2384 }
2385 #endif
2386 // 0 (redundant)
2387
2388 // PostScript printer settings
2389 // RETAINED FOR BACKWARD COMPATIBILITY
2390 void wxSetPrinterCommand(const wxString& cmd)
2391 {
2392 wxThePrintSetupData->SetPrinterCommand(cmd);
2393 }
2394
2395 void wxSetPrintPreviewCommand(const wxString& cmd)
2396 {
2397 wxThePrintSetupData->SetPrintPreviewCommand(cmd);
2398 }
2399
2400 void wxSetPrinterOptions(const wxString& flags)
2401 {
2402 wxThePrintSetupData->SetPrinterOptions(flags);
2403 }
2404
2405 void wxSetPrinterFile(const wxString& f)
2406 {
2407 wxThePrintSetupData->SetPrinterFile(f);
2408 }
2409
2410 void wxSetPrinterOrientation(int orient)
2411 {
2412 wxThePrintSetupData->SetPrinterOrientation(orient);
2413 }
2414
2415 void wxSetPrinterScaling(double x, double y)
2416 {
2417 wxThePrintSetupData->SetPrinterScaling(x, y);
2418 }
2419
2420 void wxSetPrinterTranslation(wxCoord x, wxCoord y)
2421 {
2422 wxThePrintSetupData->SetPrinterTranslation(x, y);
2423 }
2424
2425 // 1 = Preview, 2 = print to file, 3 = send to printer
2426 void wxSetPrinterMode(int mode)
2427 {
2428 wxThePrintSetupData->SetPrinterMode(mode);
2429 }
2430
2431 void wxSetAFMPath(const wxString& f)
2432 {
2433 wxThePrintSetupData->SetAFMPath(f);
2434 }
2435
2436 // Get current values
2437 wxString wxGetPrinterCommand()
2438 {
2439 return wxThePrintSetupData->GetPrinterCommand();
2440 }
2441
2442 wxString wxGetPrintPreviewCommand()
2443 {
2444 return wxThePrintSetupData->GetPrintPreviewCommand();
2445 }
2446
2447 wxString wxGetPrinterOptions()
2448 {
2449 return wxThePrintSetupData->GetPrinterOptions();
2450 }
2451
2452 wxString wxGetPrinterFile()
2453 {
2454 return wxThePrintSetupData->GetPrinterFile();
2455 }
2456
2457 int wxGetPrinterOrientation()
2458 {
2459 return wxThePrintSetupData->GetPrinterOrientation();
2460 }
2461
2462 void wxGetPrinterScaling(double* x, double* y)
2463 {
2464 wxThePrintSetupData->GetPrinterScaling(x, y);
2465 }
2466
2467 void wxGetPrinterTranslation(wxCoord *x, wxCoord *y)
2468 {
2469 wxThePrintSetupData->GetPrinterTranslation(x, y);
2470 }
2471
2472 int wxGetPrinterMode()
2473 {
2474 return wxThePrintSetupData->GetPrinterMode();
2475 }
2476
2477 wxString wxGetAFMPath()
2478 {
2479 return wxThePrintSetupData->GetAFMPath();
2480 }
2481
2482 /*
2483 * Print setup data
2484 */
2485
2486 wxPrintSetupData::wxPrintSetupData()
2487 {
2488 m_printerOrient = wxPORTRAIT;
2489 m_printerScaleX = (double)1.0;
2490 m_printerScaleY = (double)1.0;
2491 m_printerTranslateX = 0;
2492 m_printerTranslateY = 0;
2493 m_printerMode = wxPRINT_MODE_FILE;
2494 m_printColour = TRUE;
2495 }
2496
2497 wxPrintSetupData::~wxPrintSetupData()
2498 {
2499 }
2500
2501 void wxPrintSetupData::operator=(wxPrintSetupData& data)
2502 {
2503 SetPrinterCommand(data.GetPrinterCommand());
2504 SetPrintPreviewCommand(data.GetPrintPreviewCommand());
2505 SetPrinterOptions(data.GetPrinterOptions());
2506 wxCoord x, y;
2507 data.GetPrinterTranslation(&x, &y);
2508 SetPrinterTranslation(x, y);
2509
2510 double x1, y1;
2511 data.GetPrinterScaling(&x1, &y1);
2512 SetPrinterScaling(x1, y1);
2513
2514 SetPrinterOrientation(data.GetPrinterOrientation());
2515 SetPrinterMode(data.GetPrinterMode());
2516 SetAFMPath(data.GetAFMPath());
2517 SetPaperName(data.GetPaperName());
2518 SetColour(data.GetColour());
2519 }
2520
2521 // Initialize from a wxPrintData object (wxPrintData should now be used instead of wxPrintSetupData).
2522 void wxPrintSetupData::operator=(const wxPrintData& data)
2523 {
2524 SetPrinterCommand(data.GetPrinterCommand());
2525 SetPrintPreviewCommand(data.GetPreviewCommand());
2526 SetPrinterOptions(data.GetPrinterOptions());
2527 SetPrinterTranslation((wxCoord)data.GetPrinterTranslateX(),
2528 (wxCoord)data.GetPrinterTranslateY());
2529 SetPrinterScaling(data.GetPrinterScaleX(), data.GetPrinterScaleY());
2530 SetPrinterOrientation(data.GetOrientation());
2531 SetPrinterMode((int) data.GetPrintMode());
2532 SetAFMPath(data.GetFontMetricPath());
2533 SetPaperName(wxThePrintPaperDatabase->ConvertIdToName(data.GetPaperId()));
2534 SetColour(data.GetColour());
2535 SetPrinterFile(data.GetFilename());
2536 }
2537
2538 void wxInitializePrintSetupData(bool init)
2539 {
2540 if (init)
2541 {
2542 wxThePrintSetupData = new wxPrintSetupData;
2543
2544 wxThePrintSetupData->SetPrintPreviewCommand(PS_VIEWER_PROG);
2545 wxThePrintSetupData->SetPrinterOrientation(wxPORTRAIT);
2546 wxThePrintSetupData->SetPrinterMode(wxPRINT_MODE_PREVIEW);
2547 wxThePrintSetupData->SetPaperName(_("A4 sheet, 210 x 297 mm"));
2548
2549 // Could have a .ini file to read in some defaults
2550 // - and/or use environment variables, e.g. WXWIN
2551 #ifdef __VMS__
2552 wxThePrintSetupData->SetPrinterCommand("print");
2553 wxThePrintSetupData->SetPrinterOptions("/nonotify/queue=psqueue");
2554 wxThePrintSetupData->SetAFMPath("sys$ps_font_metrics:");
2555 #endif
2556 #ifdef __WXMSW__
2557 wxThePrintSetupData->SetPrinterCommand("print");
2558 wxThePrintSetupData->SetAFMPath("c:\\windows\\system\\");
2559 wxThePrintSetupData->SetPrinterOptions("");
2560 #endif
2561 #if !defined(__VMS__) && !defined(__WXMSW__)
2562 wxThePrintSetupData->SetPrinterCommand("lpr");
2563 wxThePrintSetupData->SetPrinterOptions("");
2564 wxThePrintSetupData->SetAFMPath("");
2565 #endif
2566 }
2567 else
2568 {
2569 if (wxThePrintSetupData)
2570 delete wxThePrintSetupData;
2571 wxThePrintSetupData = (wxPrintSetupData *) NULL;
2572 }
2573 }
2574
2575 // A module to allow initialization/cleanup of PostScript-related
2576 // things without calling these functions from app.cpp.
2577
2578 class WXDLLEXPORT wxPostScriptModule: public wxModule
2579 {
2580 DECLARE_DYNAMIC_CLASS(wxPostScriptModule)
2581 public:
2582 wxPostScriptModule() {}
2583 bool OnInit();
2584 void OnExit();
2585 };
2586
2587 IMPLEMENT_DYNAMIC_CLASS(wxPostScriptModule, wxModule)
2588
2589 /*
2590 * Initialization/cleanup module
2591 */
2592
2593 bool wxPostScriptModule::OnInit()
2594 {
2595 wxInitializePrintSetupData();
2596
2597 return TRUE;
2598 }
2599
2600 void wxPostScriptModule::OnExit()
2601 {
2602 wxInitializePrintSetupData(FALSE);
2603 }
2604
2605 #endif
2606 // wxUSE_POSTSCRIPT
2607
2608 #endif
2609 // wxUSE_PRINTING_ARCHITECTURE