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