home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume8 / xfig2.8 / part01 next >
Internet Message Format  |  1990-07-02  |  63KB
  1. Path: uunet!lll-winken!sun-barr!newstop!sun!epb2.lbl.gov
  2. From: envbvs@epb2.lbl.gov (Brian V. Smith)
  3. Newsgroups: comp.sources.x
  4. Subject: v08i010: xfig -- X Drawing Tool, Part01/21
  5. Message-ID: <138237@sun.Eng.Sun.COM>
  6. Date: 2 Jul 90 21:25:10 GMT
  7. Sender: news@sun.Eng.Sun.COM
  8. Lines: 2051
  9. Approved: argv@sun.com
  10.  
  11. Submitted-by: envbvs@epb2.lbl.gov (Brian V. Smith)
  12. Posting-number: Volume 8, Issue 10
  13. Archive-name: xfig2.8/part01
  14.  
  15. This is the next release of xfig 2.0, patchlevel 8.  I have included
  16. the WHOLE source this time to prevent the problems of patching that 
  17. I had caused in the past.
  18. The CHANGES description follows.
  19.  
  20. - Brian Smith
  21. _____________________________________
  22. Brian V. Smith    (bvsmith@lbl.gov)
  23. Lawrence Berkeley Laboratory
  24. I don't speak for LBL, these non-opinions are all mine.
  25.  
  26. ______________________________________________________________________
  27. xfig Version 2.0 
  28.  
  29. Patchlevel 8
  30. Changes from patchlevel 7:
  31.  
  32. o Many bugs fixed with flipping arcs, malloc/free, popup menu 
  33.     going off screen, gcc warnings, etc.
  34.     From Isamu Wada <i-wada@srans3.sra.co.jp>
  35. o Bug fixed in redisplay.c where all but the most recently created
  36.     compounds' objects were invisible
  37. o Changed code that assumed a (char *) return value for sprintf
  38.     to follow POSIX and ANSI C standard of returning int.
  39. o Removed conditional compilation flags for R3, since R3 is no
  40.     longer supported :-(
  41. o Moved initializing of Fig icon in main() to work with mwm
  42.     From David Elliot <dce@smsc.sony.com>
  43. o f2p and f2ps now return meaningfull error codes: 0 for OK, 1 for error
  44. o Errors in reading figure file should report correct line numbers now
  45. o Handles "default" font for TransFig correctly
  46. o Text input is now correctly terminated whenever a menu item is chosen,
  47.     not just on CR or middle-button pressed
  48. o troff_ft_codes files allows ANY white space between troff font name
  49.     and Postscript fone name
  50. o Attempting to move the center point of circle/ellipse with move-point 
  51.     no longer makes point markers disappear
  52. o BoundingBox computed correctly for centered and right-justified text now
  53.     for f2ps and save-as-bitmap
  54.     From Tom Tkacik
  55. o Font names output by f2p and f2ps fixed for -TFX option.
  56.     From Guy Cardwell
  57. o Object icon displayed in change-object popup menu
  58. o Removed rounded-corner boxes from TFX compile-time option and reverted
  59.     protocol version to 1.4-TFX, as per Micah Beck (beck@cs.cornell.edu) 
  60.  
  61. _____________________________ shar file Part 01/21 _____________________________ 
  62.  
  63. #! /bin/sh
  64. # This is a shell archive.  Remove anything before this line, then unpack
  65. # it by saving it into a file and typing "sh file".  To overwrite existing
  66. # files, type "sh file -c".  You can also feed this as standard input via
  67. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  68. # will see the following message at the end:
  69. #        "End of archive 1 (of 21)."
  70. # Contents:  @figs @figs/balance.fig @figs/bath.fig @figs/bedroom1.fig
  71. #   @figs/bedroom2.fig @figs/cassette.fig @figs/dresser.fig
  72. #   @figs/greek.fig @figs/shades.fig @figs/splinefill.fig
  73. #   @figs/thermal.fig @figs/window1.fig FORMAT1.3 Fig.ad Imakefile
  74. #   README alloc.h arrow.c blink.c break.c color.c const.h dir.c
  75. #   f2p.man f2ps.man fig.h font.h paintop.h patchlevel.h psfonts.h
  76. #   puterr.c switch.h troff_fonts.c troff_fonts.h troff_ft_codes
  77. #   version.h xtra.h
  78. # Wrapped by envbvs@epb2.lbl.gov on Thu Jun 28 08:50:23 1990
  79. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  80. if test ! -d '@figs' ; then
  81.     echo shar: Creating directory \"'@figs'\"
  82.     mkdir '@figs'
  83. fi
  84. if test -f '@figs/balance.fig' -a "${1}" != "-c" ; then 
  85.   echo shar: Will not clobber existing file \"'@figs/balance.fig'\"
  86. else
  87. echo shar: Extracting \"'@figs/balance.fig'\" \(781 characters\)
  88. sed "s/^X//" >'@figs/balance.fig' <<'END_OF_FILE'
  89. X#FIG 1.4
  90. X80 2
  91. X2 1 0 4 0 0 0 0 0.000 0 0
  92. X     139 239 674 134 9999 9999
  93. X2 1 0 2 0 0 0 0 0.000 0 0
  94. X     159 234 159 269 9999 9999
  95. X2 1 0 2 0 0 0 0 0.000 0 0
  96. X     659 139 659 169 9999 9999
  97. X2 3 0 3 0 0 0 0 0.000 0 0
  98. X     394 189 329 304 469 304 394 189 9999 9999
  99. X3 1 0 2 0 0 0 0 0.000 0 0
  100. X     654 214 649 189 664 169 659 164 644 179 644 214 649 209 654 214 9999 9999
  101. X3 1 0 2 0 0 0 0 0.000 0 0
  102. X     669 209 619 214 599 239 599 274 614 309 594 354 574 394 579 439 639 479 684 479 724 469 754 419 744 364 709 319 699 274 699 234 669 209 9999 9999
  103. X3 1 0 2 0 0 0 0 0.000 0 0
  104. X     164 314 169 289 154 269 159 264 174 279 174 314 169 309 164 314 9999 9999
  105. X3 1 0 2 0 0 0 0 0.000 0 0
  106. X     139 299 104 329 84 389 109 449 139 454 154 434 184 439 194 454 214 449 234 429 259 369 234 324 209 299 174 314 139 299 9999 9999
  107. END_OF_FILE
  108. if test 781 -ne `wc -c <'@figs/balance.fig'`; then
  109.     echo shar: \"'@figs/balance.fig'\" unpacked with wrong size!
  110. fi
  111. # end of '@figs/balance.fig'
  112. fi
  113. if test -f '@figs/bath.fig' -a "${1}" != "-c" ; then 
  114.   echo shar: Will not clobber existing file \"'@figs/bath.fig'\"
  115. else
  116. echo shar: Extracting \"'@figs/bath.fig'\" \(1382 characters\)
  117. sed "s/^X//" >'@figs/bath.fig' <<'END_OF_FILE'
  118. X#FIG 1.4X
  119. X80 2
  120. X5 1 0 1 0 0 0 0 0.000 0 0 0 390.167 205.167 394 204 393 208 389 209
  121. X1 2 0 1 0 0 0 0 0.000 1 0.000 423 378 30 22 458 360 391 402
  122. X2 1 0 1 0 0 0 0 0.000 0 0
  123. X     404 394 385 394 9999 9999
  124. X2 1 0 1 0 0 0 0 0.000 0 0
  125. X     405 360 385 360 9999 9999
  126. X2 4 0 1 0 0 3 0 0.000 0 0
  127. X     385 351 363 351 363 406 385 406 385 351 9999 9999
  128. X2 3 0 1 0 0 0 5 0.000 0 0
  129. X     404 99 339 99 339 439 379 439 379 419 359 419 359 119 404 119 404 99 9999 9999
  130. X2 3 0 1 0 0 0 5 0.000 0 0
  131. X     494 119 494 99 529 99 529 199 644 199 644 439 489 439 489 419 624 419 624 219 509 219 509 119 494 119 9999 9999
  132. X2 1 0 1 0 0 0 0 0.000 0 0
  133. X     509 219 509 419 9999 9999
  134. X2 4 0 1 0 0 7 0 0.000 0 0
  135. X     524 234 524 404 609 404 609 234 524 234 9999 9999
  136. X2 2 0 1 0 0 0 0 0.000 0 0
  137. X     379 419 379 439 489 439 489 419 379 419 9999 9999
  138. X2 1 0 1 0 0 0 0 0.000 0 0
  139. X     379 429 489 429 9999 9999
  140. X2 4 0 1 0 0 6 0 0.000 0 0
  141. X     364 249 364 319 419 319 419 249 364 249 9999 9999
  142. X2 4 0 1 0 0 8 0 0.000 0 0
  143. X     374 259 374 309 409 309 409 259 374 259 9999 9999
  144. X2 1 0 1 0 0 0 0 0.000 0 0
  145. X     394 119 394 204 9999 9999
  146. X2 1 0 1 0 0 0 0 0.000 0 0
  147. X     359 209 389 209 9999 9999
  148. X2 1 0 1 0 0 0 0 0.000 0 0
  149. X     414 149 494 109 9999 9999
  150. X4 0 0 12 0 0 0 0.000 1 9 32 133 474 Outlet
  151. X4 1 34 18 0 0 0 0.000 1 18 20 112 481 h
  152. X4 1 34 18 0 0 0 0.000 1 18 20 369 241 h
  153. X4 0 0 20 0 0 0 0.000 1 13 117 109 414 134 Behrens st.
  154. X4 1 0 14 0 0 0 0.000 1 10 27 438 214 Bath
  155. END_OF_FILE
  156. echo shar: 5 control characters may be missing from \"'@figs/bath.fig'\"
  157. if test 1382 -ne `wc -c <'@figs/bath.fig'`; then
  158.     echo shar: \"'@figs/bath.fig'\" unpacked with wrong size!
  159. fi
  160. # end of '@figs/bath.fig'
  161. fi
  162. if test -f '@figs/bedroom1.fig' -a "${1}" != "-c" ; then 
  163.   echo shar: Will not clobber existing file \"'@figs/bedroom1.fig'\"
  164. else
  165. echo shar: Extracting \"'@figs/bedroom1.fig'\" \(1457 characters\)
  166. sed "s/^X//" >'@figs/bedroom1.fig' <<'END_OF_FILE'
  167. X#FIG 1.4X
  168. X80 2
  169. X2 3 0 1 0 0 0 5 0.000 0 0
  170. X     614 199 614 379 634 379 634 324 769 324 769 209 714 209 714 229 749 229 749 304 634 304 634 229 664 229 664 209 634 209 634 199 614 199 9999 9999
  171. X2 1 0 1 0 0 0 0 0.000 0 0
  172. X     624 479 589 389 9999 9999
  173. X2 1 0 1 0 0 0 0 0.000 0 1
  174. X    0 0 1.000 4.000 8.000
  175. X     44 524 44 324 9999 9999
  176. X2 1 0 1 0 0 0 0 0.000 0 1
  177. X    0 0 1.000 4.000 8.000
  178. X     44 84 44 284 9999 9999
  179. X2 1 0 1 0 0 0 0 0.000 0 0
  180. X     54 529 34 529 9999 9999
  181. X2 1 0 1 0 0 0 0 0.000 0 0
  182. X     54 79 34 79 9999 9999
  183. X2 1 0 1 0 0 0 0 0.000 0 1
  184. X    0 0 1.000 4.000 8.000
  185. X     609 44 374 44 9999 9999
  186. X2 1 0 1 0 0 0 0 0.000 0 1
  187. X    0 0 1.000 4.000 8.000
  188. X     84 44 319 44 9999 9999
  189. X2 1 0 1 0 0 0 0 0.000 0 0
  190. X     614 34 614 54 9999 9999
  191. X2 1 0 1 0 0 0 0 0.000 0 0
  192. X     79 34 79 54 9999 9999
  193. X2 1 0 1 0 0 0 0 0.000 0 0
  194. X     59 414 79 414 9999 9999
  195. X2 1 0 1 0 0 0 0 0.000 0 0
  196. X     69 304 69 524 9999 9999
  197. X2 2 0 1 0 0 0 0 0.000 0 0
  198. X     59 304 79 304 79 524 59 524 59 304 9999 9999
  199. X2 3 0 1 0 0 0 5 0.000 0 0
  200. X     634 549 769 549 769 324 749 324 749 529 634 529 634 479 614 479 614 529 79 529 79 524 59 524 59 549 634 549 9999 9999
  201. X2 1 0 1 0 0 0 0 0.000 0 0
  202. X     624 109 584 184 9999 9999
  203. X2 3 0 1 0 0 0 5 0.000 0 0
  204. X     79 79 79 304 59 304 59 59 644 59 644 79 634 79 634 109 614 109 614 79 79 79 9999 9999
  205. X4 1 0 12 0 0 0 0.000 1 9 33 684 434 Closet
  206. X4 1 0 12 0 0 0 0.000 1 9 28 694 274 Linen
  207. X4 1 0 14 0 0 0 0.000 1 10 63 334 279 Bedroom 1
  208. X4 1 0 14 0 0 0 0.000 1 10 31 34 309 11'3"
  209. X4 1 0 14 0 0 0 0.000 1 10 31 349 49 13'4"
  210. END_OF_FILE
  211. echo shar: 5 control characters may be missing from \"'@figs/bedroom1.fig'\"
  212. if test 1457 -ne `wc -c <'@figs/bedroom1.fig'`; then
  213.     echo shar: \"'@figs/bedroom1.fig'\" unpacked with wrong size!
  214. fi
  215. # end of '@figs/bedroom1.fig'
  216. fi
  217. if test -f '@figs/bedroom2.fig' -a "${1}" != "-c" ; then 
  218.   echo shar: Will not clobber existing file \"'@figs/bedroom2.fig'\"
  219. else
  220. echo shar: Extracting \"'@figs/bedroom2.fig'\" \(1291 characters\)
  221. sed "s/^X//" >'@figs/bedroom2.fig' <<'END_OF_FILE'
  222. X#FIG 1.4X
  223. X80 2
  224. X2 1 0 1 0 0 0 0 0.000 0 0
  225. X     644 144 609 234 9999 9999
  226. X2 1 0 1 0 0 0 0 0.000 0 1
  227. X    0 0 1.000 4.000 8.000
  228. X     44 529 44 324 9999 9999
  229. X2 1 0 1 0 0 0 0 0.000 0 1
  230. X    0 0 1.000 4.000 8.000
  231. X     44 84 44 289 9999 9999
  232. X2 1 0 1 0 0 0 0 0.000 0 1
  233. X    0 0 1.000 4.000 8.000
  234. X     629 44 364 44 9999 9999
  235. X2 1 0 1 0 0 0 0 0.000 0 1
  236. X    0 0 1.000 4.000 8.000
  237. X     84 44 314 44 9999 9999
  238. X2 1 0 1 0 0 0 0 0.000 0 0
  239. X     54 534 34 534 9999 9999
  240. X2 1 0 1 0 0 0 0 0.000 0 0
  241. X     54 79 34 79 9999 9999
  242. X2 1 0 1 0 0 0 0 0.000 0 0
  243. X     634 34 634 54 9999 9999
  244. X2 1 0 1 0 0 0 0 0.000 0 0
  245. X     79 34 79 54 9999 9999
  246. X2 1 0 1 0 0 0 0 0.000 0 0
  247. X     739 544 644 514 9999 9999
  248. X2 3 0 1 0 0 0 5 0.000 0 0
  249. X     769 554 769 399 654 399 654 244 634 244 634 419 749 419 749 534 739 534 739 554 769 554 9999 9999
  250. X2 3 0 1 0 0 0 5 0.000 0 0
  251. X     59 414 59 554 639 554 639 534 79 534 79 414 59 414 9999 9999
  252. X2 1 0 1 0 0 0 0 0.000 0 0
  253. X     69 194 69 414 9999 9999
  254. X2 2 0 1 0 0 0 0 0.000 0 0
  255. X     59 194 79 194 79 414 59 414 59 194 9999 9999
  256. X2 3 0 1 0 0 0 5 0.000 0 0
  257. X     774 59 774 314 654 314 654 294 754 294 754 79 654 79 654 144 634 144 634 79 79 79 79 194 59 194 59 59 774 59 9999 9999
  258. X4 2 0 12 0 0 0 0.000 1 9 33 702 189 Closet
  259. X4 1 0 14 0 0 0 0.000 1 10 63 344 279 Bedroom 2
  260. X4 2 0 14 0 0 0 0.000 1 10 31 54 309 11'4"
  261. X4 1 0 14 0 0 0 0.000 1 10 38 339 49 13'10"
  262. END_OF_FILE
  263. echo shar: 4 control characters may be missing from \"'@figs/bedroom2.fig'\"
  264. if test 1291 -ne `wc -c <'@figs/bedroom2.fig'`; then
  265.     echo shar: \"'@figs/bedroom2.fig'\" unpacked with wrong size!
  266. fi
  267. # end of '@figs/bedroom2.fig'
  268. fi
  269. if test -f '@figs/cassette.fig' -a "${1}" != "-c" ; then 
  270.   echo shar: Will not clobber existing file \"'@figs/cassette.fig'\"
  271. else
  272. echo shar: Extracting \"'@figs/cassette.fig'\" \(1218 characters\)
  273. sed "s/^X//" >'@figs/cassette.fig' <<'END_OF_FILE'
  274. X#FIG 1.4
  275. X80 2
  276. X5 1 0 1 0 0 0 0 0.000 0 0 0 239.000 221.500 259 199 269 219 259 244
  277. X5 1 0 1 0 0 0 0 0.000 1 0 0 391.500 221.500 359 194 349 219 359 249
  278. X5 1 0 1 0 0 0 0 0.000 1 0 0 376.500 221.500 304 194 299 219 304 249
  279. X5 1 0 1 0 0 0 0 0.000 0 0 0 246.500 221.500 264 194 279 219 264 249
  280. X1 4 0 1 0 0 0 0 0.000 1 0.000 419 224 15 15 419 209 419 239
  281. X1 4 0 1 0 0 0 0 0.000 1 0.000 204 224 15 15 204 209 204 239
  282. X1 4 0 2 0 0 0 0 0.000 1 0.000 421 224 21 21 414 204 429 245
  283. X1 4 0 2 0 0 0 0 0.000 1 0.000 204 224 21 21 199 204 209 244
  284. X1 4 0 1 0 0 0 21 0.000 1 0.000 419 388 8 8 415 383 424 394
  285. X1 4 0 1 0 0 0 21 0.000 1 0.000 199 389 8 8 194 384 204 394
  286. X2 3 0 1 0 0 0 0 0.000 0 0
  287. X     539 304 544 314 544 379 539 384 539 304 9999 9999
  288. X2 3 0 1 0 0 0 0 0.000 0 0
  289. X     79 304 74 314 74 379 79 384 79 304 9999 9999
  290. X2 3 0 1 0 0 0 3 0.000 0 0
  291. X     134 399 161 334 457 334 484 399 134 399 9999 9999
  292. X2 3 0 1 0 0 0 10 0.000 0 0
  293. X     139 399 164 339 454 339 479 399 139 399 9999 9999
  294. X2 4 0 1 0 0 8 0 0.000 0 0
  295. X     99 139 99 319 519 319 519 139 99 139 9999 9999
  296. X2 4 0 1 0 0 8 0 0.000 0 0
  297. X     79 119 79 399 539 399 539 119 79 119 9999 9999
  298. X2 2 0 1 0 0 0 0 0.000 0 0
  299. X     259 194 259 249 359 249 359 194 259 194 9999 9999
  300. X4 0 0 12 0 0 0 0.000 1 9 6 109 164 A
  301. END_OF_FILE
  302. echo shar: 1 control character may be missing from \"'@figs/cassette.fig'\"
  303. if test 1218 -ne `wc -c <'@figs/cassette.fig'`; then
  304.     echo shar: \"'@figs/cassette.fig'\" unpacked with wrong size!
  305. fi
  306. # end of '@figs/cassette.fig'
  307. fi
  308. if test -f '@figs/dresser.fig' -a "${1}" != "-c" ; then 
  309.   echo shar: Will not clobber existing file \"'@figs/dresser.fig'\"
  310. else
  311. echo shar: Extracting \"'@figs/dresser.fig'\" \(1738 characters\)
  312. sed "s/^X//" >'@figs/dresser.fig' <<'END_OF_FILE'
  313. X#FIG 1.4
  314. X80 2
  315. X2 4 0 1 0 0 5 2 0.000 0 0
  316. X     21 32 21 268 391 268 391 32 21 32 9999 9999
  317. X2 4 0 1 0 0 3 5 0.000 0 0
  318. X     389 242 389 202 224 202 224 242 389 242 9999 9999
  319. X2 4 0 1 0 0 3 5 0.000 0 0
  320. X     389 200 389 160 224 160 224 200 389 200 9999 9999
  321. X2 4 0 1 0 0 3 5 0.000 0 0
  322. X     389 158 389 118 224 118 224 158 389 158 9999 9999
  323. X2 4 0 1 0 0 3 5 0.000 0 0
  324. X     389 116 389 76 224 76 224 116 389 116 9999 9999
  325. X2 4 0 1 0 0 3 5 0.000 0 0
  326. X     389 74 389 34 224 34 224 74 389 74 9999 9999
  327. X2 4 0 1 0 0 3 5 0.000 0 0
  328. X     124 74 124 34 23 34 23 74 124 74 9999 9999
  329. X2 4 0 1 0 0 3 5 0.000 0 0
  330. X     124 116 124 76 23 76 23 116 124 116 9999 9999
  331. X2 4 0 1 0 0 3 5 0.000 0 0
  332. X     124 158 124 118 23 118 23 158 124 158 9999 9999
  333. X2 4 0 1 0 0 3 5 0.000 0 0
  334. X     124 200 124 160 23 160 23 200 124 200 9999 9999
  335. X2 4 0 1 0 0 3 5 0.000 0 0
  336. X     124 242 124 202 23 202 23 242 124 242 9999 9999
  337. X2 4 0 1 0 0 3 5 0.000 0 0
  338. X     126 34 126 242 222 242 222 34 126 34 9999 9999
  339. X2 4 0 1 0 0 3 2 0.000 0 0
  340. X     138 130 138 54 132 54 132 130 138 130 9999 9999
  341. X2 4 0 1 0 0 3 2 0.000 0 0
  342. X     34 38 34 43 115 43 115 38 34 38 9999 9999
  343. X2 4 0 1 0 0 3 2 0.000 0 0
  344. X     34 80 34 85 115 85 115 80 34 80 9999 9999
  345. X2 4 0 1 0 0 3 2 0.000 0 0
  346. X     34 122 34 127 115 127 115 122 34 122 9999 9999
  347. X2 4 0 1 0 0 3 2 0.000 0 0
  348. X     34 164 34 169 115 169 115 164 34 164 9999 9999
  349. X2 4 0 1 0 0 3 2 0.000 0 0
  350. X     34 206 34 211 115 211 115 206 34 206 9999 9999
  351. X2 4 0 1 0 0 3 2 0.000 0 0
  352. X     241 206 241 211 374 211 374 206 241 206 9999 9999
  353. X2 4 0 1 0 0 3 2 0.000 0 0
  354. X     241 164 241 169 374 169 374 164 241 164 9999 9999
  355. X2 4 0 1 0 0 3 2 0.000 0 0
  356. X     241 80 241 85 374 85 374 80 241 80 9999 9999
  357. X2 4 0 1 0 0 3 2 0.000 0 0
  358. X     241 38 241 43 374 43 374 38 241 38 9999 9999
  359. X2 4 0 1 0 0 3 2 0.000 0 0
  360. X     241 122 241 127 374 127 374 122 241 122 9999 9999
  361. END_OF_FILE
  362. if test 1738 -ne `wc -c <'@figs/dresser.fig'`; then
  363.     echo shar: \"'@figs/dresser.fig'\" unpacked with wrong size!
  364. fi
  365. # end of '@figs/dresser.fig'
  366. fi
  367. if test -f '@figs/greek.fig' -a "${1}" != "-c" ; then 
  368.   echo shar: Will not clobber existing file \"'@figs/greek.fig'\"
  369. else
  370. echo shar: Extracting \"'@figs/greek.fig'\" \(802 characters\)
  371. sed "s/^X//" >'@figs/greek.fig' <<'END_OF_FILE'
  372. X#FIG 1.4X
  373. X80 2
  374. X4 0 0 24 0 0 0 0.000 1 22 183 234 479 [  \  ] ^   _  `  { | } ~
  375. X4 0 32 24 0 0 0 0.000 1 28 179 234 519 [ \ ] ^  _ `  { | } ~
  376. X4 0 0 24 0 0 0 0.000 1 21 110 54 484 : ; < = > ? @
  377. X4 0 32 24 0 0 0 0.000 1 21 110 54 519 : ; < = > ? @
  378. X4 0 0 24 0 0 0 0.000 1 24 433 44 369 !  " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9
  379. X4 0 32 24 0 0 0 0.000 1 22 434 44 419 ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9
  380. X4 0 0 24 0 0 0 0.000 1 22 498 49 264 a b c d e  f g h  i  j k  l  m n o p  q r s  t u  v  w x  y z
  381. X4 0 32 24 0 0 0 0.000 1 24 511 49 299 a b c d e f g h i j k l m  n o p q r s t u v w x y z
  382. X4 0 32 24 0 0 0 0.000 1 23 587 44 194 A B C D E F G H I J K L M N O P Q R S T  U V  W X Y Z
  383. X4 0 0 24 0 0 0 0.000 1 22 587 44 144 A B C D E F G H I  J K L M N O  P Q R S T U V W X Y Z
  384. END_OF_FILE
  385. echo shar: 10 control characters may be missing from \"'@figs/greek.fig'\"
  386. if test 802 -ne `wc -c <'@figs/greek.fig'`; then
  387.     echo shar: \"'@figs/greek.fig'\" unpacked with wrong size!
  388. fi
  389. # end of '@figs/greek.fig'
  390. fi
  391. if test -f '@figs/shades.fig' -a "${1}" != "-c" ; then 
  392.   echo shar: Will not clobber existing file \"'@figs/shades.fig'\"
  393. else
  394. echo shar: Extracting \"'@figs/shades.fig'\" \(1674 characters\)
  395. sed "s/^X//" >'@figs/shades.fig' <<'END_OF_FILE'
  396. X#FIG 2.0
  397. X80 2
  398. X2 2 0 1 0 0 0 21 0.000 0 0
  399. X     110 58 82 58 82 204 110 204 110 58 9999 9999
  400. X2 2 0 1 0 0 0 20 0.000 0 0
  401. X     110 58 137 58 137 204 110 204 110 58 9999 9999
  402. X2 2 0 1 0 0 0 19 0.000 0 0
  403. X     164 58 137 58 137 204 164 204 164 58 9999 9999
  404. X2 2 0 1 0 0 0 18 0.000 0 0
  405. X     164 58 189 58 189 204 164 204 164 58 9999 9999
  406. X2 2 0 1 0 0 0 17 0.000 0 0
  407. X     216 58 189 58 189 204 216 204 216 58 9999 9999
  408. X2 2 0 1 0 0 0 16 0.000 0 0
  409. X     216 58 244 58 244 204 216 204 216 58 9999 9999
  410. X2 2 0 1 0 0 0 15 0.000 0 0
  411. X     271 58 244 58 244 204 271 204 271 58 9999 9999
  412. X2 2 0 1 0 0 0 14 0.000 0 0
  413. X     271 58 298 58 298 204 271 204 271 58 9999 9999
  414. X2 2 0 1 0 0 0 13 0.000 0 0
  415. X     325 58 298 58 298 204 325 204 325 58 9999 9999
  416. X2 2 0 1 0 0 0 12 0.000 0 0
  417. X     325 58 352 58 352 204 325 204 325 58 9999 9999
  418. X2 2 0 1 0 0 0 11 0.000 0 0
  419. X     379 58 352 58 352 204 379 204 379 58 9999 9999
  420. X2 2 0 1 0 0 0 10 0.000 0 0
  421. X     379 58 408 58 408 204 379 204 379 58 9999 9999
  422. X2 2 0 1 0 0 0 9 0.000 0 0
  423. X     434 58 408 58 408 204 434 204 434 58 9999 9999
  424. X2 2 0 1 0 0 0 8 0.000 0 0
  425. X     434 58 461 58 461 204 434 204 434 58 9999 9999
  426. X2 2 0 1 0 0 0 7 0.000 0 0
  427. X     488 58 461 58 461 204 488 204 488 58 9999 9999
  428. X2 2 0 1 0 0 0 6 0.000 0 0
  429. X     488 58 515 58 515 204 488 204 488 58 9999 9999
  430. X2 2 0 1 0 0 0 5 0.000 0 0
  431. X     542 58 515 58 515 204 542 204 542 58 9999 9999
  432. X2 2 0 1 0 0 0 4 0.000 0 0
  433. X     542 58 568 58 568 204 542 204 542 58 9999 9999
  434. X2 2 0 1 0 0 0 3 0.000 0 0
  435. X     595 58 568 58 568 204 595 204 595 58 9999 9999
  436. X2 2 0 1 0 0 0 2 0.000 0 0
  437. X     595 58 623 58 623 204 595 204 595 58 9999 9999
  438. X2 2 0 1 0 0 0 1 0.000 0 0
  439. X     649 58 623 58 623 204 649 204 649 58 9999 9999
  440. X2 2 0 1 0 0 0 0 0.000 0 0
  441. X     649 58 676 58 676 204 649 204 649 58 9999 9999
  442. END_OF_FILE
  443. if test 1674 -ne `wc -c <'@figs/shades.fig'`; then
  444.     echo shar: \"'@figs/shades.fig'\" unpacked with wrong size!
  445. fi
  446. # end of '@figs/shades.fig'
  447. fi
  448. if test -f '@figs/splinefill.fig' -a "${1}" != "-c" ; then 
  449.   echo shar: Will not clobber existing file \"'@figs/splinefill.fig'\"
  450. else
  451. echo shar: Extracting \"'@figs/splinefill.fig'\" \(598 characters\)
  452. sed "s/^X//" >'@figs/splinefill.fig' <<'END_OF_FILE'
  453. X#FIG 1.4X
  454. X80 2
  455. X3 1 0 1 0 0 0 9 0.000 0 0
  456. X     514 134 504 209 704 304 704 74 699 194 519 474 424 449 364 274 514 134 9999 9999
  457. X3 3 0 1 0 0 0 5 0.000 0 0
  458. X     134 154 179 334 369 329 264 424 269 149 369 79 354 139 134 154 9999 9999
  459. X     179.792 91.044 95.471 206.971 127.473 294.849 231.784 374.106 355.508 295.307 379.051 354.101 292.167 436.808 209.288 399.122 231.822 218.848 285.499 118.001 349.641 65.684 378.809 85.747 369.793 125.779 297.689 186.138 179.792 91.044 95.471 206.971
  460. X4 1 0 16 0 0 0 0.000 1 15 505 344 514 These splines will be filled when printed, they just aren't filled on the screen.
  461. END_OF_FILE
  462. echo shar: 1 control character may be missing from \"'@figs/splinefill.fig'\"
  463. if test 598 -ne `wc -c <'@figs/splinefill.fig'`; then
  464.     echo shar: \"'@figs/splinefill.fig'\" unpacked with wrong size!
  465. fi
  466. # end of '@figs/splinefill.fig'
  467. fi
  468. if test -f '@figs/thermal.fig' -a "${1}" != "-c" ; then 
  469.   echo shar: Will not clobber existing file \"'@figs/thermal.fig'\"
  470. else
  471. echo shar: Extracting \"'@figs/thermal.fig'\" \(2144 characters\)
  472. sed "s/^X//" >'@figs/thermal.fig' <<'END_OF_FILE'
  473. X#FIG 1.4
  474. X80 2
  475. X1 3 0 1 0 0 0 21 0.000 1 0.000 439 339 5 5 439 339 444 339
  476. X1 3 0 1 0 0 0 21 0.000 1 0.000 199 339 5 5 199 339 204 339
  477. X1 3 0 1 0 0 0 21 0.000 1 0.000 359 259 5 5 359 259 364 259
  478. X1 3 0 1 0 0 0 21 0.000 1 0.000 279 259 5 5 279 259 284 259
  479. X1 3 0 1 0 0 0 0 0.000 1 0.000 359 339 5 5 359 339 364 339
  480. X1 3 0 1 0 0 0 0 0.000 1 0.000 279 339 5 5 279 339 284 339
  481. X2 1 1 1 0 0 0 0 4.000 0 0
  482. X     319 299 399 299 399 379 9999 9999
  483. X2 1 0 1 0 0 0 0 0.000 0 0
  484. X     364 339 434 339 9999 9999
  485. X2 1 0 1 0 0 0 0 0.000 0 0
  486. X     284 339 354 339 9999 9999
  487. X2 1 0 1 0 0 0 0 0.000 0 0
  488. X     359 264 359 334 9999 9999
  489. X2 1 0 1 0 0 0 0 0.000 0 0
  490. X     279 264 279 334 9999 9999
  491. X2 1 0 1 0 0 0 0 0.000 0 0
  492. X     204 339 274 339 9999 9999
  493. X2 1 0 1 0 0 0 0 0.000 0 0
  494. X     424 379 434 389 9999 9999
  495. X2 1 0 1 0 0 0 0 0.000 0 0
  496. X     409 379 419 389 9999 9999
  497. X2 1 0 1 0 0 0 0 0.000 0 0
  498. X     394 379 404 389 9999 9999
  499. X2 1 0 1 0 0 0 0 0.000 0 0
  500. X     379 379 389 389 9999 9999
  501. X2 1 0 1 0 0 0 0 0.000 0 0
  502. X     364 379 374 389 9999 9999
  503. X2 1 0 1 0 0 0 0 0.000 0 0
  504. X     349 379 359 389 9999 9999
  505. X2 1 0 1 0 0 0 0 0.000 0 0
  506. X     334 379 344 389 9999 9999
  507. X2 1 0 1 0 0 0 0 0.000 0 0
  508. X     304 379 314 389 9999 9999
  509. X2 1 0 1 0 0 0 0 0.000 0 0
  510. X     289 379 299 389 9999 9999
  511. X2 1 0 1 0 0 0 0 0.000 0 0
  512. X     274 379 284 389 9999 9999
  513. X2 1 0 1 0 0 0 0 0.000 0 0
  514. X     319 379 329 389 9999 9999
  515. X2 1 0 1 0 0 0 0 0.000 0 0
  516. X     259 379 269 389 9999 9999
  517. X2 1 0 1 0 0 0 0 0.000 0 0
  518. X     244 379 254 389 9999 9999
  519. X2 1 0 1 0 0 0 0 0.000 0 0
  520. X     229 379 239 389 9999 9999
  521. X2 1 0 1 0 0 0 0 0.000 0 0
  522. X     214 379 224 389 9999 9999
  523. X2 1 0 1 0 0 0 0 0.000 0 0
  524. X     209 379 434 379 9999 9999
  525. X2 2 1 1 0 0 0 0 4.000 0 0
  526. X     239 299 319 299 319 379 239 379 239 299 9999 9999
  527. X4 0 0 12 0 0 0 0.000 1 11 54 279 459 Figure 1.
  528. X4 0 0 12 0 0 0 0.000 1 9 6 199 324 1
  529. X4 0 0 12 0 0 0 0.000 1 9 6 194 319 P
  530. X4 0 0 12 0 0 0 0.000 1 9 6 274 239 P
  531. X4 0 0 12 0 0 0 0.000 1 9 6 279 244 2
  532. X4 0 0 12 0 0 0 0.000 1 9 6 359 244 4
  533. X4 0 0 12 0 0 0 0.000 1 9 6 354 239 P
  534. X4 0 0 12 0 0 0 0.000 1 9 6 439 324 5
  535. X4 0 0 12 0 0 0 0.000 1 9 6 434 319 P
  536. X4 0 0 12 0 0 0 0.000 1 9 6 361 365 b
  537. X4 0 0 12 0 0 0 0.000 1 9 6 354 359 P
  538. X4 0 0 12 0 0 0 0.000 1 6 6 280 365 a
  539. X4 0 0 12 0 0 0 0.000 1 9 6 274 359 P
  540. END_OF_FILE
  541. echo shar: 13 control characters may be missing from \"'@figs/thermal.fig'\"
  542. if test 2144 -ne `wc -c <'@figs/thermal.fig'`; then
  543.     echo shar: \"'@figs/thermal.fig'\" unpacked with wrong size!
  544. fi
  545. # end of '@figs/thermal.fig'
  546. fi
  547. if test -f '@figs/window1.fig' -a "${1}" != "-c" ; then 
  548.   echo shar: Will not clobber existing file \"'@figs/window1.fig'\"
  549. else
  550. echo shar: Extracting \"'@figs/window1.fig'\" \(1255 characters\)
  551. sed "s/^X//" >'@figs/window1.fig' <<'END_OF_FILE'
  552. X#FIG 1.5
  553. X80 2
  554. X5 1 0 1 0 0 0 0 0.000 0 1 0 222.750 426.500 294 444 274 479 234 499
  555. X    0 0 1.000 4.000 8.000
  556. X5 1 0 1 0 0 0 0 0.000 0 1 0 208.886 360.136 209 299 249 314 269 349
  557. X    0 0 1.000 4.000 8.000
  558. X2 1 0 2 0 0 0 0 0.000 0 0
  559. X     329 444 369 444 9999 9999
  560. X2 1 0 2 0 0 0 0 0.000 0 0
  561. X     294 374 254 374 9999 9999
  562. X2 3 0 2 0 0 0 11 0.000 0 0
  563. X     254 244 254 304 374 304 374 229 365 228 353 231 346 228 341 224 335 226 330 229 320 234 311 234 306 228 291 224 282 225 278 230 270 235 266 233 259 235 257 239 254 244 9999 9999
  564. X2 2 0 2 0 0 0 0 0.000 0 0
  565. X     304 304 304 309 319 309 319 304 304 304 9999 9999
  566. X2 2 0 2 0 0 0 0 0.000 0 0
  567. X     304 499 304 504 319 504 319 499 304 499 9999 9999
  568. X2 2 0 1 0 0 0 0 0.000 0 0
  569. X     309 499 309 309 314 309 314 499 309 499 9999 9999
  570. X2 3 0 2 0 0 0 11 0.000 0 0
  571. X     254 564 254 504 374 504 374 579 365 580 354 569 349 574 344 569 334 574 324 569 320 574 311 574 306 580 291 584 282 583 278 578 270 573 266 575 259 573 257 569 254 564 9999 9999
  572. X3 0 0 2 0 0 0 0 0.000 0 0
  573. X     294 374 304 374 309 389 309 408 314 412 313 430 319 444 329 444 9999 9999
  574. X4 0 0 10 0 0 0 0.000 1 5 5 351 441 o
  575. X4 0 0 12 0 0 0 0.000 1 9 7 344 439 T
  576. X4 0 0 10 0 0 0 0.000 1 7 3 271 393 i
  577. X4 0 0 12 0 0 0 0.000 1 9 7 264 389 T
  578. X4 0 0 12 0 0 0 0.000 1 11 60 434 719 crack.fig3
  579. END_OF_FILE
  580. echo shar: 5 control characters may be missing from \"'@figs/window1.fig'\"
  581. if test 1255 -ne `wc -c <'@figs/window1.fig'`; then
  582.     echo shar: \"'@figs/window1.fig'\" unpacked with wrong size!
  583. fi
  584. # end of '@figs/window1.fig'
  585. fi
  586. if test -f 'FORMAT1.3' -a "${1}" != "-c" ; then 
  587.   echo shar: Will not clobber existing file \"'FORMAT1.3'\"
  588. else
  589. echo shar: Extracting \"'FORMAT1.3'\" \(2274 characters\)
  590. sed "s/^X//" >'FORMAT1.3' <<'END_OF_FILE'
  591. XThe following is the format of fig output (fig 1.3).
  592. X
  593. XThe first line consists of four number:
  594. X    screen resolution (pixels/inch),
  595. X    screen origin (1 : upper rigth, 2 : upper left, 3 : lower left,
  596. X            4 : lower right),
  597. X    canvas width (pixels),
  598. X    canvas height (pixels)
  599. X
  600. XThe first integer of the rest of the lines represents the followings;
  601. X
  602. X    ELLIPSE        1
  603. X    POLYLINE    2
  604. X    SPLINE        3    (quadratic spline)
  605. X    TEXT        4
  606. X    ARC        5
  607. X    BEGIN_COMPOUND    6
  608. X    END_COMPOUND    -BEGIN_COMPOUND
  609. X
  610. XThe detail of each object is:
  611. X
  612. XARC
  613. X    type (3 : circle by radius, 4 : circle by diameter, 5 : circular arc),
  614. X    line_style,
  615. X    thickness (pixels),
  616. X    dash_length (pixels),
  617. X    direction (0 : clockwise, 1 : counterclokwise),
  618. X    forward_arrow (0: off, 1: on),
  619. X    backward_arrow (0: off, 1: on),
  620. X    arrow_ht (pixels), arrow_wid (pixels), 
  621. X    center.x, center.y,
  622. X    point[0].x, point[0].y, (the 1st point the user entered)
  623. X    point[1].x, point[1].y, (the 2nd point or the last for type 3 or 4)
  624. X    point[2].x, point[2].y  (the last point if type is 5)
  625. X
  626. XBEGIN_COMPOUND
  627. X    upperright_corner.x, upperright_corner.y,
  628. X    lowerleft_corner.x, lowerleft_corner.y
  629. X
  630. XELLIPSE
  631. X    type (1 : defined by radiuses, 2 : defined by diameters),
  632. X    line_style,
  633. X    thickness (pixels),
  634. X    dash_length (pixels),
  635. X    direction (is always 1),
  636. X    center.x, center.y,
  637. X    radius.x, radius.y,
  638. X    start.x, start.y, (the 1st point the user entered)
  639. X    end.x, end.y
  640. X
  641. XLINE
  642. X    type (6 : polyline, 7 : box, 8 : polygon),
  643. X    line_style,
  644. X    thickness (pixels),
  645. X    dash_length (pixels),
  646. X    forward_arrow (0: off, 1: on),
  647. X    backward_arrow (0: off, 1: on),
  648. X    arrow_ht (pixels), arrow_wid (pixels),
  649. X    x1, y1,
  650. X    x2, y2,
  651. X      .
  652. X      .
  653. X    xn, yn,    (this will be the same as the 1st point for type 7 or 8)
  654. X    9999, 9999
  655. X
  656. XSPLINE (quadratic spline)
  657. X    type (10: open spline, 11: closed spline),
  658. X    line_style,
  659. X    thickness (pixels),
  660. X    dash_length (pixels),
  661. X    forward_arrow (0: off, 1: on),
  662. X    backward_arrow (0: off, 1: on),
  663. X    arrow_ht (pixels), arrow_wid (pixels),
  664. X    x1, y1,
  665. X    x2, y2,
  666. X      .
  667. X      .
  668. X    xn, yn,    (this will be the same as the 1st point for type 11)
  669. X    9999, 9999
  670. X
  671. XTEXT
  672. X    font,  (not used)
  673. X    size,  (not used)
  674. X    style, (not used)
  675. X    height (pixels), length (pixels),
  676. X    lowerleft_corner.x (pixels), lowerleft_corner.y (pixels),
  677. X    string (end at newline, \n)
  678. X
  679. XThere are only three line styles defined
  680. X
  681. X    SOLID_LINE    0
  682. X    DASH_LINE    1
  683. X    DOTTED_LINE    2 (not implement)
  684. END_OF_FILE
  685. if test 2274 -ne `wc -c <'FORMAT1.3'`; then
  686.     echo shar: \"'FORMAT1.3'\" unpacked with wrong size!
  687. fi
  688. # end of 'FORMAT1.3'
  689. fi
  690. if test -f 'Fig.ad' -a "${1}" != "-c" ; then 
  691.   echo shar: Will not clobber existing file \"'Fig.ad'\"
  692. else
  693. echo shar: Extracting \"'Fig.ad'\" \(1258 characters\)
  694. sed "s/^X//" >'Fig.ad' <<'END_OF_FILE'
  695. X! Some interesting colors for the different parts of xfig
  696. X! NOTE: this must actually be read by xrdb in order to work
  697. X! correctly, because of the #ifdef.  This will nor work correctly
  698. X! if put in /usr/lib/X11/app-defaults
  699. X
  700. X#ifdef COLOR
  701. X    ! popup command menu
  702. X    Fig.form.popup_menu.menu.pane.background: orange
  703. X    Fig.form.popup_menu.menu.pane.foreground: black
  704. X    ! popup font menu
  705. X    Fig.form.font_menu.menu.pane.background: white
  706. X    Fig.form.font_menu.menu.pane.foreground: slate blue
  707. X    ! font indicator window
  708. X    Fig.form.font_indicator.foreground: slate blue
  709. X    ! side button panel
  710. X    Fig.form.side_panel.background: red
  711. X    Fig.form.side_panel.button.background: orchid
  712. X    Fig.form.side_panel.button.foreground: black
  713. X    ! bottom button panel
  714. X    Fig.form.bottom_panel.background: yellow
  715. X    Fig.form.bottom_panel.button.background: sea green
  716. X    Fig.form.bottom_panel.button.foreground: black
  717. X    ! side ruler 
  718. X    Fig.form.sruler.background: yellow
  719. X    ! top ruler 
  720. X    Fig.form.truler.background: green
  721. X    ! message window
  722. X    Fig.form.message.background: pink
  723. X    ! change object popup menu
  724. X    Fig.change.form.done.background: green
  725. X    Fig.change.form.apply.background: yellow
  726. X    Fig.change.form.cancel.background: red
  727. X    Fig.change.form.image.background: blue
  728. X    Fig.change.form.image.foreground: yellow
  729. X#endif
  730. END_OF_FILE
  731. if test 1258 -ne `wc -c <'Fig.ad'`; then
  732.     echo shar: \"'Fig.ad'\" unpacked with wrong size!
  733. fi
  734. # end of 'Fig.ad'
  735. fi
  736. if test -f 'Imakefile' -a "${1}" != "-c" ; then 
  737.   echo shar: Will not clobber existing file \"'Imakefile'\"
  738. else
  739. echo shar: Extracting \"'Imakefile'\" \(1991 characters\)
  740. sed "s/^X//" >'Imakefile' <<'END_OF_FILE'
  741. XSYS_LIBRARIES=         -lm
  742. XDEPLIBS =         XawClientDepLibs
  743. XLOCAL_LIBRARIES =     XawClientLibs
  744. XFONTFILE =         troff_ft_codes
  745. XFONTLIBDIR =         $(LIBDIR)/xfig
  746. XDEFINES =         -DFONTFILE=\"$(FONTFILE)\"\
  747. X            -DFONTLIBDIR=\"$(FONTLIBDIR)\"
  748. X
  749. X
  750. XXFIGSRC =    addpt.c arc.c arcbox.c arrow.c autoarrow.c bitmap.c\
  751. X        blink.c bound.c box.c break.c canvas.c change.c\
  752. X        color.c char.c copy.c\
  753. X        cursor.c curve.c deletept.c dir.c drag.c draw.c\
  754. X        ellipse.c file.c flip.c font.c free.c geom.c\
  755. X        global.c glue.c graphics.c grid.c intspline.c\
  756. X        latex_line.c line.c list.c main.c move.c movept.c\
  757. X        msgsw.c panel.c popup.c print.c printfonts.c psbits.c\
  758. X        psfonts.c puterr.c read.c read1_3.c redisplay.c\
  759. X        remove.c rotate.c ruler.c save.c scale.c search.c\
  760. X        spline.c text.c trans.c turn.c undo.c util.c xtra.c
  761. X
  762. XXFIGOBJ =    addpt.o arc.o arcbox.o arrow.o autoarrow.o bitmap.o\
  763. X        blink.o bound.o box.o break.o canvas.o change.o\
  764. X        color.o char.o copy.o\
  765. X        cursor.o curve.o deletept.o dir.o drag.o draw.o\
  766. X        ellipse.o file.o flip.o font.o free.o geom.o global.o\
  767. X        glue.o graphics.o grid.o intspline.o latex_line.o\
  768. X        line.o list.o main.o move.o movept.o msgsw.o panel.o\
  769. X        popup.o print.o printfonts.o psbits.o psfonts.o\
  770. X        puterr.o read.o read1_3.o redisplay.o remove.o\
  771. X        rotate.o ruler.o save.o scale.o search.o spline.o\
  772. X        text.o trans.o turn.o undo.o util.o xtra.o
  773. X
  774. XF2PSRC =        arrow.c f2p.c free.c read.c read1_3.c troff_fonts.c psfonts.c
  775. XF2POBJ =        arrow.o f2p.o free.o read.o read1_3.o troff_fonts.o psfonts.o
  776. X
  777. XF2PSSRC =       arrow.c bound.c f2ps.c free.c read.c read1_3.c psfonts.c
  778. XF2PSOBJ =       arrow.o bound.o f2ps.o free.o read.o read1_3.o psfonts.o
  779. X
  780. XSRCS1 = $(XFIGSRC)
  781. XOBJS1 = $(XFIGOBJ)
  782. XSRCS2 = $(F2PSRC)
  783. XOBJS2 = $(F2POBJ)
  784. XSRCS3 = $(F2PSSRC)
  785. XOBJS3 = $(F2PSOBJ)
  786. X
  787. XPROGRAMS = xfig f2p f2ps
  788. X
  789. XComplexProgramTarget_1(xfig,$(LOCAL_LIBRARIES),)
  790. X
  791. XComplexProgramTarget_2(f2p,,)
  792. X
  793. XComplexProgramTarget_3(f2ps,,)
  794. X
  795. XMakeDirectories(install,$(FONTLIBDIR))
  796. XInstallNonExec(troff_ft_codes,$(DESTDIR)$(FONTLIBDIR)/$(FONTFILE))
  797. END_OF_FILE
  798. if test 1991 -ne `wc -c <'Imakefile'`; then
  799.     echo shar: \"'Imakefile'\" unpacked with wrong size!
  800. fi
  801. # end of 'Imakefile'
  802. fi
  803. if test -f 'README' -a "${1}" != "-c" ; then 
  804.   echo shar: Will not clobber existing file \"'README'\"
  805. else
  806. echo shar: Extracting \"'README'\" \(4678 characters\)
  807. sed "s/^X//" >'README' <<'END_OF_FILE'
  808. XFIG 2.0
  809. X
  810. XNOTE: Version 2.0 of xfig no longer supports SunView!  If you wish to
  811. X      retain compatibility with SunView, use version 1.4.3.
  812. X
  813. X      Also, xfig must be compiled under X11R4 because of the new 
  814. X      simple-menu used in the popup menu to modify objects.
  815. X
  816. XNote: See the CHANGES file for up-to-date information
  817. X
  818. XAdded Features:
  819. X===============
  820. X
  821. Xo Separate version number for program vs file format (protocol now 2.0)
  822. Xo Area fill for circles, boxes, etc. with 20 different gray shades
  823. X  for Postscript output
  824. Xo 35 different fonts - the 35 fonts normally included with the Laserwriters
  825. X  can be used in figures at any point size.  If there is a corresponding
  826. X  font in X, then the text is shown in that font on the screen.
  827. Xo text can be virtually any point size (on output)
  828. Xo left, center and right justification of text
  829. Xo rounded-corner boxes with any radius of the corners
  830. Xo line thicknesses supported
  831. Xo lower button panel for quick access to "save", "undo", etc. functions
  832. Xo popup menu to modify existing objects
  833. Xo portrait or landscape print mode
  834. X
  835. XNOTE: I will support these features as best I can, but I cannot promise
  836. X      anything, as my normal workload is pretty full.
  837. X>>>>  Please send any fixes, bug reports, etc. to me at bvsmth@lbl.gov
  838. X      Brian Smith
  839. X      (bvsmith@lbl.gov)
  840. X
  841. X____________________________________________________________________________
  842. XTransFig Support
  843. X
  844. XPatchlevel 2 of Fig 2.0 and later provide a compile option for compatibility
  845. Xwith the 2.0-TFX file format.  Without this option, Fig 2.0 reads and writes
  846. Xfiles in its own 2.0 format.
  847. X
  848. XWhen compiled with the -DTFX option, Fig 2.0 assumes the TFX format for its
  849. Xinput and output files.  The differences between 1.4X and TFX are minor:
  850. X
  851. X    1) the TFX text font field can specify only five "generic" font types;
  852. X       1.4X has a list of 35 specific PostScript fonts.
  853. X
  854. X    2) the TFX area fill field can specify only three shades of grey;
  855. X       1.4X can specify 19.
  856. X
  857. X    3) rounded corner boxes are not currently supported in TFX.
  858. X
  859. XFiles which do not use these three features will be compatible with both
  860. Xfile formats.
  861. X
  862. XThe TransFig package provides a set of tools for translating Fig files
  863. Xin TFX format to PostScript, PIC, LaTeX picture environment, and (E)EPIC
  864. Xor PiCTeX macros.  Several graphics programs use the TFX format for output,
  865. Xincluding the Fig-FS Sunview graphics editor and the GnuTeX numerical
  866. Xplotting program, and a tool exists for translating from Unix plot(5) format
  867. Xto TFX.  Fig 2.0 will be only partially compatible with these programs using
  868. Xthe 1.4X format; when compiled for TFX compatibility, it should be fully
  869. Xcompatible.
  870. X
  871. XTransFig is avialable via anonymous FTP from svax.cs.cornell.edu
  872. Xin ~ftp/pub/fig/transfig.tar.Z, or by mail from the archive server
  873. Xat sun.soe.clarkson.edu.  Send mail to "archive-server@sun.soe.clarkson.edu"
  874. Xwith the one-line message "help".
  875. X
  876. XI will support that part of Fig 2.0 which relates to TFX compatibility. 
  877. XBug reports and comments can be sent to me.
  878. X
  879. XMicah Beck, 2/24/90
  880. XCornell CS Department
  881. Xbeck@cs.cornell.edu
  882. X
  883. X____________________________________________________________________________
  884. XThe History of Xfig:
  885. X
  886. Xxfig 1.4.1:
  887. X
  888. X14 Jul 88    Ken Yap (University of Rochester)
  889. X        Ported to X11. Alpha release.
  890. X
  891. X31 Jul 88    Ken Yap (University of Rochester)
  892. X        Works practically like SunView version now. Beta release.
  893. X
  894. X8 Aug 88    Ken Yap (University of Rochester)
  895. X        Dana Chee of Bellcore contributed lots of cleanups
  896. X        and put right some features I didn't know how
  897. X        to do properly. (Thanks, Dana.) Released to world.
  898. X
  899. Xxfig 1.4.2:
  900. X
  901. X23 Aug 88     Dana Chee (Bellcore)
  902. X          Fixed color, added mouse tracking option.
  903. X
  904. Xxfig 1.4.3:
  905. X
  906. X26 Aug 88     Dana Chee (Bellcore)
  907. X          Added John Kohl's changes to fix color and make
  908. X          inverse video work on a monochrome display.
  909. X          Allow scaling of compound objects on a side as well as
  910. X          a corner.
  911. X          Allow compound objects within a compound.
  912. X
  913. Xxfig 2.0:
  914. X
  915. X16 Feb 90    Brian V. Smith (Lawrence Berkeley Laboratory)
  916. X        Area fill for circles, boxes, etc. with 20 different 
  917. X          gray shades for Postscript output.
  918. X        35 different fonts - the 35 fonts normally included with
  919. X          the Laserwriters can be used in figures at any point size.
  920. X          If there is a corresponding font in X, then the text is shown 
  921. X          in that font on the screen.
  922. X        Text can be virtually any point size.
  923. X        Left, center and right justification of text.
  924. X        Rounded-corner boxes with selectable radius of the corners.
  925. X        Different line thicknesses.
  926. X        Lower button panel for quick access to "save", "chdir", 
  927. X          etc. functions.
  928. X        Portrait or landscape print mode.
  929. X        Popup menu to modify objects (Jon Tombs)
  930. X
  931. X        Deleted Features:
  932. X
  933. X        Sunview code has been removed.
  934. END_OF_FILE
  935. if test 4678 -ne `wc -c <'README'`; then
  936.     echo shar: \"'README'\" unpacked with wrong size!
  937. fi
  938. # end of 'README'
  939. fi
  940. if test -f 'alloc.h' -a "${1}" != "-c" ; then 
  941.   echo shar: Will not clobber existing file \"'alloc.h'\"
  942. else
  943. echo shar: Extracting \"'alloc.h'\" \(835 characters\)
  944. sed "s/^X//" >'alloc.h' <<'END_OF_FILE'
  945. X/* 
  946. X *    FIG : Facility for Interactive Generation of figures
  947. X *
  948. X *    Copyright (c) 1985 by Supoj Sutanthavibul (supoj@sally.UTEXAS.EDU)
  949. X *    January 1985.
  950. X *    1st revision : Aug 1985.
  951. X *
  952. X *    %W%    %G%
  953. X*/
  954. Xextern char    *malloc();
  955. Xextern char    *calloc();
  956. X
  957. X#define        Line_malloc(z)        z = (F_line*)malloc(LINOBJ_SIZE)
  958. X#define        Spline_malloc(z)    z = (F_spline*)malloc(SPLOBJ_SIZE)
  959. X#define        Ellipse_malloc(z)    z = (F_ellipse*)malloc(ELLOBJ_SIZE)
  960. X#define        Arc_malloc(z)        z = (F_arc*)malloc(ARCOBJ_SIZE)
  961. X#define        Compound_malloc(z)    z = (F_compound*)malloc(COMOBJ_SIZE)
  962. X#define        Text_malloc(z)        z = (F_text*)malloc(TEXOBJ_SIZE)
  963. X#define        Point_malloc(z)        z = (F_point*)malloc(POINT_SIZE)
  964. X#define        Control_malloc(z)    z = (F_control*)malloc(CONTROL_SIZE)
  965. X#define        Arrow_malloc(z)        z = (F_arrow*)malloc(ARROW_SIZE)
  966. X
  967. Xextern char    Err_mem[];
  968. Xextern char    Err_incomp[];
  969. END_OF_FILE
  970. if test 835 -ne `wc -c <'alloc.h'`; then
  971.     echo shar: \"'alloc.h'\" unpacked with wrong size!
  972. fi
  973. # end of 'alloc.h'
  974. fi
  975. if test -f 'arrow.c' -a "${1}" != "-c" ; then 
  976.   echo shar: Will not clobber existing file \"'arrow.c'\"
  977. else
  978. echo shar: Extracting \"'arrow.c'\" \(1779 characters\)
  979. sed "s/^X//" >'arrow.c' <<'END_OF_FILE'
  980. X/* 
  981. X *    FIG : Facility for Interactive Generation of figures
  982. X *
  983. X *    Copyright (c) 1985, 1988 by Supoj Sutanthavibul (supoj@sally.UTEXAS.EDU)
  984. X *    January 1985.
  985. X *    1st revision : August 1985.
  986. X *    2nd revision : March 1988.
  987. X *
  988. X *    %W%    %G%
  989. X*/
  990. X#include "fig.h"
  991. X#include "alloc.h"
  992. X#include "object.h"
  993. X
  994. Xstatic float        forward_arrow_wid = 4;
  995. Xstatic float        forward_arrow_ht = 8;
  996. Xstatic int        forward_arrow_type = 0;
  997. Xstatic int        forward_arrow_style = 0;
  998. Xstatic float        forward_arrow_thickness = 1;
  999. X
  1000. Xstatic float        backward_arrow_wid = 4;
  1001. Xstatic float        backward_arrow_ht = 8;
  1002. Xstatic int        backward_arrow_type = 0;
  1003. Xstatic int        backward_arrow_style = 0;
  1004. Xstatic float        backward_arrow_thickness = 1;
  1005. X
  1006. Xextern int        line_thickness;
  1007. X
  1008. XF_arrow *
  1009. Xforward_arrow()
  1010. X{
  1011. X    F_arrow        *a;
  1012. X
  1013. X    if (NULL == (Arrow_malloc(a))) {
  1014. X        put_msg(Err_mem);
  1015. X        return(NULL);
  1016. X        }
  1017. X    a->type = forward_arrow_type;
  1018. X    a->style = forward_arrow_style;
  1019. X    a->thickness = forward_arrow_thickness = (float) line_thickness;
  1020. X    a->wid = forward_arrow_thickness * forward_arrow_wid;
  1021. X    a->ht =  forward_arrow_thickness * forward_arrow_ht;
  1022. X    return(a);
  1023. X    }
  1024. X
  1025. XF_arrow *
  1026. Xbackward_arrow()
  1027. X{
  1028. X    F_arrow        *a;
  1029. X
  1030. X    if (NULL == (Arrow_malloc(a))) {
  1031. X        put_msg(Err_mem);
  1032. X        return(NULL);
  1033. X        }
  1034. X    a->type = backward_arrow_type;
  1035. X    a->style = backward_arrow_style;
  1036. X    a->thickness =  backward_arrow_thickness = (float) line_thickness;
  1037. X    a->wid = backward_arrow_thickness * backward_arrow_wid;
  1038. X    a->ht =  backward_arrow_thickness * backward_arrow_ht;
  1039. X    return(a);
  1040. X    }
  1041. X
  1042. XF_arrow *
  1043. Xmake_arrow(type, style, thickness, wid, ht)
  1044. Xint    type, style;
  1045. Xfloat    thickness, wid, ht;
  1046. X{
  1047. X    F_arrow        *a;
  1048. X
  1049. X    if (NULL == (Arrow_malloc(a))) {
  1050. X        put_msg(Err_mem);
  1051. X        return(NULL);
  1052. X        }
  1053. X    a->type = type;
  1054. X    a->style = style;
  1055. X    a->thickness = thickness;
  1056. X    a->wid = wid;
  1057. X    a->ht = ht;
  1058. X    return(a);
  1059. X    }
  1060. END_OF_FILE
  1061. if test 1779 -ne `wc -c <'arrow.c'`; then
  1062.     echo shar: \"'arrow.c'\" unpacked with wrong size!
  1063. fi
  1064. # end of 'arrow.c'
  1065. fi
  1066. if test -f 'blink.c' -a "${1}" != "-c" ; then 
  1067.   echo shar: Will not clobber existing file \"'blink.c'\"
  1068. else
  1069. echo shar: Extracting \"'blink.c'\" \(1768 characters\)
  1070. sed "s/^X//" >'blink.c' <<'END_OF_FILE'
  1071. X/* 
  1072. X *    FIG : Facility for Interactive Generation of figures
  1073. X *
  1074. X *    Copyright (c) 1988 by Supoj Sutanthavibul (supoj@sally.UTEXAS.EDU)
  1075. X *    Febuary 1988.
  1076. X *
  1077. X *    %W%    %G%
  1078. X*/
  1079. X#include "fig.h"
  1080. X
  1081. Xstatic    int        cursor_on, cursor_is_moving;
  1082. Xstatic    int        cursor_x, cursor_y;
  1083. Xstatic    int        blink();
  1084. Xstatic    int        (*erase)();
  1085. Xstatic    int        (*draw)();
  1086. Xstatic    unsigned long    blink_timer;
  1087. X
  1088. Xstatic    XtIntervalId blinkid; 
  1089. Xstatic    int stop_blinking=FALSE;
  1090. Xstatic    int cur_is_blinking=FALSE;
  1091. X
  1092. Xturn_on_blinking_cursor(draw_cursor, erase_cursor, x, y, msec)
  1093. Xint    (*draw_cursor)();
  1094. Xint    (*erase_cursor)();
  1095. Xint    x, y;
  1096. Xunsigned long msec;
  1097. X{
  1098. X    draw = draw_cursor;
  1099. X    erase = erase_cursor;
  1100. X    cursor_is_moving = 0;
  1101. X    cursor_x = x;
  1102. X    cursor_y = y;
  1103. X    blink_timer = msec;
  1104. X    draw(x, y);
  1105. X    cursor_on = 1;
  1106. X    if (!cur_is_blinking)    /* if we are already blinking, don't request another */
  1107. X        {
  1108. X        blinkid = XtAddTimeOut(blink_timer, blink, 0);
  1109. X        cur_is_blinking=TRUE;
  1110. X        }
  1111. X    stop_blinking = FALSE;
  1112. X    }
  1113. X
  1114. Xturn_off_blinking_cursor()
  1115. X{
  1116. X    if (cursor_on) 
  1117. X        erase(cursor_x, cursor_y);
  1118. X    stop_blinking = TRUE;
  1119. X    }
  1120. X
  1121. Xstatic
  1122. Xblink(client_data,id)
  1123. X#if XtSpecificationRelease >= 4
  1124. XXtPointer    client_data;
  1125. X#else
  1126. Xcaddr_t        client_data;
  1127. X#endif
  1128. XXtIntervalId    *id;
  1129. X{
  1130. X    if (!stop_blinking)
  1131. X        {
  1132. X        if (cursor_is_moving) 
  1133. X        return(0);
  1134. X        if (cursor_on) {
  1135. X        erase(cursor_x, cursor_y);
  1136. X        cursor_on = 0;
  1137. X        }
  1138. X        else {
  1139. X        draw(cursor_x, cursor_y);
  1140. X        cursor_on = 1;
  1141. X        }
  1142. X        blinkid = XtAddTimeOut(blink_timer, blink, 0);
  1143. X        }
  1144. X    else
  1145. X        {
  1146. X        stop_blinking = FALSE;    /* signal that we've stopped */
  1147. X        cur_is_blinking = FALSE;
  1148. X        }
  1149. X    return(0);
  1150. X    }
  1151. X
  1152. Xmove_blinking_cursor(x, y)
  1153. Xint    x, y;
  1154. X{
  1155. X    cursor_is_moving = 1;
  1156. X    if (cursor_on) erase(cursor_x, cursor_y);
  1157. X    cursor_x = x;
  1158. X    cursor_y = y;
  1159. X    draw(cursor_x, cursor_y);
  1160. X    cursor_on = 1;
  1161. X    cursor_is_moving = 0;
  1162. X    }
  1163. END_OF_FILE
  1164. if test 1768 -ne `wc -c <'blink.c'`; then
  1165.     echo shar: \"'blink.c'\" unpacked with wrong size!
  1166. fi
  1167. # end of 'blink.c'
  1168. fi
  1169. if test -f 'break.c' -a "${1}" != "-c" ; then 
  1170.   echo shar: Will not clobber existing file \"'break.c'\"
  1171. else
  1172. echo shar: Extracting \"'break.c'\" \(1466 characters\)
  1173. sed "s/^X//" >'break.c' <<'END_OF_FILE'
  1174. X/* 
  1175. X *    FIG : Facility for Interactive Generation of figures
  1176. X *
  1177. X *    Copyright (c) 1985 by Supoj Sutanthavibul (supoj@sally.UTEXAS.EDU)
  1178. X *    January 1985.
  1179. X *    1st revision : Aug 1985.
  1180. X *
  1181. X *    %W%    %G%
  1182. X*/
  1183. X#include "fig.h"
  1184. X#include "resources.h"
  1185. X#include "func.h"
  1186. X#include "object.h"
  1187. X#include "paintop.h"
  1188. X
  1189. X#define            TOLERANCE    7
  1190. X
  1191. Xextern int        init_break();
  1192. X
  1193. Xbreak_selected()
  1194. X{
  1195. X    extern    (*canvas_kbd_proc)();
  1196. X    extern    (*canvas_locmove_proc)();
  1197. X    extern    (*canvas_leftbut_proc)();
  1198. X    extern    (*canvas_middlebut_proc)();
  1199. X    extern    (*canvas_rightbut_proc)();
  1200. X    extern    null_proc();
  1201. X    extern    set_popupmenu();
  1202. X
  1203. X    canvas_kbd_proc = null_proc;
  1204. X    canvas_locmove_proc = null_proc;
  1205. X    canvas_leftbut_proc = init_break;
  1206. X    canvas_middlebut_proc = null_proc;
  1207. X    canvas_rightbut_proc = set_popupmenu;
  1208. X    set_cursor(&pick15_cursor);
  1209. X    }
  1210. X
  1211. Xinit_break(x, y)
  1212. Xint    x, y;
  1213. X{
  1214. X    extern F_compound    *compound_search();
  1215. X    extern F_compound    objects, saved_objects;
  1216. X    extern int        compoundbox_shown;
  1217. X    F_compound    *c;
  1218. X
  1219. X    if ((c = compound_search(x, y, TOLERANCE, &x, &y)) == NULL) return;
  1220. X    clean_up();
  1221. X    if (compoundbox_shown) draw_compoundbox(c, INV_PAINT);
  1222. X    delete_compound(&objects.compounds, c);
  1223. X    break_compound(c);
  1224. X    set_action(F_BREAK);
  1225. X    saved_objects.compounds = c;
  1226. X    break_selected();
  1227. X    }
  1228. X
  1229. Xbreak_compound(c)
  1230. XF_compound    *c;
  1231. X{
  1232. X    extern F_compound    objects, object_tails;
  1233. X    extern int        pointmarker_shown;
  1234. X
  1235. X    if (pointmarker_shown) toggle_compoundpointmarker(c);
  1236. X    tail(&objects, &object_tails);
  1237. X    append_objects(&objects, c, &object_tails);
  1238. X    }
  1239. END_OF_FILE
  1240. if test 1466 -ne `wc -c <'break.c'`; then
  1241.     echo shar: \"'break.c'\" unpacked with wrong size!
  1242. fi
  1243. # end of 'break.c'
  1244. fi
  1245. if test -f 'color.c' -a "${1}" != "-c" ; then 
  1246.   echo shar: Will not clobber existing file \"'color.c'\"
  1247. else
  1248. echo shar: Extracting \"'color.c'\" \(365 characters\)
  1249. sed "s/^X//" >'color.c' <<'END_OF_FILE'
  1250. X/* 
  1251. X *    FIG : Facility for Interactive Generation of figures
  1252. X *
  1253. X *    Copyright (c) 1988 by Supoj Sutanthavibul (supoj@sally.UTEXAS.EDU)
  1254. X *      March 1988.
  1255. X *
  1256. X *    %W%    %G%
  1257. X*/
  1258. X
  1259. Xint            background_color = 0;    /* black */
  1260. Xint            foreground_color = 1;    /* white */
  1261. X
  1262. Xinvert_color()
  1263. X{
  1264. X    int    c;
  1265. X
  1266. X    c = background_color;
  1267. X    background_color = foreground_color;
  1268. X    foreground_color = c;
  1269. X    }
  1270. END_OF_FILE
  1271. if test 365 -ne `wc -c <'color.c'`; then
  1272.     echo shar: \"'color.c'\" unpacked with wrong size!
  1273. fi
  1274. # end of 'color.c'
  1275. fi
  1276. if test -f 'const.h' -a "${1}" != "-c" ; then 
  1277.   echo shar: Will not clobber existing file \"'const.h'\"
  1278. else
  1279. echo shar: Extracting \"'const.h'\" \(903 characters\)
  1280. sed "s/^X//" >'const.h' <<'END_OF_FILE'
  1281. X/* 
  1282. X *    FIG : Facility for Interactive Generation of figures
  1283. X *
  1284. X *    Copyright (c) 1985 by Supoj Sutanthavibul (supoj@sally.UTEXAS.EDU)
  1285. X *      November 1985.
  1286. X *
  1287. X *    %W%    %G%
  1288. X*/
  1289. X#define        PIX_PER_INCH        80
  1290. X#define        PIX_PER_CM        30 /* ((int)(PIX_PER_INCH / 2.54 + (5.0/2))) */
  1291. X                      
  1292. X/* Portrait dimensions */
  1293. X#define        DEF_CANVAS_HEIGHT_P    9.5*PIX_PER_INCH
  1294. X#define        DEF_CANVAS_WIDTH_P    8*PIX_PER_INCH
  1295. X
  1296. X/* Landscape dimensions */
  1297. X#define        DEF_CANVAS_HEIGHT_L    8*PIX_PER_INCH
  1298. X#define        DEF_CANVAS_WIDTH_L    10*PIX_PER_INCH
  1299. X
  1300. X#define        RULER_WIDTH        20
  1301. X
  1302. X#define        MSG_HEIGHT        21
  1303. X
  1304. X#define        ICON_COLUMN_PORT    3    /* number of switches wide in panel */
  1305. X#define        ICON_COLUMN_LAND    3    /* same for landscape mode */
  1306. X
  1307. X#define        SWITCH_ICON_WIDTH    32    /* width of a switch icon */
  1308. X#define        SWITCH_ICON_HEIGHT    32
  1309. X#define        SWITCH_ICON_SPACING    4
  1310. X
  1311. X#define        MAXPRINTERS        3
  1312. X
  1313. X#define        DEF_PRINTFONTSIZE    11    /* default printer font size (points) */
  1314. END_OF_FILE
  1315. if test 903 -ne `wc -c <'const.h'`; then
  1316.     echo shar: \"'const.h'\" unpacked with wrong size!
  1317. fi
  1318. # end of 'const.h'
  1319. fi
  1320. if test -f 'dir.c' -a "${1}" != "-c" ; then 
  1321.   echo shar: Will not clobber existing file \"'dir.c'\"
  1322. else
  1323. echo shar: Extracting \"'dir.c'\" \(1228 characters\)
  1324. sed "s/^X//" >'dir.c' <<'END_OF_FILE'
  1325. X/* 
  1326. X *    FIG : Facility for Interactive Generation of figures
  1327. X *
  1328. X *    Copyright (c) 1985 by Supoj Sutanthavibul (supoj@sally.UTEXAS.EDU)
  1329. X *    November 1985.
  1330. X *    1st revision: Mar 1988.
  1331. X *
  1332. X *    %W%    %G%
  1333. X*/
  1334. X#include "fig.h"
  1335. X
  1336. Xextern char        *sys_errlist[];
  1337. Xextern int        sys_nerr, errno;
  1338. X
  1339. Xextern char        directory[];
  1340. X
  1341. Xint
  1342. Xchange_directory(path)
  1343. Xchar    *path;
  1344. X{
  1345. X    if (path == NULL) 
  1346. X        return(0);
  1347. X    put_msg("Changing . . .");
  1348. X    if (chdir(path) == -1) {
  1349. X        put_msg("Can't go to directory %s, : %s",
  1350. X        path, sys_errlist[errno]);
  1351. X        }
  1352. X    else {
  1353. X        if (get_directory(directory) != NULL) /* get current working directory */
  1354. X            print_directory();
  1355. X        }
  1356. X    return(1);
  1357. X    }
  1358. X
  1359. Xprint_directory()
  1360. X{
  1361. X    if (*directory == '\0')
  1362. X        (void) get_directory(directory); /* get current working directory */
  1363. X    put_msg("DIRECTORY: \"%s\"",directory);
  1364. X    }
  1365. X
  1366. Xget_directory(direct)
  1367. Xchar *direct;
  1368. X    {
  1369. X#ifdef SYSV
  1370. X    extern char *getcwd();
  1371. X#else
  1372. X    extern char *getwd();
  1373. X#endif
  1374. X
  1375. X#ifdef SYSV
  1376. X    if (getcwd(direct, 1024) == NULL)    /* get curent working dir */
  1377. X          {
  1378. X        put_msg("%s", "Can't get current directory");
  1379. X#else
  1380. X    if (getwd(direct) == NULL)    /* get curent working dir */
  1381. X        {
  1382. X        put_msg("%s", direct);    /* err msg is in directory */
  1383. X#endif
  1384. X        *direct = '\0';
  1385. X        return NULL;
  1386. X        }
  1387. X    return 1;
  1388. X    }
  1389. END_OF_FILE
  1390. if test 1228 -ne `wc -c <'dir.c'`; then
  1391.     echo shar: \"'dir.c'\" unpacked with wrong size!
  1392. fi
  1393. # end of 'dir.c'
  1394. fi
  1395. if test -f 'f2p.man' -a "${1}" != "-c" ; then 
  1396.   echo shar: Will not clobber existing file \"'f2p.man'\"
  1397. else
  1398. echo shar: Extracting \"'f2p.man'\" \(1320 characters\)
  1399. sed "s/^X//" >'f2p.man' <<'END_OF_FILE'
  1400. X.TH F2P 1 "12 March 1990"
  1401. X.SH NAME
  1402. Xf2p \- translates fig output into pic language
  1403. X.SH SYNOPSIS
  1404. X.B f2p
  1405. X[ -f font_file ] [ input_file [ output_file ] ]
  1406. X.SH DESCRIPTION
  1407. X.I F2p
  1408. Xtranslates fig objects in the named
  1409. X.I input_file
  1410. Xinto pic language and puts them in
  1411. X.I output_file.
  1412. XIf only one file name is present, it is assumed to be the input file
  1413. X(fig output file).
  1414. XThe output file
  1415. X.I (pic_file), 
  1416. Xif not present, will be the stdout.
  1417. XIf the 
  1418. X.I input_file 
  1419. Xis not present, input will be assumed to come from the stdin.
  1420. X.PP
  1421. XThe fonts used for text objects are converted from their LaserWriter
  1422. Xnames (as selected when using fig) to site-specific
  1423. Xtroff 2-letter font names using
  1424. Xinformation in the file /usr/lib/X11/troff/troff_ft_codes,
  1425. Xor a file named using the optional
  1426. X.B \-f
  1427. Xargument.
  1428. XIf a file named with this option is not found in the working directory
  1429. Xit will be sought in /usr/lib/X11/troff.
  1430. X.SH BUGS
  1431. XFilling of closed objects is ignored.
  1432. XIt would be possible to generate
  1433. X.I pic
  1434. Xinstructions to produce some form of filling in
  1435. X.I f2p,
  1436. Xbut the filling feature really needs to be added to
  1437. X.I pic.
  1438. X.SH "SEE ALSO"
  1439. Xxfig(1),
  1440. Xpic(1),
  1441. Xf2ps(1).
  1442. X.SH AUTHOR
  1443. XSupoj Sutanthavibul (supoj@sally.UTEXAS.EDU),
  1444. X.br
  1445. XUniversity of Texas at Austin, 
  1446. X.br
  1447. XJanuary 29, 1985.
  1448. X.br
  1449. XModified by daved@physiol.su.oz.au for fig 2.0 (March 1990).
  1450. X
  1451. END_OF_FILE
  1452. if test 1320 -ne `wc -c <'f2p.man'`; then
  1453.     echo shar: \"'f2p.man'\" unpacked with wrong size!
  1454. fi
  1455. # end of 'f2p.man'
  1456. fi
  1457. if test -f 'f2ps.man' -a "${1}" != "-c" ; then 
  1458.   echo shar: Will not clobber existing file \"'f2ps.man'\"
  1459. else
  1460. echo shar: Extracting \"'f2ps.man'\" \(1611 characters\)
  1461. sed "s/^X//" >'f2ps.man' <<'END_OF_FILE'
  1462. X.TH F2PS 1 "29 March 1988"
  1463. X.SH NAME
  1464. Xf2ps \- Fig to Postscript translator
  1465. X.SH SYNOPSIS
  1466. X.B f2ps
  1467. X[
  1468. X.B -f
  1469. Xfont ] [
  1470. X.B -s
  1471. Xsize ] [
  1472. X.B -e
  1473. Xscale ] [
  1474. X][
  1475. X.B -L
  1476. X][
  1477. X.B -P
  1478. X][
  1479. X.B -N
  1480. X][
  1481. X.B -c
  1482. X] [ input_file [ output_file ] ]
  1483. X.SH DESCRIPTION
  1484. X.I F2ps
  1485. Xtranslates xfig output format (in 
  1486. X.I input_file
  1487. Xinto the postscript language (in
  1488. X.I output_file
  1489. X).
  1490. XThe default
  1491. X.I input_file
  1492. Xand
  1493. X.I output_file
  1494. Xare standard input and standard output.
  1495. X.PP
  1496. XThe
  1497. X.I font
  1498. Xshould be font that your printer knows about.
  1499. XThe unit of
  1500. X.I size
  1501. X(font size) is point.  There are 72 points in an inch.
  1502. XThe upper limit for
  1503. X.I size
  1504. Xis 300 points (about 4 inches).
  1505. X.I Scale
  1506. Xwill also be applied to
  1507. X.I size.
  1508. XThe default value of
  1509. X.I font,
  1510. X.I size
  1511. Xand
  1512. X.I scale
  1513. Xare Times-Roman, 12 points and 1 respectively.
  1514. X.SH OPTIONS
  1515. X.TP
  1516. X.B \-c
  1517. XCenter the figure on the page.
  1518. XThe centering may not be accurate if there are texts in the
  1519. X.I input_file
  1520. Xthat extends too far to the right of other objects.
  1521. X.TP
  1522. X.B \-L
  1523. XPrint in landscape mode.  This is the default.
  1524. X.TP
  1525. X.B \-P
  1526. XPrint in portrait mode. 
  1527. X.TP
  1528. X.B \-N
  1529. XNo page printing command (showpage)
  1530. Xis to be appended after the figure. 
  1531. XThis ensures that when the output is used as an included illustration,
  1532. Xit won't untimely skip the rest of the page.
  1533. XHowever you can not print it by itself on the printer.
  1534. X.PP
  1535. XObjects (except text) which are created in \fIxfig\fP while the
  1536. Xdash-line mode was on will be produced with dashed line even
  1537. Xthough they may be drawn with solid line in \fIxfig\fP.
  1538. X.SH "SEE ALSO"
  1539. Xxfig(1).
  1540. X.SH AUTHOR
  1541. XSupoj Sutanthavibul (supoj@sally.UTEXAS.EDU),
  1542. X.br
  1543. XUniversity of Texas at Austin, 
  1544. X.br
  1545. XNovember 13, 1986.
  1546. END_OF_FILE
  1547. if test 1611 -ne `wc -c <'f2ps.man'`; then
  1548.     echo shar: \"'f2ps.man'\" unpacked with wrong size!
  1549. fi
  1550. # end of 'f2ps.man'
  1551. fi
  1552. if test -f 'fig.h' -a "${1}" != "-c" ; then 
  1553.   echo shar: Will not clobber existing file \"'fig.h'\"
  1554. else
  1555. echo shar: Extracting \"'fig.h'\" \(1008 characters\)
  1556. sed "s/^X//" >'fig.h' <<'END_OF_FILE'
  1557. X/* 
  1558. X *    FIG : Facility for Interactive Generation of figures
  1559. X *
  1560. X *    Copyright (c) 1985 by Supoj Sutanthavibul (supoj@sally.UTEXAS.EDU)
  1561. X *    January 1985.
  1562. X *    1st revision : Aug 1985.
  1563. X *
  1564. X *    %W%    %G%
  1565. X*/
  1566. X#include <X11/Xos.h>
  1567. X
  1568. X#include <sys/stat.h>
  1569. X#include <fcntl.h>
  1570. X#include <pwd.h>
  1571. X#include <signal.h>
  1572. X
  1573. X#include <stdio.h>
  1574. X#include <ctype.h>
  1575. X#include <errno.h>
  1576. X#include <math.h>
  1577. X
  1578. X#ifdef SYSV
  1579. X#define u_int uint
  1580. X#endif
  1581. X
  1582. X#ifndef M_PI
  1583. X#define M_PI    3.14159265358979323846
  1584. X#define M_PI_2  1.57079632679489661923
  1585. X#endif
  1586. X
  1587. X#include <X11/Xlib.h>
  1588. X#include <X11/cursorfont.h>
  1589. X#include <X11/Intrinsic.h>
  1590. X#include <X11/StringDefs.h>
  1591. X#include <X11/Shell.h>
  1592. X
  1593. X#include <X11/Xaw/Command.h>
  1594. X#include <X11/Xaw/Label.h>
  1595. X#include <X11/Xaw/Dialog.h>
  1596. X#include <X11/Xaw/Box.h>
  1597. X#include <X11/Xaw/Form.h>
  1598. X#include <X11/Xaw/Cardinals.h>
  1599. X#include <X11/Xaw/Text.h>
  1600. X#include <X11/Xaw/AsciiText.h>
  1601. X#include <X11/Xaw/MenuButton.h>
  1602. X#include <X11/Xaw/SimpleMenu.h>
  1603. X#include <X11/Xaw/Sme.h>
  1604. X#include <X11/Xaw/SmeBSB.h>
  1605. X#include <X11/Xaw/Toggle.h>
  1606. X
  1607. END_OF_FILE
  1608. if test 1008 -ne `wc -c <'fig.h'`; then
  1609.     echo shar: \"'fig.h'\" unpacked with wrong size!
  1610. fi
  1611. # end of 'fig.h'
  1612. fi
  1613. if test -f 'font.h' -a "${1}" != "-c" ; then 
  1614.   echo shar: Will not clobber existing file \"'font.h'\"
  1615. else
  1616. echo shar: Extracting \"'font.h'\" \(649 characters\)
  1617. sed "s/^X//" >'font.h' <<'END_OF_FILE'
  1618. X/* 
  1619. X *    FIG : Facility for Interactive Generation of figures
  1620. X *
  1621. X *    Copyright (c) 1988 by Supoj Sutanthavibul (supoj@sally.UTEXAS.EDU)
  1622. X *    January 1988.
  1623. X *
  1624. X *    %W%    %G%
  1625. X*/
  1626. X
  1627. XEXTERN PIX_FONT        bold_font;
  1628. XEXTERN PIX_FONT        roman_font;
  1629. XEXTERN PIX_FONT        canvas_font;
  1630. XEXTERN PIX_FONT        button_font;
  1631. X
  1632. X#define        NORMAL_FONT    "fixed"
  1633. X#define        BOLD_FONT    "8x13bold"
  1634. X
  1635. X#define            char_height(font)    ((font)->max_bounds.ascent + (font)->max_bounds.descent)
  1636. X#define            char_width(font)    ((font)->max_bounds.width)
  1637. X#define            char_advance(font,char)    (\
  1638. X            ((font)->per_char)?\
  1639. X                ((font)->per_char[(char)-(font)->min_char_or_byte2].width):\
  1640. X                ((font)->max_bounds.width))
  1641. END_OF_FILE
  1642. if test 649 -ne `wc -c <'font.h'`; then
  1643.     echo shar: \"'font.h'\" unpacked with wrong size!
  1644. fi
  1645. # end of 'font.h'
  1646. fi
  1647. if test -f 'paintop.h' -a "${1}" != "-c" ; then 
  1648.   echo shar: Will not clobber existing file \"'paintop.h'\"
  1649. else
  1650. echo shar: Extracting \"'paintop.h'\" \(299 characters\)
  1651. sed "s/^X//" >'paintop.h' <<'END_OF_FILE'
  1652. X/* 
  1653. X *    FIG : Facility for Interactive Generation of figures
  1654. X *
  1655. X *    Copyright (c) 1985 by Supoj Sutanthavibul (supoj@sally.UTEXAS.EDU)
  1656. X *      November 1985.
  1657. X *
  1658. X *    %W%    %G%
  1659. X*/
  1660. X
  1661. X#define    INV_PAINT    0
  1662. X#define    MERGE        1
  1663. X#define    PAINT        2
  1664. X#define    ERASE        3
  1665. X
  1666. X#define    NUMOPS        4
  1667. X
  1668. X#define    DRAW        1
  1669. X#define    UNDRAW        0
  1670. END_OF_FILE
  1671. if test 299 -ne `wc -c <'paintop.h'`; then
  1672.     echo shar: \"'paintop.h'\" unpacked with wrong size!
  1673. fi
  1674. # end of 'paintop.h'
  1675. fi
  1676. if test -f 'patchlevel.h' -a "${1}" != "-c" ; then 
  1677.   echo shar: Will not clobber existing file \"'patchlevel.h'\"
  1678. else
  1679. echo shar: Extracting \"'patchlevel.h'\" \(21 characters\)
  1680. sed "s/^X//" >'patchlevel.h' <<'END_OF_FILE'
  1681. X#define PATCHLEVEL 8
  1682. END_OF_FILE
  1683. if test 21 -ne `wc -c <'patchlevel.h'`; then
  1684.     echo shar: \"'patchlevel.h'\" unpacked with wrong size!
  1685. fi
  1686. # end of 'patchlevel.h'
  1687. fi
  1688. if test -f 'psfonts.h' -a "${1}" != "-c" ; then 
  1689.   echo shar: Will not clobber existing file \"'psfonts.h'\"
  1690. else
  1691. echo shar: Extracting \"'psfonts.h'\" \(822 characters\)
  1692. sed "s/^X//" >'psfonts.h' <<'END_OF_FILE'
  1693. X#define    MIN_P_SIZE 6
  1694. X#define    MAX_P_SIZE 30
  1695. X
  1696. X#ifndef TFX
  1697. X#define    FONT_PANE_WIDTH 290
  1698. X#define    FONT_PANE_HEIGHT 20
  1699. X#define    NUMFONTS 35
  1700. X#else
  1701. X#define    FONT_PANE_WIDTH 112
  1702. X#define    FONT_PANE_HEIGHT 20
  1703. X#define NUMFONTS 6
  1704. X#endif
  1705. X
  1706. X/* element of linked list for each font
  1707. X   The head of list is for the different font NAMES,
  1708. X   and the elements of this list are for each different
  1709. X   point size of that font */
  1710. X
  1711. Xstruct xfont {
  1712. X    int size;        /* size in points */
  1713. X    Font fid;        /* X font id */
  1714. X    XFontStruct *fstruct;    /* X font structure */
  1715. X    char *fname;        /* actual name of X font found */
  1716. X    struct xfont *next;    /* next in the list */
  1717. X    };
  1718. X
  1719. Xstruct _fstruct {
  1720. X    char *psfont;        /* Postscript font name */
  1721. X    char *template;        /* template for locating X fonts */
  1722. X    struct xfont *xfontlist; /* linked list of X fonts for different point sizes */
  1723. X    };
  1724. X
  1725. END_OF_FILE
  1726. if test 822 -ne `wc -c <'psfonts.h'`; then
  1727.     echo shar: \"'psfonts.h'\" unpacked with wrong size!
  1728. fi
  1729. # end of 'psfonts.h'
  1730. fi
  1731. if test -f 'puterr.c' -a "${1}" != "-c" ; then 
  1732.   echo shar: Will not clobber existing file \"'puterr.c'\"
  1733. else
  1734. echo shar: Extracting \"'puterr.c'\" \(482 characters\)
  1735. sed "s/^X//" >'puterr.c' <<'END_OF_FILE'
  1736. X/* 
  1737. X *    FIG : Facility for Interactive Generation of figures
  1738. X *
  1739. X *    Copyright (c) 1985 by Supoj Sutanthavibul (supoj@sally.UTEXAS.EDU)
  1740. X *    November 1985.
  1741. X *
  1742. X *    %W%    %G%
  1743. X*/
  1744. X#include "fig.h"
  1745. X
  1746. X/*VARARGS1*/
  1747. Xput_err(format, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8)
  1748. Xchar   *format, *arg1, *arg2, *arg3, *arg4, *arg5, *arg6, *arg7, *arg8;
  1749. X{
  1750. X    fprintf(stderr, format, arg1, arg2, arg3, arg4, arg5, 
  1751. X        arg6, arg7, arg8);
  1752. X    put_msg(format, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8);
  1753. X}
  1754. END_OF_FILE
  1755. if test 482 -ne `wc -c <'puterr.c'`; then
  1756.     echo shar: \"'puterr.c'\" unpacked with wrong size!
  1757. fi
  1758. # end of 'puterr.c'
  1759. fi
  1760. if test -f 'switch.h' -a "${1}" != "-c" ; then 
  1761.   echo shar: Will not clobber existing file \"'switch.h'\"
  1762. else
  1763. echo shar: Extracting \"'switch.h'\" \(1112 characters\)
  1764. sed "s/^X//" >'switch.h' <<'END_OF_FILE'
  1765. X/* button definition */
  1766. X
  1767. Xtypedef struct
  1768. X{
  1769. X    TOOL    widget;
  1770. X    Pixmap    normal, reverse;
  1771. X} button_info;
  1772. X
  1773. Xtypedef struct        switch_struct {
  1774. X                int        on;
  1775. X                int        group;
  1776. X                int        x;    /* Row 0 / 1 */
  1777. X                int        y;    /* Column 0 -> ? */
  1778. X                PIXRECT        icon;
  1779. X                int        value;
  1780. X                int        (*on_func)();
  1781. X                int        (*off_func)();
  1782. X                int        type;
  1783. X#define                        S_TOG        1
  1784. X#define                        S_ON        2
  1785. X#define                        S_MOMENT    3
  1786. X                button_info    but;
  1787. X                }
  1788. X            F_switch;
  1789. X/*
  1790. XSwitches in the same "group" > -1 are mutually exclusive;
  1791. Xi.e., only one of the switches of the same group can be on at any time.
  1792. XIf a switch in a group n>-1 is on and another one in the same group is
  1793. Xdepressed, the former will be turned off and the latter on.
  1794. X
  1795. XA S_ON switch can not be turned off by clicking at it; it can be turned
  1796. Xoff only by clicking another switch in the same group.
  1797. X
  1798. XA S_TOG switch can be turned off both ways.
  1799. X
  1800. XNo two S_ON or S_ON switches of the same group can be on (hilighted)
  1801. Xat anytime.
  1802. X
  1803. XA S_MOMENT switch turns on when pressed and turns off when finished
  1804. Xwith the function (read file, save file, etc).
  1805. X
  1806. XSwitches with group = -1 are toggle type switches.
  1807. X*/
  1808. END_OF_FILE
  1809. if test 1112 -ne `wc -c <'switch.h'`; then
  1810.     echo shar: \"'switch.h'\" unpacked with wrong size!
  1811. fi
  1812. # end of 'switch.h'
  1813. fi
  1814. if test -f 'troff_fonts.c' -a "${1}" != "-c" ; then 
  1815.   echo shar: Will not clobber existing file \"'troff_fonts.c'\"
  1816. else
  1817. echo shar: Extracting \"'troff_fonts.c'\" \(1737 characters\)
  1818. sed "s/^X//" >'troff_fonts.c' <<'END_OF_FILE'
  1819. X/*
  1820. X**    troff_fonts.c
  1821. X**
  1822. X**    read a table of troff font code definitions related to laserwriter
  1823. X**    font names as used in psfonts.c
  1824. X*/
  1825. X
  1826. X#ifndef FONTFILE
  1827. X#define        FONTFILE    "troff_ft_codes"
  1828. X#endif
  1829. X#ifndef FONTLIBDIR
  1830. X#define     FONTLIBDIR    "/usr/lib/X11/troff"
  1831. X#endif
  1832. X
  1833. X#include    <stdio.h>
  1834. X#include    "troff_fonts.h"
  1835. X
  1836. Xtroff_init()
  1837. X{
  1838. X    FILE    *fp,
  1839. X        *fopen();
  1840. X    char    fname[128],
  1841. X        line[128],
  1842. X        *p,
  1843. X        *strchr(),
  1844. X        *strcpy(),
  1845. X        *strncpy(),
  1846. X        *strcat(),
  1847. X        *malloc();
  1848. X    int    linecount = 0,
  1849. X        fontcount = 0;
  1850. X
  1851. X    if(!font_file)
  1852. X        font_file = FONTFILE;
  1853. X    if((fp = fopen(font_file, "r")) == NULL)
  1854. X    {
  1855. X        (void) sprintf(fname, "%s/%s", FONTLIBDIR, font_file);
  1856. X        if((fp = fopen(fname, "r")) == NULL)
  1857. X        {
  1858. X            fprintf(stderr,"f2p: cannot open %s\n", fname);
  1859. X            exit(1);
  1860. X        }
  1861. X    }
  1862. X    while(fgets(line, sizeof line, fp) != NULL)
  1863. X    {
  1864. X        linecount++;
  1865. X        if (line[0] == '#' || line[0] == '\n')
  1866. X            continue;
  1867. X        if (fontcount + 1 == MAX_TROFF_FONTS)
  1868. X        {
  1869. X            fprintf(stderr,"f2p: too many fonts in %s\n",fname);
  1870. X            exit(1);
  1871. X        }
  1872. X        if ((p = strchr(line, '\t')) == NULL && (p=strchr(line, ' ')) == NULL)
  1873. X        {
  1874. X            fprintf(stderr,"f2p: %s lacks white space in line %d\n",
  1875. X                fname, linecount);
  1876. X            exit(1);
  1877. X        }
  1878. X        *p = '\0';    /* to do a simple strlen(line) to check length of code */
  1879. X        if (strlen(line) > 2)
  1880. X        {
  1881. X            fprintf(stderr,
  1882. X                "f2p: code \"%s\" too long in %s line %d\n",
  1883. X                    line, fname, linecount);
  1884. X            exit(1);
  1885. X        }
  1886. X        while (*++p == '\t' || *p == ' ')    /* skip past white space */
  1887. X            ;
  1888. X        (void) strcpy(troff_fonts[fontcount].trname,line);
  1889. X        if ((troff_fonts[fontcount].lwname=malloc((unsigned)strlen(p)))
  1890. X                == NULL)
  1891. X        {
  1892. X            fprintf(stderr,"f2p: malloc failed\n");
  1893. X            exit(1);
  1894. X        }
  1895. X        (void) strncpy(troff_fonts[fontcount++].lwname,p,strlen(p)-1);
  1896. X                                /* not '\n' */
  1897. X    }
  1898. X    (void) fclose(fp);
  1899. X}
  1900. END_OF_FILE
  1901. if test 1737 -ne `wc -c <'troff_fonts.c'`; then
  1902.     echo shar: \"'troff_fonts.c'\" unpacked with wrong size!
  1903. fi
  1904. # end of 'troff_fonts.c'
  1905. fi
  1906. if test -f 'troff_fonts.h' -a "${1}" != "-c" ; then 
  1907.   echo shar: Will not clobber existing file \"'troff_fonts.h'\"
  1908. else
  1909. echo shar: Extracting \"'troff_fonts.h'\" \(133 characters\)
  1910. sed "s/^X//" >'troff_fonts.h' <<'END_OF_FILE'
  1911. X#define MAX_TROFF_FONTS    50
  1912. X
  1913. Xchar    *font_file;
  1914. X
  1915. Xstruct    lw_troff_map
  1916. X{
  1917. X    char    trname[3];
  1918. X    char    *lwname;
  1919. X}    troff_fonts[MAX_TROFF_FONTS];
  1920. X
  1921. END_OF_FILE
  1922. if test 133 -ne `wc -c <'troff_fonts.h'`; then
  1923.     echo shar: \"'troff_fonts.h'\" unpacked with wrong size!
  1924. fi
  1925. # end of 'troff_fonts.h'
  1926. fi
  1927. if test -f 'troff_ft_codes' -a "${1}" != "-c" ; then 
  1928.   echo shar: Will not clobber existing file \"'troff_ft_codes'\"
  1929. else
  1930. echo shar: Extracting \"'troff_ft_codes'\" \(868 characters\)
  1931. sed "s/^X//" >'troff_ft_codes' <<'END_OF_FILE'
  1932. X#    map of laserwriter font names to troff 2 letter codes
  1933. X#    for use by f2p, the xfig to pic translator
  1934. X#    normal path: /usr/lib/X11/troff/troff_ft_codes
  1935. X
  1936. XR    Times-Roman
  1937. XI    Times-Italic
  1938. XB    Times-Bold
  1939. XBI    Times-BoldItalic
  1940. XAR    AvantGarde-Book
  1941. XAO    AvantGarde-BookOblique
  1942. XAB    AvantGarde-Demi
  1943. XAX    AvantGarde-DemiOblique
  1944. XK    Bookman-Light
  1945. XKO    Bookman-LightItalic
  1946. XKB    Bookman-Demi
  1947. XKX    Bookman-DemiItalic
  1948. XC    Courier
  1949. XCO    Courier-Oblique
  1950. XCB    Courier-Bold
  1951. XCX    Courier-BoldItalic
  1952. XH    Helvetica
  1953. XHO    Helvetica-Oblique
  1954. XHB    Helvetica-Bold
  1955. XHX    Helvetica-BoldOblique
  1956. Xh    Helvetica-Narrow
  1957. XhO    Helvetica-Narrow-Oblique
  1958. XhB    Helvetica-Narrow-Bold
  1959. XhX    Helvetica-Narrow-BoldOblique
  1960. XNR    NewCenturySchlbk-Roman
  1961. XNI    NewCenturySchlbk-Italic
  1962. XNB    NewCenturySchlbk-Bold
  1963. XNX    NewCenturySchlbk-BoldItalic
  1964. XPR    Palatino-Roman
  1965. XPI    Palatino-Italic
  1966. XPB    Palatino-Bold
  1967. XPX    Palatino-BoldItalic
  1968. XS    Symbol
  1969. XZC    ZapfChancery-MediumItalic
  1970. XZD    ZapfDingbats
  1971. X
  1972. END_OF_FILE
  1973. if test 868 -ne `wc -c <'troff_ft_codes'`; then
  1974.     echo shar: \"'troff_ft_codes'\" unpacked with wrong size!
  1975. fi
  1976. # end of 'troff_ft_codes'
  1977. fi
  1978. if test -f 'version.h' -a "${1}" != "-c" ; then 
  1979.   echo shar: Will not clobber existing file \"'version.h'\"
  1980. else
  1981. echo shar: Extracting \"'version.h'\" \(331 characters\)
  1982. sed "s/^X//" >'version.h' <<'END_OF_FILE'
  1983. X/* 
  1984. X *    FIG : Facility for Interactive Generation of figures
  1985. X *
  1986. X *    Copyright (c) 1988 by Supoj Sutanthavibul (supoj@sally.UTEXAS.EDU)
  1987. X *      March 1988.
  1988. X *
  1989. X *    %W%    %G%
  1990. X*/
  1991. X
  1992. X#define            FIG_VERSION        "2.0"
  1993. X#ifndef TFX
  1994. X#define            PROTOCOL_VERSION    "2.0"    /* file format */
  1995. X#else
  1996. X#define            PROTOCOL_VERSION    "1.4-TFX" /* file format */
  1997. X#endif
  1998. END_OF_FILE
  1999. if test 331 -ne `wc -c <'version.h'`; then
  2000.     echo shar: \"'version.h'\" unpacked with wrong size!
  2001. fi
  2002. # end of 'version.h'
  2003. fi
  2004. if test -f 'xtra.h' -a "${1}" != "-c" ; then 
  2005.   echo shar: Will not clobber existing file \"'xtra.h'\"
  2006. else
  2007. echo shar: Extracting \"'xtra.h'\" \(522 characters\)
  2008. sed "s/^X//" >'xtra.h' <<'END_OF_FILE'
  2009. X/* 
  2010. X *    FIG : Facility for Interactive Generation of figures
  2011. X *
  2012. X *    Copyright (c) 1985 by Supoj Sutanthavibul (supoj@sally.UTEXAS.EDU)
  2013. X *    January 1985.
  2014. X *    1st revision : Aug 1985.
  2015. X *
  2016. X *    %W%    %G%
  2017. X*/
  2018. X
  2019. X#define    tool_destroy(tool)    XtDestroyWidget(tool)
  2020. X
  2021. Xpr_size pf_textwidth();
  2022. X
  2023. X#define    msg_text(w, x, y, font, string) \
  2024. X    XDrawString(tool_d, (w), (font==bold_font)?bold_gc: gc, (x), (y), \
  2025. X        (string), strlen(string))
  2026. X
  2027. X#define    CTRL_H    8
  2028. X#define    NL    10
  2029. X#define    CR    13
  2030. X#define    CTRL_U    21
  2031. X#define    CTRL_X    24
  2032. X#define    SP    32
  2033. X#define    DEL    127
  2034. END_OF_FILE
  2035. if test 522 -ne `wc -c <'xtra.h'`; then
  2036.     echo shar: \"'xtra.h'\" unpacked with wrong size!
  2037. fi
  2038. # end of 'xtra.h'
  2039. fi
  2040. echo shar: End of archive 1 \(of 21\).
  2041. cp /dev/null ark1isdone
  2042. MISSING=""
  2043. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 ; do
  2044.     if test ! -f ark${I}isdone ; then
  2045.     MISSING="${MISSING} ${I}"
  2046.     fi
  2047. done
  2048. if test "${MISSING}" = "" ; then
  2049.     echo You have unpacked all 21 archives.
  2050.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  2051. else
  2052.     echo You still need to unpack the following archives:
  2053.     echo "        " ${MISSING}
  2054. fi
  2055. ##  End of shell archive.
  2056. exit 0
  2057.  
  2058. dan
  2059. ----------------------------------------------------
  2060. O'Reilly && Associates   argv@sun.com / argv@ora.com
  2061. Opinions expressed reflect those of the author only.
  2062.