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