home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / x / volume18 / xgrabsc2 / part02 < prev    next >
Encoding:
Internet Message Format  |  1992-07-22  |  50.2 KB
  1. Path: uunet!ogicse!hp-cv!sdd.hp.com!mips!msi!dcmartin
  2. From: bruce@SLC.COM (Bruce Schuchardt)
  3. Newsgroups: comp.sources.x
  4. Subject: v18i053: xgrabsc v2.1 - grab screen dump, Part02/05
  5. Message-ID: <1992Jul23.140149.27003@msi.com>
  6. Date: 23 Jul 92 14:01:49 GMT
  7. Article-I.D.: msi.1992Jul23.140149.27003
  8. References: <csx-18i052-xgrabsc-2.1@uunet.UU.NET>
  9. Sender: dcmartin@msi.com (David C. Martin - Moderator)
  10. Organization: Molecular Simulations, Inc.
  11. Lines: 1669
  12. Approved: dcmartin@msi.com
  13. Originator: dcmartin@fascet
  14.  
  15. Submitted-by: bruce@SLC.COM (Bruce Schuchardt)
  16. Posting-number: Volume 18, Issue 53
  17. Archive-name: xgrabsc-2.1/part02
  18.  
  19. #!/bin/sh
  20. # this is part.02 (part 2 of a multipart archive)
  21. # do not concatenate these parts, unpack them in order with /bin/sh
  22. # file xgrabsc.man continued
  23. #
  24. if test ! -r _shar_seq_.tmp; then
  25.     echo 'Please unpack part 1 first!'
  26.     exit 1
  27. fi
  28. (read Scheck
  29.  if test "$Scheck" != 2; then
  30.     echo Please unpack part "$Scheck" next!
  31.     exit 1
  32.  else
  33.     exit 0
  34.  fi
  35. ) < _shar_seq_.tmp || exit 1
  36. if test ! -f _shar_wnt_.tmp; then
  37.     echo 'x - still skipping xgrabsc.man'
  38. else
  39. echo 'x - continuing file xgrabsc.man'
  40. sed 's/^X//' << 'SHAR_EOF' >> 'xgrabsc.man' &&
  41. xgrabsc is built.  Measurements are in inches (e.g., 8.5x11.0-0.5-0.5)
  42. .sp 3
  43. .\"
  44. .\"
  45. .\"
  46. .\"
  47. .\"
  48. .\"
  49. .\"
  50. .SH PROCESSING ORDER
  51. It is helpful to know the order of processing when multiple processing
  52. options are given on the command line.
  53. .PP
  54. Processing is done in five phases:  1) set up, 2) obtain image,
  55. 3) process colors, 4) poly->monochrome conversions, and 5) output conversion.
  56. .PP
  57. The set-up phase includes processing command-line options, sleeping,
  58. connecting to X-Windows, freezing the screen, and grabbing the mouse if
  59. necessary.
  60. .PP
  61. If the mouse is grabbed for rubber-banding, an upper-left-corner cursor is
  62. displayed until the left mouse button is pressed.  A lower-left-corner
  63. cursor is then displayed while drawing rubber-rectangles until the mouse
  64. button is released.
  65. .PP
  66. If the mouse is grabbed for xwd-style window selection, an xwd-style cursor
  67. is displayed until the left mouse button is pressed.
  68. .PP
  69. The mouse is then released.
  70. .PP
  71. The bell is then run and the image is pulled from the screen.
  72. .PP
  73. Following the image-grab, the bell is run twice and the screen is released.
  74. .PP
  75. If the image is not monochrome, the color manipulation functions are
  76. then applied in this order: brighten, AND, and OR, reverse.
  77. .PP
  78. Only one polychrome to monochrome conversion is allowed.  If none of
  79. these is chosen, the color table of a polychrome image is compressed
  80. in preparation for output conversion.
  81. .PP
  82. The output stream is then opened and the image is written in the selected
  83. output format.
  84. .sp 2
  85. .SH ENVIRONMENT
  86. XXGRABSC - specifies command line arguments to be processed before those
  87. actually entered on the command line.
  88. .PP
  89. DISPLAY - specifies the name of the display that xgrabsc should grab from.
  90. .sp 2
  91. .SH EXAMPLES
  92. The simplest form of use, giving Postscript output, is
  93. .sp
  94. .ti +5
  95. xgrabsc >outfile.ps
  96. .sp
  97. .PP
  98. To write output in \fIPostscript\fP format and send to the printer,
  99. use
  100. .sp
  101. .ti +5
  102. xgrabsc | lpr
  103. .sp
  104. It is sometimes helpful to brighten an image somewhat before it is
  105. formatted for Postscript output.  E.g., to brighten by 30%
  106. .sp
  107. .ti +5
  108. xgrabsc -b 130 | lpr
  109. .sp
  110. .PP
  111. If your printer supports color, and your display is color, you can
  112. have xgrabsc generate color output instead of gray scale:
  113. .sp
  114. .ti +5
  115. xgrabsc -cps | lpr
  116. .sp
  117. .PP
  118. The default Postscript output attempts to scale the image so that
  119. it will all fit on one page, and is centered on the page.  If you
  120. are grabbing images to include in documents, such as with FrameMaker,
  121. you should ask for Encapsulated Postscript output with the \fI-eps\fP
  122. switch.  For example:
  123. .sp
  124. .ti +5
  125. X  xgrabsc -eps -o image1.eps
  126. .PP
  127. To select an entire window, write output in \fIpuzzle\fP format
  128. and read into the puzzle program, use the commands
  129. .sp
  130. .ti +5
  131. xgrabsc -click -puzzle >outfile.pzl
  132. .br
  133. .ti +5
  134. puzzle -picture outfile.pzl
  135. .sp
  136. .PP
  137. To have xgrabsc sleep for three seconds before rubber-banding, display
  138. processing information, and have the result displayed with xwud,
  139. .sp
  140. .ti +5
  141. xgrabsc -xwd -verbose -s 3 | xwud
  142. .sp
  143. .PP
  144. To grab an image from another server and then reduce the colormap
  145. to three bits by ANDing, use
  146. .sp
  147. .ti +5
  148. xgrabsc -d other:0.0 -and 5 -bm >outfile.xpm
  149. .sp
  150. You will, of course, have to go to the other machine to select the
  151. image with that machine's mouse.
  152. .sp 2
  153. .SH LIMITATIONS
  154. Colormaps larger than 256 entries are not currently supported. This
  155. means that it won't work with your fancy 24-bit display.
  156. .PP
  157. The default screen visual is used as the visual for the image.
  158. Visuals are associated with particular windows, and xgrabsc pretends
  159. ignorance about any windows but the root.
  160. .PP
  161. This software has been tested with StaticGray and 8-plane PseudoColor
  162. on DECStations (using both UWS 2.2 and X11 Release 4).  It has also
  163. been tested with 8-plane PseudoColor on Sun SparcStations and various
  164. other platforms using X11 Release 4 and Release 5.
  165. .PP
  166. XX11 Pixmap format is rather verbose.
  167. You may want to run large images through the \fIcompress\fP utility
  168. before storing them in a file.  E.g.,
  169. .sp
  170. .ti +5
  171. xgrabsc -bm | compress >outfile.xpm.Z
  172. .sp
  173. .SH AUTHOR
  174. .nf
  175. X     Bruce Schuchardt
  176. X    Servio Corporation
  177. X      bruce@slc.com
  178. .fi
  179. .sp 2
  180. .SH ACKNOWLEGEMENTS
  181. .PP
  182. Some of the source code for xgrabsc came from
  183. the xloadimage project by Jim Frost (jimf@saber.com) and others.  Jim's
  184. copyright has been included both here and in the source code.
  185. .PP
  186. The idea for using run-length encoding for Postscript output came from
  187. the xwd2ps project by Robert Tatar and Craig A. McGowan, as did the
  188. colorimage hack for monochrome display devices.
  189. .PP
  190. The ad2c.sed script that makes it possible to let you run xgrab without
  191. installing XGrab.ad everywhere is part of the ad2c package developed by
  192. George Ferguson.
  193. .sp 2
  194. .SH CONTRIBUTORS
  195. .PP
  196. Johan Garpendal did the initial color postscript work.
  197. .PP
  198. Hal R. Brand wrote the binary Postscript enhancements.
  199. .PP
  200. Yves Arrouye wrote the EPS Preview and page-configuration enhancements.
  201. .sp 2
  202. .SH COPYRIGHT
  203. Copyright (c) 1990-92 Bruce Schuchardt
  204. .PP
  205. \fIXgrabsc\fR is copywritten material with a very loose copyright
  206. allowing unlimited modification and distribution if the copyright
  207. notices are left intact.  Various portions are copywritten by various
  208. people, but all use a modification of the MIT copyright notice.
  209. Please check the source for complete copyright information.  The
  210. intent is to keep the source free, not to stifle its distribution, so
  211. please write to me if you have any questions.
  212. .PP
  213. THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
  214. INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN
  215. NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, INDIRECT OR
  216. CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS
  217. OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  218. OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE
  219. USE OR PERFORMANCE OF THIS SOFTWARE.
  220. .s 2
  221. .SH SEE ALSO
  222. XX(1X), xhost(1), xwd(1X), xwud(1X), xwd2ps(1X), xloadimage(1X), xpm(1X),
  223. xpr(1X), puzzle(1X), compress(1), uncompress(1), xv(1X)
  224. SHAR_EOF
  225. echo 'File xgrabsc.man is complete' &&
  226. chmod 0644 xgrabsc.man ||
  227. echo 'restore of xgrabsc.man failed'
  228. Wc_c="`wc -c < 'xgrabsc.man'`"
  229. test 15159 -eq "$Wc_c" ||
  230.     echo 'xgrabsc.man: original size 15159, current size' "$Wc_c"
  231. rm -f _shar_wnt_.tmp
  232. fi
  233. # ============= Bugs ==============
  234. if test -f 'Bugs' -a X"$1" != X"-c"; then
  235.     echo 'x - skipping Bugs (File already exists)'
  236.     rm -f _shar_wnt_.tmp
  237. else
  238. > _shar_wnt_.tmp
  239. echo 'x - extracting Bugs (Text)'
  240. sed 's/^X//' << 'SHAR_EOF' > 'Bugs' &&
  241. /*========================================================================
  242. *
  243. * Name - Bugs
  244. *
  245. * Version:    1.4
  246. *
  247. * ccsid:    @(#)Bugs    1.4 - 7/9/92 12:47:40
  248. * from:     ccs/s.Bugs
  249. * date:     7/9/92 13:35:24
  250. *
  251. * Description: Known bugs and problems.  This list does not include
  252. *              bugs that have been fixed.  See the patch set README
  253. *              files for descriptions of the bugs they fix.
  254. *
  255. *========================================================================*/
  256. X
  257. *  Postscript images produced by xgrabsc don't get printed
  258. X
  259. This is almost always a memory requirement problem.  Xgrabsc v2.0 
  260. can generate checks for memory availability so you can at least 
  261. see how much memory you're lacking to be able to print your 
  262. document.  I'd like to be able to preempt the transfer of the 
  263. rest of the file when there isn't enough memory to process it, 
  264. but haven't been able to make this happen.
  265. X
  266. X
  267. *  The puzzle program won't display xgrabsc output
  268. X
  269. While xgrabsc can create puzzle picture files from monochrome 
  270. screens, the puzzle program will not display pictures with "-
  271. picture" on monochrome systems. This is not a "bug" in xgrabsc, 
  272. but is a "confusing feature".
  273. X
  274. X
  275. *  When started from a window-manager menu, xgrabsc fails to grab an image.
  276. X
  277. If you run xgrabsc from a Twm menu, be sure to end your exec 
  278. command with "&". The program may not be able to grab the pointer 
  279. or server unless you do this.  This will likely happen with any 
  280. window manager, but has been reported onlyfor Twm.
  281. X
  282. X
  283. *  Encapsulate Postscript images are not centered or scaled when printed
  284. X
  285. This isn't a problem with xgrabsc.  EPS files are not supposed to
  286. contain scaling or transformation commands.
  287. X
  288. X
  289. *  The X cursor isn't included in images
  290. X
  291. If someone can tell me how to grab an image with the X cursor, I'd
  292. be much obliged.  Most X servers explicitely hide the cursor when
  293. processing getImage requests.
  294. X
  295. X
  296. * BadMatch errors are generated when grabbing with the keyboard (-k) and
  297. X  the cursor is on a menubar
  298. X
  299. I haven't been able to reproduce this error.
  300. X
  301. X
  302. * Can't grab xeyes
  303. X
  304. I haven't been able to reproduce this problem.
  305. X
  306. X
  307. * Dithered output sent to "xpr" for a laserjet doesn't produce an image
  308. X
  309. I have no laserjet to test with.
  310. X
  311. X
  312. * The halftoning algorithm in xgrabsc should be improved
  313. X
  314. Someone have a better algorithm?  If so, please send it to me.  I'm
  315. not interested in supporting zillions of different dithering
  316. algorithms, but would be happy to improve the ones already in xgrabsc.
  317. X
  318. X
  319. * Postscript output doesn't center properly when printed
  320. X
  321. The paper size is hard-coded into xgrabsc.  If you're not using the
  322. US Letter size (8.5 x 11 inches), you'll have to change the constants
  323. in config.h to the size of paper you use.  Paper size selection will
  324. be a command-line option in a future release of xgrabsc.
  325. X
  326. X
  327. * Binary Postscript images appear dark when printed
  328. X
  329. Your print spooler is probably stripping off the top bits of the binary
  330. data, causing the samples to be darker.  Some systems have "lpr" options
  331. to tell the spooler that the file you're printing contains binary data.
  332. Consult your lpr documentation.
  333. X
  334. X
  335. SHAR_EOF
  336. chmod 0644 Bugs ||
  337. echo 'restore of Bugs failed'
  338. Wc_c="`wc -c < 'Bugs'`"
  339. test 3103 -eq "$Wc_c" ||
  340.     echo 'Bugs: original size 3103, current size' "$Wc_c"
  341. rm -f _shar_wnt_.tmp
  342. fi
  343. # ============= README ==============
  344. if test -f 'README' -a X"$1" != X"-c"; then
  345.     echo 'x - skipping README (File already exists)'
  346.     rm -f _shar_wnt_.tmp
  347. else
  348. > _shar_wnt_.tmp
  349. echo 'x - extracting README (Text)'
  350. sed 's/^X//' << 'SHAR_EOF' > 'README' &&
  351. *========================================================================
  352. *
  353. * Name - README
  354. *
  355. * Version:    1.9
  356. *
  357. * ccsid:    @(#)README    1.9 - 7/9/92 12:47:46
  358. * from:     ccs/s.README
  359. * date:     7/9/92 13:35:25
  360. *
  361. * Copyright (C) 1990-92 Bruce Schuchardt
  362. * See either the man page or the file cpyright.h for full copyright
  363. * information.
  364. *
  365. * Description:  README for xgrabsc v2.1
  366. *
  367. *========================================================================
  368. X
  369. INTRO TO xgrabsc
  370. X
  371. When I first wrote xgrabsc, there were a number of programs available
  372. for getting X-Window screen dumps (e.g., xwd and xwps), but they
  373. were all restricted to dumping a single window in a single format.
  374. I wrote xgrabsc in an effort to get around these restrictions.
  375. X
  376. The main contribution of this program is its use of root-window
  377. rubberbanding to allow capture of arbitrary portions of the screen,
  378. and its multiple output formats (x-bitmap, x-pixmap, xwd, puzzle,
  379. "simple", and several Postscript formats).
  380. X
  381. The Postscript dumps will use run-length encoding if it results in
  382. any savings in size.  A typical xterm window dump on a mono system
  383. runs around 40K bytes (20K for binary output).  An xwd dump on the
  384. same screen will be around 650K bytes.  While the xpr program has a
  385. "compress" option, it only compresses white samples.  Reducing the 
  386. size of the output increases the cost of computing the dump and the
  387. final printing of the dump, but it reduces the cost of storage and
  388. the time to transfer the dump to your printer.  The latter is
  389. especially important for large screen dumps.
  390. X
  391. The xgrabsc program is not interactive.  You specify all processing
  392. options on the command line with obscure option characters.  These
  393. are all detailed in the man page.  An interactive interface to xgrabsc,
  394. named xgrab, is also included in this release.  xgrab allows you to
  395. do most of the setup with a mouse, and then uses the xgrabsc program
  396. to actually do the processing.  To use xgrab you must have the xgrabsc
  397. program in your execution path.
  398. X
  399. X
  400. X
  401. OPTIONS FOR BUILDING xgrabsc
  402. X
  403. The file config.h contains all the configuration options for xgrabsc.
  404. Please take a moment to look through that file before building xgrabsc.
  405. X
  406. X
  407. X
  408. BUILDING xgrabsc
  409. X
  410. XXgrabsc should build easily enough.  If you don't have the imake
  411. program, use simple.mak (i.e., make -f simple.mak).  There are targets
  412. for xgrabsc, install, install.man, and clean.  E.g.,
  413. X  make
  414. X  make install
  415. X  make install.man
  416. X  make clean
  417. X
  418. The install target will put xgrabsc in /usr/bin/X11 and the
  419. man page in /usr/man/man1.  Change simple.mak before installing
  420. with it if you don't like these locations.
  421. X
  422. For Vax/VMS installations, this release includes a VMSMAKE.COM script that was
  423. contributed by a user, as well as a GETOPT.C module that implements the
  424. getopt() function.  I am informed that you will also need a copy of the
  425. XXWDfile.h include file from the MIT XWindows distribution, so I've included a
  426. copy of that file.  I do not have a Vax to test with so I can't claim you won't
  427. have problems in building xgrabsc under VMS, but this gives you a running start
  428. at it. 
  429. X
  430. X
  431. X
  432. Please send comments, bugs, and enhancements to bruce@slc.com.  Please
  433. read the Bugs file before sending bug reports.
  434. X
  435. X
  436. X Manifest
  437. X ---------------------------------
  438. X README              this file
  439. X README.xx_yy        files describing incremental changes to xgrabsc
  440. X
  441. X Acks                acknowledgements for code gleaned from other
  442. X                     systems, and people who have been very helpful
  443. X                     in adding features and removing bugs from xgrabsc
  444. X
  445. X Bugs                known bugs - read this before sending bug reports
  446. X
  447. X Imakefile           Input for "imake" program
  448. X simple.mak          Simpler input for standard "make"
  449. X
  450. X checkvm.h           Memory-check Postscript operator
  451. X config.h            Configuration options
  452. X cpyright.h          Copyright notice for this software (READ IT)
  453. X cmdopts.h         Command line options for xgrabsc
  454. X ps_color.h          Bob Tatar's colorimage operator for mono systems
  455. X patchlevel.h        Current patch level
  456. X virtual.h           Support for virtual window managers
  457. X xgrab.c             Source for window interface to xgrabsc
  458. X xgrabsc.c           Program source
  459. X
  460. X *.hc                function include files for xgrabsc.c
  461. X
  462. X VMSMAKE.COM         a DCL command script to make xgrabsc and xgrab under VMS
  463. X                     (this is untested - I no longer have a VAX at my disposal)
  464. X XWDfile.h           xwd structure definition needed for VAX/VMS builds
  465. X 
  466. X ad2c.sed            sed script to convert XGrab.ad to fallback resources
  467. X                     for xgrab
  468. X
  469. X xgrabsc.man         Man page for xgrabsc
  470. X xgrab.man           Man page for xgrab
  471. X
  472. X XGrab.ad            Resources for the xgrab program
  473. X
  474. X
  475. X
  476. BUGS:
  477. X
  478. Common problems and known bugs are described in the Bugs file.
  479. X
  480. X
  481. X
  482. TO DO:
  483. X
  484. Support for 24-bit displays.  If someone wants to give this a shot, please
  485. let me know.
  486. X
  487. Selectable paper size for Postscript output.
  488. X
  489. X
  490. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  491. X  Bruce Schuchardt          bruce@SLC.COM
  492. X  Servio Corp.
  493. X  Beaverton, OR
  494. SHAR_EOF
  495. chmod 0644 README ||
  496. echo 'restore of README failed'
  497. Wc_c="`wc -c < 'README'`"
  498. test 5078 -eq "$Wc_c" ||
  499.     echo 'README: original size 5078, current size' "$Wc_c"
  500. rm -f _shar_wnt_.tmp
  501. fi
  502. # ============= README.2_1 ==============
  503. if test -f 'README.2_1' -a X"$1" != X"-c"; then
  504.     echo 'x - skipping README.2_1 (File already exists)'
  505.     rm -f _shar_wnt_.tmp
  506. else
  507. > _shar_wnt_.tmp
  508. echo 'x - extracting README.2_1 (Text)'
  509. sed 's/^X//' << 'SHAR_EOF' > 'README.2_1' &&
  510. /*========================================================================
  511. *
  512. * Name - README.2_1
  513. *
  514. * Version:    1.1
  515. *
  516. * ccsid:    @(#)README.2_1    1.1 - 7/9/92 12:39:15
  517. * from:     ccs/s.README.2_1
  518. * date:     7/9/92 13:35:25
  519. *
  520. * Description: Notes on release 2.1
  521. *
  522. *========================================================================
  523. X
  524. X
  525. This release adds the following features:
  526. X
  527. * xgrabsc no longer uses getopt(), and most command line switches have been
  528. X  changed from single-characters to keywords.  Users of previous versions
  529. X  of xgrabsc should make sure any XGRABSC environment variables are updated
  530. X  to reflect this change.
  531. X  
  532. * Command line switches may be preceded with '-' (e.g., -preview) or
  533. X  '--' (e.g., --preview).  A double dash turns off an option, while a
  534. X  single or omitted dash turns on an option.  Each argument and switch must
  535. X  be seperated with white space.
  536. X
  537. * New xgrabsc options
  538. X
  539. X  preview    a preview option for encapsulated postscript output
  540. X  page        page size and border specification
  541. X  nodither    turns off any selected dithering options
  542. X  colproc    adds/removes the colorImage operator from color postscript
  543. X        output
  544. X  bm3        write color output in XPM3 format
  545. X
  546. * All xgrab text fields but the Alternate Display are now set in XGrab.ad
  547. X  instead of xgrab.c.  This means you can now put defaults for these fields
  548. X  in your .Xdefaults
  549. X
  550. * border removal now attempts to remove the window-mgr's title as well.
  551. X
  552. X
  553. Notes section:
  554. X
  555. Added attribution for ad2c.sed.  George Ferguson wrote ad2c and every person
  556. who uses xgrab without installing XGrab.ad should be grateful to George for
  557. ad2c, which is used to create the fallback resource set for the xgrab program.
  558. X
  559. Removed use of getopt() from xgrabsc, and changed all switches to be
  560. more verbose.  I was running out of letters and numbers and things were
  561. starting to get a bit silly.
  562. X
  563. Allow compression of images in EPS output.
  564. X
  565. Allow selection of colorImage proc output in config.h, and provide
  566. command-line option for adding/removing it.
  567. X
  568. Fixed border-removal switch in xgrab.  It was doing the reverse of what it
  569. advertised.
  570. X
  571. Made landscape and encapsulated postscript options mutually exclusive, and
  572. added preview option for encapsulated postscript.  The preview image is in
  573. EPSI format.  That is, it's the transportable image format, not TIFF or PICT.
  574. X
  575. Changed shapes of radio buttons in xgrab to make them distinguishable from
  576. toggle buttons and command buttons.
  577. X
  578. Removed setting of the text of all text fields in xgrab except the display.
  579. The display text is taken from your DISPLAY environment variable.  You can
  580. now set the other strings in your .Xdefaults file (see XGrab.ad for examples).
  581. X
  582. Added page-config option.  
  583. X
  584. Changed bitmap_pad in XCreateImage calls from 0 to 8.  The manual says it
  585. has to be 8, 16 or 32.  Zero isn't an option.  Odd that no-one has mentioned
  586. this before.
  587. X
  588. Added basic XPM3 output format
  589. X
  590. Made border removal search for a client window of the selected window if
  591. selection style is click or key.  This gets rid of the wm title too.
  592. SHAR_EOF
  593. chmod 0644 README.2_1 ||
  594. echo 'restore of README.2_1 failed'
  595. Wc_c="`wc -c < 'README.2_1'`"
  596. test 3026 -eq "$Wc_c" ||
  597.     echo 'README.2_1: original size 3026, current size' "$Wc_c"
  598. rm -f _shar_wnt_.tmp
  599. fi
  600. # ============= VMSMAKE.COM ==============
  601. if test -f 'VMSMAKE.COM' -a X"$1" != X"-c"; then
  602.     echo 'x - skipping VMSMAKE.COM (File already exists)'
  603.     rm -f _shar_wnt_.tmp
  604. else
  605. > _shar_wnt_.tmp
  606. echo 'x - extracting VMSMAKE.COM (Text)'
  607. sed 's/^X//' << 'SHAR_EOF' > 'VMSMAKE.COM' &&
  608. $!
  609. $! Name - VMSMAKE.COM
  610. $!
  611. $! ccs version:    1.2
  612. $!
  613. $! ccsid:    @(#)VMSMAKE.COM    1.2 - 7/9/92 13:07:31
  614. $! from:     ccs/s.VMSMAKE.COM
  615. $! date:     7/9/92 13:35:25
  616. $!
  617. $! This is an UNTESTED command file for building xgrabsc under Vax/VMS
  618. $!
  619. $!
  620. $ define x11 decw$include
  621. $ cc xgrabsc
  622. $ link xgrabsc,sys$input/opt
  623. sys$library:decw$xlibshr/share
  624. sys$library:vaxcrtl/share
  625. $!
  626. $! the link for xgrab is questionable - it probably needs an Athena
  627. $! widget library
  628. $!
  629. $ cc xgrab
  630. $ link xgrab,sys$input/opt
  631. sys$library:decw$xlibshr/share
  632. sys$library:vaxcrtl/share
  633. $ exit
  634. SHAR_EOF
  635. chmod 0644 VMSMAKE.COM ||
  636. echo 'restore of VMSMAKE.COM failed'
  637. Wc_c="`wc -c < 'VMSMAKE.COM'`"
  638. test 552 -eq "$Wc_c" ||
  639.     echo 'VMSMAKE.COM: original size 552, current size' "$Wc_c"
  640. rm -f _shar_wnt_.tmp
  641. fi
  642. # ============= XWDFile.h ==============
  643. if test -f 'XWDFile.h' -a X"$1" != X"-c"; then
  644.     echo 'x - skipping XWDFile.h (File already exists)'
  645.     rm -f _shar_wnt_.tmp
  646. else
  647. > _shar_wnt_.tmp
  648. echo 'x - extracting XWDFile.h (Text)'
  649. sed 's/^X//' << 'SHAR_EOF' > 'XWDFile.h' &&
  650. #include <X11/copyright.h>
  651. X
  652. /* Copyright 1985, 1986, Massachusetts Institute of Technology */
  653. X
  654. /* $XConsortium: XWDFile.h,v 1.12 89/10/08 16:33:57 rws Exp $ */
  655. /*
  656. X * XWDFile.h    MIT Project Athena, X Window system window raster
  657. X *        image dumper, dump file format header file.
  658. X *
  659. X *  Author:    Tony Della Fera, DEC
  660. X *        27-Jun-85
  661. X * 
  662. X * Modifier:    William F. Wyatt, SAO
  663. X *              18-Nov-86  - version 6 for saving/restoring color maps
  664. X */
  665. X
  666. X
  667. /*
  668. X * This is not portable between machines of differing word sizes.  To make
  669. X * it portable, do the following things:
  670. X *
  671. X *     o  #include <X11/Xmd.h>
  672. X *     o  remove the typedef for xwdval
  673. X *     o  replace all instances of xwdval with the appropriate CARD32 ... B32
  674. X *     o  make sure that XWDFileHeader is padded to quadword boundaries
  675. X *     o  make sure the window name is written out quadword aligned
  676. X *     o  create an XWDColor structure that contains the same fields as XColor
  677. X *        but which is defined in terms of CARD32 B32, CARD16 B16, and CARD8
  678. X *     o  convert XColor structures to XWDColor structures in xwd
  679. X *     o  remove all xwdval casts from xwd
  680. X *     o  pack image data before writing out if necessary
  681. X *     o  replace casts from xwdval objects in xwud with cvtINT macros
  682. X *     o  convert XWDColor structures to XColor structures
  683. X *     o  unpack data after reading in if necessary
  684. X */
  685. X
  686. X
  687. #include "Xmd.h"
  688. X
  689. #define XWD_FILE_VERSION 7
  690. #ifdef WORD64
  691. #define sz_XWDheader 104
  692. #else
  693. #define sz_XWDheader 100
  694. #endif
  695. #define sz_XWDColor 12
  696. X
  697. typedef CARD32 xwdval;        /* for old broken programs */
  698. X
  699. typedef struct _xwd_file_header {
  700. X    CARD32 header_size B32;  /* Size of the entire file header (bytes). */
  701. X    CARD32 file_version B32;    /* XWD_FILE_VERSION */
  702. X    CARD32 pixmap_format B32;    /* Pixmap format */
  703. X    CARD32 pixmap_depth B32;    /* Pixmap depth */
  704. X    CARD32 pixmap_width B32;    /* Pixmap width */
  705. X    CARD32 pixmap_height B32;    /* Pixmap height */
  706. X    CARD32 xoffset B32;        /* Bitmap x offset */
  707. X    CARD32 byte_order B32;        /* MSBFirst, LSBFirst */
  708. X    CARD32 bitmap_unit B32;        /* Bitmap unit */
  709. X    CARD32 bitmap_bit_order B32;    /* MSBFirst, LSBFirst */
  710. X    CARD32 bitmap_pad B32;        /* Bitmap scanline pad */
  711. X    CARD32 bits_per_pixel B32;    /* Bits per pixel */
  712. X    CARD32 bytes_per_line B32;    /* Bytes per scanline */
  713. X    CARD32 visual_class B32;    /* Class of colormap */
  714. X    CARD32 red_mask B32;        /* Z red mask */
  715. X    CARD32 green_mask B32;        /* Z green mask */
  716. X    CARD32 blue_mask B32;        /* Z blue mask */
  717. X    CARD32 bits_per_rgb B32;    /* Log2 of distinct color values */
  718. X    CARD32 colormap_entries B32;    /* Number of entries in colormap */
  719. X    CARD32 ncolors B32;        /* Number of Color structures */
  720. X    CARD32 window_width B32;    /* Window width */
  721. X    CARD32 window_height B32;    /* Window height */
  722. X    CARD32 window_x B32;        /* Window upper left X coordinate */
  723. X    CARD32 window_y B32;        /* Window upper left Y coordinate */
  724. X    CARD32 window_bdrwidth B32;    /* Window border width */
  725. #ifdef WORD64
  726. X    CARD32 header_end B32;        /* Pad to fill out word */
  727. #endif
  728. } XWDFileHeader;
  729. X
  730. struct {
  731. X        CARD32    pixel B32;
  732. X        CARD16    red B16;
  733. X    CARD16    green B16;
  734. X    CARD16    blue B16;
  735. X        CARD8    flags;
  736. X        CARD8    pad;
  737. } XWDColor;
  738. X
  739. X
  740. /*
  741. X * Name - XWDFile.h
  742. X *
  743. X * ccs version:    1.1
  744. X *
  745. X * ccsid:    @(#)XWDFile.h    1.1 - 7/2/92 16:01:52
  746. X * from:     ccs/s.XWDFile.h
  747. X * date:     7/9/92 13:35:26
  748. X *
  749. X * This is XWDFile.h from XWindows v11r4
  750. X */
  751. SHAR_EOF
  752. chmod 0644 XWDFile.h ||
  753. echo 'restore of XWDFile.h failed'
  754. Wc_c="`wc -c < 'XWDFile.h'`"
  755. test 3313 -eq "$Wc_c" ||
  756.     echo 'XWDFile.h: original size 3313, current size' "$Wc_c"
  757. rm -f _shar_wnt_.tmp
  758. fi
  759. # ============= Xmd.h ==============
  760. if test -f 'Xmd.h' -a X"$1" != X"-c"; then
  761.     echo 'x - skipping Xmd.h (File already exists)'
  762.     rm -f _shar_wnt_.tmp
  763. else
  764. > _shar_wnt_.tmp
  765. echo 'x - extracting Xmd.h (Text)'
  766. sed 's/^X//' << 'SHAR_EOF' > 'Xmd.h' &&
  767. /***********************************************************
  768. Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts,
  769. and the Massachusetts Institute of Technology, Cambridge, Massachusetts.
  770. X
  771. X                        All Rights Reserved
  772. X
  773. Permission to use, copy, modify, and distribute this software and its 
  774. documentation for any purpose and without fee is hereby granted, 
  775. provided that the above copyright notice appear in all copies and that
  776. both that copyright notice and this permission notice appear in 
  777. supporting documentation, and that the names of Digital or MIT not be
  778. used in advertising or publicity pertaining to distribution of the
  779. software without specific, written prior permission.  
  780. X
  781. DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
  782. ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
  783. DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
  784. ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
  785. WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
  786. ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
  787. SOFTWARE.
  788. X
  789. ******************************************************************/
  790. #ifndef XMD_H
  791. #define XMD_H 1
  792. /* $XConsortium: Xmd.h,v 1.35 89/08/15 14:38:57 jim Exp $ */
  793. /*
  794. X *  Xmd.h: MACHINE DEPENDENT DECLARATIONS.
  795. X */
  796. X
  797. /*
  798. X * Special per-machine configuration flags.
  799. X */
  800. #ifdef CRAY
  801. #define WORD64                /* 64-bit architecture */
  802. #define UNSIGNEDBITFIELDS        /* bit fields do not honor sign */
  803. #endif
  804. X
  805. X
  806. /*
  807. X * Stuff to handle large architecture machines; the constants were generated
  808. X * on a 32-bit machine and must coorespond to the protocol.
  809. X */
  810. #ifdef WORD64
  811. #define MUSTCOPY
  812. #endif /* WORD64 */
  813. X
  814. X
  815. /*
  816. X * Definition of macro used to set constants for size of network structures;
  817. X * machines with preprocessors that can't handle all of the sz_ symbols
  818. X * can define this macro to be sizeof(x) if and only if their compiler doesn't
  819. X * pad out structures (esp. the xTextElt structure which contains only two 
  820. X * one-byte fields).  Network structures should always define sz_symbols.
  821. X *
  822. X * The sz_ prefix is used instead of something more descriptive so that the
  823. X * symbols are no more than 32 characters long (which causes problems for some
  824. X * compilers and preprocessors).
  825. X */
  826. #if defined(__STDC__) && !defined(UNIXCPP)
  827. #define SIZEOF(x) sz_##x
  828. #else
  829. #define SIZEOF(x) sz_/**/x
  830. #endif /* if ANSI C compiler else not */
  831. X
  832. X
  833. X
  834. /*
  835. X * ibm pcc doesn't understand pragmas.
  836. X */
  837. #if defined(ibm032) && defined(__HIGHC__)
  838. pragma on(pointers_compatible);
  839. pragma off(char_default_unsigned);
  840. #endif
  841. X
  842. X
  843. /*
  844. X * Bitfield suffixes for the protocol structure elements, if you
  845. X * need them.  Note that bitfields are not guarranteed to be signed
  846. X * (or even unsigned) according to ANSI C.
  847. X */
  848. #ifdef WORD64
  849. #define B32 :32
  850. #define B16 :16
  851. #else
  852. #define B32
  853. #define B16
  854. #endif
  855. X
  856. typedef long           INT32;
  857. typedef short          INT16;
  858. typedef char           INT8;
  859. X
  860. typedef unsigned long CARD32;
  861. typedef unsigned short CARD16;
  862. typedef unsigned char  CARD8;
  863. X
  864. typedef unsigned long        BITS32;
  865. typedef unsigned short        BITS16;
  866. typedef unsigned char        BYTE;
  867. X
  868. typedef unsigned char            BOOL;
  869. X
  870. X
  871. /*
  872. X * definitions for sign-extending bitfields on 64-bit architectures
  873. X */
  874. #if defined(WORD64) && defined(UNSIGNEDBITFIELDS)
  875. #define cvtINT8toInt(val)   (((val) & 0x00000080) ? ((val) | 0xffffffffffffff00) : (val))
  876. #define cvtINT16toInt(val)  (((val) & 0x00008000) ? ((val) | 0xffffffffffff0000) : (val))
  877. #define cvtINT32toInt(val)  (((val) & 0x80000000) ? ((val) | 0xffffffff00000000) : (val))
  878. #define cvtINT8toLong(val)  cvtINT8toInt(val)
  879. #define cvtINT16toLong(val) cvtINT16toInt(val)
  880. #define cvtINT32toLong(val) cvtINT32toInt(val)
  881. #else
  882. #define cvtINT8toInt(val) (val)
  883. #define cvtINT16toInt(val) (val)
  884. #define cvtINT32toInt(val) (val)
  885. #define cvtINT8toLong(val) (val)
  886. #define cvtINT16toLong(val) (val)
  887. #define cvtINT32toLong(val) (val)
  888. #endif /* WORD64 and UNSIGNEDBITFIELDS */
  889. X
  890. X
  891. X
  892. #ifdef MUSTCOPY
  893. /*
  894. X * This macro must not cast or else pointers will get aligned and be wrong
  895. X */
  896. #define NEXTPTR(p,t)  (((char *) p) + SIZEOF(t))
  897. #else /* else not MUSTCOPY, this is used for 32-bit machines */
  898. /*
  899. X * this version should leave result of type (t *), but that should only be 
  900. X * used when not in MUSTCOPY
  901. X */  
  902. #define NEXTPTR(p,t) (((t *)(p)) + 1)
  903. #endif /* MUSTCOPY - used machines whose C structs don't line up with proto */
  904. X
  905. #endif /* XMD_H */
  906. X
  907. /*
  908. X * Name - Xmd.h
  909. X *
  910. X * ccs version:    1.1
  911. X *
  912. X * ccsid:    @(#)Xmd.h    1.1 - 7/2/92 16:01:53
  913. X * from:     ccs/s.Xmd.h
  914. X * date:     7/9/92 13:35:26
  915. X *
  916. X * This is Xmd.h from XWindows v11r4
  917. X */
  918. SHAR_EOF
  919. chmod 0644 Xmd.h ||
  920. echo 'restore of Xmd.h failed'
  921. Wc_c="`wc -c < 'Xmd.h'`"
  922. test 4635 -eq "$Wc_c" ||
  923.     echo 'Xmd.h: original size 4635, current size' "$Wc_c"
  924. rm -f _shar_wnt_.tmp
  925. fi
  926. # ============= cmdopts.h ==============
  927. if test -f 'cmdopts.h' -a X"$1" != X"-c"; then
  928.     echo 'x - skipping cmdopts.h (File already exists)'
  929.     rm -f _shar_wnt_.tmp
  930. else
  931. > _shar_wnt_.tmp
  932. echo 'x - extracting cmdopts.h (Text)'
  933. sed 's/^X//' << 'SHAR_EOF' > 'cmdopts.h' &&
  934. /*========================================================================
  935. X *
  936. X * Name - cmdopts.h
  937. X *
  938. X * ccs version:    1.1
  939. X *
  940. X * ccsid:    @(#)cmdopts.h    1.1 - 7/9/92 13:18:35
  941. X * from:     ccs/s.cmdopts.h
  942. X * date:     7/9/92 13:35:26
  943. X *
  944. X * Copyright (c) 1990-92 Bruce Schuchardt.
  945. X * Read the file cpyright.h for full copyright information.
  946. X *
  947. X *
  948. X * Description:
  949. X *
  950. X * command line options for xgrabsc
  951. X *
  952. X *========================================================================
  953. X */
  954. X
  955. typedef enum {
  956. X  CMD_BELL,
  957. X  CMD_GRABSERVER,
  958. X  CMD_DISPLAY,
  959. X  CMD_OUTPUT,
  960. X  CMD_PRESLEEP,
  961. X  CMD_POSTSLEEP,
  962. X  CMD_VERBOSE,
  963. X  CMD_BORDERS,
  964. X  CMD_NOBORDERS,
  965. X
  966. X  CMD_SOURCE_KEY,
  967. X  CMD_SOURCE_ID,
  968. X  CMD_SOURCE_RECT,
  969. X  CMD_SOURCE_ROOT,
  970. X  CMD_SOURCE_WD,
  971. X
  972. X  CMD_AND,
  973. X  CMD_OR,
  974. X  CMD_NOT,
  975. X  CMD_BRIGHTEN,
  976. X
  977. X  CMD_DITHER_MAP,
  978. X  CMD_DITHER_MATRIX,
  979. X  CMD_DITHER_FS,
  980. X  CMD_DITHER_HALFTONE,
  981. X  CMD_DITHER_NONE,
  982. X
  983. X  CMD_OUTPUT_PS,
  984. X  CMD_OUTPUT_CPS,
  985. X  CMD_OUTPUT_SIMPLE,
  986. X  CMD_OUTPUT_XWD,
  987. X  CMD_OUTPUT_XPM,
  988. X  CMD_OUTPUT_XPM2,
  989. X  CMD_OUTPUT_XPM3,
  990. X  CMD_OUTPUT_PIXMAP,
  991. X  CMD_OUTPUT_PUZZLE,
  992. X
  993. X  CMD_BIN,
  994. X  CMD_COMPRESS,
  995. X  CMD_EPS,
  996. X  CMD_LANDSCAPE,
  997. X  CMD_LIMIT,
  998. X  CMD_PAGE,
  999. X  CMD_PREVIEW,
  1000. X  CMD_COLORPROC
  1001. X
  1002. X  } commandEnum;
  1003. X
  1004. X
  1005. typedef struct {
  1006. X  commandEnum    command;
  1007. X  int        numargs;
  1008. X  char        *userstr;
  1009. X  } commandType;
  1010. X
  1011. commandType commands[] = {
  1012. X {  CMD_BELL,        0, "bell"    },
  1013. X {  CMD_GRABSERVER,    0, "grab"    },
  1014. X {  CMD_DISPLAY,    1, "d"        },
  1015. X {  CMD_DISPLAY,    1, "display"    },
  1016. X {  CMD_OUTPUT,        1, "o"        },
  1017. X {  CMD_OUTPUT,        1, "out"    },
  1018. X {  CMD_PRESLEEP,    1, "s"        },
  1019. X {  CMD_PRESLEEP,    1, "sleep"    },
  1020. X {  CMD_POSTSLEEP,    1, "post"    },
  1021. X {  CMD_VERBOSE,    0, "verbose"    },
  1022. X {  CMD_BORDERS,    0, "borders"    },
  1023. X {  CMD_BORDERS,    0, "bdrs"    },
  1024. X {  CMD_NOBORDERS,    0, "nobdrs"    },
  1025. X {  CMD_NOBORDERS,    0, "noborders"    },
  1026. X
  1027. X {  CMD_SOURCE_KEY,    0, "key"    },
  1028. X {  CMD_SOURCE_ID,    1, "id"        },
  1029. X {  CMD_SOURCE_RECT,    0, "stretch"    },
  1030. X {  CMD_SOURCE_ROOT,    0, "root"    },
  1031. X {  CMD_SOURCE_WD,    0, "click"    },
  1032. X
  1033. X {  CMD_AND,        1, "and"    },
  1034. X {  CMD_OR,        1, "or"        },
  1035. X {  CMD_NOT,        0, "reverse"    },
  1036. X {  CMD_BRIGHTEN,    1, "b"        },
  1037. X {  CMD_BRIGHTEN,    1, "brighten"    },
  1038. X
  1039. X {  CMD_DITHER_MAP,    0, "bw"        },
  1040. X {  CMD_DITHER_MATRIX,    0, "mdither"    },
  1041. X {  CMD_DITHER_FS,    0, "dither"    },
  1042. X {  CMD_DITHER_HALFTONE,0, "halftone"    },
  1043. X {  CMD_DITHER_NONE,    0, "nodither"   },
  1044. X
  1045. X {  CMD_OUTPUT_PS,    0, "ps"        },
  1046. X {  CMD_OUTPUT_CPS,    0, "cps"    },
  1047. X {  CMD_OUTPUT_SIMPLE,    0, "simple"    },
  1048. X {  CMD_OUTPUT_XWD,    0, "xwd"    },
  1049. X {  CMD_OUTPUT_PIXMAP,    0, "bm"        },
  1050. X {  CMD_OUTPUT_XPM2,    0, "bm2"    },
  1051. X {  CMD_OUTPUT_XPM3,    0, "bm3"    },
  1052. X {  CMD_OUTPUT_PUZZLE,    0, "puzzle"    },
  1053. X
  1054. X {  CMD_BIN,        0, "bin"    },
  1055. X {  CMD_COMPRESS,     0, "comp"    },
  1056. X {  CMD_COMPRESS,     0, "compress"    },
  1057. X {  CMD_EPS,        0, "eps"    },
  1058. X {  CMD_LANDSCAPE,    0, "l"        },
  1059. X {  CMD_LANDSCAPE,    0, "landscape"    },
  1060. X {  CMD_LIMIT,        0, "limit"    },
  1061. X {  CMD_PAGE,        1, "page"    },
  1062. X {  CMD_PREVIEW,    0, "preview"    },
  1063. X {  CMD_PREVIEW,    0, "prev"    },
  1064. X {  CMD_COLORPROC,    0, "colproc"    }
  1065. X 
  1066. };
  1067. X
  1068. int numCmds = sizeof(commands) / sizeof(commandType);
  1069. SHAR_EOF
  1070. chmod 0644 cmdopts.h ||
  1071. echo 'restore of cmdopts.h failed'
  1072. Wc_c="`wc -c < 'cmdopts.h'`"
  1073. test 2917 -eq "$Wc_c" ||
  1074.     echo 'cmdopts.h: original size 2917, current size' "$Wc_c"
  1075. rm -f _shar_wnt_.tmp
  1076. fi
  1077. # ============= config.h ==============
  1078. if test -f 'config.h' -a X"$1" != X"-c"; then
  1079.     echo 'x - skipping config.h (File already exists)'
  1080.     rm -f _shar_wnt_.tmp
  1081. else
  1082. > _shar_wnt_.tmp
  1083. echo 'x - extracting config.h (Text)'
  1084. sed 's/^X//' << 'SHAR_EOF' > 'config.h' &&
  1085. /*========================================================================
  1086. X *
  1087. X * Name - config.h
  1088. X *
  1089. X * Version:    1.5
  1090. X *
  1091. X * ccsid:    @(#)config.h    1.5 - 7/9/92 12:48:31
  1092. X * from:     ccs/s.config.h
  1093. X * date:     7/9/92 13:35:27
  1094. X *
  1095. X * Copyright (c) 1991-92 Bruce Schuchardt.
  1096. X * Read the file cpyright.h for full copyright information.
  1097. X *
  1098. X *
  1099. X * Description:
  1100. X *   configuration options for xgrabsc
  1101. X *
  1102. X *========================================================================
  1103. X */
  1104. X
  1105. /* if you do not have memcpy routines but do have bcopy, define the following */
  1106. /* #define BCOPY */
  1107. X
  1108. /* if you have neither memcpy nor bcopy, or for some other reason would like
  1109. X * to use xgrabsc's version of memcpy, define the following */
  1110. /* #define MEMCPY */
  1111. X
  1112. /* if you want to use some other key than Control for selection, define
  1113. X * the following and replace ControlMask with the mask of your choice */
  1114. /* #define SELECTION_MASK ControlMask */
  1115. X
  1116. /* when forming postscript output and the "-c" option has not been specified,
  1117. X * xgrabsc will make a pass over the image to determine whether run-length
  1118. X * encoding will shrink the output appreciably.  If you are building xgrabsc
  1119. X * for a slower machine, you may wish to avoid this overhead.  If so,
  1120. X * define the following */
  1121. /* #define NO_RLE_CHECKS */
  1122. X
  1123. /* When forming color postscript output, xgrabsc will include a color to
  1124. X * greyscale converter in the output so that it can also be printed on
  1125. X * non-color printers.  If you prefer to have this converter omitted from
  1126. X * color postscript output by default, change the following to FALSE */
  1127. #define DEFAULT_NEED_COLORIMAGE_PROC  TRUE
  1128. X
  1129. X
  1130. /* Xgrabsc will dither Encapsulated Postscript preview images to be black
  1131. X * and white.  You can choose the default type of dithering.  Choices are
  1132. X * FS_DITHER (Floyd-Steinberg), MATRIX_HALFTONE (increases size of image),
  1133. X * MATRIX_DITHER (good for line-drawings), or MAP_BW (maps colors to black/
  1134. X * white based on grayscale brightness). */
  1135. #define PREVIEW_DITHER FS_DITHER
  1136. X
  1137. /* Xgrabsc will look for a virtual-window manager's root window for
  1138. X * window dumps.  If the virtual-window manager support code gives you
  1139. X * trouble, define the following to omit it */
  1140. /* #define NO_VIRTUAL_WINDOW */
  1141. X
  1142. /* Xgrabsc will write code to check printer memory availability before
  1143. X * attempting to display an image.  Postscript previewers may cause problems
  1144. X * with this since they usually allocate memory as needed, and so will
  1145. X * often fail memory-availability checks.
  1146. X * Editors, such as FrameMaker can also cause problems like this, so
  1147. X * the checks are turned off when Encapsulated Postscript format is
  1148. X * requested.
  1149. X * A command line switch can also turn checks off, but they can be disabled
  1150. X * totally here. */
  1151. /* #define NO_PRINTER_MEMORY_CHECKS */
  1152. X
  1153. X
  1154. /* xgrabsc has a hard-coded notion of the size of your printer's paper.
  1155. X * The default is for US Letter size (8.5x11.0 inch).
  1156. X * The inset sizes control the maximum size of the image on the page.
  1157. X * These are preset to leave at least a 0.5 inch border around the image.
  1158. X */
  1159. #define PAPER_WIDTH         8.5   /* inches are assumed */
  1160. #define PAPER_HEIGHT       11.0
  1161. X
  1162. #define VERT_MARGIN        0.5
  1163. #define HORIZ_MARGIN        0.5
  1164. X
  1165. X
  1166. SHAR_EOF
  1167. chmod 0644 config.h ||
  1168. echo 'restore of config.h failed'
  1169. Wc_c="`wc -c < 'config.h'`"
  1170. test 3177 -eq "$Wc_c" ||
  1171.     echo 'config.h: original size 3177, current size' "$Wc_c"
  1172. rm -f _shar_wnt_.tmp
  1173. fi
  1174. # ============= get.hc ==============
  1175. if test -f 'get.hc' -a X"$1" != X"-c"; then
  1176.     echo 'x - skipping get.hc (File already exists)'
  1177.     rm -f _shar_wnt_.tmp
  1178. else
  1179. > _shar_wnt_.tmp
  1180. echo 'x - extracting get.hc (Text)'
  1181. sed 's/^X//' << 'SHAR_EOF' > 'get.hc' &&
  1182. /*========================================================================
  1183. X *
  1184. X * Name - get.hc
  1185. X *
  1186. X * ccs version:    1.3
  1187. X *
  1188. X * ccsid:    @(#)get.hc    1.3 - 7/9/92 12:48:40
  1189. X * from:     ccs/s.get.hc
  1190. X * date:     7/9/92 13:35:27
  1191. X *
  1192. X * Description:  image grabbing functions for xgrabsc
  1193. X *
  1194. X *               see cpyright.h for copyright information
  1195. X *
  1196. X *
  1197. X *========================================================================
  1198. X */
  1199. X
  1200. /*
  1201. X * Get the image bounded by the given rectangle.
  1202. X * The associated colormap information is also extracted and returned.
  1203. X * TRUE is returned if an image was successfully grabbed, and FALSE
  1204. X * otherwise.
  1205. X */
  1206. getImage(xrect, image, window)
  1207. X  XRectangle *xrect;
  1208. X  imageInfo *image;
  1209. X  Window window;
  1210. {
  1211. X  XImage *ximage;
  1212. X  int depth, ncolors, cmapSize, numCmaps;
  1213. X  int h, w;
  1214. X  long i;
  1215. X  XColor colors[MAX_CELLS];
  1216. X  Colormap *cmaps, cmap;
  1217. X
  1218. X  if (xrect->width == 0  || xrect->height == 0)
  1219. X    return FALSE;
  1220. X
  1221. X  /* get the image */
  1222. X  depth  = DefaultDepth(hDisplay, hScreen);
  1223. X  ximage = XGetImage(hDisplay, window,
  1224. X            xrect->x, xrect->y, xrect->width, xrect->height, AllPlanes,
  1225. X            depth==1 ? XYPixmap : ZPixmap);
  1226. X  image->ximage = ximage;
  1227. X
  1228. X  /* get the colormap info */
  1229. X  cmaps = XListInstalledColormaps(hDisplay, window, &numCmaps);
  1230. X  if (numCmaps == 0)
  1231. X    cmap = DefaultColormap(hDisplay, hScreen);
  1232. X  else {
  1233. X    cmap = *cmaps;
  1234. X    if (numCmaps > 1)
  1235. X      fprintf(stderr,
  1236. X        "%s: more than one colormap found - using first encountered",
  1237. X        programName);
  1238. X  }
  1239. X  XFree(cmaps);
  1240. X
  1241. X  ncolors = DisplayCells(hDisplay, hScreen);
  1242. X  /* this won't cut the mustard for DirectColor */
  1243. X  for (i=0; i<ncolors; i++)
  1244. X    colors[i].pixel = i;
  1245. X
  1246. X  XQueryColors(hDisplay, cmap, colors, ncolors);
  1247. X  for (i=0; i<ncolors; i++) {
  1248. X    image->red[i]   = colors[i].red;
  1249. X    image->green[i] = colors[i].green;
  1250. X    image->blue[i]  = colors[i].blue;
  1251. X  }
  1252. X
  1253. X  /* figure out which colormap entries are actually used by the image */
  1254. X  ncolors = cmapSize = 0;
  1255. X  memset((char *)image->used, 0, MAX_CELLS);
  1256. X  for (h=0; h<ximage->height; h++)
  1257. X    for (w=0; w<ximage->width; w++) {
  1258. X      i = XGetPixel(ximage, w, h);
  1259. X      if (!image->used[i]) {
  1260. X        image->used[i] = TRUE;
  1261. X        if (i+1 > cmapSize)      /* keep track of colormap size */
  1262. X          cmapSize = i+1;
  1263. X        ncolors++;
  1264. X      }
  1265. X    }
  1266. X  image->numcells = cmapSize;
  1267. X  if (verbose)
  1268. X    fprintf(stderr, "%s: image has %d colors\n", programName, ncolors);
  1269. X
  1270. X  return TRUE;
  1271. }
  1272. X
  1273. X
  1274. X
  1275. /*
  1276. X * Let the user stretch a rectangle on the screen and return its values.
  1277. X * It may be wise to grab the server before calling this routine.  If the
  1278. X * screen is allowed to change during XOR drawing video droppings may result.
  1279. X */
  1280. getRectangle(xrect)
  1281. X  XRectangle *xrect;
  1282. {
  1283. X  XEvent event;
  1284. X  unsigned int x, y, rootx, rooty;
  1285. X  GC gc;
  1286. X  Cursor pointer1, pointer2;
  1287. X  int boxDrawn = False;
  1288. X  int rx, ry, rw, rh;
  1289. X
  1290. X  /* get some cursors for rectangle formation */
  1291. X  pointer1 = XCreateFontCursor(hDisplay, XC_ul_angle);
  1292. X  pointer2 = XCreateFontCursor(hDisplay, XC_lr_angle);
  1293. X
  1294. X  /* grab the pointer */
  1295. X  if (GrabSuccess != XGrabPointer(hDisplay, hRoot, False, ButtonPressMask,
  1296. X        GrabModeAsync, GrabModeAsync, hRoot, pointer1, CurrentTime)) {
  1297. X    fprintf(stderr,"%s - could not grab pointer!\n", programName);
  1298. X    exit(3);
  1299. X  }
  1300. X
  1301. X  /* create a graphics context to draw with */
  1302. X  gc = XCreateGC(hDisplay, hRoot, 0, NULL);
  1303. X  if (!gc) {
  1304. X    fprintf(stderr,"%s - could not get drawing resources\n", programName);
  1305. X    exit(3);
  1306. X  }
  1307. X  XSetSubwindowMode(hDisplay, gc, IncludeInferiors);
  1308. X  XSetForeground(hDisplay, gc, 255);
  1309. X  XSetFunction(hDisplay, gc, GXxor);
  1310. X
  1311. X  /* get a button-press and pull out the root location */
  1312. X  XMaskEvent(hDisplay, ButtonPressMask, &event);
  1313. X  rootx = rx = event.xbutton.x_root;
  1314. X  rooty = ry = event.xbutton.y_root;
  1315. X
  1316. X  /* get pointer motion events */
  1317. X  XChangeActivePointerGrab(hDisplay, ButtonMotionMask | ButtonReleaseMask,
  1318. X        pointer2, CurrentTime);
  1319. X
  1320. X
  1321. X  /* MAKE_RECT converts the original root coordinates and the event root
  1322. X   * coordinates into a rectangle in xrect */
  1323. #define MAKE_RECT(etype) \
  1324. X  x = event.etype.x_root;       \
  1325. X  y = event.etype.y_root;       \
  1326. X  rw  = x - rootx;              \
  1327. X  if (rw  < 0) rw  = -rw;       \
  1328. X  rh  = y - rooty;              \
  1329. X  if (rh  < 0) rh  = -rh;       \
  1330. X  rx = x < rootx ? x : rootx;   \
  1331. X  ry = y < rooty ? y : rooty
  1332. X
  1333. X  /* loop to let the user drag a rectangle */
  1334. X  while (TRUE) {
  1335. X    XNextEvent(hDisplay, &event);
  1336. X    switch(event.type) {
  1337. X      case ButtonRelease:
  1338. X        if (boxDrawn) {
  1339. X          XDrawRectangle(hDisplay, hRoot, gc, rx, ry, rw, rh);
  1340. X          boxDrawn = False;
  1341. X        }
  1342. X        XFlush(hDisplay);
  1343. X        /* record the final location */
  1344. X        MAKE_RECT(xbutton);
  1345. X        /* release resources */
  1346. X        XFreeGC(hDisplay, gc);
  1347. X        XFreeCursor(hDisplay, pointer1);
  1348. X        XFreeCursor(hDisplay, pointer2);
  1349. X        xrect->x      = rx;
  1350. X        xrect->y      = ry;
  1351. X        xrect->width  = rw;
  1352. X        xrect->height = rh;
  1353. X        XUngrabPointer(hDisplay, CurrentTime);
  1354. X    XSync(hDisplay, FALSE);
  1355. X        return True;
  1356. X      case MotionNotify:
  1357. X        if (boxDrawn) {
  1358. X          XDrawRectangle(hDisplay, hRoot, gc, rx, ry, rw, rh);
  1359. X          boxDrawn = False;
  1360. X        }
  1361. X        while (XCheckTypedEvent(hDisplay, MotionNotify, &event))
  1362. X          {}
  1363. X        MAKE_RECT(xmotion);
  1364. X        XDrawRectangle(hDisplay, hRoot, gc, rx, ry, rw, rh);
  1365. X        boxDrawn = True;
  1366. X        break;
  1367. X    }
  1368. X  }
  1369. }
  1370. X
  1371. X
  1372. X
  1373. X
  1374. X
  1375. X
  1376. /*
  1377. X * find the window under the mouse pointer when one of the bits in keyMask
  1378. X * is satisfied.
  1379. X */
  1380. Window getWindowWhenKeyIsPressed(keyMask)
  1381. X  unsigned int keyMask;
  1382. {
  1383. X  Bool status;
  1384. X  Window result;
  1385. X  Window root, child;
  1386. X  int root_x, root_y, win_x, win_y;
  1387. X  unsigned int keys_buttons;
  1388. X
  1389. X  if (verbose)
  1390. X    fprintf(stderr, "%s: waiting for keypress\n", programName);
  1391. X
  1392. X  do {
  1393. X    status = XQueryPointer(hDisplay, vRoot, &root, &child,
  1394. X              &root_x, &root_y, &win_x, &win_y, &keys_buttons);
  1395. X    if (!status)
  1396. X      return (Window)0;
  1397. X  } while ((keyMask != 0) && ((keyMask & keys_buttons) == 0));
  1398. X
  1399. X  if (child == (Window)0) {
  1400. X    if (verbose) {
  1401. X      fprintf(stderr, "%s: unable to find a non-root window under pointer.\n",
  1402. X              programName);
  1403. X      fprintf(stderr, "%s: using root window.\n", programName);
  1404. X    }
  1405. X    result = (Window)vRoot;
  1406. X  }
  1407. X  else
  1408. X    result = child;
  1409. X
  1410. X  if (verbose)
  1411. X    fprintf(stderr, "%s: returning window id %d\n", programName, result);
  1412. X
  1413. X  return result;
  1414. }
  1415. X
  1416. X
  1417. X
  1418. X
  1419. /*
  1420. X * choose a window as in xwd
  1421. X */
  1422. X
  1423. Window getWindow() {
  1424. X  int status;
  1425. X  Cursor cursor;
  1426. X  XEvent event;
  1427. X  Window result;
  1428. X
  1429. X  result = None;
  1430. X
  1431. X  cursor = XCreateFontCursor(hDisplay, XC_target);
  1432. X
  1433. X  status = XGrabPointer(hDisplay, vRoot, FALSE,
  1434. X         ButtonPressMask|ButtonReleaseMask, GrabModeSync,
  1435. X         GrabModeAsync, hRoot, cursor, CurrentTime);
  1436. X  if (status != GrabSuccess) {
  1437. X    fprintf(stderr, "%s: can't grab mouse\n", programName);
  1438. X    exit(3);
  1439. X  }
  1440. X
  1441. X  while (TRUE) {
  1442. X    XAllowEvents(hDisplay, SyncPointer, CurrentTime);
  1443. X    XWindowEvent(hDisplay, vRoot, ButtonPressMask|ButtonReleaseMask, &event);
  1444. X
  1445. X    switch (event.type) {
  1446. X      case ButtonRelease:
  1447. X        result = event.xbutton.subwindow;
  1448. X        if (result == None)
  1449. X          result = hRoot;
  1450. X        XUngrabPointer(hDisplay, CurrentTime);      /* Done with pointer */
  1451. X        if (verbose)
  1452. X          fprintf(stderr, "%s: found window with id 0x%x\n", programName, result);
  1453. X        return result;
  1454. X        break;
  1455. X    }
  1456. X  }
  1457. X
  1458. }
  1459. X
  1460. X
  1461. X
  1462. X
  1463. SHAR_EOF
  1464. chmod 0644 get.hc ||
  1465. echo 'restore of get.hc failed'
  1466. Wc_c="`wc -c < 'get.hc'`"
  1467. test 7414 -eq "$Wc_c" ||
  1468.     echo 'get.hc: original size 7414, current size' "$Wc_c"
  1469. rm -f _shar_wnt_.tmp
  1470. fi
  1471. # ============= process.hc ==============
  1472. if test -f 'process.hc' -a X"$1" != X"-c"; then
  1473.     echo 'x - skipping process.hc (File already exists)'
  1474.     rm -f _shar_wnt_.tmp
  1475. else
  1476. > _shar_wnt_.tmp
  1477. echo 'x - extracting process.hc (Text)'
  1478. sed 's/^X//' << 'SHAR_EOF' > 'process.hc' &&
  1479. /*========================================================================
  1480. X *
  1481. X * Name - process.hc
  1482. X *
  1483. X * ccs version:    1.2
  1484. X *
  1485. X * ccsid:    @(#)process.hc    1.2 - 7/6/92 10:52:51
  1486. X * from:     ccs/s.process.hc
  1487. X * date:     7/9/92 13:35:28
  1488. X *
  1489. X * Description:  color processing functions for xgrabsc
  1490. X *
  1491. X *               see cpyright.h for copyright information
  1492. X *
  1493. X *
  1494. X *========================================================================
  1495. X */
  1496. X
  1497. /*
  1498. X * Alter colors by setting or clearing bits in rgb values.
  1499. X * This effectively reduces the depth of the image, causing the
  1500. X * number of colors used to be reduced.  Equivalent colors are
  1501. X * merged in the image, and the used flags of remapped colors are
  1502. X * cleared.
  1503. X *
  1504. X * The number of eliminated colormap entries is returned.  The colormap
  1505. X * is not compressed.
  1506. X */
  1507. alterPlanes(image, modeIsAnd, bits)
  1508. X  imageInfo *image;
  1509. X  int modeIsAnd;      /* if TRUE, combine mask with AND; if FALSE, use OR */
  1510. X  unsigned int bits;
  1511. {
  1512. X  int nc, cidx, ridx, h, w;
  1513. X  long p;
  1514. X  XImage *ximage = image->ximage;
  1515. X  long map[MAX_CELLS];
  1516. X  int remapCount;
  1517. X  word mask;
  1518. X
  1519. X  if (ximage->depth <= 1)
  1520. X    return 0;
  1521. X
  1522. X  mask = 0xFFFF ^ ((1 << (bits+8)) - 1);
  1523. X  if (!modeIsAnd)
  1524. X    mask = ~mask & 0xFFFF;
  1525. X
  1526. X  if (verbose) {
  1527. X    fprintf(stderr, "%s: %s color with mask %x...", programName,
  1528. X            modeIsAnd? "ANDing" : "ORing", mask);
  1529. X    fflush(stderr);
  1530. X  }
  1531. X
  1532. X  nc = image->numcells;
  1533. X  if (modeIsAnd)
  1534. X    for (cidx=0; cidx<nc; cidx++) {
  1535. X      nr[cidx] = image->red[cidx]   & mask;
  1536. X      ng[cidx] = image->green[cidx] & mask;
  1537. X      nb[cidx] = image->blue[cidx]  & mask;
  1538. X    }
  1539. X  else
  1540. X    for (cidx=0; cidx<nc; cidx++) {
  1541. X      nr[cidx] = image->red[cidx]   | mask;
  1542. X      ng[cidx] = image->green[cidx] | mask;
  1543. X      nb[cidx] = image->blue[cidx]  | mask;
  1544. X    }
  1545. X
  1546. X  /* now eliminate redundant colors */
  1547. X  for (cidx=0; cidx<nc; cidx++)
  1548. X    map[cidx] = cidx;
  1549. X  remapCount = 0;
  1550. X  for (cidx=0; cidx<nc; cidx++)
  1551. X    if (image->used[cidx])
  1552. X      for (ridx=cidx+1; ridx<nc; ridx++)
  1553. X        if (image->used[ridx]  &&
  1554. X            nr[cidx]==nr[ridx] &&
  1555. X            ng[cidx]==ng[ridx] &&
  1556. X            nb[cidx]==nb[ridx]) {
  1557. X          /* the colors match - remap this pixel to the one we're scanning with */
  1558. X          map[ridx] = cidx;
  1559. X          image->used[ridx] = FALSE;
  1560. X          remapCount++;
  1561. X        }
  1562. X
  1563. X  memcpy((char *)image->red,   (char *)nr, nc*sizeof(word));
  1564. X  memcpy((char *)image->green, (char *)ng, nc*sizeof(word));
  1565. X  memcpy((char *)image->blue,  (char *)nb, nc*sizeof(word));
  1566. X
  1567. X  /* remap redundant pixels in the image */
  1568. X  if (remapCount)
  1569. X    for (h=0; h<ximage->height; h++)
  1570. X      for (w=0; w<ximage->width; w++) {
  1571. X        p = XGetPixel(ximage, w, h);
  1572. X        if (p != map[p])
  1573. X          XPutPixel(ximage, w, h, map[p]);
  1574. X      }
  1575. X
  1576. X  if (verbose)
  1577. X    fprintf(stderr, "  %d colors remapped\n", remapCount, nc);
  1578. X  return remapCount;
  1579. }
  1580. X
  1581. X
  1582. X
  1583. X
  1584. X
  1585. /* Brighten or darken colors in the image by the given amount ('percent').
  1586. X * The amount is an integer that, if less than 100 will darken the image
  1587. X * and if greater than 100 will brighten the image.  After modifying
  1588. X * colors equivalent colors are merged (as in alterPlanes).  The number
  1589. X * of eliminated colors is returned.
  1590. X */
  1591. brightenColors(image, percent)
  1592. X  imageInfo *image;
  1593. X  int percent;
  1594. {
  1595. X  int nc, cidx, ridx, h, w;
  1596. X  long p;
  1597. X  XImage *ximage = image->ximage;
  1598. X  float  adjustment;
  1599. X  long map[MAX_CELLS];
  1600. X  int remapCount;
  1601. X  dw new;
  1602. X
  1603. X  if (ximage->depth <= 1)
  1604. X    return 0;
  1605. X
  1606. X  if (verbose) {
  1607. X    fprintf(stderr, "%s: adjusting intensity by %d...", programName, percent);
  1608. X    fflush(stderr);
  1609. X  }
  1610. X
  1611. X  adjustment = (float)percent / 100.0;
  1612. X  nc = image->numcells;
  1613. X  for (cidx=0; cidx<nc; cidx++) {
  1614. X    new = image->red[cidx] * adjustment;
  1615. X    if (new > (dw)0xFFFF) new = (dw)0xFFFF;
  1616. X    nr[cidx] = new;
  1617. X    new = image->green[cidx] * adjustment;
  1618. X    if (new > (dw)0xFFFF) new = (dw)0xFFFF;
  1619. X    ng[cidx] = new;
  1620. X    new = image->blue[cidx] * adjustment;
  1621. X    if (new > (dw)0xFFFF) new = (dw)0xFFFF;
  1622. X    nb[cidx] = new;
  1623. X  }
  1624. X
  1625. X  /* now eliminate redundant colors */
  1626. X  for (cidx=0; cidx<nc; cidx++)
  1627. X    map[cidx] = cidx;
  1628. X  remapCount = 0;
  1629. X  for (cidx=0; cidx<nc; cidx++)
  1630. X    if (image->used[cidx])
  1631. X      for (ridx=cidx+1; ridx<nc; ridx++)
  1632. X        if (image->used[ridx]  &&
  1633. X            nr[cidx]==nr[ridx] &&
  1634. X            ng[cidx]==ng[ridx] &&
  1635. X            nb[cidx]==nb[ridx]) {
  1636. X          map[ridx] = cidx;
  1637. X          image->used[ridx] = FALSE;
  1638. X          remapCount++;
  1639. X        }
  1640. X
  1641. X  memcpy((char *)image->red,   (char *)nr, nc*sizeof(word));
  1642. X  memcpy((char *)image->green, (char *)ng, nc*sizeof(word));
  1643. X  memcpy((char *)image->blue,  (char *)nb, nc*sizeof(word));
  1644. X
  1645. X  /* remap redundant pixels in the image */
  1646. X  if (remapCount)
  1647. X    for (h=0; h<ximage->height; h++)
  1648. X      for (w=0; w<ximage->width; w++) {
  1649. X        p = XGetPixel(ximage, w, h);
  1650. X        if (p != map[p])
  1651. X          XPutPixel(ximage, w, h, map[p]);
  1652. X      }
  1653. X
  1654. X
  1655. X  if (verbose)
  1656. X    fprintf(stderr, "  %d colors remapped\n", remapCount, nc);
  1657. X
  1658. X  return remapCount;
  1659. }
  1660. X
  1661. X
  1662. X
  1663. X
  1664. X
  1665. /* Reverse the colors in the image */
  1666. reverseColors(image)
  1667. X  imageInfo *image;
  1668. {
  1669. X  int nc, cidx;
  1670. X  long size, idx;
  1671. X  unsigned char *data;
  1672. SHAR_EOF
  1673. true || echo 'restore of process.hc failed'
  1674. fi
  1675. echo 'End of  part 2'
  1676. echo 'File process.hc is continued in part 3'
  1677. echo 3 > _shar_seq_.tmp
  1678. exit 0
  1679. -- 
  1680. ---
  1681. Senior Systems Scientist        mail: dcmartin@msi.com
  1682. Molecular Simulations, Inc.        uucp: uunet!dcmartin
  1683. 796 North Pastoria Avenue        at&t: 408/522-9236
  1684.