Added Finnish resources.
[wine] / dlls / wineps / color.c
1 /*
2  *      PostScript colour functions
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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19  */
20
21 #include "psdrv.h"
22 #include "wine/debug.h"
23
24 WINE_DEFAULT_DEBUG_CHANNEL(psdrv);
25
26 /**********************************************************************
27  *           PSDRV_CmpColor
28  *
29  * Return TRUE if col1 == col2
30  */
31 BOOL PSDRV_CmpColor(PSCOLOR *col1, PSCOLOR *col2)
32 {
33     if(col1->type != col2->type)
34         return FALSE;
35
36     switch(col1->type) {
37     case PSCOLOR_GRAY:
38         if(col1->value.gray.i == col2->value.gray.i)
39             return TRUE;
40         break;
41     case PSCOLOR_RGB:
42         if( col1->value.rgb.r == col2->value.rgb.r &&
43             col1->value.rgb.g == col2->value.rgb.g &&
44             col1->value.rgb.b == col2->value.rgb.b )
45             return TRUE;
46         break;
47     default:
48         ERR("Unknown colour type %d\n", col1->type);
49     }
50     return FALSE;
51 }
52
53
54 /**********************************************************************
55  *           PSDRV_CopyColor
56  *
57  * Copies col2 into col1. Return FALSE on error.
58  */
59 BOOL PSDRV_CopyColor(PSCOLOR *col1, PSCOLOR *col2)
60 {
61
62     switch(col2->type) {
63     case PSCOLOR_GRAY:
64         col1->value.gray.i = col2->value.gray.i;
65         break;
66
67     case PSCOLOR_RGB:
68         col1->value.rgb.r = col2->value.rgb.r;
69         col1->value.rgb.g = col2->value.rgb.g;
70         col1->value.rgb.b = col2->value.rgb.b;
71         break;
72
73     default:
74         ERR("Unknown colour type %d\n", col1->type);
75         return FALSE;
76     }
77
78     col1->type = col2->type;
79     return TRUE;
80 }
81
82
83 /**********************************************************************
84  *           PSDRV_CreateColor
85  *
86  * Creates a PostScript colour from a COLORREF.
87  * Result is grey scale if ColorDevice field of ppd is FALSE else an
88  * rgb colour is produced.
89  */
90 void PSDRV_CreateColor( PSDRV_PDEVICE *physDev, PSCOLOR *pscolor,
91                      COLORREF wincolor )
92 {
93     int ctype = wincolor >> 24;
94     float r, g, b;
95
96     if(ctype != 0 && ctype != 2)
97         FIXME("Colour is %08lx\n", wincolor);
98
99     r = (wincolor & 0xff) / 256.0;
100     g = ((wincolor >> 8) & 0xff) / 256.0;
101     b = ((wincolor >> 16) & 0xff) / 256.0;
102
103     if(physDev->pi->ppd->ColorDevice) {
104         pscolor->type = PSCOLOR_RGB;
105         pscolor->value.rgb.r = r;
106         pscolor->value.rgb.g = g;
107         pscolor->value.rgb.b = b;
108     } else {
109         pscolor->type = PSCOLOR_GRAY;
110         /* FIXME configurable */
111         pscolor->value.gray.i = r * 0.3 + g * 0.59 + b * 0.11;
112     }
113     return;
114 }
115
116
117 /***********************************************************************
118  *           PSDRV_SetBkColor
119  */
120 COLORREF PSDRV_SetBkColor( PSDRV_PDEVICE *physDev, COLORREF color )
121 {
122     PSDRV_CreateColor(physDev, &physDev->bkColor, color);
123     return color;
124 }
125
126
127 /***********************************************************************
128  *           PSDRV_SetTextColor
129  */
130 COLORREF PSDRV_SetTextColor( PSDRV_PDEVICE *physDev, COLORREF color )
131 {
132     PSDRV_CreateColor(physDev, &physDev->font.color, color);
133     physDev->font.set = FALSE;
134     return color;
135 }
136