home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume2 / xsetroot / patch1 next >
Text File  |  1988-12-06  |  10KB  |  344 lines
  1. Path: uunet!wyse!mikew
  2. From: mikew@wyse.wyse.com (Mike Wexler)
  3. Newsgroups: comp.sources.x
  4. Subject: v02i034:  set the root background, Patch1
  5. Message-ID: <1882@wyse.wyse.com>
  6. Date: 6 Dec 88 23:24:28 GMT
  7. Organization: Wyse Technology, San Jose
  8. Lines: 333
  9. Approved: mikew@wyse.com
  10.  
  11. Submitted-by: Bob Sutterfield <bob@cis.ohio-state.edu>
  12. Posting-number: Volume 2, Issue 34
  13. Archive-name: xsetroot/patch1
  14.  
  15.  
  16.  
  17. Long ago, Mark Baushke (mdb@silvlis.com) posted changes for the X11R2
  18. xsetroot so that it could use Sun rasterfile format bitmaps as its
  19. input.  I simply merged those changes back into the X11R3 xsetroot.    --Bob
  20.  
  21. diff -rc2 X.V11R3/clients/xsetroot/xsetroot.c.dist X.V11R3/clients/xsetroot/xsetroot.c
  22. *** X.V11R3/clients/xsetroot/xsetroot.c.dist    Tue Nov 29 23:29:55 1988
  23. --- X.V11R3/clients/xsetroot/xsetroot.c    Wed Nov 30 00:22:17 1988
  24. ***************
  25. *** 7,10 ****
  26. --- 7,14 ----
  27.   #include "X11/bitmaps/gray"
  28.   
  29. + #ifdef sun
  30. + #include <pixrect/pixrect_hs.h>
  31. + #endif /* sun */
  32. + 
  33.   /*
  34.    * xsetroot.c     MIT Project Athena, X Window system root window 
  35. ***************
  36. *** 14,17 ****
  37. --- 18,26 ----
  38.    *  Author:    Mark Lillibridge, MIT Project Athena
  39.    *        11-Jun-87
  40. +  *  Modified: Mark Baushke <mdb@silvlis.com>, to add -rast option
  41. +  *            2-Jun-88
  42. +  *            Bob Sutterfield <bob@cis.ohio-state.edu>, re-merged
  43. +  *            mdb's -rast changes into X11R3.
  44. +  *            30-Nov-88
  45.    */
  46.   
  47. ***************
  48. *** 46,49 ****
  49. --- 55,59 ----
  50.       fprintf(stderr, "  -gray   or   -grey\n");
  51.       fprintf(stderr, "  -bitmap <filename>\n");
  52. +     fprintf(stderr, "  -rast <filename>\n");
  53.       fprintf(stderr, "  -mod <x> <y>\n");
  54.       exit(1);
  55. ***************
  56. *** 52,55 ****
  57. --- 62,68 ----
  58.   
  59.   Pixmap MakeModulaBitmap(), ReadBitmapFile();
  60. + #ifdef sun
  61. + Pixmap  ReadSunRasterFile(), XCreateBitmapFromSunPixrectData();
  62. + #endif /* sun */
  63.   XColor NameToXColor();
  64.   unsigned long NameToPixel();
  65. ***************
  66. *** 70,73 ****
  67. --- 83,89 ----
  68.       int gray = 0;
  69.       char *bitmap_file = NULL;
  70. + #ifdef sun
  71. +     char *rast_file = NULL;
  72. + #endif /* sun */
  73.       int mod_x = 0;
  74.       int mod_y = 0;
  75. ***************
  76. *** 132,135 ****
  77. --- 148,164 ----
  78.           continue;
  79.       }
  80. +     if (!strcmp("-rast", argv[i])) {
  81. + #ifdef sun
  82. +          if (++i>=argc) usage();
  83. +          rast_file = argv[i];
  84. +          excl++;
  85. +          continue;
  86. + #else /* sun */
  87. +          fprintf(stderr, "%s: "-rast" option not implemented.\n",
  88. +              program_name);
  89. +          if (++i>=argc) usage();
  90. +          continue;
  91. + #endif /* sun */
  92. +     }
  93.       if (!strcmp("-mod", argv[i])) {
  94.           if (++i>=argc) usage();
  95. ***************
  96. *** 151,157 ****
  97.       /* Check for multiple use of exclusive options */
  98.       if (excl > 1) {
  99. !     fprintf(stderr, "%s: choose only one of {solid, gray, bitmap, mod}\n",
  100. !         program_name);
  101. !     usage();
  102.       }
  103.   
  104. --- 180,192 ----
  105.       /* Check for multiple use of exclusive options */
  106.       if (excl > 1) {
  107. ! #ifdef sun
  108. !      fprintf(stderr,
  109. !          "%s: choose only one of {solid, gray, bitmap, rast, mod}\n",
  110. !          program_name);
  111. ! #else /* sun */
  112. !      fprintf(stderr, "%s: choose only one of {solid, gray, bitmap, mod}\n",
  113. !          program_name);
  114. ! #endif /* sun */
  115. !      usage();
  116.       }
  117.   
  118. ***************
  119. *** 196,200 ****
  120.       SetBackgroundToBitmap(bitmap, ww, hh);
  121.       }
  122. !   
  123.       /* Handle set background to a modula pattern */
  124.       if (mod_x) {
  125. --- 231,243 ----
  126.       SetBackgroundToBitmap(bitmap, ww, hh);
  127.       }
  128. ! 
  129. ! #ifdef sun
  130. !     /* Handle -rast option */
  131. !     if (rast_file) {
  132. !      bitmap = ReadSunRasterFile(rast_file, &ww, &hh);
  133. !      SetBackgroundToBitmap(bitmap, ww, hh);
  134. !     }
  135. ! #endif /* sun */
  136. ! 
  137.       /* Handle set background to a modula pattern */
  138.       if (mod_x) {
  139. ***************
  140. *** 441,442 ****
  141. --- 484,618 ----
  142.       /*NOTREACHED*/
  143.   }
  144. + 
  145. + #ifdef sun
  146. + char *malloc();
  147. + 
  148. + Pixmap ReadSunRasterFile(filename, width, height)
  149. +     char *filename;
  150. +     unsigned int *width, *height;
  151. + {
  152. +     Pixmap bitmap;
  153. +     int status;
  154. +     int rows, cols, linebytes;
  155. +     short *data;
  156. +     FILE *file;
  157. +     struct rasterfile header;
  158. +     struct pixrect *pr, *pr_load_image();
  159. +     int firsttime, value, i, data_length;
  160. +     
  161. +     file = fopen(filename, "r");
  162. +     if (file == NULL) {
  163. +     fprintf(stderr, "%s: can't open file: %s\n", program_name,
  164. +         filename);
  165. +     exit(1);
  166. +     }
  167. + 
  168. +     cols = rows = -1;
  169. + 
  170. +     /* Get the raster file's header. */
  171. +     if (pr_load_header(file, &header) != 0) {
  172. +     fprintf(stderr, "%s: Unable to read in raster file header.\n",
  173. +         filename);
  174. +     exit(1);
  175. +     }
  176. + 
  177. +     /* can only handle monochrome bitmaps. */
  178. +     if (header.ras_depth != 1) {
  179. +     fprintf(stderr, "%s: Invalid depth.\n", filename);
  180. +     exit(1);
  181. +     }
  182. + 
  183. +     cols = header.ras_width;
  184. +     rows = header.ras_height;
  185. +     if (cols <= 0) {
  186. +     fprintf(stderr, "%s: Invalid width: %d.\n", filename, cols);
  187. +     exit(1);
  188. +     }
  189. +     
  190. +     if (rows <= 0) {
  191. +     fprintf(stderr, "%s: Invalid height: %d.\n", filename, rows);
  192. +     exit(1);
  193. +     }
  194. + 
  195. +     /* If there is a color map, skip over it. */
  196. +     if (header.ras_maptype != RMT_NONE && header.ras_maplength != 0) {
  197. +     if (pr_load_colormap(file, &header, NULL) != 0) {
  198. +         fprintf(stderr, "%s: Unable to skip colormap data.\n", filename);
  199. +         exit(1);
  200. +     }
  201. +     }
  202. + 
  203. +     /* Now load the data.  The pixrect returned is a memory pixrect. */
  204. +     if ((pr = pr_load_image(file, &header, NULL)) == NULL) {
  205. +     fprintf(stderr,
  206. +         "Unable to read in the image from the raster file: %s.\n",
  207. +         filename);
  208. +     exit(1);
  209. +     }
  210. +     fclose(file);
  211. + 
  212. +     linebytes = ((struct mpr_data *)pr->pr_data)->md_linebytes;
  213. +     data = ((struct mpr_data *)pr->pr_data)->md_image;
  214. + 
  215. +     *width = cols;
  216. +     *height = rows;
  217. +     bitmap = XCreateBitmapFromSunPixrectData(dpy, root, (char *) data,
  218. +                         *width, *height, linebytes);
  219. +     if (!bitmap) {
  220. +     fprintf(stderr, "%s: insufficient memory for bitmap: %s",
  221. +         program_name, filename);
  222. +     exit(1);
  223. +     }
  224. +     return(bitmap);
  225. + }
  226. + 
  227. + 
  228. + /*
  229. +  * XCreateBitmapFromSunPixrectData: Routine to make a pixmap of depth 1 from user supplied data.
  230. +  *             D is any drawable on the same screen that the pixmap will be used in.
  231. +  *             Data is a pointer to the bit data, and 
  232. +  *             width & height give the size in bits of the pixmap.
  233. +  *
  234. +  * The following format is assumed for data:
  235. +  *
  236. +  *    format=XYPixmap
  237. +  *    bit_order=MSBFirst
  238. +  *    byte_order=MSBFirst
  239. +  *    padding=8
  240. +  *    bitmap_unit=8
  241. +  *    xoffset=0
  242. +  *    rows are rounded up to 16-bit boundaries
  243. +  */  
  244. + Pixmap XCreateBitmapFromSunPixrectData(display, d, data, width,
  245. +                        height, linebytes)
  246. +      Display *display;
  247. +      Drawable d;
  248. +      char *data;
  249. +      unsigned int width, height;
  250. +      int linebytes;
  251. + {
  252. +     XImage ximage;
  253. +     GC gc;
  254. +     Pixmap pix;
  255. + 
  256. +     pix = XCreatePixmap(display, d, width, height, 1);
  257. +     if (!pix)
  258. +       return(0);
  259. +     gc = XCreateGC(display, pix, (unsigned long)0, (XGCValues *)0);
  260. +     ximage.height = height;
  261. +     ximage.width = width;
  262. +     ximage.depth = 1;
  263. +     ximage.xoffset = 0;
  264. +     ximage.format = XYPixmap;
  265. +     ximage.data = data;
  266. +     ximage.byte_order = MSBFirst;
  267. +     ximage.bitmap_unit = 8;
  268. +     ximage.bitmap_bit_order = MSBFirst;
  269. +     ximage.bitmap_pad = 8;
  270. +     ximage.bytes_per_line = (linebytes == 0) ? (((width+15)>>3) & ~1) : linebytes; 
  271. +     
  272. +     XPutImage(display, pix, gc, &ximage, 0, 0, 0, 0, width, height);
  273. +     XFreeGC(display, gc);
  274. +     return(pix);
  275. + }
  276. + #endif /* sun */
  277.  
  278. diff -rc2 X.V11R3/clients/xsetroot/xsetroot.man.dist X.V11R3/clients/xsetroot/xsetroot.man
  279. *** X.V11R3/clients/xsetroot/xsetroot.man.dist    Tue Nov 29 23:30:08 1988
  280. --- X.V11R3/clients/xsetroot/xsetroot.man    Wed Nov 30 00:04:43 1988
  281. ***************
  282. *** 6,9 ****
  283. --- 6,10 ----
  284.   [-help] [-def] [-display \fIdisplay\fP]
  285.   [-cursor \fIcursorfile maskfile\fP] [-bitmap \fIfilename\fP]
  286. + [-rast \fIfilename\fP]
  287.   [-mod \fIx y\fP] [-gray] [-grey] [-fg \fIcolor\fP] [-bg \fIcolor\fP] [-rv]
  288.   [-solid \fIcolor\fP] [-name \fIstring\fP]
  289. ***************
  290. *** 26,30 ****
  291.   .PP
  292.   Only one of the background color/tiling changing options 
  293. ! (-solid, -gray, -grey, -bitmap, and -mod) may be specified at a time.
  294.   .SH OPTIONS
  295.   .PP
  296. --- 27,31 ----
  297.   .PP
  298.   Only one of the background color/tiling changing options 
  299. ! (-solid, -gray, -grey, -bitmap, -rast, and -mod) may be specified at a time.
  300.   .SH OPTIONS
  301.   .PP
  302. ***************
  303. *** 48,51 ****
  304. --- 49,58 ----
  305.   program.  The entire background will be made up of repeated "tiles" of
  306.   the bitmap.
  307. + .IP "\fB-rast\fP \fIfilename\fP"
  308. + Use the sun raster file specified in the file to set the window
  309. + pattern.  You can make your own sun raster files (little pictures) using the
  310. + .I screendump(1)
  311. + program.  The entire background will be made up of repeated "tiles" of
  312. + the raster file.
  313.   .IP "\fB-mod\fP \fIx\fP \fIy\fP"
  314.   This is used if you want a plaid-like grid pattern on your screen.
  315. ***************
  316. *** 74,78 ****
  317.   Specifies the server to connect to; see \fIX(1)\fP.
  318.   .SH "SEE ALSO"
  319. ! X(1), xset(1), xrdb(1)
  320.   .SH COPYRIGHT
  321.   Copyright 1988, Massachusetts Institute of Technology.
  322. --- 81,85 ----
  323.   Specifies the server to connect to; see \fIX(1)\fP.
  324.   .SH "SEE ALSO"
  325. ! X(1), xset(1), xrdb(1), screendump(1), screenload(1)
  326.   .SH COPYRIGHT
  327.   Copyright 1988, Massachusetts Institute of Technology.
  328.  
  329. diff -rc2 X.V11R3/clients/xsetroot/Imakefile.dist X.V11R3/clients/xsetroot/Imakefile
  330. *** X.V11R3/clients/xsetroot/Imakefile.dist    Tue Nov 29 23:46:29 1988
  331. --- X.V11R3/clients/xsetroot/Imakefile    Tue Nov 29 23:47:15 1988
  332. ***************
  333. *** 1,3 ****
  334. ! LOCAL_LIBRARIES = $(XLIB)
  335.              SRCS = xsetroot.c
  336.              OBJS = xsetroot.o
  337. --- 1,3 ----
  338. ! LOCAL_LIBRARIES = $(XLIB) /usr/lib/libpixrect.a
  339.              SRCS = xsetroot.c
  340.              OBJS = xsetroot.o
  341. -- 
  342. Mike Wexler(wyse!mikew)    Phone: (408)433-1000 x1330
  343. Moderator of comp.sources.x
  344.