add a check to make sure the color hash is empty on shutdown
[dana/openbox.git] / render / instance.c
1 /* -*- indent-tabs-mode: nil; tab-width: 4; c-basic-offset: 4; -*-
2
3    instance.c for the Openbox window manager
4    Copyright (c) 2003        Ben Jansens
5
6    This program is free software; you can redistribute it and/or modify
7    it under the terms of the GNU General Public License as published by
8    the Free Software Foundation; either version 2 of the License, or
9    (at your option) any later version.
10
11    This program 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
14    GNU General Public License for more details.
15
16    See the COPYING file for a copy of the GNU General Public License.
17 */
18
19 #include "render.h"
20 #include "instance.h"
21
22 static RrInstance *definst = NULL;
23
24 static void RrTrueColorSetup (RrInstance *inst);
25 static void RrPseudoColorSetup (RrInstance *inst);
26
27 #ifdef DEBUG
28 #include "color.h"
29 #endif
30 static void
31 dest(gpointer data)
32 {
33 #ifdef DEBUG
34     RrColor *c = data;
35     if (c->refcount > 0)
36         g_error("removing color from hash table with references");
37 #endif
38 }
39
40 RrInstance* RrInstanceNew (Display *display, gint screen)
41 {
42     definst = g_new (RrInstance, 1);
43     definst->display = display;
44     definst->screen = screen;
45
46     definst->depth = DefaultDepth(display, screen);
47     definst->visual = DefaultVisual(display, screen);
48     definst->colormap = DefaultColormap(display, screen);
49
50     definst->pseudo_colors = NULL;
51
52     definst->color_hash = g_hash_table_new_full(g_int_hash, g_int_equal,
53                                                 NULL, dest);
54
55     switch (definst->visual->class) {
56     case TrueColor:
57         RrTrueColorSetup(definst);
58         break;
59     case PseudoColor:
60     case StaticColor:
61     case GrayScale:
62     case StaticGray:
63         RrPseudoColorSetup(definst);
64         break;
65     default:
66         g_critical("Unsupported visual class");
67         g_free (definst);
68         return definst = NULL;
69     }
70     return definst;
71 }
72
73 void RrTrueColorSetup (RrInstance *inst)
74 {
75   unsigned long red_mask, green_mask, blue_mask;
76   XImage *timage = NULL;
77
78   timage = XCreateImage(inst->display, inst->visual, inst->depth,
79                         ZPixmap, 0, NULL, 1, 1, 32, 0);
80   g_assert(timage != NULL);
81   /* find the offsets for each color in the visual's masks */
82   inst->red_mask = red_mask = timage->red_mask;
83   inst->green_mask = green_mask = timage->green_mask;
84   inst->blue_mask = blue_mask = timage->blue_mask;
85
86   inst->red_offset = 0;
87   inst->green_offset = 0;
88   inst->blue_offset = 0;
89
90   while (! (red_mask & 1))   { inst->red_offset++;   red_mask   >>= 1; }
91   while (! (green_mask & 1)) { inst->green_offset++; green_mask >>= 1; }
92   while (! (blue_mask & 1))  { inst->blue_offset++;  blue_mask  >>= 1; }
93
94   inst->red_shift = inst->green_shift = inst->blue_shift = 8;
95   while (red_mask)   { red_mask   >>= 1; inst->red_shift--;   }
96   while (green_mask) { green_mask >>= 1; inst->green_shift--; }
97   while (blue_mask)  { blue_mask  >>= 1; inst->blue_shift--;  }
98   XFree(timage);
99 }
100
101 #define RrPseudoNcolors(isnt) (1 << (inst->pseudo_bpc * 3))
102
103 void RrPseudoColorSetup (RrInstance *inst)
104 {
105     XColor icolors[256];
106     int tr, tg, tb, n, r, g, b, i, incolors, ii;
107     unsigned long dev;
108     int cpc, _ncolors;
109
110     /* determine the number of colors and the bits-per-color */
111     inst->pseudo_bpc = 2; /* XXX THIS SHOULD BE A USER OPTION */
112     g_assert(inst->pseudo_bpc >= 1);
113     _ncolors = RrPseudoNcolors(inst);
114
115     if (_ncolors > 1 << inst->depth) {
116         g_warning("PseudoRenderControl: Invalid colormap size. Resizing.\n");
117         inst->pseudo_bpc = 1 << (inst->depth/3) >> 3;
118         _ncolors = 1 << (inst->pseudo_bpc * 3);
119     }
120
121     /* build a color cube */
122     inst->pseudo_colors = g_new(XColor, _ncolors);
123     cpc = 1 << inst->pseudo_bpc; /* colors per channel */
124
125     for (n = 0, r = 0; r < cpc; r++)
126         for (g = 0; g < cpc; g++)
127             for (b = 0; b < cpc; b++, n++) {
128                 tr = (int)(((float)(r)/(float)(cpc-1)) * 0xFF);
129                 tg = (int)(((float)(g)/(float)(cpc-1)) * 0xFF);
130                 tb = (int)(((float)(b)/(float)(cpc-1)) * 0xFF);
131                 inst->pseudo_colors[n].red = tr | tr << 8;
132                 inst->pseudo_colors[n].green = tg | tg << 8;
133                 inst->pseudo_colors[n].blue = tb | tb << 8;
134                 /* used to track allocation */
135                 inst->pseudo_colors[n].flags = DoRed|DoGreen|DoBlue;
136             }
137
138     /* allocate the colors */
139     for (i = 0; i < _ncolors; i++)
140         if (!XAllocColor(inst->display, inst->colormap,
141                          &inst->pseudo_colors[i]))
142             inst->pseudo_colors[i].flags = 0; /* mark it as unallocated */
143
144     /* try allocate any colors that failed allocation above */
145
146     /* get the allocated values from the X server
147        (only the first 256 XXX why!?)
148      */
149     incolors = (((1 << inst->depth) > 256) ? 256 : (1 << inst->depth));
150     for (i = 0; i < incolors; i++)
151         icolors[i].pixel = i;
152     XQueryColors(inst->display, inst->colormap, icolors, incolors);
153
154     /* try match unallocated ones */
155     for (i = 0; i < _ncolors; i++) {
156         if (!inst->pseudo_colors[i].flags) { /* if it wasn't allocated... */
157             unsigned long closest = 0xffffffff, close = 0;
158             for (ii = 0; ii < incolors; ii++) {
159                 /* find deviations */
160                 r = (inst->pseudo_colors[i].red - icolors[ii].red) & 0xff;
161                 g = (inst->pseudo_colors[i].green - icolors[ii].green) & 0xff;
162                 b = (inst->pseudo_colors[i].blue - icolors[ii].blue) & 0xff;
163                 /* find a weighted absolute deviation */
164                 dev = (r * r) + (g * g) + (b * b);
165
166                 if (dev < closest) {
167                     closest = dev;
168                     close = ii;
169                 }
170             }
171
172             inst->pseudo_colors[i].red = icolors[close].red;
173             inst->pseudo_colors[i].green = icolors[close].green;
174             inst->pseudo_colors[i].blue = icolors[close].blue;
175             inst->pseudo_colors[i].pixel = icolors[close].pixel;
176
177             /* try alloc this closest color, it had better succeed! */
178             if (XAllocColor(inst->display, inst->colormap,
179                             &inst->pseudo_colors[i]))
180                 /* mark as alloced */
181                 inst->pseudo_colors[i].flags = DoRed|DoGreen|DoBlue;
182             else
183                 /* wtf has gone wrong, its already alloced for chissake! */
184                 g_assert_not_reached();
185         }
186     }
187 }
188
189 void RrInstanceFree (RrInstance *inst)
190 {
191     if (inst) {
192         if (inst == definst) definst = NULL;
193         g_free(inst->pseudo_colors);
194         g_hash_table_destroy(inst->color_hash);
195     }
196 }
197
198 Display* RrDisplay (const RrInstance *inst)
199 {
200     return (inst ? inst : definst)->display;
201 }
202
203 gint RrScreen (const RrInstance *inst)
204 {
205     return (inst ? inst : definst)->screen;
206 }
207
208 Window RrRootWindow (const RrInstance *inst)
209 {
210     return RootWindow (RrDisplay (inst), RrScreen (inst));
211 }
212
213 Visual *RrVisual (const RrInstance *inst)
214 {
215     return (inst ? inst : definst)->visual;
216 }
217
218 gint RrDepth (const RrInstance *inst)
219 {
220     return (inst ? inst : definst)->depth;
221 }
222
223 Colormap RrColormap (const RrInstance *inst)
224 {
225     return (inst ? inst : definst)->colormap;
226 }
227
228 gint RrRedOffset (const RrInstance *inst)
229 {
230     return (inst ? inst : definst)->red_offset;
231 }
232
233 gint RrGreenOffset (const RrInstance *inst)
234 {
235     return (inst ? inst : definst)->green_offset;
236 }
237
238 gint RrBlueOffset (const RrInstance *inst)
239 {
240     return (inst ? inst : definst)->blue_offset;
241 }
242
243 gint RrRedShift (const RrInstance *inst)
244 {
245     return (inst ? inst : definst)->red_shift;
246 }
247
248 gint RrGreenShift (const RrInstance *inst)
249 {
250     return (inst ? inst : definst)->green_shift;
251 }
252
253 gint RrBlueShift (const RrInstance *inst)
254 {
255     return (inst ? inst : definst)->blue_shift;
256 }
257
258 gint RrRedMask (const RrInstance *inst)
259 {
260     return (inst ? inst : definst)->red_mask;
261 }
262
263 gint RrGreenMask (const RrInstance *inst)
264 {
265     return (inst ? inst : definst)->green_mask;
266 }
267
268 gint RrBlueMask (const RrInstance *inst)
269 {
270     return (inst ? inst : definst)->blue_mask;
271 }
272
273 guint RrPseudoBPC (const RrInstance *inst)
274 {
275     return (inst ? inst : definst)->pseudo_bpc;
276 }
277
278 XColor *RrPseudoColors (const RrInstance *inst)
279 {
280     return (inst ? inst : definst)->pseudo_colors;
281 }
282
283 GHashTable* RrColorHash (const RrInstance *inst)
284 {
285     return (inst ? inst : definst)->color_hash;
286 }