ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/xpm.C
Revision: 1.12
Committed: Thu Apr 8 20:31:45 2004 UTC (20 years, 2 months ago) by pcg
Content type: text/plain
Branch: MAIN
CVS Tags: rel-3_3, rel-3_2, rel-2_8, rel-3_0
Changes since 1.11: +1 -2 lines
Log Message:
*** empty log message ***

File Contents

# User Rev Content
1 pcg 1.1 /*--------------------------------*-C-*---------------------------------*
2 pcg 1.12 * File: xpm.C
3 pcg 1.1 *----------------------------------------------------------------------*
4     *
5     * All portions of code are copyright by their respective author/s.
6     * Copyright (c) 1997 Carsten Haitzler <raster@zip.com.au>
7     * Copyright (c) 1997,1998 Oezguer Kesim <kesim@math.fu-berlin.de>
8     * Copyright (c) 1998-2001 Geoff Wing <gcw@pobox.com>
9     *
10     * This program is free software; you can redistribute it and/or modify
11     * it under the terms of the GNU General Public License as published by
12     * the Free Software Foundation; either version 2 of the License, or
13     * (at your option) any later version.
14     *
15     * This program is distributed in the hope that it will be useful,
16     * but WITHOUT ANY WARRANTY; without even the implied warranty of
17     * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18     * GNU General Public License for more details.
19     *
20     * You should have received a copy of the GNU General Public License
21     * along with this program; if not, write to the Free Software
22     * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
23     *---------------------------------------------------------------------*/
24    
25     #include "../config.h" /* NECESSARY */
26     #include "rxvt.h" /* NECESSARY */
27     #include "xpm.intpro" /* PROTOS for internal routines */
28    
29     #ifdef XPM_BACKGROUND
30    
31     /*
32     * These GEOM strings indicate absolute size/position:
33     * @ `WxH+X+Y'
34     * @ `WxH+X' -> Y = X
35     * @ `WxH' -> Y = X = 50
36     * @ `W+X+Y' -> H = W
37     * @ `W+X' -> H = W, Y = X
38     * @ `W' -> H = W, X = Y = 50
39     * @ `0xH' -> H *= H/100, X = Y = 50 (W unchanged)
40     * @ `Wx0' -> W *= W/100, X = Y = 50 (H unchanged)
41     * @ `=+X+Y' -> (H, W unchanged)
42     * @ `=+X' -> Y = X (H, W unchanged)
43     *
44     * These GEOM strings adjust position relative to current position:
45     * @ `+X+Y'
46     * @ `+X' -> Y = X
47     *
48     * And this GEOM string is for querying current scale/position:
49     * @ `?'
50     */
51     int
52 pcg 1.5 rxvt_term::scale_pixmap (const char *geom)
53 pcg 1.1 {
54 pcg 1.7 int flags, changed = 0;
55     int x = 0, y = 0;
56     unsigned int w = 0, h = 0;
57     unsigned int n;
58     char *p, *str;
59 pcg 1.9 bgPixmap_t *bgpixmap = & (bgPixmap);
60 pcg 1.1
61     #define MAXLEN_GEOM sizeof("[1000x1000+1000+1000]")
62    
63 pcg 1.7 if (geom == NULL)
64     return 0;
65     str = (char *)rxvt_malloc (MAXLEN_GEOM + 1);
66 pcg 1.9 if (!STRCMP (geom, "?"))
67 pcg 1.7 {
68 pcg 1.9 sprintf (str, "[%dx%d+%d+%d]", /* can't presume snprintf () ! */
69     min (bgpixmap->w, 9999), min (bgpixmap->h, 9999),
70     min (bgpixmap->x, 9999), min (bgpixmap->y, 9999));
71 pcg 1.11 process_xterm_seq (XTerm_title, str, CHAR_ST);
72 pcg 1.9 free (str);
73 pcg 1.7 return 0;
74 pcg 1.1 }
75    
76 pcg 1.9 if ((p = STRCHR (geom, ';')) == NULL)
77     p = STRCHR (geom, '\0');
78 pcg 1.7 n = (p - geom);
79     if (n <= MAXLEN_GEOM)
80     {
81 pcg 1.9 STRNCPY (str, geom, n);
82 pcg 1.7 str[n] = '\0';
83    
84 pcg 1.9 flags = XParseGeometry (str, &x, &y, &w, &h);
85 pcg 1.7 if (!flags)
86     {
87     flags |= WidthValue;
88     w = 0;
89     } /* default is tile */
90     if (flags & WidthValue)
91     {
92 pcg 1.9 if (! (flags & XValue))
93 pcg 1.7 x = 50;
94 pcg 1.9 if (! (flags & HeightValue))
95 pcg 1.7 h = w;
96     if (w && !h)
97     {
98     w = (bgpixmap->w * w) / 100;
99     h = bgpixmap->h;
100     }
101     else if (h && !w)
102     {
103     w = bgpixmap->w;
104     h = (bgpixmap->h * h) / 100;
105     }
106     if (w > 1000)
107     w = 1000;
108     if (h > 1000)
109     h = 1000;
110     if (bgpixmap->w != (short)w)
111     {
112     bgpixmap->w = (short)w;
113     changed++;
114     }
115     if (bgpixmap->h != (short)h)
116     {
117     bgpixmap->h = (short)h;
118     changed++;
119     }
120     }
121 pcg 1.9 if (! (flags & YValue))
122 pcg 1.7 {
123     if (flags & XNegative)
124     flags |= YNegative;
125     y = x;
126     }
127    
128 pcg 1.9 if (! (flags & WidthValue) && geom[0] != '=')
129 pcg 1.7 {
130     x += bgpixmap->x;
131     y += bgpixmap->y;
132     }
133     else
134     {
135     if (flags & XNegative)
136     x += 100;
137     if (flags & YNegative)
138     y += 100;
139     }
140 pcg 1.9 MIN_IT (x, 100);
141     MIN_IT (y, 100);
142     MAX_IT (x, 0);
143     MAX_IT (y, 0);
144 pcg 1.7 if (bgpixmap->x != x)
145     {
146     bgpixmap->x = x;
147     changed++;
148     }
149     if (bgpixmap->y != y)
150     {
151     bgpixmap->y = y;
152     changed++;
153     }
154 pcg 1.1 }
155 pcg 1.9 free (str);
156 pcg 1.7 return changed;
157 pcg 1.1 }
158    
159     void
160 pcg 1.5 rxvt_term::resize_pixmap ()
161 pcg 1.1 {
162 pcg 1.7 XGCValues gcvalue;
163     GC gc;
164 pcg 1.9 unsigned int width = TermWin_TotalWidth ();
165     unsigned int height = TermWin_TotalHeight ();
166 pcg 1.7
167     if (TermWin.pixmap != None)
168 pcg 1.9 XFreePixmap (display->display, TermWin.pixmap);
169 pcg 1.7
170     if (bgPixmap.pixmap == None)
171     { /* So be it: I'm not using pixmaps */
172     TermWin.pixmap = None;
173 pcg 1.9 if (! (Options & Opt_transparent) || am_transparent == 0)
174     XSetWindowBackground (display->display, TermWin.vt,
175 pcg 1.7 PixColors[Color_bg]);
176     return;
177 pcg 1.1 }
178    
179 pcg 1.7 gcvalue.foreground = PixColors[Color_bg];
180 pcg 1.9 gc = XCreateGC (display->display, TermWin.vt, GCForeground, &gcvalue);
181 pcg 1.1
182 pcg 1.7 if (bgPixmap.pixmap != None)
183     { /* we have a specified pixmap */
184     unsigned int w = bgPixmap.w, h = bgPixmap.h,
185     x = bgPixmap.x, y = bgPixmap.y;
186     unsigned int xpmh = xpmAttr.height,
187     xpmw = xpmAttr.width;
188    
189     /*
190     * don't zoom pixmap too much nor expand really small pixmaps
191     */
192     if (w > 1000 || h > 1000)
193     w = 1;
194     else if (width > (10 * xpmw)
195     || height > (10 * xpmh))
196     w = 0; /* tile */
197    
198     if (w == 0)
199     {
200     /* basic X tiling - let the X server do it */
201 pcg 1.9 TermWin.pixmap = XCreatePixmap (display->display, TermWin.vt,
202 pcg 1.7 xpmw, xpmh,
203     (unsigned int)XDEPTH);
204 pcg 1.9 XCopyArea (display->display, bgPixmap.pixmap, TermWin.pixmap, gc,
205 pcg 1.7 0, 0, xpmw, xpmh, 0, 0);
206     }
207     else
208     {
209     float incr, p;
210     Pixmap tmp;
211    
212 pcg 1.9 TermWin.pixmap = XCreatePixmap (display->display, TermWin.vt,
213 pcg 1.7 width, height,
214     (unsigned int)XDEPTH);
215     /*
216     * horizontal scaling
217     */
218 pcg 1.9 rxvt_pixmap_incr (&w, &x, &incr, &p, width, xpmw);
219 pcg 1.7
220 pcg 1.9 tmp = XCreatePixmap (display->display, TermWin.vt,
221 pcg 1.7 width, xpmh, (unsigned int)XDEPTH);
222 pcg 1.9 XFillRectangle (display->display, tmp, gc, 0, 0, width,
223 pcg 1.7 xpmh);
224    
225     for ( /*nil */ ; x < w; x++, p += incr)
226     {
227     if (p >= xpmw)
228     p = 0;
229     /* copy one column from the original pixmap to the tmp pixmap */
230 pcg 1.9 XCopyArea (display->display, bgPixmap.pixmap, tmp, gc,
231 pcg 1.7 (int)p, 0, 1, xpmh, (int)x, 0);
232     }
233    
234     /*
235     * vertical scaling
236     */
237 pcg 1.9 rxvt_pixmap_incr (&h, &y, &incr, &p, height, xpmh);
238 pcg 1.7
239     if (y > 0)
240 pcg 1.9 XFillRectangle (display->display, TermWin.pixmap, gc, 0, 0, width,
241 pcg 1.7 y);
242     if (h < height)
243 pcg 1.9 XFillRectangle (display->display, TermWin.pixmap, gc, 0, (int)h,
244 pcg 1.7 width, height - h + 1);
245     for ( /*nil */ ; y < h; y++, p += incr)
246     {
247     if (p >= xpmh)
248     p = 0;
249     /* copy one row from the tmp pixmap to the main pixmap */
250 pcg 1.9 XCopyArea (display->display, tmp, TermWin.pixmap, gc,
251 pcg 1.7 0, (int)p, width, 1, 0, (int)y);
252     }
253 pcg 1.9 XFreePixmap (display->display, tmp);
254 pcg 1.7 }
255 pcg 1.1 }
256 pcg 1.9 XSetWindowBackgroundPixmap (display->display, TermWin.vt, TermWin.pixmap);
257     XFreeGC (display->display, gc);
258 pcg 1.7 am_transparent = 0;
259 pcg 1.1
260 pcg 1.9 XClearWindow (display->display, TermWin.vt);
261 pcg 1.1
262 pcg 1.9 XSync (display->display, False);
263 pcg 1.1 }
264    
265     /*
266     * Calculate tiling sizes and increments
267     * At start, p == 0, incr == xpmwidthheight
268     */
269 pcg 1.6 /* INTPROTO */
270     static void
271 pcg 1.9 rxvt_pixmap_incr (unsigned int *wh, unsigned int *xy, float *incr, float *p, unsigned int widthheight, unsigned int xpmwidthheight)
272 pcg 1.1 {
273 pcg 1.7 unsigned int cwh, cxy;
274     float cincr, cp;
275 pcg 1.1
276 pcg 1.7 cp = 0;
277     cincr = (float)xpmwidthheight;
278     cxy = *xy;
279     cwh = *wh;
280     if (cwh == 1)
281     { /* display one image, no horizontal/vertical scaling */
282     cincr = (float)widthheight;
283     if (xpmwidthheight <= widthheight)
284     {
285     cwh = xpmwidthheight;
286     cxy = (cxy * (widthheight - cwh)) / 100; /* beware! order */
287     cwh += cxy;
288     }
289     else
290     {
291     cxy = 0;
292     cwh = widthheight;
293     }
294 pcg 1.1 }
295 pcg 1.7 else if (cwh < 10)
296     { /* fit WH images across/down screen */
297     cincr *= cwh;
298     cxy = 0;
299     cwh = widthheight;
300     }
301     else
302     {
303     cincr *= 100.0 / cwh;
304     if (cwh < 100)
305     { /* contract */
306     float pos;
307    
308     cwh = (cwh * widthheight) / 100;
309     pos = (float)cxy / 100 * widthheight - (cwh / 2);
310    
311     cxy = (widthheight - cwh);
312     if (pos <= 0)
313     cxy = 0;
314     else if (pos < cxy)
315     cxy = (int) pos;
316     cwh += cxy;
317     }
318     else
319     { /* expand */
320     if (cxy > 0)
321     { /* position */
322     float pos;
323    
324     pos = (float)cxy / 100 * xpmwidthheight - (cincr / 2);
325     cp = xpmwidthheight - cincr;
326     if (pos <= 0)
327     cp = 0;
328     else if (pos < cp)
329     cp = pos;
330     }
331     cxy = 0;
332     cwh = widthheight;
333     }
334     }
335     cincr /= widthheight;
336     *wh = cwh;
337     *xy = cxy;
338     *incr = cincr;
339     *p = cp;
340 pcg 1.1 }
341    
342     Pixmap
343 pcg 1.5 rxvt_term::set_bgPixmap (const char *file)
344 pcg 1.1 {
345 pcg 1.7 char *f;
346 pcg 1.1
347 pcg 1.9 assert (file != NULL);
348 pcg 1.1
349 pcg 1.7 if (bgPixmap.pixmap != None)
350     {
351 pcg 1.9 XFreePixmap (display->display, bgPixmap.pixmap);
352 pcg 1.7 bgPixmap.pixmap = None;
353 pcg 1.1 }
354 pcg 1.9 XSetWindowBackground (display->display, TermWin.vt, PixColors[Color_bg]);
355 pcg 1.1
356 pcg 1.7 if (*file != '\0')
357     {
358     /* XWindowAttributes attr; */
359    
360     /*
361     * we already have the required attributes
362     */
363 pcg 1.9 /* XGetWindowAttributes (display->display, TermWin.vt, &attr); */
364 pcg 1.7
365     xpmAttr.closeness = 30000;
366     xpmAttr.colormap = XCMAP;
367     xpmAttr.visual = XVISUAL;
368     xpmAttr.depth = XDEPTH;
369     xpmAttr.valuemask = (XpmCloseness | XpmColormap | XpmVisual |
370     XpmDepth | XpmSize | XpmReturnPixels);
371    
372     /* search environment variables here too */
373 pcg 1.9 f = (char *)rxvt_File_find (file, ".xpm", rs[Rs_path]);
374 pcg 1.7 if (f == NULL
375 pcg 1.9 || XpmReadFileToPixmap (display->display, display->root, f,
376 pcg 1.7 &bgPixmap.pixmap, NULL,
377     &xpmAttr))
378     {
379 pcg 1.10 char *p;
380 pcg 1.7
381     /* semi-colon delimited */
382 pcg 1.9 if ((p = STRCHR (file, ';')) == NULL)
383     p = STRCHR (file, '\0');
384 pcg 1.7
385 pcg 1.10 rxvt_warn ("couldn't load XPM file \"%.*s\", ignoring.", (p - file), file);
386 pcg 1.7 }
387 pcg 1.10
388 pcg 1.9 free (f);
389 pcg 1.1 }
390 pcg 1.10
391 pcg 1.7 resize_pixmap ();
392     return bgPixmap.pixmap;
393 pcg 1.1 }
394    
395     #endif /* XPM_BACKGROUND */