rxvt-unicode/src/xpm.C

/*--------------------------------*-C-*---------------------------------*
 * File:        xpm.C
 *----------------------------------------------------------------------*
 *
 * All portions of code are copyright by their respective author/s.
 * Copyright (c) 1997      Carsten Haitzler <raster@zip.com.au>
 * Copyright (c) 1997,1998 Oezguer Kesim <kesim@math.fu-berlin.de>
 * Copyright (c) 1998-2001 Geoff Wing <gcw@pobox.com>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *---------------------------------------------------------------------*/

#include "../config.h"          /* NECESSARY */
#include "rxvt.h"               /* NECESSARY */

#ifdef XPM_BACKGROUND

static void      rxvt_pixmap_incr                 (unsigned int *wh, unsigned int *xy, float *incr, float *p, unsigned int widthheight, unsigned int xpmwidthheight);

/*
 * These GEOM strings indicate absolute size/position:
 * @ `WxH+X+Y'
 * @ `WxH+X'    -> Y = X
 * @ `WxH'      -> Y = X = 50
 * @ `W+X+Y'    -> H = W
 * @ `W+X'      -> H = W, Y = X
 * @ `W'        -> H = W, X = Y = 50
 * @ `0xH'      -> H *= H/100, X = Y = 50 (W unchanged)
 * @ `Wx0'      -> W *= W/100, X = Y = 50 (H unchanged)
 * @ `=+X+Y'    -> (H, W unchanged)
 * @ `=+X'      -> Y = X (H, W unchanged)
 *
 * These GEOM strings adjust position relative to current position:
 * @ `+X+Y'
 * @ `+X'       -> Y = X
 *
 * And this GEOM string is for querying current scale/position:
 * @ `?'
 */
int
rxvt_term::scale_pixmap (const char *geom)
{
  int             flags, changed = 0;
  int             x = 0, y = 0;
  unsigned int    w = 0, h = 0;
  unsigned int    n;
  char           *p, *str;
  bgPixmap_t     *bgpixmap = & (bgPixmap);

#define MAXLEN_GEOM             sizeof("[1000x1000+1000+1000]")

  if (geom == NULL)
    return 0;
  str = (char *)rxvt_malloc (MAXLEN_GEOM + 1);
  if (!strcmp (geom, "?"))
    {
      sprintf (str, "[%dx%d+%d+%d]",    /* can't presume snprintf () ! */
              min (bgpixmap->w, 9999), min (bgpixmap->h, 9999),
              min (bgpixmap->x, 9999), min (bgpixmap->y, 9999));
      process_xterm_seq (XTerm_title, str, CHAR_ST);
      free (str);
      return 0;
    }

  if ((p = strchr (geom, ';')) == NULL)
    p = strchr (geom, '\0');
  n = (p - geom);
  if (n <= MAXLEN_GEOM)
    {
      strncpy (str, geom, n);
      str[n] = '\0';

      flags = XParseGeometry (str, &x, &y, &w, &h);
      if (!flags)
        {
          flags |= WidthValue;
          w = 0;
        }                       /* default is tile */
      if (flags & WidthValue)
        {
          if (! (flags & XValue))
            x = 50;
          if (! (flags & HeightValue))
            h = w;
          if (w && !h)
            {
              w = (bgpixmap->w * w) / 100;
              h = bgpixmap->h;
            }
          else if (h && !w)
            {
              w = bgpixmap->w;
              h = (bgpixmap->h * h) / 100;
            }
          if (w > 1000)
            w = 1000;
          if (h > 1000)
            h = 1000;
          if (bgpixmap->w != (short)w)
            {
              bgpixmap->w = (short)w;
              changed++;
            }
          if (bgpixmap->h != (short)h)
            {
              bgpixmap->h = (short)h;
              changed++;
            }
        }
      if (! (flags & YValue))
        {
          if (flags & XNegative)
            flags |= YNegative;
          y = x;
        }

      if (! (flags & WidthValue) && geom[0] != '=')
        {
          x += bgpixmap->x;
          y += bgpixmap->y;
        }
      else
        {
          if (flags & XNegative)
            x += 100;
          if (flags & YNegative)
            y += 100;
        }
      min_it (x, 100);
      min_it (y, 100);
      max_it (x, 0);
      max_it (y, 0);
      if (bgpixmap->x != x)
        {
          bgpixmap->x = x;
          changed++;
        }
      if (bgpixmap->y != y)
        {
          bgpixmap->y = y;
          changed++;
        }
    }
  free (str);
  return changed;
}

void
rxvt_term::resize_pixmap ()
{
  XGCValues gcvalue;
  GC gc;
  dDisp;

  if (pixmap != None)
    XFreePixmap (disp, pixmap);

  if (bgPixmap.pixmap == None)
    { /* So be it: I'm not using pixmaps */
      pixmap = None;

      if (!OPTION (Opt_transparent) || !am_transparent)
        XSetWindowBackground (disp, vt, pix_colors[Color_bg]);

      return;
    }

  gcvalue.foreground = pix_colors[Color_bg];
  gc = XCreateGC (disp, vt, GCForeground, &gcvalue);

  if (bgPixmap.pixmap != None)
    {   /* we have a specified pixmap */
      unsigned int    w = bgPixmap.w, h = bgPixmap.h,
                      x = bgPixmap.x, y = bgPixmap.y;
      unsigned int    xpmh = xpmAttr.height,
                      xpmw = xpmAttr.width;

      /*
       * don't zoom pixmap too much nor expand really small pixmaps
       */
      if (w > 1000 || h > 1000)
        w = 1;
      else if (width > (10 * xpmw)
               || height > (10 * xpmh))
        w = 0;          /* tile */

      if (w == 0)
        {
          /* basic X tiling - let the X server do it */
          pixmap = XCreatePixmap (disp, vt, xpmw, xpmh,
                                  (unsigned int)display->depth);
          XCopyArea (disp, bgPixmap.pixmap, pixmap, gc,
                     0, 0, xpmw, xpmh, 0, 0);
        }
      else
        {
          float incr, p;
          Pixmap tmp;

          pixmap = XCreatePixmap (disp, vt, width, height,
                                  (unsigned int)display->depth);
          /*
           * horizontal scaling
           */
          rxvt_pixmap_incr (&w, &x, &incr, &p, width, xpmw);

          tmp = XCreatePixmap (disp, vt, width, xpmh, (unsigned int)display->depth);
          XFillRectangle (disp, tmp, gc, 0, 0, width, xpmh);

          for ( /*nil */ ; x < w; x++, p += incr)
            {
              if (p >= xpmw)
                p = 0;
              /* copy one column from the original pixmap to the tmp pixmap */
              XCopyArea (disp, bgPixmap.pixmap, tmp, gc,
                        (int)p, 0, 1, xpmh, (int)x, 0);
            }

          /*
           * vertical scaling
           */
          rxvt_pixmap_incr (&h, &y, &incr, &p, height, xpmh);

          if (y > 0)
            XFillRectangle (disp, pixmap, gc, 0, 0, width, y);

          if (h < height)
            XFillRectangle (disp, pixmap, gc, 0, (int)h, width, height - h + 1);

          for ( /*nil */ ; y < h; y++, p += incr)
            {
              if (p >= xpmh)
                p = 0;

              /* copy one row from the tmp pixmap to the main pixmap */
              XCopyArea (disp, tmp, pixmap, gc,
                        0, (int)p, width, 1, 0, (int)y);
            }

          XFreePixmap (disp, tmp);
        }
    }

  XSetWindowBackgroundPixmap (disp, vt, pixmap);
  XFreeGC (disp, gc);
  am_transparent = 0;
}

/*
 * Calculate tiling sizes and increments
 * At start, p == 0, incr == xpmwidthheight
 */
static void
rxvt_pixmap_incr (unsigned int *wh, unsigned int *xy, float *incr, float *p, unsigned int widthheight, unsigned int xpmwidthheight)
{
  unsigned int    cwh, cxy;
  float           cincr, cp;

  cp = 0;
  cincr = (float)xpmwidthheight;
  cxy = *xy;
  cwh = *wh;
  if (cwh == 1)
    {   /* display one image, no horizontal/vertical scaling */
      cincr = (float)widthheight;
      if (xpmwidthheight <= widthheight)
        {
          cwh = xpmwidthheight;
          cxy = (cxy * (widthheight - cwh)) / 100;      /* beware! order */
          cwh += cxy;
        }
      else
        {
          cxy = 0;
          cwh = widthheight;
        }
    }
  else if (cwh < 10)
    {   /* fit WH images across/down screen */
      cincr *= cwh;
      cxy = 0;
      cwh = widthheight;
    }
  else
    {
      cincr *= 100.0 / cwh;
      if (cwh < 100)
        {       /* contract */
          float           pos;

          cwh = (cwh * widthheight) / 100;
          pos = (float)cxy / 100 * widthheight - (cwh / 2);

          cxy = (widthheight - cwh);
          if (pos <= 0)
            cxy = 0;
          else if (pos < cxy)
            cxy = (int) pos;
          cwh += cxy;
        }
      else
        {       /* expand */
          if (cxy > 0)
            {   /* position */
              float           pos;

              pos = (float)cxy / 100 * xpmwidthheight - (cincr / 2);
              cp = xpmwidthheight - cincr;
              if (pos <= 0)
                cp = 0;
              else if (pos < cp)
                cp = pos;
            }
          cxy = 0;
          cwh = widthheight;
        }
    }
  cincr /= widthheight;
  *wh = cwh;
  *xy = cxy;
  *incr = cincr;
  *p = cp;
}

Pixmap
rxvt_term::set_bgPixmap (const char *file)
{
  char *f;

  assert (file != NULL);

  if (bgPixmap.pixmap != None)
    {
      XFreePixmap (display->display, bgPixmap.pixmap);
      bgPixmap.pixmap = None;
    }

  XSetWindowBackground (display->display, vt, pix_colors[Color_bg]);

  if (*file != '\0')
    {
      /*      XWindowAttributes attr; */

      /*
       * we already have the required attributes
       */
      /*      XGetWindowAttributes (display->display, vt, &attr); */

      xpmAttr.closeness = 30000;
      xpmAttr.colormap = display->cmap;
      xpmAttr.visual = display->visual;
      xpmAttr.depth = display->depth;
      xpmAttr.valuemask = (XpmCloseness | XpmColormap | XpmVisual |
                           XpmDepth | XpmSize | XpmReturnPixels);

      /* search environment variables here too */
      f = (char *)rxvt_File_find (file, ".xpm", rs[Rs_path]);
      if (f == NULL
          || XpmReadFileToPixmap (display->display, display->root, f,
                                 &bgPixmap.pixmap, NULL,
                                 &xpmAttr))
        {
          char *p;

          /* semi-colon delimited */
          if ((p = strchr (file, ';')) == NULL)
            p = strchr (file, '\0');

          rxvt_warn ("couldn't load XPM file \"%.*s\", ignoring.\n", (p - file), file);
        }

      free (f);
    }

  resize_pixmap ();
  return bgPixmap.pixmap;
}

#endif                          /* XPM_BACKGROUND */
Revision:	1.27
Committed:	Wed Jan 4 04:42:45 2006 UTC (18 years, 4 months ago) by root
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rel-7_0, rel-6_3
Changes since 1.26:	+12 -19 lines
Log Message:	* empty log message *
#	Content
1	/---------------------------------C----------------------------------
2	* File: xpm.C
3	----------------------------------------------------------------------
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
28	#ifdef XPM_BACKGROUND
29
30	static void rxvt_pixmap_incr (unsigned int wh, unsigned int xy, float incr, float p, unsigned int widthheight, unsigned int xpmwidthheight);
31
32	/*
33	* These GEOM strings indicate absolute size/position:
34	* @ `WxH+X+Y'
35	* @ `WxH+X' -> Y = X
36	* @ `WxH' -> Y = X = 50
37	* @ `W+X+Y' -> H = W
38	* @ `W+X' -> H = W, Y = X
39	* @ `W' -> H = W, X = Y = 50
40	* @ `0xH' -> H *= H/100, X = Y = 50 (W unchanged)
41	* @ `Wx0' -> W *= W/100, X = Y = 50 (H unchanged)
42	* @ `=+X+Y' -> (H, W unchanged)
43	* @ `=+X' -> Y = X (H, W unchanged)
44	*
45	* These GEOM strings adjust position relative to current position:
46	* @ `+X+Y'
47	* @ `+X' -> Y = X
48	*
49	* And this GEOM string is for querying current scale/position:
50	* @ `?'
51	*/
52	int
53	rxvt_term::scale_pixmap (const char *geom)
54	{
55	int flags, changed = 0;
56	int x = 0, y = 0;
57	unsigned int w = 0, h = 0;
58	unsigned int n;
59	char p, str;
60	bgPixmap_t *bgpixmap = & (bgPixmap);
61
62	#define MAXLEN_GEOM sizeof("[1000x1000+1000+1000]")
63
64	if (geom == NULL)
65	return 0;
66	str = (char *)rxvt_malloc (MAXLEN_GEOM + 1);
67	if (!strcmp (geom, "?"))
68	{
69	sprintf (str, "[%dx%d+%d+%d]", /* can't presume snprintf () ! */
70	min (bgpixmap->w, 9999), min (bgpixmap->h, 9999),
71	min (bgpixmap->x, 9999), min (bgpixmap->y, 9999));
72	process_xterm_seq (XTerm_title, str, CHAR_ST);
73	free (str);
74	return 0;
75	}
76
77	if ((p = strchr (geom, ';')) == NULL)
78	p = strchr (geom, '\0');
79	n = (p - geom);
80	if (n <= MAXLEN_GEOM)
81	{
82	strncpy (str, geom, n);
83	str[n] = '\0';
84
85	flags = XParseGeometry (str, &x, &y, &w, &h);
86	if (!flags)
87	{
88	flags \|= WidthValue;
89	w = 0;
90	} /* default is tile */
91	if (flags & WidthValue)
92	{
93	if (! (flags & XValue))
94	x = 50;
95	if (! (flags & HeightValue))
96	h = w;
97	if (w && !h)
98	{
99	w = (bgpixmap->w * w) / 100;
100	h = bgpixmap->h;
101	}
102	else if (h && !w)
103	{
104	w = bgpixmap->w;
105	h = (bgpixmap->h * h) / 100;
106	}
107	if (w > 1000)
108	w = 1000;
109	if (h > 1000)
110	h = 1000;
111	if (bgpixmap->w != (short)w)
112	{
113	bgpixmap->w = (short)w;
114	changed++;
115	}
116	if (bgpixmap->h != (short)h)
117	{
118	bgpixmap->h = (short)h;
119	changed++;
120	}
121	}
122	if (! (flags & YValue))
123	{
124	if (flags & XNegative)
125	flags \|= YNegative;
126	y = x;
127	}
128
129	if (! (flags & WidthValue) && geom[0] != '=')
130	{
131	x += bgpixmap->x;
132	y += bgpixmap->y;
133	}
134	else
135	{
136	if (flags & XNegative)
137	x += 100;
138	if (flags & YNegative)
139	y += 100;
140	}
141	min_it (x, 100);
142	min_it (y, 100);
143	max_it (x, 0);
144	max_it (y, 0);
145	if (bgpixmap->x != x)
146	{
147	bgpixmap->x = x;
148	changed++;
149	}
150	if (bgpixmap->y != y)
151	{
152	bgpixmap->y = y;
153	changed++;
154	}
155	}
156	free (str);
157	return changed;
158	}
159
160	void
161	rxvt_term::resize_pixmap ()
162	{
163	XGCValues gcvalue;
164	GC gc;
165	dDisp;
166
167	if (pixmap != None)
168	XFreePixmap (disp, pixmap);
169
170	if (bgPixmap.pixmap == None)
171	{ /* So be it: I'm not using pixmaps */
172	pixmap = None;
173
174	if (!OPTION (Opt_transparent) \|\| !am_transparent)
175	XSetWindowBackground (disp, vt, pix_colors[Color_bg]);
176
177	return;
178	}
179
180	gcvalue.foreground = pix_colors[Color_bg];
181	gc = XCreateGC (disp, vt, GCForeground, &gcvalue);
182
183	if (bgPixmap.pixmap != None)
184	{ /* we have a specified pixmap */
185	unsigned int w = bgPixmap.w, h = bgPixmap.h,
186	x = bgPixmap.x, y = bgPixmap.y;
187	unsigned int xpmh = xpmAttr.height,
188	xpmw = xpmAttr.width;
189
190	/*
191	* don't zoom pixmap too much nor expand really small pixmaps
192	*/
193	if (w > 1000 \|\| h > 1000)
194	w = 1;
195	else if (width > (10 * xpmw)
196	\|\| height > (10 * xpmh))
197	w = 0; /* tile */
198
199	if (w == 0)
200	{
201	/* basic X tiling - let the X server do it */
202	pixmap = XCreatePixmap (disp, vt, xpmw, xpmh,
203	(unsigned int)display->depth);
204	XCopyArea (disp, bgPixmap.pixmap, pixmap, gc,
205	0, 0, xpmw, xpmh, 0, 0);
206	}
207	else
208	{
209	float incr, p;
210	Pixmap tmp;
211
212	pixmap = XCreatePixmap (disp, vt, width, height,
213	(unsigned int)display->depth);
214	/*
215	* horizontal scaling
216	*/
217	rxvt_pixmap_incr (&w, &x, &incr, &p, width, xpmw);
218
219	tmp = XCreatePixmap (disp, vt, width, xpmh, (unsigned int)display->depth);
220	XFillRectangle (disp, tmp, gc, 0, 0, width, xpmh);
221
222	for ( /nil / ; x < w; x++, p += incr)
223	{
224	if (p >= xpmw)
225	p = 0;
226	/* copy one column from the original pixmap to the tmp pixmap */
227	XCopyArea (disp, bgPixmap.pixmap, tmp, gc,
228	(int)p, 0, 1, xpmh, (int)x, 0);
229	}
230
231	/*
232	* vertical scaling
233	*/
234	rxvt_pixmap_incr (&h, &y, &incr, &p, height, xpmh);
235
236	if (y > 0)
237	XFillRectangle (disp, pixmap, gc, 0, 0, width, y);
238
239	if (h < height)
240	XFillRectangle (disp, pixmap, gc, 0, (int)h, width, height - h + 1);
241
242	for ( /nil / ; y < h; y++, p += incr)
243	{
244	if (p >= xpmh)
245	p = 0;
246
247	/* copy one row from the tmp pixmap to the main pixmap */
248	XCopyArea (disp, tmp, pixmap, gc,
249	0, (int)p, width, 1, 0, (int)y);
250	}
251
252	XFreePixmap (disp, tmp);
253	}
254	}
255
256	XSetWindowBackgroundPixmap (disp, vt, pixmap);
257	XFreeGC (disp, gc);
258	am_transparent = 0;
259	}
260
261	/*
262	* Calculate tiling sizes and increments
263	* At start, p == 0, incr == xpmwidthheight
264	*/
265	static void
266	rxvt_pixmap_incr (unsigned int wh, unsigned int xy, float incr, float p, unsigned int widthheight, unsigned int xpmwidthheight)
267	{
268	unsigned int cwh, cxy;
269	float cincr, cp;
270
271	cp = 0;
272	cincr = (float)xpmwidthheight;
273	cxy = *xy;
274	cwh = *wh;
275	if (cwh == 1)
276	{ /* display one image, no horizontal/vertical scaling */
277	cincr = (float)widthheight;
278	if (xpmwidthheight <= widthheight)
279	{
280	cwh = xpmwidthheight;
281	cxy = (cxy * (widthheight - cwh)) / 100; /* beware! order */
282	cwh += cxy;
283	}
284	else
285	{
286	cxy = 0;
287	cwh = widthheight;
288	}
289	}
290	else if (cwh < 10)
291	{ /* fit WH images across/down screen */
292	cincr *= cwh;
293	cxy = 0;
294	cwh = widthheight;
295	}
296	else
297	{
298	cincr *= 100.0 / cwh;
299	if (cwh < 100)
300	{ /* contract */
301	float pos;
302
303	cwh = (cwh * widthheight) / 100;
304	pos = (float)cxy / 100 * widthheight - (cwh / 2);
305
306	cxy = (widthheight - cwh);
307	if (pos <= 0)
308	cxy = 0;
309	else if (pos < cxy)
310	cxy = (int) pos;
311	cwh += cxy;
312	}
313	else
314	{ /* expand */
315	if (cxy > 0)
316	{ /* position */
317	float pos;
318
319	pos = (float)cxy / 100 * xpmwidthheight - (cincr / 2);
320	cp = xpmwidthheight - cincr;
321	if (pos <= 0)
322	cp = 0;
323	else if (pos < cp)
324	cp = pos;
325	}
326	cxy = 0;
327	cwh = widthheight;
328	}
329	}
330	cincr /= widthheight;
331	*wh = cwh;
332	*xy = cxy;
333	*incr = cincr;
334	*p = cp;
335	}
336
337	Pixmap
338	rxvt_term::set_bgPixmap (const char *file)
339	{
340	char *f;
341
342	assert (file != NULL);
343
344	if (bgPixmap.pixmap != None)
345	{
346	XFreePixmap (display->display, bgPixmap.pixmap);
347	bgPixmap.pixmap = None;
348	}
349
350	XSetWindowBackground (display->display, vt, pix_colors[Color_bg]);
351
352	if (*file != '\0')
353	{
354	/* XWindowAttributes attr; */
355
356	/*
357	* we already have the required attributes
358	*/
359	/* XGetWindowAttributes (display->display, vt, &attr); */
360
361	xpmAttr.closeness = 30000;
362	xpmAttr.colormap = display->cmap;
363	xpmAttr.visual = display->visual;
364	xpmAttr.depth = display->depth;
365	xpmAttr.valuemask = (XpmCloseness \| XpmColormap \| XpmVisual \|
366	XpmDepth \| XpmSize \| XpmReturnPixels);
367
368	/* search environment variables here too */
369	f = (char *)rxvt_File_find (file, ".xpm", rs[Rs_path]);
370	if (f == NULL
371	\|\| XpmReadFileToPixmap (display->display, display->root, f,
372	&bgPixmap.pixmap, NULL,
373	&xpmAttr))
374	{
375	char *p;
376
377	/* semi-colon delimited */
378	if ((p = strchr (file, ';')) == NULL)
379	p = strchr (file, '\0');
380
381	rxvt_warn ("couldn't load XPM file \"%.*s\", ignoring.\n", (p - file), file);
382	}
383
384	free (f);
385	}
386
387	resize_pixmap ();
388	return bgPixmap.pixmap;
389	}
390
391	#endif /* XPM_BACKGROUND */