finally fix broken gimp window icons
[mikachu/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("color %d (%d,%d,%d) in hash table with %d "
37                 "leftover references",
38                 c->id, RrColorRed(c), RrColorGreen(c), RrColorBlue(c),
39                 c->refcount);
40 #endif
41 }
42
43 #if 0
44 static void f(gpointer key, gpointer value, gpointer n)
45 {
46     RrColor *c = value;
47     if (c->id == *(gint*)n)
48         g_message("color %d has %d references", c->id, c->refcount);
49 }
50
51 void print_refs(gint id)
52 {
53     g_hash_table_foreach(RrColorHash(definst), f, &id);
54 }
55 #endif
56
57 RrInstance* RrInstanceNew (Display *display, gint screen)
58 {
59     definst = g_new (RrInstance, 1);
60     definst->display = display;
61     definst->screen = screen;
62
63     definst->depth = DefaultDepth(display, screen);
64     definst->visual = DefaultVisual(display, screen);
65     definst->colormap = DefaultColormap(display, screen);
66
67     definst->pseudo_colors = NULL;
68
69     definst->color_hash = g_hash_table_new_full(g_int_hash, g_int_equal,
70                                                 NULL, dest);
71
72     switch (definst->visual->class) {
73     case TrueColor:
74         RrTrueColorSetup(definst);
75         break;
76     case PseudoColor:
77     case StaticColor:
78     case GrayScale:
79     case StaticGray:
80         RrPseudoColorSetup(definst);
81         break;
82     default:
83         g_critical("Unsupported visual class");
84         g_free (definst);
85         return definst = NULL;
86     }
87     return definst;
88 }
89
90 void RrTrueColorSetup (RrInstance *inst)
91 {
92   gulong red_mask, green_mask, blue_mask;
93   XImage *timage = NULL;
94
95   timage = XCreateImage(inst->display, inst->visual, inst->depth,
96                         ZPixmap, 0, NULL, 1, 1, 32, 0);
97   g_assert(timage != NULL);
98   /* find the offsets for each color in the visual's masks */
99   inst->red_mask = red_mask = timage->red_mask;
100   inst->green_mask = green_mask = timage->green_mask;
101   inst->blue_mask = blue_mask = timage->blue_mask;
102
103   inst->red_offset = 0;
104   inst->green_offset = 0;
105   inst->blue_offset = 0;
106
107   while (! (red_mask & 1))   { inst->red_offset++;   red_mask   >>= 1; }
108   while (! (green_mask & 1)) { inst->green_offset++; green_mask >>= 1; }
109   while (! (blue_mask & 1))  { inst->blue_offset++;  blue_mask  >>= 1; }
110
111   inst->red_shift = inst->green_shift = inst->blue_shift = 8;
112   while (red_mask)   { red_mask   >>= 1; inst->red_shift--;   }
113   while (green_mask) { green_mask >>= 1; inst->green_shift--; }
114   while (blue_mask)  { blue_mask  >>= 1; inst->blue_shift--;  }
115   XFree(timage);
116 }
117
118 #define RrPseudoNcolors(inst) (1 << (inst->pseudo_bpc * 3))
119
120 void RrPseudoColorSetup (RrInstance *inst)
121 {
122     XColor icolors[256];
123     gint tr, tg, tb, n, r, g, b, i, incolors, ii;
124     gulong dev;
125     gint cpc, _ncolors;
126
127     /* determine the number of colors and the bits-per-color */
128     inst->pseudo_bpc = 2; /* XXX THIS SHOULD BE A USER OPTION */
129     g_assert(inst->pseudo_bpc >= 1);
130     _ncolors = RrPseudoNcolors(inst);
131
132     if (_ncolors > 1 << inst->depth) {
133         g_warning("PseudoRenderControl: Invalid colormap size. Resizing.\n");
134         inst->pseudo_bpc = 1 << (inst->depth/3) >> 3;
135         _ncolors = 1 << (inst->pseudo_bpc * 3);
136     }
137
138     /* build a color cube */
139     inst->pseudo_colors = g_new(XColor, _ncolors);
140     cpc = 1 << inst->pseudo_bpc; /* colors per channel */
141
142     for (n = 0, r = 0; r < cpc; r++)
143         for (g = 0; g < cpc; g++)
144             for (b = 0; b < cpc; b++, n++) {
145                 tr = (gint)(((gfloat)(r)/(gfloat)(cpc-1)) * 0xFF);
146                 tg = (gint)(((gfloat)(g)/(gfloat)(cpc-1)) * 0xFF);
147                 tb = (gint)(((gfloat)(b)/(gfloat)(cpc-1)) * 0xFF);
148                 inst->pseudo_colors[n].red = tr | tr << 8;
149                 inst->pseudo_colors[n].green = tg | tg << 8;
150                 inst->pseudo_colors[n].blue = tb | tb << 8;
151                 /* used to track allocation */
152                 inst->pseudo_colors[n].flags = DoRed|DoGreen|DoBlue;
153             }
154
155     /* allocate the colors */
156     for (i = 0; i < _ncolors; i++)
157         if (!XAllocColor(inst->display, inst->colormap,
158                          &inst->pseudo_colors[i]))
159             inst->pseudo_colors[i].flags = 0; /* mark it as unallocated */
160
161     /* try allocate any colors that failed allocation above */
162
163     /* get the allocated values from the X server
164        (only the first 256 XXX why!?)
165      */
166     incolors = (((1 << inst->depth) > 256) ? 256 : (1 << inst->depth));
167     for (i = 0; i < incolors; i++)
168         icolors[i].pixel = i;
169     XQueryColors(inst->display, inst->colormap, icolors, incolors);
170
171     /* try match unallocated ones */
172     for (i = 0; i < _ncolors; i++) {
173         if (!inst->pseudo_colors[i].flags) { /* if it wasn't allocated... */
174             gulong closest = 0xffffffff, close = 0;
175             for (ii = 0; ii < incolors; ii++) {
176                 /* find deviations */
177                 r = (inst->pseudo_colors[i].red - icolors[ii].red) & 0xff;
178                 g = (inst->pseudo_colors[i].green - icolors[ii].green) & 0xff;
179                 b = (inst->pseudo_colors[i].blue - icolors[ii].blue) & 0xff;
180                 /* find a weighted absolute deviation */
181                 dev = (r * r) + (g * g) + (b * b);
182
183                 if (dev < closest) {
184                     closest = dev;
185                     close = ii;
186                 }
187             }
188
189             inst->pseudo_colors[i].red = icolors[close].red;
190             inst->pseudo_colors[i].green = icolors[close].green;
191             inst->pseudo_colors[i].blue = icolors[close].blue;
192             inst->pseudo_colors[i].pixel = icolors[close].pixel;
193
194             /* try alloc this closest color, it had better succeed! */
195             if (XAllocColor(inst->display, inst->colormap,
196                             &inst->pseudo_colors[i]))
197                 /* mark as alloced */
198                 inst->pseudo_colors[i].flags = DoRed|DoGreen|DoBlue;
199             else
200                 /* wtf has gone wrong, its already alloced for chissake! */
201                 g_assert_not_reached();
202         }
203     }
204 }
205
206 void RrInstanceFree (RrInstance *inst)
207 {
208     if (inst) {
209         if (inst == definst) definst = NULL;
210         g_free(inst->pseudo_colors);
211         g_hash_table_destroy(inst->color_hash);
212     }
213 }
214
215 Display* RrDisplay (const RrInstance *inst)
216 {
217     return (inst ? inst : definst)->display;
218 }
219
220 gint RrScreen (const RrInstance *inst)
221 {
222     return (inst ? inst : definst)->screen;
223 }
224
225 Window RrRootWindow (const RrInstance *inst)
226 {
227     return RootWindow (RrDisplay (inst), RrScreen (inst));
228 }
229
230 Visual *RrVisual (const RrInstance *inst)
231 {
232     return (inst ? inst : definst)->visual;
233 }
234
235 gint RrDepth (const RrInstance *inst)
236 {
237     return (inst ? inst : definst)->depth;
238 }
239
240 Colormap RrColormap (const RrInstance *inst)
241 {
242     return (inst ? inst : definst)->colormap;
243 }
244
245 gint RrRedOffset (const RrInstance *inst)
246 {
247     return (inst ? inst : definst)->red_offset;
248 }
249
250 gint RrGreenOffset (const RrInstance *inst)
251 {
252     return (inst ? inst : definst)->green_offset;
253 }
254
255 gint RrBlueOffset (const RrInstance *inst)
256 {
257     return (inst ? inst : definst)->blue_offset;
258 }
259
260 gint RrRedShift (const RrInstance *inst)
261 {
262     return (inst ? inst : definst)->red_shift;
263 }
264
265 gint RrGreenShift (const RrInstance *inst)
266 {
267     return (inst ? inst : definst)->green_shift;
268 }
269
270 gint RrBlueShift (const RrInstance *inst)
271 {
272     return (inst ? inst : definst)->blue_shift;
273 }
274
275 gint RrRedMask (const RrInstance *inst)
276 {
277     return (inst ? inst : definst)->red_mask;
278 }
279
280 gint RrGreenMask (const RrInstance *inst)
281 {
282     return (inst ? inst : definst)->green_mask;
283 }
284
285 gint RrBlueMask (const RrInstance *inst)
286 {
287     return (inst ? inst : definst)->blue_mask;
288 }
289
290 guint RrPseudoBPC (const RrInstance *inst)
291 {
292     return (inst ? inst : definst)->pseudo_bpc;
293 }
294
295 XColor *RrPseudoColors (const RrInstance *inst)
296 {
297     return (inst ? inst : definst)->pseudo_colors;
298 }
299
300 GHashTable* RrColorHash (const RrInstance *inst)
301 {
302     return (inst ? inst : definst)->color_hash;
303 }