ntdll: Fix a return code from RtlVerifyVersionInfo and change the FIXME to a TRACE...
[wine] / dlls / wineps.drv / pen.c
1 /*
2  *      PostScript pen handling
3  *
4  *      Copyright 1998  Huw D M Davies
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19  */
20
21 #include <stdarg.h>
22
23 #include "windef.h"
24 #include "winbase.h"
25 #include "wingdi.h"
26 #include "psdrv.h"
27 #include "wine/debug.h"
28
29 WINE_DEFAULT_DEBUG_CHANNEL(psdrv);
30
31 static const char PEN_dash[]       = "50 30";     /* -----   -----   -----  */
32 static const char PEN_dot[]        = "20";      /* --  --  --  --  --  -- */
33 static const char PEN_dashdot[]    = "40 30 20 30";  /* ----   --   ----   --  */
34 static const char PEN_dashdotdot[] = "40 20 20 20 20 20"; /* ----  --  --  ----  */
35 static const char PEN_alternate[]  = "1";
36
37 /***********************************************************************
38  *           SelectPen   (WINEPS.@)
39  */
40 HPEN PSDRV_SelectPen( PSDRV_PDEVICE *physDev, HPEN hpen )
41 {
42     LOGPEN logpen;
43
44     if (!GetObjectW( hpen, sizeof(logpen), &logpen ))
45     {
46         /* must be an extended pen */
47         EXTLOGPEN *elp;
48         INT size = GetObjectW( hpen, 0, NULL );
49
50         if (!size) return 0;
51
52         elp = HeapAlloc( GetProcessHeap(), 0, size );
53
54         GetObjectW( hpen, size, elp );
55         /* FIXME: add support for user style pens */
56         logpen.lopnStyle = elp->elpPenStyle;
57         logpen.lopnWidth.x = elp->elpWidth;
58         logpen.lopnWidth.y = 0;
59         logpen.lopnColor = elp->elpColor;
60
61         HeapFree( GetProcessHeap(), 0, elp );
62     }
63
64     TRACE("hpen = %p colour = %08lx\n", hpen, logpen.lopnColor);
65
66     physDev->pen.width = logpen.lopnWidth.x;
67     if ((logpen.lopnStyle & PS_GEOMETRIC) || (physDev->pen.width > 1))
68     {
69         physDev->pen.width = PSDRV_XWStoDS( physDev, physDev->pen.width );
70         if(physDev->pen.width < 0) physDev->pen.width = -physDev->pen.width;
71     }
72
73     PSDRV_CreateColor(physDev, &physDev->pen.color, logpen.lopnColor);
74     physDev->pen.style = logpen.lopnStyle & PS_STYLE_MASK;
75
76     switch(physDev->pen.style) {
77     case PS_DASH:
78         physDev->pen.dash = PEN_dash;
79         break;
80
81     case PS_DOT:
82         physDev->pen.dash = PEN_dot;
83         break;
84
85     case PS_DASHDOT:
86         physDev->pen.dash = PEN_dashdot;
87         break;
88
89     case PS_DASHDOTDOT:
90         physDev->pen.dash = PEN_dashdotdot;
91         break;
92
93     case PS_ALTERNATE:
94         physDev->pen.dash = PEN_alternate;
95         break;
96
97     default:
98         physDev->pen.dash = NULL;
99     }
100
101     if ((physDev->pen.width > 1) && (physDev->pen.dash != NULL)) {
102         physDev->pen.style = PS_SOLID;
103          physDev->pen.dash = NULL;
104     }
105
106     physDev->pen.set = FALSE;
107     return hpen;
108 }
109
110
111 /**********************************************************************
112  *
113  *      PSDRV_SetPen
114  *
115  */
116 BOOL PSDRV_SetPen(PSDRV_PDEVICE *physDev)
117 {
118     if (physDev->pen.style != PS_NULL) {
119         PSDRV_WriteSetColor(physDev, &physDev->pen.color);
120
121         if(!physDev->pen.set) {
122             PSDRV_WriteSetPen(physDev);
123             physDev->pen.set = TRUE;
124         }
125     }
126
127     return TRUE;
128 }