home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / x / volume19 / xfig / part07 < prev    next >
Encoding:
Text File  |  1993-05-26  |  65.5 KB  |  1,906 lines
  1. Newsgroups: comp.sources.x
  2. From: envbvs@epb9.lbl.gov (Brian V. Smith)
  3. Subject: v19i119:  xfig - Draw amd manipulate objects in an X-Window, Part07/27
  4. Message-ID: <1993May21.021333.5385@sparky.imd.sterling.com>
  5. X-Md4-Signature: 2cee93581fd2d0d2f5ceef732e45f391
  6. Sender: chris@sparky.imd.sterling.com (Chris Olson)
  7. Organization: Sterling Software
  8. Date: Fri, 21 May 1993 02:13:33 GMT
  9. Approved: chris@sparky.imd.sterling.com
  10.  
  11. Submitted-by: envbvs@epb9.lbl.gov (Brian V. Smith)
  12. Posting-number: Volume 19, Issue 119
  13. Archive-name: xfig/part07
  14. Environment: X11
  15. Supersedes: xfig: Volume 16, Issue 6-30,39
  16.  
  17. #! /bin/sh
  18. # This is a shell archive.  Remove anything before this line, then unpack
  19. # it by saving it into a file and typing "sh file".  To overwrite existing
  20. # files, type "sh file -c".  You can also feed this as standard input via
  21. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  22. # will see the following message at the end:
  23. #        "End of archive 7 (of 27)."
  24. # Contents:  Doc/FORMAT2.1 Examples/houseD.fig.uu Examples/lists.fig.uu
  25. #   Examples/roundboxes2.fig.uu d_ellipse.c object.h u_geom.c
  26. # Wrapped by envbvs@epb9.lbl.gov.lbl.gov on Mon May  3 12:05:50 1993
  27. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  28. if test -f 'Doc/FORMAT2.1' -a "${1}" != "-c" ; then 
  29.   echo shar: Will not clobber existing file \"'Doc/FORMAT2.1'\"
  30. else
  31. echo shar: Extracting \"'Doc/FORMAT2.1'\" \(8354 characters\)
  32. sed "s/^X//" >'Doc/FORMAT2.1' <<'END_OF_FILE'
  33. XThe following is the format of fig output (fig 2.1).
  34. X
  35. X(1) The very first line is a comment line containing the name and version:
  36. X    #FIG 2.1
  37. X
  38. X    The character # at the first column of a line indicates that the line
  39. X    is a comment line which will be ignored.
  40. X
  41. X(2) The first non-comment line consists of two numbers :
  42. X
  43. X    int    fig_resolution        (pixels/inch)
  44. X    int    coordinate_system    (1 : origin is at the lower left corner
  45. X                     2 : Upper left)
  46. X
  47. X    Fig_resolution is the resolution fig is using for the current file.
  48. X    It must always be 80 for compatibility with this version of Fig.
  49. X    Pixels are assumed to be square.
  50. X
  51. X(3) The rest of the file contains various objects.  An object can be one
  52. X    of six classes (or types).
  53. X
  54. X      i)    Arc.
  55. X     ii)    Ellipse which is a generalization of circle.
  56. X    iii)    Polyline which includes polygon and box.
  57. X     iv)    Spline which includes closed/open control/interpolated spline.
  58. X      v)    Text.
  59. X     vi)    Compound object which is composed of one or more objects.
  60. X
  61. X    In the following elaboration on object formats, every value of fig
  62. X    output are separated by blank characters or new line ('\n').  The
  63. X    value of the not-used parameters will be -1.
  64. X
  65. X    Some fields are described as "enumeration type" or "bit vector"; the 
  66. X    values which these fields can take are defined in the header file object.h.
  67. X    The pen, arrow_type, and arrow_style fields are described as unused.
  68. X    These values may be defined in some future version of Fig.
  69. X
  70. X    The color field is defined as follows:
  71. X
  72. X    -1 = Default
  73. X     0 = Black
  74. X     1 = Blue
  75. X     2 = Green
  76. X     3 = Cyan
  77. X     4 = Red
  78. X     5 = Magenta
  79. X     6 = Yellow
  80. X     7 = White
  81. X     values from 8 to 2^30-1 = reserved for future use
  82. X
  83. X    The depth field is defined as follows:
  84. X
  85. X     0 ... 999 where larger value means object is deeper than (under)
  86. X           objects with smaller depth
  87. X
  88. X    The area fill field is defined as follows:
  89. X    
  90. X     0 = not filled
  91. X     1 = white
  92. X    ...  values from 2 to 20 are shades of grey, from lighter to darker
  93. X    21 = black
  94. X
  95. X    The line_style field is defined as follows:
  96. X
  97. X    -1 = Default
  98. X     0 = Solid
  99. X     1 = Dashed
  100. X     2 = Dotted
  101. X
  102. X    The style_val field is defined as the length, in pixels, of the on/off dashes
  103. X    for dashed lines, and the distance between the dots, in pixels, for dotted lines
  104. X 
  105. X    (3.1) ARC
  106. X
  107. X    First line :
  108. X    type    name            (brief description)
  109. X    ----    ----            -------------------
  110. X    int    object_code        (always 5)
  111. X    int    sub_type        (always    1)
  112. X    int    line_style        (enumeration type)
  113. X    int    line_thickness        (pixels)
  114. X    int    color            (enumeration type)
  115. X    int    depth            (no units)
  116. X    int    pen            (not used)
  117. X    int    area_fill        (enumeration type)
  118. X    float    style_val        (pixels)
  119. X    int    direction        (0 : clockwise, 1 : counterclockwise)
  120. X    int    forward_arrow        (0: no forward arrow, 1: on)
  121. X    int    backward_arrow        (0: no forward arrow, 1: on)
  122. X    float    center_x, center_y    (center of the arc)
  123. X    int    x1, y1            (pixels, the 1st point the user entered)
  124. X    int    x2, y2            (pixels, the 2nd point)
  125. X    int    x3, y3            (pixels, the last point)
  126. X
  127. X    Forward arrow line (Optional; absent if forward_arrow is 0) :
  128. X    type    name            (brief description)
  129. X    ----    ----            -------------------
  130. X    int    arrow_type        (not used)
  131. X    int    arrow_style        (not used)
  132. X    float    arrow_thickness        (pixels)
  133. X    float     arrow_width        (pixels)
  134. X    float    arrow_height        (pixels)
  135. X
  136. X    Backward arrow line (Optional; absent if backward_arrow is 0) :
  137. X    type    name            (brief description)
  138. X    ----    ----            -------------------
  139. X    int    arrow_type        (not used)
  140. X    int    arrow_style        (not used)
  141. X    float    arrow_thickness        (pixels)
  142. X    float    arrow_width        (pixels)
  143. X    float    arrow_height        (pixels)
  144. X
  145. X    (3.2) COMPOUND
  146. X
  147. X    A line with object code 6 signifies the start of a compound.
  148. X    There are four more numbers on this line which indicate the
  149. X    upper right corner and the lower left corner of the bounding
  150. X    box of this compound.  A line with object code -6 signifies
  151. X    the end of the compound.  Compound may be nested.
  152. X
  153. X    First line :
  154. X    type    name            (brief description)
  155. X    ----    ----            -------------------
  156. X    int    object_code        (always 6)
  157. X    int    upperright_corner_x    (pixels)
  158. X    int    upperright_corner_y    (pixels)
  159. X    int    lowerleft_corner_x    (pixels)
  160. X    int    lowerleft_corner_y    (pixels)
  161. X
  162. X    Subsequent lines :
  163. X    objects
  164. X    .
  165. X    .
  166. X
  167. X    Last line :
  168. X    -6
  169. X
  170. X    (3.3) ELLIPSE
  171. X
  172. X    First line :
  173. X    type    name            (brief description)
  174. X    ----    ----            -------------------
  175. X    int    object_code        (always 1)
  176. X    int    sub_type        (1 : ellipse defined by radiuses
  177. X                     2 : ellipse defined by diameters
  178. X                     3 : circle defined by radius
  179. X                     4 : circle defined by diameter)
  180. X    int    line_style        (enumeration type)
  181. X    int    thickness        (pixels)
  182. X    int    color            (enumeration type)
  183. X    int    depth            (no units)
  184. X    int    pen            (not used)
  185. X    int    area_fill        (enumeration type)
  186. X    float    style_val        (pixels)
  187. X    int    direction        (always 1)
  188. X    float    angle            (radians, the angle of the x-axis)
  189. X    int    center_x, center_y    (pixels)
  190. X    int    radius_x, radius_y    (pixels)
  191. X    int    start_x, start_y    (pixels; the 1st point entered)
  192. X    int    end_x, end_y        (pixels; the last point entered)
  193. X
  194. X    (3.4) POLYLINE
  195. X
  196. X    First line :
  197. X    type    name            (brief description)
  198. X    ----    ----            -------------------
  199. X    int    object_code        (always 2)
  200. X    int    sub_type        (1 : polyline
  201. X                     2 : box
  202. X                     3 : polygon
  203. X                     4 : arc-box)
  204. X                     5 : imported-eps bounding-box)
  205. X    int    line_style        (enumeration type)
  206. X    int    thickness        (pixels)
  207. X    int    color            (enumeration type)
  208. X    int    depth            (no units)
  209. X    int    pen            (not used)
  210. X    int    area_fill        (enumeration type)
  211. X    float    style_val        (pixels)
  212. X    int    radius            (pixels)
  213. X    int    forward_arrow        (0: off, 1: on)
  214. X    int    backward_arrow        (0: off, 1: on)
  215. X
  216. X    Forward arrow line : same as ARC object
  217. X
  218. X    Backward arrow line : same as ARC object
  219. X
  220. X    Points line :
  221. X    type    name            (brief description)
  222. X    ----    ----            -------------------
  223. X    int    x1, y1            (pixels)
  224. X    int    x2, y2            (pixels)
  225. X      .
  226. X      .
  227. X    int    xn, yn            (this will be the same as the 1st
  228. X                    point for polygon and box)
  229. X    int    x, y            (always 9999, 9999; marks the end of
  230. X                    point for polygon and box)
  231. X
  232. X    EPS line :
  233. X    type    name            (brief description)
  234. X    ----    ----            -------------------
  235. X    boolean    flipped            orientation = normal (0) or flipped (1)
  236. X    char    file[]            name of eps file to import
  237. X
  238. X    (3.5) SPLINE
  239. X
  240. X    First line :
  241. X    type    name            (brief description)
  242. X    ----    ----            -------------------
  243. X    int    object_code        (always 3)
  244. X    int    sub_type        (0 : open spline
  245. X                     1 : closed spline
  246. X                     2 : open interpolated spline
  247. X                     3 : closed interpolated spline)
  248. X    int    line_style        (See the end of this section)
  249. X    int    thickness        (pixels)
  250. X    int    color            (enumeration type)
  251. X    int    depth            (no units)
  252. X    int    pen            (not used)
  253. X    int    area_fill        (enumeration type)
  254. X    float    style_val        (pixels)
  255. X    int    forward_arrow        (0: off, 1: on)
  256. X    int    backward_arrow        (0: off, 1: on)
  257. X
  258. X    Forward arrow line : same as ARC object
  259. X
  260. X    Backward arrow line : same as ARC object
  261. X
  262. X    Points line : same as POLYLINE object
  263. X
  264. X    Control points line (absent if sub_type is 1 or 2) :
  265. X    Control points of interpolated spline.  There are two control
  266. X    points for each knots.  A section i, of the spline is drawn
  267. X    using Bezier cubic with the following four points:
  268. X        (x ,y ), (rx ,ry ), (lx      , ly   ), (x   , y   ).
  269. X          i  i        i    i      i+1    i+1     i+1   i+1
  270. X    For closed interpolated spline the last pair of control points,
  271. X    (lxn,lyn) and (rxn,ryn) (which can be ignored), are the same as
  272. X    (lx1,ly1) and (rx1,ry1) respectively.
  273. X
  274. X    type    name            (brief description)
  275. X    ----    ----            -------------------
  276. X    float    lx1, ly1        (pixels)
  277. X    float    rx1, ry1        (pixels)
  278. X    float    lx2, ly2        (pixels)
  279. X    float    rx2, ry2        (pixels)
  280. X      .
  281. X      .
  282. X    float    lxn, lyn        (pixels)
  283. X    float    rxn, ryn        (pixels)
  284. X
  285. X    (3.6) TEXT
  286. X    type    name            (brief description)
  287. X    ----    ----            -------------------
  288. X    int    object             (always 4)
  289. X    int    sub_type        (0 : Left justified
  290. X                     1 : Center justified
  291. X                     2 : Right justified)
  292. X    int    font             (enumeration type)
  293. X    int    font_size         (points)
  294. X    int    pen            (not used)
  295. X    int    color            (enumeration type)
  296. X    int    depth            (no units)
  297. X    float    angle            (radians, the angle of the text)
  298. X    int    font_flags        (bit vector)
  299. X    int    height            (pixels)
  300. X    int    length            (pixels)
  301. X    int    x, y            (pixels, coordinate of the origin
  302. X                     of the string.  If sub_type = 0, it is
  303. X                     the lower left corner of the string.
  304. X                     If sub_type = 1, it is the lower
  305. X                     center.  Otherwise it is the lower
  306. X                     right corner of the string.)
  307. X    char    string[]        (ascii characters; starts after a blank
  308. X                    character following the last number and
  309. X                    ends before the character '\1'.  This
  310. X                    character is not part of the string.
  311. X                    Note that the string may contain '\n'.)
  312. END_OF_FILE
  313. if test 8354 -ne `wc -c <'Doc/FORMAT2.1'`; then
  314.     echo shar: \"'Doc/FORMAT2.1'\" unpacked with wrong size!
  315. fi
  316. # end of 'Doc/FORMAT2.1'
  317. fi
  318. if test -f 'Examples/houseD.fig.uu' -a "${1}" != "-c" ; then 
  319.   echo shar: Will not clobber existing file \"'Examples/houseD.fig.uu'\"
  320. else
  321. echo shar: Extracting \"'Examples/houseD.fig.uu'\" \(8465 characters\)
  322. sed "s/^X//" >'Examples/houseD.fig.uu' <<'END_OF_FILE'
  323. Xbegin 444 houseD.fig
  324. XM(T9)1R`R+C$*.#`@,@HU(#$@,"`Q("TQ(#`@,"`P(#`N,#`P(#$@,"`P(#(V
  325. XM.2XV-3@@,C(Y+C8U."`R-CD@,C<T(#,P,B`R-C`@,S$T(#(R.0HU(#$@,"`Q
  326. XM("TQ(#`@,"`P(#`N,#`P(#`@,"`P(#$Y-BXW,#`@,C`Q+C<P,"`R,30@,C`T
  327. XM(#(Q,"`R,3,@,3DY(#(Q.0HQ(#$@,"`Q("TQ(#`@,"`P(#`N,#`P(#$@,"XP
  328. XM,#`@,S,Y(#$W-2`Q,2`Q-B`S,SD@,3<U(#,T.2`Q.3`*,2`Q(#`@,2`M,2`P
  329. XM(#`@,"`P+C`P,"`Q(#`N,#`P(#,S."`Q,S`@,3$@,38@,S,X(#$S,"`S-#@@
  330. XM,30U"C$@,B`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P+C`P,"`R,C8@,3(Q(#$Q
  331. XM(#$U(#(Q-R`Q,S@@,C,W(#$P-@HR(#(@,"`Q("TQ(#`@,"`P(#`N,#`P(#`@
  332. XM,"`P"@D@-C4Y(#,X-R`V-3D@-#,T(#8R.2`T,S0@-C(Y(#,X-R`V-3D@,S@W
  333. XM(#DY.3D@.3DY.0HR(#(@,2`Q("TQ(#`@,"`P(#`N,#`P(#`@,"`P"@D@-C(Y
  334. XM(#,X-R`V,CD@,S0Q(#8U.2`S-#$@-C4Y(#,X-R`V,CD@,S@W(#DY.3D@.3DY
  335. XM.0HR(#(@,"`Q("TQ(#`@,"`P(#`N,#`P(#`@,"`P"@D@,S(S(#(S,2`S.#,@
  336. XM,C,Q(#,X,R`R-C$@,S(S(#(V,2`S,C,@,C,Q(#DY.3D@.3DY.0HR(#$@,"`Q
  337. XM("TQ(#`@,"`P(#`N,#`P(#`@,"`P"@D@,SDT(#(Q.2`S.30@,3$Y(#0T-"`Q
  338. XM,3D@-#0T(#(Q.2`Y.3DY(#DY.3D*,B`S(#`@,2`M,2`P(#`@,"`P+C`P,"`P
  339. XM(#`@,`H)(#,V-"`R,3D@,SDT(#(Q.2`S.30@,C(Y(#,V-"`R,CD@,S8T(#(Q
  340. XM.2`Y.3DY(#DY.3D*,B`S(#`@,2`M,2`P(#`@,"`P+C`P,"`P(#`@,`H)(#0X
  341. XM-"`R,CD@-#0T(#(R.2`T-#0@,C$Y(#0W-"`R,3D@-#<T(#@Y(#0X-"`X.2`T
  342. XM.#0@,C(Y(#DY.3D@.3DY.0HR(#$@,"`Q("TQ(#`@,"`P(#`N,#`P(#`@,"`P
  343. XM"@D@,SDT(#(Q.2`S.30@,3$Y(#0T-"`Q,3D@-#0T(#(Q.2`Y.3DY(#DY.3D*
  344. XM,B`S(#`@,2`M,2`P(#`@,"`P+C`P,"`P(#`@,`H)(#,U-"`X.2`S-C0@.#D@
  345. XM,S8T(#(R.2`S,30@,C(Y(#,Q-"`R,3D@,S4T(#(Q.2`S-30@.#D@.3DY.2`Y
  346. XM.3DY"C(@,2`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`S,3D@.#D@,S$Y
  347. XM(#(Q.2`Y.3DY(#DY.3D*,B`R(#`@,2`M,2`P(#`@,"`P+C`P,"`P(#`@,`H)
  348. XM(#,R-"`X-"`S,C0@.30@,S0T(#DT(#,T-"`X-"`S,C0@.#0@.3DY.2`Y.3DY
  349. XM"C(@,2`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`Q-SD@,3DY(#$W.2`R
  350. XM,3D@.3DY.2`Y.3DY"C(@,R`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`Q
  351. XM,SD@,3@Y(#$Y.2`Q.#D@,3DY(#(P-"`Q.#D@,C`T(#$X.2`Q.3D@,3,Y(#$Y
  352. XM.2`Q,SD@,3@Y(#DY.3D@.3DY.0HR(#0@,"`Q("TQ(#`@,"`P(#`N,#`P(#,@
  353. XM,"`P"@D@,C$Q(#(S,2`R,3$@,C8T(#(V-2`R-C0@,C8U(#(S,2`R,3$@,C,Q
  354. XM(#DY.3D@.3DY.0HR(#0@,"`Q("TQ(#`@,"`P(#`N,#`P(#,@,"`P"@D@,30R
  355. XM(#(S,2`Q-#(@,C8T(#(P.2`R-C0@,C`Y(#(S,2`Q-#(@,C,Q(#DY.3D@.3DY
  356. XM.0HR(#$@,"`R("TQ(#`@,"`P(#`N,#`P(#`@,"`P"@D@,C8Y(#(W-"`R-CD@
  357. XM,C(Y(#DY.3D@.3DY.0HR(#$@,"`Q("TQ(#`@,"`P(#`N,#`P(#`@,"`P"@D@
  358. XM,3DT(#@Y(#$Y-"`Q.#D@.3DY.2`Y.3DY"C(@-"`P(#$@+3$@,"`P(#`@,"XP
  359. XM,#`@-R`P(#`*"2`Q-#0@.30@,30T(#$X-"`Q.#D@,3@T(#$X.2`Y-"`Q-#0@
  360. XM.30@.3DY.2`Y.3DY"C(@,2`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`R
  361. XM,S0@.#0@,C<Y(#@T(#DY.3D@.3DY.0HR(#$@,"`Q("TQ(#`@,"`P(#`N,#`P
  362. XM(#`@,"`P"@D@,C<Y(#<Y(#(W.2`X.2`Y.3DY(#DY.3D*,B`Q(#`@,2`M,2`P
  363. XM(#`@,"`P+C`P,"`P(#`@,`H)(#(S-"`W.2`R,S0@.#D@.3DY.2`Y.3DY"C(@
  364. XM-"`P(#$@+3$@,"`P(#`@,"XP,#`@,R`P(#`*"2`R,3,@,3`S(#(Q,R`Y,2`R
  365. XM,SD@.3$@,C,Y(#$P,R`R,3,@,3`S(#DY.3D@.3DY.0HR(#$@,"`Q("TQ(#`@
  366. XM,"`P(#`N,#`P(#`@,"`P"@D@,C,U(#$Q,B`R,S4@,3`S(#DY.3D@.3DY.0HR
  367. XM(#$@,"`Q("TQ(#`@,"`P(#`N,#`P(#`@,"`P"@D@,C$W(#$Q-"`R,3<@,3`S
  368. XM(#DY.3D@.3DY.0HR(#$@,"`Q("TQ(#`@,"`P(#`N,#`P(#`@,"`P"@D@-C8T
  369. XM(#$P.2`V-S0@,3`Y(#DY.3D@.3DY.0HR(#$@,"`Q("TQ(#`@,"`P(#`N,#`P
  370. XM(#`@,"`P"@D@-C8T(#$T.2`V-S0@,30Y(#DY.3D@.3DY.0HR(#$@,"`Q("TQ
  371. XM(#`@,"`P(#`N,#`P(#`@,"`P"@D@-C8Y(#$P.2`V-CD@,30Y(#DY.3D@.3DY
  372. XM.0HR(#$@,"`Q("TQ(#`@,"`P(#`N,#`P(#`@,"`P"@D@-C`T(#@T(#8T-"`X
  373. XM-"`Y.3DY(#DY.3D*,B`Q(#`@,2`M,2`P(#`@,"`P+C`P,"`P(#`@,`H)(#8T
  374. XM-"`X.2`V-#0@-SD@.3DY.2`Y.3DY"C(@,2`P(#$@+3$@,"`P(#`@,"XP,#`@
  375. XM,"`P(#`*"2`V,#0@.#D@-C`T(#<Y(#DY.3D@.3DY.0HR(#(@,"`Q("TQ(#`@
  376. XM,"`P(#`N,#`P(#`@,"`P"@D@,30T(#,Q,R`Q-#0@,S,Y(#$V.2`S,SD@,38Y
  377. XM(#,Q,R`Q-#0@,S$S(#DY.3D@.3DY.0HR(#0@,"`Q("TQ(#`@,"`P(#`N,#`P
  378. XM(#0@,"`P"@D@,38T(#0U.2`R.#D@-#4Y(#(X.2`S-#D@,38T(#,T.2`Q-C0@
  379. XM-#4Y(#DY.3D@.3DY.0HR(#0@,"`Q("TQ(#`@,"`P(#`N,#`P(#,@,"`P"@D@
  380. XM,38T(#,T-"`Q-#D@,S0T(#$T.2`T-C0@,38T(#0V-"`Q-C0@,S0T(#DY.3D@
  381. XM.3DY.0HR(#$@,"`Q("TQ(#`@,"`P(#`N,#`P(#`@,"`P"@D@-38T(#0Y.2`U
  382. XM-C0@-3`Y(#DY.3D@.3DY.0HR(#$@,"`Q("TQ(#`@,"`P(#`N,#`P(#`@,"`P
  383. XM"@D@-3`T(#0Y.2`U,#0@-3`Y(#DY.3D@.3DY.0HR(#$@,"`Q("TQ(#`@,"`P
  384. XM(#`N,#`P(#`@,"`P"@D@-3`T(#4P-"`U-C0@-3`T(#DY.3D@.3DY.0HR(#$@
  385. XM,"`Q("TQ(#`@,"`P(#`N,#`P(#`@,"`P"@D@,3DY(#0Y.2`Q.3D@-3`Y(#DY
  386. XM.3D@.3DY.0HR(#$@,"`Q("TQ(#`@,"`P(#`N,#`P(#`@,"`P"@D@,C4Y(#0Y
  387. XM.2`R-3D@-3`Y(#DY.3D@.3DY.0HR(#$@,"`Q("TQ(#`@,"`P(#`N,#`P(#`@
  388. XM,"`P"@D@,3DY(#4P-"`R-3D@-3`T(#DY.3D@.3DY.0HR(#,@,"`Q("TQ(#`@
  389. XM,"`P(#`N,#`P(#`@,"`P"@D@-#(T(#,V.2`T,30@,S8Y(#0Q-"`S-#D@-#<Y
  390. XM(#,T.2`T-SD@-#DY(#8V-"`T.3D@-C8T(#@Y(#,T-"`X.0H)(#,T-"`Y-"`S
  391. XM,C0@.30@,S(T(#@Y(#$S.2`X.2`Q,SD@,S<T(#$R.2`S-S0@,3(Y(#<Y(#8W
  392. XM-"`W.0H)(#8W-"`U,#D@,3(Y(#4P.2`Q,CD@,S<T(#$S.2`S-S0@,3,Y(#0Y
  393. XM.2`T,30@-#DY(#0Q-"`T.#D@-#(T(#0X.0H)(#0R-"`T.3D@-#8Y(#0Y.2`T
  394. XM-CD@,S4Y(#0R-"`S-3D@-#(T(#,V.2`Y.3DY(#DY.3D*,B`Q(#`@,B`M,2`P
  395. XM(#`@,"`P+C`P,"`P(#`@,`H)(#0R,"`T,C0@-#(P(#0X-B`Y.3DY(#DY.3D*
  396. XM,B`Q(#`@,B`M,2`P(#`@,"`P+C`P,"`P(#`@,`H)(#0Q-R`S-S(@-#$W(#0R
  397. XM.2`Y.3DY(#DY.3D*,B`Q(#`@,2`M,2`P(#`@,"`P+C`P,"`P(#`@,`H)(#$R
  398. XM.2`T-#0@,3,Y(#0T-"`Y.3DY(#DY.3D*,B`Q(#`@,2`M,2`P(#`@,"`P+C`P
  399. XM,"`P(#`@,`H)(#$S.2`S-S0@,3(Y(#,W-"`Y.3DY(#DY.3D*,B`Q(#`@,2`M
  400. XM,2`P(#`@,"`P+C`P,"`P(#`@,0H),"`P(#$N,#`P(#0N,#`P(#@N,#`P"@D@
  401. XM-C<Q(#8T(#0S.2`V-"`Y.3DY(#DY.3D*,B`Q(#`@,2`M,2`P(#`@,"`P+C`P
  402. XM,"`P(#`@,0H),"`P(#$N,#`P(#0N,#`P(#@N,#`P"@D@,3,Q(#8T(#,Y-"`V
  403. XM-"`Y.3DY(#DY.3D*,B`Q(#`@,2`M,2`P(#`@,"`P+C`P,"`P(#`@,`H)(#$R
  404. XM.2`U-"`Q,CD@-S0@.3DY.2`Y.3DY"C(@,2`P(#$@+3$@,"`P(#`@,"XP,#`@
  405. XM,"`P(#`*"2`Q,S0@,S<T(#$S-"`T-#0@.3DY.2`Y.3DY"C(@,B`P(#$@+3$@
  406. XM,"`P(#`@,"XP,#`@,"`P(#`*"2`S,SD@-#DT(#,X-R`T.30@,S@W(#0W,"`S
  407. XM,SD@-#<P(#,S.2`T.30@.3DY.2`Y.3DY"C(@-"`P(#$@+3$@,"`P(#`@,"XP
  408. XM,#`@,R`P(#`*"2`U.#0@-#0T(#4X-"`T.30@-#@T(#0Y-"`T.#0@-#0T(#4X
  409. XM-"`T-#0@.3DY.2`Y.3DY"C(@,2`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*
  410. XM"2`V-S0@-30@-C<T(#<T(#DY.3D@.3DY.0HR(#$@,"`Q("TQ(#`@,"`P(#`N
  411. XM,#`P(#`@,"`P"@D@-C8Y(#,W.2`V-CD@-#,Y(#DY.3D@.3DY.0HR(#$@,"`Q
  412. XM("TQ(#`@,"`P(#`N,#`P(#`@,"`P"@D@-C8T(#,W.2`V-S0@,S<Y(#DY.3D@
  413. XM.3DY.0HR(#$@,"`Q("TQ(#`@,"`P(#`N,#`P(#`@,"`P"@D@-C8T(#0S.2`V
  414. XM-S0@-#,Y(#DY.3D@.3DY.0HR(#$@,"`Q("TQ(#`@,"`P(#`N,#`P(#`@,"`P
  415. XM"@D@-CDY(#4P.2`V-SD@-3`Y(#DY.3D@.3DY.0HR(#$@,"`Q("TQ(#`@,"`P
  416. XM(#`N,#`P(#`@,"`P"@D@-CDY(#<Y(#8W.2`W.2`Y.3DY(#DY.3D*,B`Q(#`@
  417. XM,2`M,2`P(#`@,"`P+C`P,"`P(#`@,`H)(#8X.2`X,2`V.#D@,C@T(#DY.3D@
  418. XM.3DY.0HR(#$@,"`Q("TQ(#`@,"`P(#`N,#`P(#`@,"`Q"@DP(#`@,2XP,#`@
  419. XM-"XP,#`@."XP,#`*"2`V.#D@-3`V(#8X.2`S,30@.3DY.2`Y.3DY"C(@,R`P
  420. XM(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`U.#0@,38Y(#4U.2`Q-CD@-34Y
  421. XM(#$W.2`U-S0@,3<Y(#4W-"`S,C0@-C8T(#,R-"`V-C0@,S$T(#4X-"`S,30*
  422. XM"2`U.#0@,38Y(#DY.3D@.3DY.0HR(#$@,"`Q("TQ(#`@,"`P(#`N,#`P(#`@
  423. XM,"`P"@D@-3<Y(#@Y(#4W.2`Q-CD@.3DY.2`Y.3DY"C(@,2`P(#$@+3$@,"`P
  424. XM(#`@,"XP,#`@,"`P(#`*"2`U.#0@,38Y(#8V-"`Q-CD@.3DY.2`Y.3DY"C(@
  425. XM,2`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`U.#0@,3@T(#8V-"`Q.#0@
  426. XM.3DY.2`Y.3DY"C(@,2`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`U.#0@
  427. XM,3DY(#8V-"`Q.3D@.3DY.2`Y.3DY"C(@,2`P(#$@+3$@,"`P(#`@,"XP,#`@
  428. XM,"`P(#`*"2`U.#0@,C$T(#8V-"`R,30@.3DY.2`Y.3DY"C(@,2`P(#$@+3$@
  429. XM,"`P(#`@,"XP,#`@,"`P(#`*"2`U.#0@,C(Y(#8V-"`R,CD@.3DY.2`Y.3DY
  430. XM"C(@,2`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`U.#0@,C0T(#8V-"`R
  431. XM-#0@.3DY.2`Y.3DY"C(@,2`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`U
  432. XM.#0@,C4Y(#8V-"`R-3D@.3DY.2`Y.3DY"C(@,2`P(#$@+3$@,"`P(#`@,"XP
  433. XM,#`@,"`P(#`*"2`U.#0@,C<T(#8V-"`R-S0@.3DY.2`Y.3DY"C(@,2`P(#$@
  434. XM+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`U.#0@,C@Y(#8V-"`R.#D@.3DY.2`Y
  435. XM.3DY"C(@,2`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`U-C0@.#D@-38T
  436. XM(#$V.2`Y.3DY(#DY.3D*,B`Q(#`@,2`M,2`P(#`@,"`P+C`P,"`P(#$@,`H)
  437. XM,"`P(#$N,#`P(#0N,#`P(#@N,#`P"@D@-34T(#$R.2`V,#D@,3(Y(#8R.2`Q
  438. XM-#0@-C(Y(#(Y-"`Y.3DY(#DY.3D*,B`Q(#`@,2`M,2`P(#`@,"`P+C`P,"`P
  439. XM(#`@,`H)(#4X-"`S,#0@-C8T(#,P-"`Y.3DY(#DY.3D*,B`S(#`@,2`M,2`P
  440. XM(#`@,"`P+C`P,"`P(#`@,`H)(#$S.2`R,3D@,C8Y(#(Q.2`R-CD@,C(Y(#$S
  441. XM.2`R,CD@,3,Y(#(Q.2`Y.3DY(#DY.3D*,B`Q(#`@,B`M,2`P(#`@,"`P+C`P
  442. XM,"`P(#`@,`H)(#$Y.2`R,#0@,C$T(#(P-"`Y.3DY(#DY.3D*-"`P(#`@,3(@
  443. XM,"`M,2`P(#`N,#`P(#0@.2`R-R`V,S0@-#`Y(%-%5P$*-"`P(#`@,3(@,"`M
  444. XM,2`P(#`N,#`P(#0@.2`Q-R`S-#8@,C4P($12`0HT(#`@,"`Q,B`P("TQ(#`@
  445. XM,"XP,#`@-"`Y(#$X(#0P.2`Q-30@0TPN`0HT(#`@,"`Q,B`P("TQ(#`@,"XP
  446. XM,#`@-"`Y(#$U(#$U.2`R,30@0TP!"C0@,"`P(#$R(#`@+3$@,"`P+C`P,"`T
  447. XM(#D@,3<@,C(Y(#(T.2!$4@$*-"`P(#`@,3(@,"`M,2`P(#`N,#`P(#0@.2`Q
  448. XM-R`Q-3D@,C0Y($12`0HT(#`@,"`Q,B`P("TQ(#`@,"XP,#`@-"`Y(#,S(#(S
  449. XM-"`Q-#D@0D%42`$*-"`P(#`@,3(@,"`M,2`P(#`N,#`P(#0@.2`W(#$U,2`S
  450. XM,S$@5`$*-"`P(#`@,3(@,"`M,2`P(#`N,#`P(#0@.2`R-2`R,#D@-#`Y($)%
  451. XM1`$*-"`P(#`@,3(@,"`M,2`P(#`N,#`P(#0@.2`S,"`S.3D@-CD@,C<G(#(B
  452. XM`0HT(#`@,"`Q,B`P("TQ(#`@,"XP,#`@-"`Y(#0P(#4R.2`S-SD@4U151%D!
  453. XM"C0@,"`P(#$R(#`@+3$@,"`P+C`P,"`T(#D@,3$U(#(R."`S,#4@34%35$52
  454. XM($)%1%)/3TT!"C0@,"`P(#$R(#`@+3$@,"`P+C`P,"`T(#$R(#4T(#$Y(#,Y
  455. XM.2!H;W5S940N9FEG`0HT(#`@,"`Q,B`P("TQ(#`@,"XP,#`@-"`Y(#$X(#0S
  456. XM-"`T,CD@0TPN`0HT(#`@,"`Q,B`P("TQ(#`@,"XP,#`@-"`Y(#$W(#,U-"`T
  457. XM.#0@1%(!"C0@,"`P(#$R(#`@+3$@,"`P+C`P,"`T(#D@,S(@-3$Y(#0V.2!$
  458. XM15-+`0HT(#`@,"`Q,B`P("TQ(#`@,"XP,#`@-"`Y(#,P(#8X-"`S,#0@,C$G
  459. XM(#8B`0HT(#`@,"`Q,B`P("TQ(#`@,"XP,#`@-"`Y(#,Y(#4R-"`Q,C0@1$]7
  460. X#3@$*
  461. X`
  462. Xend
  463. END_OF_FILE
  464. if test 8465 -ne `wc -c <'Examples/houseD.fig.uu'`; then
  465.     echo shar: \"'Examples/houseD.fig.uu'\" unpacked with wrong size!
  466. fi
  467. # end of 'Examples/houseD.fig.uu'
  468. fi
  469. if test -f 'Examples/lists.fig.uu' -a "${1}" != "-c" ; then 
  470.   echo shar: Will not clobber existing file \"'Examples/lists.fig.uu'\"
  471. else
  472. echo shar: Extracting \"'Examples/lists.fig.uu'\" \(8458 characters\)
  473. sed "s/^X//" >'Examples/lists.fig.uu' <<'END_OF_FILE'
  474. Xbegin 444 lists.fig
  475. XM(T9)1R`R+C$*.#`@,@HU(#$@,"`Q("TQ(#`@,"`P(#`N,#`P(#`@,2`P(#4T
  476. XM,BXQ-3<@-#,Q+C4X,2`U,C$@,SDT(#4T.2`S.#D@-38U(#,Y-0H),"`P(#$N
  477. XM,#`P(#0N,#`P(#@N,#`P"C4@,2`P(#$@+3$@,"`P(#`@,"XP,#`@,2`Q(#`@
  478. XM-3`P+C$W."`T,C0N,#$V(#0W-2`S.30@-#8Q(#0R-"`T-S`@-#0Y"@DS-#`W
  479. XM.#<R(#$S,3`W,B`Q+C`P,"`T+C`P,"`X+C`P,`HU(#$@,"`Q("TQ(#`@,"`P
  480. XM(#`N,#`P(#$@,2`P(#4P,"XQ-S@@-#<Y+C`Q-B`T-S4@-#0Y(#0V,2`T-SD@
  481. XM-#<P(#4P-`H),S0P-S@W,B`Q,S$P-S(@,2XP,#`@-"XP,#`@."XP,#`*-2`Q
  482. XM(#`@,2`M,2`P(#`@,"`P+C`P,"`P(#$@,"`S,#`N-CDX(#0R.2XP,#8@,C@P
  483. XM(#,Y-"`S,#@@,S@Y(#,R,R`S.34*"3`@,"`Q+C`P,"`T+C`P,"`X+C`P,`HU
  484. XM(#$@,"`Q("TQ(#`@,"`P(#`N,#`P(#$@,2`P(#(U-BXX,#@@-#(S+C,W-R`R
  485. XM,S,@,SDT(#(Q.2`T,C0@,C(Y(#0T.0H),S0P-S@W,B`Q,S$P-S(@,2XP,#`@
  486. XM-"XP,#`@."XP,#`*-2`Q(#`@,2`M,2`P(#`@,"`P+C`P,"`Q(#$@,"`R-38N
  487. XM.#`X(#0W."XS-S<@,C,S(#0T.2`R,3D@-#<Y(#(R.2`U,#0*"3,T,#<X-S(@
  488. XM,3,Q,#<R(#$N,#`P(#0N,#`P(#@N,#`P"C4@,2`P(#$@+3$@,"`P(#`@,"XP
  489. XM,#`@,2`Q(#`@,C4V+C@P."`U,S,N,S<W(#(S,R`U,#0@,C$Y(#4S-"`R,CD@
  490. XM-34Y"@DS-#`W.#<R(#$S,3`W,B`Q+C`P,"`T+C`P,"`X+C`P,`HU(#$@,"`Q
  491. XM("TQ(#`@,"`P(#`N,#`P(#$@,2`P(#(U-BXX,#@@-3@X+C,W-R`R,S,@-34Y
  492. XM(#(Q.2`U.#D@,C(Y(#8Q-`H),S0P-S@W,B`Q,S$P-S(@,2XP,#`@-"XP,#`@
  493. XM."XP,#`*-2`Q(#`@,2`M,2`P(#`@,"`P+C`P,"`Q(#$@,"`S-SDN,3<W(#4S
  494. XM-"XP,38@,S4T(#4P-"`S-#`@-3,T(#,T.2`U-3D*"3,T,#<X-S(@,3,Q,#<R
  495. XM(#$N,#`P(#0N,#`P(#@N,#`P"C4@,2`P(#$@+3$@,"`P(#`@,"XP,#`@,2`Q
  496. XM(#`@,S<Y+C$W."`T-SDN,#$V(#,U-"`T-#D@,S0P(#0W.2`S-#D@-3`T"@DS
  497. XM-#`W.#<R(#$S,3`W,B`Q+C`P,"`T+C`P,"`X+C`P,`HU(#$@,"`Q("TQ(#`@
  498. XM,"`P(#`N,#`P(#$@,2`P(#,W.2XQ-S@@-#(T+C`Q-B`S-30@,SDT(#,T,"`T
  499. XM,C0@,S0Y(#0T.0H),S0P-S@W,B`Q,S$P-S(@,2XP,#`@-"XP,#`@."XP,#`*
  500. XM-2`Q(#`@,2`M,2`P(#`@,"`P+C`P,"`P(#$@,"`T,C$N,34W(#0S,2XU.#$@
  501. XM-#`P(#,Y-"`T,C@@,S@Y(#0T-"`S.34*"3`@,"`Q+C`P,"`T+C`P,"`X+C`P
  502. XM,`HU(#$@,"`Q("TQ(#`@,"`P(#`N,#`P(#$@,2`P(#$S-2XX,#@@-3,S+C,W
  503. XM-R`Q,3(@-3`T(#DX(#4S-"`Q,#@@-34Y"@DS-#`W.#<R(#$S,3`W,B`Q+C`P
  504. XM,"`T+C`P,"`X+C`P,`HU(#$@,"`Q("TQ(#`@,"`P(#`N,#`P(#$@,2`P(#$S
  505. XM-2XX,#@@-#<X+C,W-R`Q,3(@-#0Y(#DX(#0W.2`Q,#@@-3`T"@DS-#`W.#<R
  506. XM(#$S,3`W,B`Q+C`P,"`T+C`P,"`X+C`P,`HU(#$@,"`Q("TQ(#`@,"`P(#`N
  507. XM,#`P(#$@,2`P(#$S-2XX,#@@-#(S+C,W-R`Q,3(@,SDT(#DX(#0R-"`Q,#@@
  508. XM-#0Y"@DS-#`W.#<R(#$S,3`W,B`Q+C`P,"`T+C`P,"`X+C`P,`HU(#$@,"`Q
  509. XM("TQ(#`@,"`P(#`N,#`P(#$@,2`P(#@W+C@W."`S-34N,C@V(#0W(#,V.2`V
  510. XM,2`S.#D@.#(@,SDX"@DP(#`@,2XP,#`@-"XP,#`@."XP,#`*-2`Q(#`@,2`M
  511. XM,2`P(#`@,"`P+C`P,"`P(#$@,"`Q-SDN-CDX(#0R.2XP,#8@,34Y(#,Y-"`Q
  512. XM.#<@,S@Y(#(P,B`S.34*"3`@,"`Q+C`P,"`T+C`P,"`X+C`P,`HR(#(@,"`Q
  513. XM("TQ(#`@,"`P(#`N,#`P(#`@,"`P"@D@,30T(#4Y(#$T-"`Y-"`S,C0@.30@
  514. XM,S(T(#4Y(#$T-"`U.2`Y.3DY(#DY.3D*,B`R(#`@,2`M,2`P(#`@,"`P+C`P
  515. XM,"`P(#`@,`H)(#$U-"`Q,C0@,34T(#(Q.2`Q-S0@,C$Y(#$W-"`Q,C0@,34T
  516. XM(#$R-"`Y.3DY(#DY.3D*,B`Q(#`@,2`M,2`P(#`@,"`P+C`P,"`P(#`@,`H)
  517. XM(#$V-"`Y-"`Q-C0@,3(T(#DY.3D@.3DY.0HR(#$@,"`Q("TQ(#`@,"`P(#`N
  518. XM,#`P(#`@,"`P"@D@,3DY(#DT(#$Y.2`Q,C0@.3DY.2`Y.3DY"C(@,B`P(#$@
  519. XM+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`Q.#D@,3(T(#$X.2`R,3D@,C`Y(#(Q
  520. XM.2`R,#D@,3(T(#$X.2`Q,C0@.3DY.2`Y.3DY"C(@,B`P(#$@+3$@,"`P(#`@
  521. XM,"XP,#`@,"`P(#`*"2`R,C0@,3(T(#(R-"`R,3D@,C0T(#(Q.2`R-#0@,3(T
  522. XM(#(R-"`Q,C0@.3DY.2`Y.3DY"C(@,2`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P
  523. XM(#`*"2`R,S0@.30@,C,T(#$R-"`Y.3DY(#DY.3D*,B`Q(#`@,2`M,2`P(#`@
  524. XM,"`P+C`P,"`P(#`@,`H)(#(V.2`Y-"`R-CD@,3(T(#DY.3D@.3DY.0HR(#(@
  525. XM,"`Q("TQ(#`@,"`P(#`N,#`P(#`@,"`P"@D@,C4Y(#$R-"`R-3D@,C$Y(#(W
  526. XM.2`R,3D@,C<Y(#$R-"`R-3D@,3(T(#DY.3D@.3DY.0HR(#(@,"`Q("TQ(#`@
  527. XM,"`P(#`N,#`P(#`@,"`P"@D@,CDT(#$R-"`R.30@,C$Y(#,Q-"`R,3D@,S$T
  528. XM(#$R-"`R.30@,3(T(#DY.3D@.3DY.0HR(#$@,"`Q("TQ(#`@,"`P(#`N,#`P
  529. XM(#`@,"`P"@D@,S`T(#DT(#,P-"`Q,C0@.3DY.2`Y.3DY"C(@,2`P(#$@+3$@
  530. XM,"`P(#`@,"XP,#`@,"`P(#`*"2`T.#0@-#DT(#0X-"`U,3D@.3DY.2`Y.3DY
  531. XM"C(@,B`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`T-#<@-#DT(#0T-R`U
  532. XM,3D@-3,Q(#4Q.2`U,S$@-#DT(#0T-R`T.30@.3DY.2`Y.3DY"C(@,B`P(#$@
  533. XM+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`U-C@@,S@T(#4V."`T,#D@-C4Q(#0P
  534. XM.2`V-3$@,S@T(#4V."`S.#0@.3DY.2`Y.3DY"C(@,2`P(#$@+3$@,"`P(#`@
  535. XM,"XP,#`@,"`P(#`*"2`V,#4@,S@T(#8P-2`T,#D@.3DY.2`Y.3DY"C(@,2`P
  536. XM(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`T.#0@,S@T(#0X-"`T,#D@.3DY
  537. XM.2`Y.3DY"C(@,B`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`T-#<@,S@T
  538. XM(#0T-R`T,#D@-3,Q(#0P.2`U,S$@,S@T(#0T-R`S.#0@.3DY.2`Y.3DY"C(@
  539. XM,2`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`T.#0@-#,Y(#0X-"`T-C0@
  540. XM.3DY.2`Y.3DY"C(@,B`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`T-#<@
  541. XM-#,Y(#0T-R`T-C0@-3,Q(#0V-"`U,S$@-#,Y(#0T-R`T,SD@.3DY.2`Y.3DY
  542. XM"C(@,B`Q(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`Q.3$@-3,T(#,P."`U
  543. XM,S0@,S`X(#4X-"`Q.3$@-3@T(#$Y,2`U,S0@.3DY.2`Y.3DY"C(@,2`P(#$@
  544. XM+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`R-#(@,S@T(#(T,B`T,#D@.3DY.2`Y
  545. XM.3DY"C(@,B`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`R,#4@,S@T(#(P
  546. XM-2`T,#D@,C@Y(#0P.2`R.#D@,S@T(#(P-2`S.#0@.3DY.2`Y.3DY"C(@,2`P
  547. XM(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`R-#(@-#,Y(#(T,B`T-C0@.3DY
  548. XM.2`Y.3DY"C(@,B`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`R,#4@-#,Y
  549. XM(#(P-2`T-C0@,C@Y(#0V-"`R.#D@-#,Y(#(P-2`T,SD@.3DY.2`Y.3DY"C(@
  550. XM,B`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`R,#4@-#DT(#(P-2`U,3D@
  551. XM,C@Y(#4Q.2`R.#D@-#DT(#(P-2`T.30@.3DY.2`Y.3DY"C(@,2`P(#$@+3$@
  552. XM,"`P(#`@,"XP,#`@,"`P(#`*"2`R-#(@-#DT(#(T,B`U,3D@.3DY.2`Y.3DY
  553. XM"C(@,2`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`R-#(@-30Y(#(T,B`U
  554. XM-S0@.3DY.2`Y.3DY"C(@,B`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`R
  555. XM,#4@-30Y(#(P-2`U-S0@,C@Y(#4W-"`R.#D@-30Y(#(P-2`U-#D@.3DY.2`Y
  556. XM.3DY"C(@,B`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`R,#4@-C`T(#(P
  557. XM-2`V,CD@,C@Y(#8R.2`R.#D@-C`T(#(P-2`V,#0@.3DY.2`Y.3DY"C(@,2`P
  558. XM(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`R-#(@-C`T(#(T,B`V,CD@.3DY
  559. XM.2`Y.3DY"C(@,B`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`S,C8@-30Y
  560. XM(#,R-B`U-S0@-#$P(#4W-"`T,3`@-30Y(#,R-B`U-#D@.3DY.2`Y.3DY"C(@
  561. XM,2`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`S-C,@-30Y(#,V,R`U-S0@
  562. XM.3DY.2`Y.3DY"C(@,2`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`S-C,@
  563. XM-#DT(#,V,R`U,3D@.3DY.2`Y.3DY"C(@,B`P(#$@+3$@,"`P(#`@,"XP,#`@
  564. XM,"`P(#`*"2`S,C8@-#DT(#,R-B`U,3D@-#$P(#4Q.2`T,3`@-#DT(#,R-B`T
  565. XM.30@.3DY.2`Y.3DY"C(@,B`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`S
  566. XM,C8@-#,Y(#,R-B`T-C0@-#$P(#0V-"`T,3`@-#,Y(#,R-B`T,SD@.3DY.2`Y
  567. XM.3DY"C(@,2`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`S-C,@-#,Y(#,V
  568. XM,R`T-C0@.3DY.2`Y.3DY"C(@,B`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*
  569. XM"2`S,C8@,S@T(#,R-B`T,#D@-#$P(#0P.2`T,3`@,S@T(#,R-B`S.#0@.3DY
  570. XM.2`Y.3DY"C(@,2`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`S-C,@,S@T
  571. XM(#,V,R`T,#D@.3DY.2`Y.3DY"C(@,2`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P
  572. XM(#`*"2`Q,C(@-30Y(#$R,B`U-S0@.3DY.2`Y.3DY"C(@,B`P(#$@+3$@,"`P
  573. XM(#`@,"XP,#`@,"`P(#`*"2`X-"`U-#D@.#0@-3<T(#$V."`U-S0@,38X(#4T
  574. XM.2`X-"`U-#D@.3DY.2`Y.3DY"C(@,B`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P
  575. XM(#`*"2`X-"`T.30@.#0@-3$Y(#$V."`U,3D@,38X(#0Y-"`X-"`T.30@.3DY
  576. XM.2`Y.3DY"C(@,2`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`Q,C(@-#DT
  577. XM(#$R,B`U,3D@.3DY.2`Y.3DY"C(@,2`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P
  578. XM(#`*"2`Q,C(@-#,Y(#$R,B`T-C0@.3DY.2`Y.3DY"C(@,B`P(#$@+3$@,"`P
  579. XM(#`@,"XP,#`@,"`P(#`*"2`X-"`T,SD@.#0@-#8T(#$V."`T-C0@,38X(#0S
  580. XM.2`X-"`T,SD@.3DY.2`Y.3DY"C(@,B`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P
  581. XM(#`*"2`X-"`S.#0@.#0@-#`Y(#$V."`T,#D@,38X(#,X-"`X-"`S.#0@.3DY
  582. XM.2`Y.3DY"C(@,2`P(#$@+3$@,"`P(#`@,"XP,#`@,"`P(#`*"2`Q,C(@,S@T
  583. XM(#$R,B`T,#D@.3DY.2`Y.3DY"C0@,"`P(#$R(#`@+3$@,"`P+C`P,"`T(#D@
  584. XM.#D@,S,T(#$V.2!3=6)O<F1I;F%T92!,:7-T<P$*-"`P(#`@,3(@,"`M,2`P
  585. XM(#`N,#`P(#0@.2`V(#(Y.2`R,SD@-0$*-"`P(#`@,3(@,"`M,2`P(#`N,#`P
  586. XM(#0@.2`V(#(V-"`R,SD@-`$*-"`P(#`@,3(@,"`M,2`P(#`N,#`P(#0@.2`V
  587. XM(#(R.2`R,SD@,P$*-"`P(#`@,3(@,"`M,2`P(#`N,#`P(#0@.2`V(#$Y-"`R
  588. XM,SD@,@$*-"`P(#`@,3(@,"`M,2`P(#`N,#`P(#0@.2`V(#$U.2`R,SD@,0$*
  589. XM-"`P(#`@,3(@,"`M,2`P(#`N,#`P(#0@.2`X,2`Q.#D@.#0@34%35$52("!,
  590. XM25-4`0HT(#`@,"`Q,B`P("TQ(#`@,"XP,#`@-"`Y(#(P(#0U,B`U,30@3DE,
  591. XM`0HT(#`@,"`Q,B`P("TQ(#`@,"XP,#`@-"`Y(#,T(#0X.2`U,#D@1$%400$*
  592. XM-"`P(#`@,3(@,"`M,2`P(#`N,#`P(#0@.2`S-"`V,3`@,SDY($1!5$$!"C0@
  593. XM,"`P(#$R(#`@+3$@,"`P+C`P,"`T(#D@,C`@-3<R(#0P-"!.24P!"C0@,"`P
  594. XM(#$R(#`@+3$@,"`P+C`P,"`T(#D@,S0@-#@Y(#0U-"!$051!`0HT(#`@,"`Q
  595. XM,B`P("TQ(#`@,"XP,#`@-"`U(#8@,S$R(#4X-"`J`0HT(#`@,"`Q,B`P("TQ
  596. XM(#`@,"XP,#`@-"`Y(#(P(#(Q,"`V,C0@3DE,`0HT(#`@,"`Q,B`P("TQ(#`@
  597. XM,"XP,#`@-"`Y(#,T(#(T-R`T-30@1$%400$*-"`P(#`@,3(@,"`M,2`P(#`N
  598. XM,#`P(#0@.2`S-"`R-#<@-3`Y($1!5$$!"C0@,"`P(#$R(#`@+3$@,"`P+C`P
  599. XM,"`T(#D@,S0@,C0W(#4V-"!$051!`0HT(#`@,"`Q,B`P("TQ(#`@,"XP,#`@
  600. XM-"`Y(#,T(#(T-R`V,3D@1$%400$*-"`P(#`@,3(@,"`M,2`P(#`N,#`P(#0@
  601. XM.2`S-"`S-C@@-38T($1!5$$!"C0@,"`P(#$R(#`@+3$@,"`P+C`P,"`T(#D@
  602. XM,S0@,S8X(#4P.2!$051!`0HT(#`@,"`Q,B`P("TQ(#`@,"XP,#`@-"`Y(#,T
  603. XM(#,V."`T-30@1$%400$*-"`P(#`@,3(@,"`M,2`P(#`N,#`P(#0@.2`S-"`Q
  604. XM,C8@-38T($1!5$$!"C0@,"`P(#$R(#`@+3$@,"`P+C`P,"`T(#D@,S0@,3(V
  605. XM(#4P.2!$051!`0HT(#`@,"`Q,B`P("TQ(#`@,"XP,#`@-"`Y(#,T(#$R-B`T
  606. XM-30@1$%400$*-"`P(#`@,3(@,"`M,2`P(#`N,#`P(#0@.2`R,B`Q,C8@,SDY
  607. XM(%!44@$*-"`P(#`@,3(@,"`M,2`P(#`N,#`P(#0@.2`R,B`X.2`S.3D@4%12
  608. XM`0HT(#`@,"`Q,B`P("TQ(#`@,"XP,#`@-"`Y(#(P(#@Y(#4V.2!.24P!"C0@
  609. XM,"`P(#$R(#`@+3$@,"`P+C`P,"`T(#D@.#$@-#,@,S4Y($U!4U1%4B`@3$E3
  610. XM5`$*-"`P(#`@,3(@,"`M,2`P(#`N,#`P(#0@.2`R,"`S,S$@-38Y($Y)3`$*
  611. X`
  612. Xend
  613. END_OF_FILE
  614. if test 8458 -ne `wc -c <'Examples/lists.fig.uu'`; then
  615.     echo shar: \"'Examples/lists.fig.uu'\" unpacked with wrong size!
  616. fi
  617. # end of 'Examples/lists.fig.uu'
  618. fi
  619. if test -f 'Examples/roundboxes2.fig.uu' -a "${1}" != "-c" ; then 
  620.   echo shar: Will not clobber existing file \"'Examples/roundboxes2.fig.uu'\"
  621. else
  622. echo shar: Extracting \"'Examples/roundboxes2.fig.uu'\" \(8142 characters\)
  623. sed "s/^X//" >'Examples/roundboxes2.fig.uu' <<'END_OF_FILE'
  624. Xbegin 444 roundboxes2.fig
  625. XM(T9)1R`R+C`*.#`@,@HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@,C$@,"`P"@D@
  626. XM-#8Y(#8T(#0V.2`S,#0@-C0T(#,P-"`V-#0@-C0@-#8Y(#8T(#DY.3D@.3DY
  627. XM.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@,C$@,"`P"@D@-S`Y(#0X-"`W,#D@
  628. XM,S`Y(#0V.2`S,#D@-#8Y(#0X-"`W,#D@-#@T(#DY.3D@.3DY.0HR(#0@,"`Q
  629. XM(#`@,"`P(#`@,"XP,#`@,C$@,"`P"@D@,C@Y(#,P.2`R.#D@-30Y(#0V-"`U
  630. XM-#D@-#8T(#,P.2`R.#D@,S`Y(#DY.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@
  631. XM,"XP,#`@,C$@,"`P"@D@-#8T(#,P.2`T-C0@,3,T(#(R-"`Q,S0@,C(T(#,P
  632. XM.2`T-C0@,S`Y(#DY.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@,C`@
  633. XM,"`P"@D@,C(Y(#$S.2`R,CD@,S`T(#0U.2`S,#0@-#4Y(#$S.2`R,CD@,3,Y
  634. XM(#DY.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@,C`@,"`P"@D@,CDT
  635. XM(#,Q-"`R.30@-30T(#0U.2`U-#0@-#4Y(#,Q-"`R.30@,S$T(#DY.3D@.3DY
  636. XM.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@."`P(#`*"2`S-30@-#@T(#,Y.2`T
  637. XM.#0@,SDY(#,W-"`S-30@,S<T(#,U-"`T.#0@.3DY.2`Y.3DY"C(@-"`P(#$@
  638. XM,"`P(#`@,"`P+C`P,"`X(#`@,`H)(#(X.2`Q.3D@,C@Y(#(T-"`S.3D@,C0T
  639. XM(#,Y.2`Q.3D@,C@Y(#$Y.2`Y.3DY(#DY.3D*,B`T(#`@,2`P(#`@,"`P(#`N
  640. XM,#`P(#D@,"`P"@D@-#`T(#(T.2`T,#0@,3DT(#(X-"`Q.30@,C@T(#(T.2`T
  641. XM,#0@,C0Y(#DY.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@,3`@,"`P
  642. XM"@D@,C<Y(#$X.2`R-SD@,C4T(#0P.2`R-30@-#`Y(#$X.2`R-SD@,3@Y(#DY
  643. XM.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@,3$@,"`P"@D@,C<T(#$X
  644. XM-"`R-S0@,C4Y(#0Q-"`R-3D@-#$T(#$X-"`R-S0@,3@T(#DY.3D@.3DY.0HR
  645. XM(#0@,"`Q(#`@,"`P(#`@,"XP,#`@,3(@,"`P"@D@-#$Y(#(V-"`T,3D@,3<Y
  646. XM(#(V.2`Q-SD@,C8Y(#(V-"`T,3D@,C8T(#DY.3D@.3DY.0HR(#0@,"`Q(#`@
  647. XM,"`P(#`@,"XP,#`@,3,@,"`P"@D@-#(T(#(V.2`T,C0@,3<T(#(V-"`Q-S0@
  648. XM,C8T(#(V.2`T,C0@,C8Y(#DY.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP
  649. XM,#`@,30@,"`P"@D@-#(Y(#(W-"`T,CD@,38Y(#(U.2`Q-CD@,C4Y(#(W-"`T
  650. XM,CD@,C<T(#DY.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@,34@,"`P
  651. XM"@D@-#,T(#(W.2`T,S0@,38T(#(U-"`Q-C0@,C4T(#(W.2`T,S0@,C<Y(#DY
  652. XM.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@,38@,"`P"@D@-#,Y(#(X
  653. XM-"`T,SD@,34Y(#(T.2`Q-3D@,C0Y(#(X-"`T,SD@,C@T(#DY.3D@.3DY.0HR
  654. XM(#0@,"`Q(#`@,"`P(#`@,"XP,#`@,3<@,"`P"@D@-#0T(#(X.2`T-#0@,34T
  655. XM(#(T-"`Q-30@,C0T(#(X.2`T-#0@,C@Y(#DY.3D@.3DY.0HR(#0@,"`Q(#`@
  656. XM,"`P(#`@,"XP,#`@,3@@,"`P"@D@,C,Y(#$T.2`R,SD@,CDT(#0T.2`R.30@
  657. XM-#0Y(#$T.2`R,SD@,30Y(#DY.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP
  658. XM,#`@,3D@,"`P"@D@-#4T(#(Y.2`T-30@,30T(#(S-"`Q-#0@,C,T(#(Y.2`T
  659. XM-30@,CDY(#DY.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@,3D@,"`P
  660. XM"@D@,CDY(#,Q.2`R.3D@-3,Y(#0U-"`U,SD@-#4T(#,Q.2`R.3D@,S$Y(#DY
  661. XM.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@,3@@,"`P"@D@,S`T(#4S
  662. XM-"`T-#D@-3,T(#0T.2`S,C0@,S`T(#,R-"`S,#0@-3,T(#DY.3D@.3DY.0HR
  663. XM(#0@,"`Q(#`@,"`P(#`@,"XP,#`@,3<@,"`P"@D@-#0T(#,R.2`S,#D@,S(Y
  664. XM(#,P.2`U,CD@-#0T(#4R.2`T-#0@,S(Y(#DY.3D@.3DY.0HR(#0@,"`Q(#`@
  665. XM,"`P(#`@,"XP,#`@,38@,"`P"@D@-#,Y(#,S-"`S,30@,S,T(#,Q-"`U,C0@
  666. XM-#,Y(#4R-"`T,SD@,S,T(#DY.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP
  667. XM,#`@,34@,"`P"@D@-#,T(#,S.2`S,3D@,S,Y(#,Q.2`U,3D@-#,T(#4Q.2`T
  668. XM,S0@,S,Y(#DY.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@,30@,"`P
  669. XM"@D@-#(Y(#,T-"`S,C0@,S0T(#,R-"`U,30@-#(Y(#4Q-"`T,CD@,S0T(#DY
  670. XM.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@,3,@,"`P"@D@-#(T(#,T
  671. XM.2`S,CD@,S0Y(#,R.2`U,#D@-#(T(#4P.2`T,C0@,S0Y(#DY.3D@.3DY.0HR
  672. XM(#0@,"`Q(#`@,"`P(#`@,"XP,#`@,3(@,"`P"@D@-#$Y(#,U-"`S,S0@,S4T
  673. XM(#,S-"`U,#0@-#$Y(#4P-"`T,3D@,S4T(#DY.3D@.3DY.0HR(#0@,"`Q(#`@
  674. XM,"`P(#`@,"XP,#`@,3$@,"`P"@D@,S,Y(#0Y.2`T,30@-#DY(#0Q-"`S-3D@
  675. XM,S,Y(#,U.2`S,SD@-#DY(#DY.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP
  676. XM,#`@,3`@,"`P"@D@,S0T(#0Y-"`T,#D@-#DT(#0P.2`S-C0@,S0T(#,V-"`S
  677. XM-#0@-#DT(#DY.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@.2`P(#`*
  678. XM"2`T,#0@,S8Y(#,T.2`S-CD@,S0Y(#0X.2`T,#0@-#@Y(#0P-"`S-CD@.3DY
  679. XM.2`Y.3DY"C(@-"`P(#$@,"`P(#`@,"`P+C`P,"`W(#`@,`H)(#(Y-"`R,#0@
  680. XM,CDT(#(S.2`S.30@,C,Y(#,Y-"`R,#0@,CDT(#(P-"`Y.3DY(#DY.3D*,B`T
  681. XM(#`@,2`P(#`@,"`P(#`N,#`P(#8@,"`P"@D@,CDY(#(P.2`R.3D@,C,T(#,X
  682. XM.2`R,S0@,S@Y(#(P.2`R.3D@,C`Y(#DY.3D@.3DY.0HR(#0@,"`Q(#`@,"`P
  683. XM(#`@,"XP,#`@-2`P(#`*"2`S.#0@,C(Y(#,X-"`R,30@,S`T(#(Q-"`S,#0@
  684. XM,C(Y(#,X-"`R,CD@.3DY.2`Y.3DY"C(@-"`P(#$@,"`P(#`@,"`P+C`P,"`S
  685. XM(#`@,`H)(#,W.2`R,C0@,S<Y(#(Q.2`S,#D@,C$Y(#,P.2`R,C0@,S<Y(#(R
  686. XM-"`Y.3DY(#DY.3D*,B`T(#`@,2`P(#`@,"`P(#`N,#`P(#<@,"`P"@D@,SDT
  687. XM(#,W.2`S-3D@,S<Y(#,U.2`T-SD@,SDT(#0W.2`S.30@,S<Y(#DY.3D@.3DY
  688. XM.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@-B`P(#`*"2`S.#D@,S@T(#,V-"`S
  689. XM.#0@,S8T(#0W-"`S.#D@-#<T(#,X.2`S.#0@.3DY.2`Y.3DY"C(@-"`P(#$@
  690. XM,"`P(#`@,"`P+C`P,"`U(#`@,`H)(#,V.2`T-CD@,S@T(#0V.2`S.#0@,S@Y
  691. XM(#,V.2`S.#D@,S8Y(#0V.2`Y.3DY(#DY.3D*,B`T(#`@,2`P(#`@,"`P(#`N
  692. XM,#`P(#,@,"`P"@D@,S<T(#0V-"`S-SD@-#8T(#,W.2`S.30@,S<T(#,Y-"`S
  693. XM-S0@-#8T(#DY.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@-R`P(#`*
  694. XM"2`U,SD@,S<Y(#4S.2`T,30@-C,Y(#0Q-"`V,SD@,S<Y(#4S.2`S-SD@.3DY
  695. XM.2`Y.3DY"C(@-"`P(#$@,"`P(#`@,"`P+C`P,"`V(#`@,`H)(#4T-"`S.#0@
  696. XM-30T(#0P.2`V,S0@-#`Y(#8S-"`S.#0@-30T(#,X-"`Y.3DY(#DY.3D*,B`T
  697. XM(#`@,2`P(#`@,"`P(#`N,#`P(#4@,"`P"@D@-C(Y(#0P-"`V,CD@,S@Y(#4T
  698. XM.2`S.#D@-30Y(#0P-"`V,CD@-#`T(#DY.3D@.3DY.0HR(#0@,"`Q(#`@,"`P
  699. XM(#`@,"XP,#`@,R`P(#`*"2`V,C0@,SDY(#8R-"`S.30@-34T(#,Y-"`U-30@
  700. XM,SDY(#8R-"`S.3D@.3DY.2`Y.3DY"C(@-"`P(#$@,"`P(#`@,"`P+C`P,"`Q
  701. XM.2`P(#`*"2`T-SD@,S$Y(#0W.2`T-S0@-CDY(#0W-"`V.3D@,S$Y(#0W.2`S
  702. XM,3D@.3DY.2`Y.3DY"C(@-"`P(#$@,"`P(#`@,"`P+C`P,"`Q."`P(#`*"2`V
  703. XM.30@-#8Y(#8Y-"`S,C0@-#@T(#,R-"`T.#0@-#8Y(#8Y-"`T-CD@.3DY.2`Y
  704. XM.3DY"C(@-"`P(#$@,"`P(#`@,"`P+C`P,"`Q-R`P(#`*"2`T.#D@,S(Y(#0X
  705. XM.2`T-C0@-C@Y(#0V-"`V.#D@,S(Y(#0X.2`S,CD@.3DY.2`Y.3DY"C(@-"`P
  706. XM(#$@,"`P(#`@,"`P+C`P,"`Q-B`P(#`*"2`T.30@,S,T(#0Y-"`T-3D@-C@T
  707. XM(#0U.2`V.#0@,S,T(#0Y-"`S,S0@.3DY.2`Y.3DY"C(@-"`P(#$@,"`P(#`@
  708. XM,"`P+C`P,"`Q-2`P(#`*"2`T.3D@,S,Y(#0Y.2`T-30@-C<Y(#0U-"`V-SD@
  709. XM,S,Y(#0Y.2`S,SD@.3DY.2`Y.3DY"C(@-"`P(#$@,"`P(#`@,"`P+C`P,"`Q
  710. XM-"`P(#`*"2`U,#0@,S0T(#4P-"`T-#D@-C<T(#0T.2`V-S0@,S0T(#4P-"`S
  711. XM-#0@.3DY.2`Y.3DY"C(@-"`P(#$@,"`P(#`@,"`P+C`P,"`Q,R`P(#`*"2`U
  712. XM,#D@,S0Y(#4P.2`T-#0@-C8Y(#0T-"`V-CD@,S0Y(#4P.2`S-#D@.3DY.2`Y
  713. XM.3DY"C(@-"`P(#$@,"`P(#`@,"`P+C`P,"`Q,B`P(#`*"2`U,30@,S4T(#4Q
  714. XM-"`T,SD@-C8T(#0S.2`V-C0@,S4T(#4Q-"`S-30@.3DY.2`Y.3DY"C(@-"`P
  715. XM(#$@,"`P(#`@,"`P+C`P,"`Q,2`P(#`*"2`V-3D@-#,T(#8U.2`S-3D@-3$Y
  716. XM(#,U.2`U,3D@-#,T(#8U.2`T,S0@.3DY.2`Y.3DY"C(@-"`P(#$@,"`P(#`@
  717. XM,"`P+C`P,"`Q,"`P(#`*"2`V-30@-#(Y(#8U-"`S-C0@-3(T(#,V-"`U,C0@
  718. XM-#(Y(#8U-"`T,CD@.3DY.2`Y.3DY"C(@-"`P(#$@,"`P(#`@,"`P+C`P,"`Y
  719. XM(#`@,`H)(#4R.2`S-CD@-3(Y(#0R-"`V-#D@-#(T(#8T.2`S-CD@-3(Y(#,V
  720. XM.2`Y.3DY(#DY.3D*,B`T(#`@,2`P(#`@,"`P(#`N,#`P(#@@,"`P"@D@-C0T
  721. XM(#0Q.2`V-#0@,S<T(#4S-"`S-S0@-3,T(#0Q.2`V-#0@-#$Y(#DY.3D@.3DY
  722. XM.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@-R`P(#`*"2`V,SD@-#$T(#8S.2`S
  723. XM-SD@-3,Y(#,W.2`U,SD@-#$T(#8S.2`T,30@.3DY.2`Y.3DY"C(@-"`P(#$@
  724. XM,"`P(#`@,"`P+C`P,"`R,"`P(#`*"2`T-S0@,S$T(#0W-"`T-SD@-S`T(#0W
  725. XM.2`W,#0@,S$T(#0W-"`S,30@.3DY.2`Y.3DY"C(@-"`P(#$@,"`P(#`@,"`P
  726. XM+C`P,"`W(#`@,`H)(#4W-"`Q,S0@-3,Y(#$S-"`U,SD@,C,T(#4W-"`R,S0@
  727. XM-3<T(#$S-"`Y.3DY(#DY.3D*,B`T(#`@,2`P(#`@,"`P(#`N,#`P(#8@,"`P
  728. XM"@D@-38Y(#$S.2`U-#0@,3,Y(#4T-"`R,CD@-38Y(#(R.2`U-CD@,3,Y(#DY
  729. XM.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@-2`P(#`*"2`U-#D@,C(T
  730. XM(#4V-"`R,C0@-38T(#$T-"`U-#D@,30T(#4T.2`R,C0@.3DY.2`Y.3DY"C(@
  731. XM-"`P(#$@,"`P(#`@,"`P+C`P,"`S(#`@,`H)(#4U-"`R,3D@-34Y(#(Q.2`U
  732. XM-3D@,30Y(#4U-"`Q-#D@-34T(#(Q.2`Y.3DY(#DY.3D*,B`T(#`@,2`P(#`@
  733. XM,"`P(#`N,#`P(#@@,"`P"@D@-3<Y(#$R."`U,S0@,3(X(#4S-"`R,S@@-3<Y
  734. XM(#(S."`U-SD@,3(X(#DY.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@
  735. XM.2`P(#`*"2`U,CD@,C0T(#4X-"`R-#0@-3@T(#$R-"`U,CD@,3(T(#4R.2`R
  736. XM-#0@.3DY.2`Y.3DY"C(@-"`P(#$@,"`P(#`@,"`P+C`P,"`Q,"`P(#`*"2`U
  737. XM.#D@,3$Y(#4R-"`Q,3D@-3(T(#(T.2`U.#D@,C0Y(#4X.2`Q,3D@.3DY.2`Y
  738. XM.3DY"C(@-"`P(#$@,"`P(#`@,"`P+C`P,"`Q,2`P(#`*"2`U.30@,3$T(#4Q
  739. XM.2`Q,30@-3$Y(#(U-"`U.30@,C4T(#4Y-"`Q,30@.3DY.2`Y.3DY"C(@-"`P
  740. XM(#$@,"`P(#`@,"`P+C`P,"`Q,B`P(#`*"2`U,30@,C4Y(#4Y.2`R-3D@-3DY
  741. XM(#$P.2`U,30@,3`Y(#4Q-"`R-3D@.3DY.2`Y.3DY"C(@-"`P(#$@,"`P(#`@
  742. XM,"`P+C`P,"`Q,R`P(#`*"2`U,#D@,C8T(#8P-"`R-C0@-C`T(#$P-"`U,#D@
  743. XM,3`T(#4P.2`R-C0@.3DY.2`Y.3DY"C(@-"`P(#$@,"`P(#`@,"`P+C`P,"`Q
  744. XM-"`P(#`*"2`U,#0@,C8Y(#8P.2`R-CD@-C`Y(#DY(#4P-"`Y.2`U,#0@,C8Y
  745. XM(#DY.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@,34@,"`P"@D@-#DY
  746. XM(#(W-"`V,30@,C<T(#8Q-"`Y-"`T.3D@.30@-#DY(#(W-"`Y.3DY(#DY.3D*
  747. XM,B`T(#`@,2`P(#`@,"`P(#`N,#`P(#$V(#`@,`H)(#0Y-"`R-SD@-C$Y(#(W
  748. XM.2`V,3D@.#D@-#DT(#@Y(#0Y-"`R-SD@.3DY.2`Y.3DY"C(@-"`P(#$@,"`P
  749. XM(#`@,"`P+C`P,"`Q-R`P(#`*"2`T.#D@,C@T(#8R-"`R.#0@-C(T(#@T(#0X
  750. XM.2`X-"`T.#D@,C@T(#DY.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@
  751. XM,3@@,"`P"@D@-C(Y(#<Y(#0X-"`W.2`T.#0@,C@Y(#8R.2`R.#D@-C(Y(#<Y
  752. XM(#DY.3D@.3DY.0HR(#0@,"`Q(#`@,"`P(#`@,"XP,#`@,3D@,"`P"@D@-#<Y
  753. XM(#(Y-"`V,S0@,CDT(#8S-"`W-"`T-SD@-S0@-#<Y(#(Y-"`Y.3DY(#DY.3D*
  754. XM,B`T(#`@,2`P(#`@,"`P(#`N,#`P(#(P(#`@,`H)(#8S.2`R.3D@-C,Y(#8Y
  755. XB(#0W-"`V.2`T-S0@,CDY(#8S.2`R.3D@.3DY.2`Y.3DY"B`R
  756. X`
  757. Xend
  758. END_OF_FILE
  759. if test 8142 -ne `wc -c <'Examples/roundboxes2.fig.uu'`; then
  760.     echo shar: \"'Examples/roundboxes2.fig.uu'\" unpacked with wrong size!
  761. fi
  762. # end of 'Examples/roundboxes2.fig.uu'
  763. fi
  764. if test -f 'd_ellipse.c' -a "${1}" != "-c" ; then 
  765.   echo shar: Will not clobber existing file \"'d_ellipse.c'\"
  766. else
  767. echo shar: Extracting \"'d_ellipse.c'\" \(9045 characters\)
  768. sed "s/^X//" >'d_ellipse.c' <<'END_OF_FILE'
  769. X/*
  770. X * FIG : Facility for Interactive Generation of figures
  771. X * Copyright (c) 1985 by Supoj Sutanthavibul
  772. X *
  773. X * "Permission to use, copy, modify, distribute, and sell this software and its
  774. X * documentation for any purpose is hereby granted without fee, provided that
  775. X * the above copyright notice appear in all copies and that both the copyright
  776. X * notice and this permission notice appear in supporting documentation. 
  777. X * No representations are made about the suitability of this software for 
  778. X * any purpose.  It is provided "as is" without express or implied warranty."
  779. X */
  780. X
  781. X#include "fig.h"
  782. X#include "resources.h"
  783. X#include "mode.h"
  784. X#include "object.h"
  785. X#include "paintop.h"
  786. X#include "u_create.h"
  787. X#include "u_elastic.h"
  788. X#include "u_list.h"
  789. X#include "w_canvas.h"
  790. X#include "w_mousefun.h"
  791. X
  792. X/*************************  local procedures  ********************/
  793. X
  794. Xstatic int    init_ellipsebyradius_drawing();
  795. Xstatic int    init_ellipsebydiameter_drawing();
  796. Xstatic int    init_circlebyradius_drawing();
  797. Xstatic int    init_circlebydiameter_drawing();
  798. Xstatic int    create_ellipsebydia();
  799. Xstatic int    create_ellipsebyrad();
  800. Xstatic int    create_circlebyrad();
  801. Xstatic int    create_circlebydia();
  802. Xstatic int    cancel_ellipsebydia();
  803. Xstatic int    cancel_ellipsebyrad();
  804. Xstatic int    cancel_circlebyrad();
  805. Xstatic int    cancel_circlebydia();
  806. X
  807. Xellipsebyradius_drawing_selected()
  808. X{
  809. X    canvas_kbd_proc = null_proc;
  810. X    canvas_locmove_proc = null_proc;
  811. X    canvas_leftbut_proc = init_ellipsebyradius_drawing;
  812. X    canvas_middlebut_proc = null_proc;
  813. X    canvas_rightbut_proc = null_proc;
  814. X    set_cursor(arrow_cursor);
  815. X    set_mousefun("center point", "", "");
  816. X    reset_action_on();
  817. X}
  818. X
  819. Xstatic
  820. Xinit_ellipsebyradius_drawing(x, y)
  821. X    int            x, y;
  822. X{
  823. X    cur_x = fix_x = x;
  824. X    cur_y = fix_y = y;
  825. X    cur_angle = cur_elltextangle/180.0*M_PI;
  826. X    center_marker(fix_x, fix_y);
  827. X    set_mousefun("corner point", "", "cancel");
  828. X    draw_mousefun_canvas();
  829. X    canvas_locmove_proc = resizing_ebr;
  830. X    canvas_rightbut_proc = cancel_ellipsebyrad;
  831. X    canvas_leftbut_proc = create_ellipsebyrad;
  832. X    set_temp_cursor(null_cursor);
  833. X    elastic_ebr();
  834. X    set_action_on();
  835. X}
  836. X
  837. Xstatic
  838. Xcancel_ellipsebyrad()
  839. X{
  840. X    elastic_ebr();
  841. X    center_marker(fix_x, fix_y);
  842. X    ellipsebyradius_drawing_selected();
  843. X    draw_mousefun_canvas();
  844. X}
  845. X
  846. Xstatic
  847. Xcreate_ellipsebyrad(x, y)
  848. X    int            x, y;
  849. X{
  850. X    F_ellipse       *ellipse;
  851. X
  852. X    elastic_ebr();
  853. X    center_marker(fix_x, fix_y);
  854. X    if ((ellipse = create_ellipse()) == NULL)
  855. X    return;
  856. X
  857. X    ellipse->type = T_ELLIPSE_BY_RAD;
  858. X    ellipse->style = cur_linestyle;
  859. X    ellipse->thickness = cur_linewidth;
  860. X    ellipse->style_val = cur_styleval * (cur_linewidth + 1) / 2;
  861. X    ellipse->angle = cur_elltextangle/180.0*M_PI;    /* convert to radians */
  862. X    ellipse->color = cur_color;
  863. X    ellipse->depth = cur_depth;
  864. X    ellipse->pen = 0;
  865. X    ellipse->fill_style = cur_fillstyle;
  866. X    ellipse->direction = 1;
  867. X    ellipse->center.x = fix_x;
  868. X    ellipse->center.y = fix_y;
  869. X    ellipse->radiuses.x = abs(x - fix_x);
  870. X    ellipse->radiuses.y = abs(y - fix_y);
  871. X    ellipse->start.x = fix_x;
  872. X    ellipse->start.y = fix_y;
  873. X    ellipse->end.x = x;
  874. X    ellipse->end.y = y;
  875. X    ellipse->next = NULL;
  876. X    draw_ellipse(ellipse, PAINT);
  877. X    add_ellipse(ellipse);
  878. X    ellipsebyradius_drawing_selected();
  879. X    draw_mousefun_canvas();
  880. X}
  881. X
  882. Xellipsebydiameter_drawing_selected()
  883. X{
  884. X    set_mousefun("first corner", "", "");
  885. X    canvas_kbd_proc = null_proc;
  886. X    canvas_locmove_proc = null_proc;
  887. X    canvas_leftbut_proc = init_ellipsebydiameter_drawing;
  888. X    canvas_middlebut_proc = null_proc;
  889. X    canvas_rightbut_proc = null_proc;
  890. X    set_cursor(arrow_cursor);
  891. X    reset_action_on();
  892. X}
  893. X
  894. Xstatic
  895. Xinit_ellipsebydiameter_drawing(x, y)
  896. X    int            x, y;
  897. X{
  898. X    cur_x = fix_x = x;
  899. X    cur_y = fix_y = y;
  900. X    cur_angle = cur_elltextangle/180.0*M_PI;
  901. X    center_marker(fix_x, fix_y);
  902. X    set_mousefun("final corner", "", "cancel");
  903. X    draw_mousefun_canvas();
  904. X    canvas_locmove_proc = resizing_ebd;
  905. X    canvas_rightbut_proc = cancel_ellipsebydia;
  906. X    canvas_leftbut_proc = create_ellipsebydia;
  907. X    set_temp_cursor(null_cursor);
  908. X    elastic_ebd();
  909. X    set_action_on();
  910. X}
  911. X
  912. Xstatic
  913. Xcancel_ellipsebydia()
  914. X{
  915. X    elastic_ebd();
  916. X    center_marker(fix_x, fix_y);
  917. X    ellipsebydiameter_drawing_selected();
  918. X    draw_mousefun_canvas();
  919. X}
  920. X
  921. Xstatic
  922. Xcreate_ellipsebydia(x, y)
  923. X    int            x, y;
  924. X{
  925. X    F_ellipse       *ellipse;
  926. X
  927. X    elastic_ebd();
  928. X    center_marker(fix_x, fix_y);
  929. X    if ((ellipse = create_ellipse()) == NULL)
  930. X    return;
  931. X
  932. X    ellipse->type = T_ELLIPSE_BY_DIA;
  933. X    ellipse->style = cur_linestyle;
  934. X    ellipse->thickness = cur_linewidth;
  935. X    ellipse->style_val = cur_styleval * (cur_linewidth + 1) / 2;
  936. X    ellipse->angle = cur_elltextangle/180.0*M_PI;    /* convert to radians */
  937. X    ellipse->color = cur_color;
  938. X    ellipse->depth = cur_depth;
  939. X    ellipse->pen = 0;
  940. X    ellipse->fill_style = cur_fillstyle;
  941. X    ellipse->direction = 1;
  942. X    ellipse->center.x = (fix_x + x) / 2;
  943. X    ellipse->center.y = (fix_y + y) / 2;
  944. X    ellipse->radiuses.x = abs(ellipse->center.x - fix_x);
  945. X    ellipse->radiuses.y = abs(ellipse->center.y - fix_y);
  946. X    ellipse->start.x = fix_x;
  947. X    ellipse->start.y = fix_y;
  948. X    ellipse->end.x = x;
  949. X    ellipse->end.y = y;
  950. X    ellipse->next = NULL;
  951. X    draw_ellipse(ellipse, PAINT);
  952. X    add_ellipse(ellipse);
  953. X    ellipsebydiameter_drawing_selected();
  954. X    draw_mousefun_canvas();
  955. X}
  956. X
  957. X/***************************  circle  section  ************************/
  958. X
  959. Xcirclebyradius_drawing_selected()
  960. X{
  961. X    set_mousefun("center point", "", "");
  962. X    canvas_kbd_proc = null_proc;
  963. X    canvas_locmove_proc = null_proc;
  964. X    canvas_leftbut_proc = init_circlebyradius_drawing;
  965. X    canvas_middlebut_proc = null_proc;
  966. X    canvas_rightbut_proc = null_proc;
  967. X    set_cursor(arrow_cursor);
  968. X    reset_action_on();
  969. X}
  970. X
  971. Xstatic
  972. Xinit_circlebyradius_drawing(x, y)
  973. X    int            x, y;
  974. X{
  975. X    cur_x = fix_x = x;
  976. X    cur_y = fix_y = y;
  977. X    center_marker(fix_x, fix_y);
  978. X    set_mousefun("set radius", "", "cancel");
  979. X    draw_mousefun_canvas();
  980. X    canvas_locmove_proc = resizing_cbr;
  981. X    canvas_rightbut_proc = cancel_circlebyrad;
  982. X    canvas_leftbut_proc = create_circlebyrad;
  983. X    set_temp_cursor(null_cursor);
  984. X    elastic_cbr();
  985. X    set_action_on();
  986. X}
  987. X
  988. Xstatic
  989. Xcancel_circlebyrad()
  990. X{
  991. X    elastic_cbr();
  992. X    center_marker(fix_x, fix_y);
  993. X    circlebyradius_drawing_selected();
  994. X    draw_mousefun_canvas();
  995. X}
  996. X
  997. Xstatic
  998. Xcreate_circlebyrad(x, y)
  999. X    int            x, y;
  1000. X{
  1001. X    F_ellipse       *c;
  1002. X    int            rx, ry;
  1003. X
  1004. X    elastic_cbr();
  1005. X    center_marker(fix_x, fix_y);
  1006. X    if ((c = create_ellipse()) == NULL)
  1007. X    return;
  1008. X
  1009. X    c->type = T_CIRCLE_BY_RAD;
  1010. X    c->style = cur_linestyle;
  1011. X    c->thickness = cur_linewidth;
  1012. X    c->style_val = cur_styleval * (cur_linewidth + 1) / 2;
  1013. X    c->angle = 0.0;
  1014. X    c->color = cur_color;
  1015. X    c->depth = cur_depth;
  1016. X    c->pen = 0;
  1017. X    c->fill_style = cur_fillstyle;
  1018. X    c->direction = 1;
  1019. X    c->center.x = fix_x;
  1020. X    c->center.y = fix_y;
  1021. X    rx = fix_x - x;
  1022. X    ry = fix_y - y;
  1023. X    c->radiuses.x = c->radiuses.y = round(sqrt((double) (rx * rx + ry * ry)));
  1024. X    c->start.x = fix_x;
  1025. X    c->start.y = fix_y;
  1026. X    c->end.x = x;
  1027. X    c->end.y = y;
  1028. X    c->next = NULL;
  1029. X    draw_ellipse(c, PAINT);
  1030. X    add_ellipse(c);
  1031. X    circlebyradius_drawing_selected();
  1032. X    draw_mousefun_canvas();
  1033. X}
  1034. X
  1035. Xcirclebydiameter_drawing_selected()
  1036. X{
  1037. X    set_mousefun("diameter point", "", "");
  1038. X    canvas_kbd_proc = null_proc;
  1039. X    canvas_locmove_proc = null_proc;
  1040. X    canvas_leftbut_proc = init_circlebydiameter_drawing;
  1041. X    canvas_middlebut_proc = null_proc;
  1042. X    canvas_rightbut_proc = null_proc;
  1043. X    set_cursor(arrow_cursor);
  1044. X    reset_action_on();
  1045. X}
  1046. X
  1047. Xstatic
  1048. Xinit_circlebydiameter_drawing(x, y)
  1049. X    int            x, y;
  1050. X{
  1051. X    cur_x = fix_x = x;
  1052. X    cur_y = fix_y = y;
  1053. X    center_marker(fix_x, fix_y);
  1054. X    set_mousefun("final point", "", "cancel");
  1055. X    draw_mousefun_canvas();
  1056. X    canvas_locmove_proc = resizing_cbd;
  1057. X    canvas_leftbut_proc = create_circlebydia;
  1058. X    canvas_rightbut_proc = cancel_circlebydia;
  1059. X    set_temp_cursor(null_cursor);
  1060. X    elastic_cbd();
  1061. X    set_action_on();
  1062. X}
  1063. X
  1064. Xstatic
  1065. Xcancel_circlebydia()
  1066. X{
  1067. X    elastic_cbd();
  1068. X    center_marker(fix_x, fix_y);
  1069. X    circlebydiameter_drawing_selected();
  1070. X    draw_mousefun_canvas();
  1071. X}
  1072. X
  1073. Xstatic
  1074. Xcreate_circlebydia(x, y)
  1075. X    int            x, y;
  1076. X{
  1077. X    F_ellipse       *c;
  1078. X    int            rx, ry;
  1079. X
  1080. X    elastic_cbd();
  1081. X    center_marker(fix_x, fix_y);
  1082. X    if ((c = create_ellipse()) == NULL)
  1083. X    return;
  1084. X
  1085. X    c->type = T_CIRCLE_BY_DIA;
  1086. X    c->style = cur_linestyle;
  1087. X    c->thickness = cur_linewidth;
  1088. X    c->style_val = cur_styleval * (cur_linewidth + 1) / 2;
  1089. X    c->angle = 0.0;
  1090. X    c->color = cur_color;
  1091. X    c->depth = cur_depth;
  1092. X    c->pen = 0;
  1093. X    c->fill_style = cur_fillstyle;
  1094. X    c->direction = 1;
  1095. X    c->center.x = (fix_x + x) / 2 + .5;
  1096. X    c->center.y = (fix_y + y) / 2 + .5;
  1097. X    rx = x - c->center.x;
  1098. X    ry = y - c->center.y;
  1099. X    c->radiuses.x = c->radiuses.y = round(sqrt((double) (rx * rx + ry * ry)));
  1100. X    c->start.x = fix_x;
  1101. X    c->start.y = fix_y;
  1102. X    c->end.x = x;
  1103. X    c->end.y = y;
  1104. X    c->next = NULL;
  1105. X    draw_ellipse(c, PAINT);
  1106. X    add_ellipse(c);
  1107. X    circlebydiameter_drawing_selected();
  1108. X    draw_mousefun_canvas();
  1109. X}
  1110. END_OF_FILE
  1111. if test 9045 -ne `wc -c <'d_ellipse.c'`; then
  1112.     echo shar: \"'d_ellipse.c'\" unpacked with wrong size!
  1113. fi
  1114. # end of 'd_ellipse.c'
  1115. fi
  1116. if test -f 'object.h' -a "${1}" != "-c" ; then 
  1117.   echo shar: Will not clobber existing file \"'object.h'\"
  1118. else
  1119. echo shar: Extracting \"'object.h'\" \(8953 characters\)
  1120. sed "s/^X//" >'object.h' <<'END_OF_FILE'
  1121. X/*
  1122. X * FIG : Facility for Interactive Generation of figures
  1123. X * Copyright (c) 1985 by Supoj Sutanthavibul
  1124. X *
  1125. X * "Permission to use, copy, modify, distribute, and sell this software and its
  1126. X * documentation for any purpose is hereby granted without fee, provided that
  1127. X * the above copyright notice appear in all copies and that both the copyright
  1128. X * notice and this permission notice appear in supporting documentation. 
  1129. X * No representations are made about the suitability of this software for 
  1130. X * any purpose.  It is provided "as is" without express or implied warranty."
  1131. X */
  1132. X
  1133. X#define        DEFAULT              (-1)
  1134. X#define        SOLID_LINE        0
  1135. X#define        DASH_LINE        1
  1136. X#define        DOTTED_LINE        2
  1137. X#define        RUBBER_LINE        3
  1138. X#define        PANEL_LINE        4
  1139. X
  1140. X#define        Color            int
  1141. X
  1142. X#define        BLACK            0
  1143. X#define        WHITE            7
  1144. X
  1145. Xtypedef struct f_pattern {
  1146. X    int            w, h;
  1147. X    int           *p;
  1148. X}
  1149. X        F_pattern;
  1150. X
  1151. Xtypedef struct f_point {
  1152. X    int            x, y;
  1153. X    struct f_point *next;
  1154. X}
  1155. X        F_point;
  1156. X
  1157. Xtypedef struct f_pos {
  1158. X    int            x, y;
  1159. X}
  1160. X        F_pos;
  1161. X
  1162. Xtypedef struct f_arrow {
  1163. X    int            type;
  1164. X    int            style;
  1165. X    float        thickness;
  1166. X    float        wid;
  1167. X    float        ht;
  1168. X}
  1169. X        F_arrow;
  1170. X
  1171. Xtypedef struct f_ellipse {
  1172. X    int            tagged;
  1173. X    int            type;
  1174. X#define                    T_ELLIPSE_BY_RAD    1
  1175. X#define                    T_ELLIPSE_BY_DIA    2
  1176. X#define                    T_CIRCLE_BY_RAD        3
  1177. X#define                    T_CIRCLE_BY_DIA        4
  1178. X    int            style;
  1179. X    int            thickness;
  1180. X    Color        color;
  1181. X    int            depth;
  1182. X    int            direction;
  1183. X    float        style_val;
  1184. X    float        angle;
  1185. X    int            pen;
  1186. X    int            fill_style;
  1187. X#define                    UNFILLED    0
  1188. X#define                    WHITE_FILL    1
  1189. X#define                    BLACK_FILL    21
  1190. X    struct f_pos    center;
  1191. X    struct f_pos    radiuses;
  1192. X    struct f_pos    start;
  1193. X    struct f_pos    end;
  1194. X    struct f_ellipse *next;
  1195. X}
  1196. X        F_ellipse;
  1197. X
  1198. Xtypedef struct f_arc {
  1199. X    int            tagged;
  1200. X    int            type;
  1201. X#define                    T_3_POINTS_ARC        1
  1202. X    int            style;
  1203. X    int            thickness;
  1204. X    Color        color;
  1205. X    int            depth;
  1206. X    int            pen;
  1207. X    int            fill_style;
  1208. X    float        style_val;
  1209. X    int            direction;
  1210. X    struct f_arrow *for_arrow;
  1211. X    struct f_arrow *back_arrow;
  1212. X    struct {
  1213. X    float        x, y;
  1214. X    }            center;
  1215. X    struct f_pos    point[3];
  1216. X    struct f_arc   *next;
  1217. X}
  1218. X        F_arc;
  1219. X
  1220. X#define        CLOSED_PATH        0
  1221. X#define        OPEN_PATH        1
  1222. X#define        DEF_BOXRADIUS        7
  1223. X#define        DEF_DASHLENGTH        4
  1224. X#define        DEF_DOTGAP        3
  1225. X
  1226. Xtypedef struct f_eps {
  1227. X    char        file[PATH_MAX];
  1228. X    int            flipped;
  1229. X    unsigned char  *bitmap;
  1230. X    float        hw_ratio;
  1231. X    int            size_x, size_y;
  1232. X    struct f_pos    bit_size;
  1233. X    Pixmap        pixmap;
  1234. X    int            pix_rotation, pix_width, pix_height, pix_flipped;
  1235. X}
  1236. X        F_eps;
  1237. X
  1238. Xextern char    EMPTY_EPS[];
  1239. X
  1240. Xtypedef struct f_line {
  1241. X    int            tagged;
  1242. X    int            type;
  1243. X#define                    T_POLYLINE    1
  1244. X#define                    T_BOX        2
  1245. X#define                    T_POLYGON    3
  1246. X#define                    T_ARC_BOX    4
  1247. X#define                    T_EPS_BOX    5
  1248. X    int            style;
  1249. X    int            thickness;
  1250. X    Color        color;
  1251. X    int            depth;
  1252. X    float        style_val;
  1253. X    int            pen;
  1254. X    int            fill_style;
  1255. X    int            radius;    /* corner radius for T_ARC_BOX */
  1256. X    struct f_arrow *for_arrow;
  1257. X    struct f_arrow *back_arrow;
  1258. X    struct f_point *points;
  1259. X    struct f_eps   *eps;
  1260. X    struct f_line  *next;
  1261. X}
  1262. X        F_line;
  1263. X
  1264. Xtypedef struct f_text {
  1265. X    int            tagged;
  1266. X    int            type;
  1267. X#define                    T_LEFT_JUSTIFIED    0
  1268. X#define                    T_CENTER_JUSTIFIED    1
  1269. X#define                    T_RIGHT_JUSTIFIED    2
  1270. X    int            font;
  1271. X    PIX_ROT_FONT    fontstruct;
  1272. X    int            size;    /* point size */
  1273. X    Color        color;
  1274. X    int            depth;
  1275. X    float        angle;    /* in radian */
  1276. X
  1277. X    int            flags;
  1278. X#define                    RIGID_TEXT        1
  1279. X#define                    SPECIAL_TEXT        2
  1280. X#define                    PSFONT_TEXT        4
  1281. X#define                    HIDDEN_TEXT        8
  1282. X
  1283. X    int            height;    /* pixels */
  1284. X    int            length;    /* pixels */
  1285. X    int            base_x;
  1286. X    int            base_y;
  1287. X    int            pen;
  1288. X    char       *cstring;
  1289. X    struct f_text  *next;
  1290. X}
  1291. X        F_text;
  1292. X
  1293. X#define MAXFONT(T) (psfont_text(T) ? NUM_PS_FONTS : NUM_LATEX_FONTS)
  1294. X
  1295. X#define        rigid_text(t) \
  1296. X            (t->flags == DEFAULT \
  1297. X                || (t->flags & RIGID_TEXT))
  1298. X
  1299. X#define        special_text(t) \
  1300. X            ((t->flags != DEFAULT \
  1301. X                && (t->flags & SPECIAL_TEXT)))
  1302. X
  1303. X#define        psfont_text(t) \
  1304. X            (t->flags != DEFAULT \
  1305. X                && (t->flags & PSFONT_TEXT))
  1306. X
  1307. X#define        hidden_text(t) \
  1308. X            (t->flags != DEFAULT \
  1309. X                && (t->flags & HIDDEN_TEXT))
  1310. X
  1311. X#define        text_length(t) \
  1312. X            (hidden_text(t) ? hidden_text_length : t->length)
  1313. X
  1314. X#define        using_ps    (cur_textflags & PSFONT_TEXT)
  1315. X
  1316. Xtypedef struct f_control {
  1317. X    float        lx, ly, rx, ry;
  1318. X    struct f_control *next;
  1319. X}
  1320. X        F_control;
  1321. X
  1322. X#define        int_spline(s)        (s->type & 0x2)
  1323. X#define        normal_spline(s)    (!(s->type & 0x2))
  1324. X#define        closed_spline(s)    (s->type & 0x1)
  1325. X#define        open_spline(s)        (!(s->type & 0x1))
  1326. X
  1327. Xtypedef struct f_spline {
  1328. X    int            tagged;
  1329. X    int            type;
  1330. X#define                    T_OPEN_NORMAL    0
  1331. X#define                    T_CLOSED_NORMAL 1
  1332. X#define                    T_OPEN_INTERP    2
  1333. X#define                    T_CLOSED_INTERP 3
  1334. X    int            style;
  1335. X    int            thickness;
  1336. X    Color        color;
  1337. X    int            depth;
  1338. X    float        style_val;
  1339. X    int            pen;
  1340. X    int            fill_style;
  1341. X    struct f_arrow *for_arrow;
  1342. X    struct f_arrow *back_arrow;
  1343. X    /*
  1344. X     * For T_OPEN_NORMAL and T_CLOSED_NORMAL points are control points while
  1345. X     * they are knots for T_OPEN_INTERP and T_CLOSED_INTERP whose control
  1346. X     * points are stored in controls.
  1347. X     */
  1348. X    struct f_point *points;
  1349. X    struct f_control *controls;
  1350. X    struct f_spline *next;
  1351. X}
  1352. X        F_spline;
  1353. X
  1354. Xtypedef struct f_compound {
  1355. X    int            tagged;
  1356. X    struct f_pos    nwcorner;
  1357. X    struct f_pos    secorner;
  1358. X    struct f_line  *lines;
  1359. X    struct f_ellipse *ellipses;
  1360. X    struct f_spline *splines;
  1361. X    struct f_text  *texts;
  1362. X    struct f_arc   *arcs;
  1363. X    struct f_compound *compounds;
  1364. X    struct f_compound *next;
  1365. X}
  1366. X        F_compound;
  1367. X
  1368. Xtypedef struct f_linkinfo {
  1369. X    struct f_line  *line;
  1370. X    struct f_point *endpt;
  1371. X    struct f_point *prevpt;
  1372. X    int            two_pts;
  1373. X    struct f_linkinfo *next;
  1374. X}
  1375. X        F_linkinfo;
  1376. X
  1377. X#define        ARROW_SIZE        sizeof(struct f_arrow)
  1378. X#define        POINT_SIZE        sizeof(struct f_point)
  1379. X#define        CONTROL_SIZE        sizeof(struct f_control)
  1380. X#define        ELLOBJ_SIZE        sizeof(struct f_ellipse)
  1381. X#define        ARCOBJ_SIZE        sizeof(struct f_arc)
  1382. X#define        LINOBJ_SIZE        sizeof(struct f_line)
  1383. X#define        TEXOBJ_SIZE        sizeof(struct f_text)
  1384. X#define        SPLOBJ_SIZE        sizeof(struct f_spline)
  1385. X#define        COMOBJ_SIZE        sizeof(struct f_compound)
  1386. X#define        EPS_SIZE        sizeof(struct f_eps)
  1387. X#define        LINKINFO_SIZE        sizeof(struct f_linkinfo)
  1388. X
  1389. X/**********************  object codes  **********************/
  1390. X
  1391. X#define        O_ELLIPSE        1
  1392. X#define        O_POLYLINE        2
  1393. X#define        O_SPLINE        3
  1394. X#define        O_TEXT            4
  1395. X#define        O_ARC            5
  1396. X#define        O_COMPOUND        6
  1397. X#define        O_END_COMPOUND        -O_COMPOUND
  1398. X#define        O_ALL_OBJECT        99
  1399. X
  1400. X/********************* object masks for update  ************************/
  1401. X
  1402. X#define M_NONE            0x000
  1403. X#define M_POLYLINE_POLYGON    0x001
  1404. X#define M_POLYLINE_LINE        0x002
  1405. X#define M_POLYLINE_BOX        0x004    /* includes ARCBOX */
  1406. X#define M_SPLINE_O_NORMAL    0x008
  1407. X#define M_SPLINE_C_NORMAL    0x010
  1408. X#define M_SPLINE_O_INTERP    0x020
  1409. X#define M_SPLINE_C_INTERP    0x040
  1410. X#define M_TEXT_NORMAL        0x080
  1411. X#define M_TEXT_HIDDEN        0x100
  1412. X#define M_ARC            0x200
  1413. X#define M_ELLIPSE        0x400
  1414. X#define M_COMPOUND        0x800
  1415. X
  1416. X#define M_TEXT        (M_TEXT_HIDDEN | M_TEXT_NORMAL)
  1417. X#define M_SPLINE_O    (M_SPLINE_O_NORMAL | M_SPLINE_O_INTERP)
  1418. X#define M_SPLINE_C    (M_SPLINE_C_NORMAL | M_SPLINE_C_INTERP)
  1419. X#define M_SPLINE_NORMAL (M_SPLINE_O_NORMAL | M_SPLINE_C_NORMAL)
  1420. X#define M_SPLINE_INTERP (M_SPLINE_O_INTERP | M_SPLINE_C_INTERP)
  1421. X#define M_SPLINE    (M_SPLINE_NORMAL | M_SPLINE_INTERP)
  1422. X#define M_POLYLINE    (M_POLYLINE_LINE | M_POLYLINE_POLYGON | M_POLYLINE_BOX)
  1423. X#define M_VARPTS_OBJECT (M_POLYLINE_LINE | M_POLYLINE_POLYGON | M_SPLINE)
  1424. X#define M_OPEN_OBJECT    (M_POLYLINE_LINE | M_SPLINE_O | M_ARC)
  1425. X#define M_ROTATE_ANGLE    (M_VARPTS_OBJECT | M_ARC | M_TEXT | M_COMPOUND | M_ELLIPSE)
  1426. X#define M_ELLTEXTANGLE    (M_ELLIPSE | M_TEXT)
  1427. X#define M_OBJECT    (M_ELLIPSE | M_POLYLINE | M_SPLINE | M_TEXT | M_ARC)
  1428. X#define M_NO_TEXT    (M_ELLIPSE | M_POLYLINE | M_SPLINE | M_COMPOUND | M_ARC)
  1429. X#define M_ALL        (M_OBJECT | M_COMPOUND)
  1430. X
  1431. X/************************  Objects  **********************/
  1432. X
  1433. Xextern F_compound objects;
  1434. X
  1435. X/************  global working pointers ************/
  1436. X
  1437. Xextern F_line  *cur_l, *new_l, *old_l;
  1438. Xextern F_arc   *cur_a, *new_a, *old_a;
  1439. Xextern F_ellipse *cur_e, *new_e, *old_e;
  1440. Xextern F_text  *cur_t, *new_t, *old_t;
  1441. Xextern F_spline *cur_s, *new_s, *old_s;
  1442. Xextern F_compound *cur_c, *new_c, *old_c;
  1443. Xextern F_point *first_point, *cur_point;
  1444. Xextern F_linkinfo *cur_links;
  1445. X
  1446. X/*************** object attribute settings ***********/
  1447. X
  1448. X/*  Lines  */
  1449. Xextern int    cur_linewidth;
  1450. Xextern int    cur_linestyle;
  1451. Xextern float    cur_dashlength;
  1452. Xextern float    cur_dotgap;
  1453. Xextern float    cur_styleval;
  1454. Xextern int    pen_size;
  1455. Xextern int    pen_type;
  1456. Xextern Color    cur_color;
  1457. Xextern int    cur_boxradius;
  1458. Xextern int    cur_fillstyle;
  1459. Xextern int    cur_arrowmode;
  1460. X
  1461. X/* Text */
  1462. Xextern int    cur_fontsize;    /* font size */
  1463. Xextern int    cur_latex_font;
  1464. Xextern int    cur_ps_font;
  1465. Xextern int    cur_textjust;
  1466. Xextern int    cur_textflags;
  1467. X
  1468. X/* Misc */
  1469. Xextern float    cur_elltextangle;
  1470. END_OF_FILE
  1471. if test 8953 -ne `wc -c <'object.h'`; then
  1472.     echo shar: \"'object.h'\" unpacked with wrong size!
  1473. fi
  1474. # end of 'object.h'
  1475. fi
  1476. if test -f 'u_geom.c' -a "${1}" != "-c" ; then 
  1477.   echo shar: Will not clobber existing file \"'u_geom.c'\"
  1478. else
  1479. echo shar: Extracting \"'u_geom.c'\" \(9088 characters\)
  1480. sed "s/^X//" >'u_geom.c' <<'END_OF_FILE'
  1481. X/*
  1482. X * FIG : Facility for Interactive Generation of figures
  1483. X * Copyright (c) 1985 by Supoj Sutanthavibul
  1484. X *
  1485. X * "Permission to use, copy, modify, distribute, and sell this software and its
  1486. X * documentation for any purpose is hereby granted without fee, provided that
  1487. X * the above copyright notice appear in all copies and that both the copyright
  1488. X * notice and this permission notice appear in supporting documentation. 
  1489. X * No representations are made about the suitability of this software for 
  1490. X * any purpose.  It is provided "as is" without express or implied warranty."
  1491. X */
  1492. X
  1493. X/*
  1494. X * Routines dealing with geometry under the following headings:
  1495. X *    COMPUTE NORMAL, CLOSE TO VECTOR, COMPUTE ARC CENTER,
  1496. X *    COMPUTE ANGLE, COMPUTE DIRECTION, LATEX LINE ROUTINES.
  1497. X */
  1498. X
  1499. X#include "fig.h"
  1500. X#include "resources.h"
  1501. X#include "object.h"
  1502. X
  1503. X/*************************** COMPUTE NORMAL **********************
  1504. X
  1505. XInput arguments :
  1506. X    (x1,y1)(x2,y2) : the vector
  1507. X    direction : direction of the normal vector to (x1,y1)(x2,y2)
  1508. XOutput arguments :
  1509. X    (*x,*y)(x2,y2) : a normal vector.
  1510. XReturn value : none
  1511. X
  1512. X******************************************************************/
  1513. X
  1514. Xcompute_normal(x1, y1, x2, y2, direction, x, y)
  1515. X    float        x1, y1;
  1516. X    int            x2, y2, direction, *x, *y;
  1517. X{
  1518. X    if (direction) {        /* counter clockwise  */
  1519. X    *x = round(x2 - (y2 - y1));
  1520. X    *y = round(y2 - (x1 - x2));
  1521. X    } else {
  1522. X    *x = round(x2 + (y2 - y1));
  1523. X    *y = round(y2 + (x1 - x2));
  1524. X    }
  1525. X}
  1526. X
  1527. X/******************** CLOSE TO VECTOR **************************
  1528. X
  1529. XInput arguments:
  1530. X    (x1,y1)(x2,y2) : the vector
  1531. X    (xp,yp) : the point
  1532. X    d : tolerance (max. allowable distance from the point to the vector)
  1533. X    dd : d * d
  1534. XOutput arguments:
  1535. X    (*px,*py) : a point on the vector which is not far from (xp,yp)
  1536. X        by more than d. Normally the vector (*px,*py)(xp,yp)
  1537. X        is normal to vector (x1,y1)(x2,y2) except when (xp,yp)
  1538. X        is within d from (x1,y1) or (x2,y2), in which cases,
  1539. X        (*px,*py) = (x1,y1) or (x2,y2) respectively.
  1540. XReturn value :
  1541. X    0 : No point on the vector is within d from (xp, yp)
  1542. X    1 : (*px, *py) is such a point.
  1543. X
  1544. X******************************************************************/
  1545. X
  1546. Xclose_to_vector(x1, y1, x2, y2, xp, yp, d, dd, px, py)
  1547. X    int            x1, y1, x2, y2, xp, yp, d;
  1548. X    float        dd;
  1549. X    int           *px, *py;
  1550. X{
  1551. X    int            xmin, ymin, xmax, ymax;
  1552. X    float        x, y, slope, D2, dx, dy;
  1553. X
  1554. X    if (abs(xp - x1) <= d && abs(yp - y1) <= d) {
  1555. X    *px = x1;
  1556. X    *py = y1;
  1557. X    return (1);
  1558. X    }
  1559. X    if (abs(xp - x2) <= d && abs(yp - y2) <= d) {
  1560. X    *px = x2;
  1561. X    *py = y2;
  1562. X    return (1);
  1563. X    }
  1564. X    if (x1 < x2) {
  1565. X    xmin = x1 - d;
  1566. X    xmax = x2 + d;
  1567. X    } else {
  1568. X    xmin = x2 - d;
  1569. X    xmax = x1 + d;
  1570. X    }
  1571. X    if (xp < xmin || xmax < xp)
  1572. X    return (0);
  1573. X
  1574. X    if (y1 < y2) {
  1575. X    ymin = y1 - d;
  1576. X    ymax = y2 + d;
  1577. X    } else {
  1578. X    ymin = y2 - d;
  1579. X    ymax = y1 + d;
  1580. X    }
  1581. X    if (yp < ymin || ymax < yp)
  1582. X    return (0);
  1583. X
  1584. X    if (x2 == x1) {
  1585. X    x = x1;
  1586. X    y = yp;
  1587. X    } else if (y1 == y2) {
  1588. X    x = xp;
  1589. X    y = y1;
  1590. X    } else {
  1591. X    slope = ((float) (x2 - x1)) / ((float) (y2 - y1));
  1592. X    y = (slope * (xp - x1 + slope * y1) + yp) / (1 + slope * slope);
  1593. X    x = ((float) x1) + slope * (y - y1);
  1594. X    }
  1595. X    dx = ((float) xp) - x;
  1596. X    dy = ((float) yp) - y;
  1597. X    D2 = dx * dx + dy * dy;
  1598. X    if (D2 < dd) {
  1599. X    *px = (int) (x + .5);
  1600. X    *py = (int) (y + .5);
  1601. X    return (1);
  1602. X    }
  1603. X    return (0);
  1604. X}
  1605. X
  1606. X/********************* COMPUTE ARC CENTER ******************
  1607. X
  1608. XInput arguments :
  1609. X    p1, p2, p3 : 3 points on the arc
  1610. XOutput arguments :
  1611. X    (*x,*y) : Center of the arc
  1612. XReturn value :
  1613. X    0 : if p1, p2, p3 are co-linear.
  1614. X    1 : if they are not.
  1615. X
  1616. X*************************************************************/
  1617. X
  1618. Xint
  1619. Xcompute_arccenter(p1, p2, p3, x, y)
  1620. X    F_pos        p1, p2, p3;
  1621. X    float       *x, *y;
  1622. X{
  1623. X    float        s12, s13, len1, len2, len3, dx12, dy12, dx13, dy13;
  1624. X
  1625. X    if (p1.x == p3.x && p1.y == p3.y)
  1626. X    return 0;
  1627. X
  1628. X    dx12 = p1.x - p2.x;
  1629. X    dy12 = p1.y - p2.y;
  1630. X    dx13 = p1.x - p3.x;
  1631. X    dy13 = p1.y - p3.y;
  1632. X
  1633. X    s12 = asin((double) (dy12 / sqrt((double) (dx12 * dx12 + dy12 * dy12))));
  1634. X    s13 = asin((double) (dy13 / sqrt((double) (dx13 * dx13 + dy13 * dy13))));
  1635. X    if (fabs(s12 - s13) < .01)
  1636. X    return 0;
  1637. X
  1638. X    len1 = p1.x * p1.x + p1.y * p1.y;
  1639. X    len2 = p2.x * p2.x + p2.y * p2.y;
  1640. X    len3 = p3.x * p3.x + p3.y * p3.y;
  1641. X    *y = (dx12 * (len3 - len1) - dx13 * (len2 - len1)) /
  1642. X    (2 * (dx13 * dy12 - dx12 * dy13));
  1643. X    if (p1.x != p3.x)
  1644. X    *x = (len3 + 2 * (*y) * dy13 - len1) / (2 * (-dx13));
  1645. X    else
  1646. X    *x = (len2 + 2 * (*y) * dy12 - len1) / (2 * (-dx12));
  1647. X    return 1;
  1648. X}
  1649. X
  1650. X/********************* COMPUTE ANGLE ************************
  1651. X
  1652. XInput arguments :
  1653. X    (dx,dy) : the vector (0,0)(dx,dy)
  1654. XOutput arguments : none
  1655. XReturn value : the angle of the vector in the range [0, 2PI)
  1656. X
  1657. X*************************************************************/
  1658. X
  1659. Xfloat
  1660. Xcompute_angle(dx, dy)        /* compute the angle between 0 to 2PI  */
  1661. X    float        dx, dy;
  1662. X{
  1663. X    float        alpha;
  1664. X
  1665. X    if (dx == 0) {
  1666. X    if (dy > 0)
  1667. X        alpha = M_PI_2;
  1668. X    else
  1669. X        alpha = 3 * M_PI_2;
  1670. X    } else if (dy == 0) {
  1671. X    if (dx > 0)
  1672. X        alpha = 0;
  1673. X    else
  1674. X        alpha = M_PI;
  1675. X    } else {
  1676. X    alpha = atan((double) (dy / dx));    /* range = -PI/2 to PI/2 */
  1677. X    if (dx < 0)
  1678. X        alpha += M_PI;
  1679. X    else if (dy < 0)
  1680. X        alpha += M_2PI;
  1681. X    }
  1682. X    return (alpha);
  1683. X}
  1684. X
  1685. X
  1686. X/********************* COMPUTE DIRECTION ********************
  1687. X
  1688. XInput arguments :
  1689. X    p1, p2, p3 : 3 points of an arc with p1 the first and p3 the last.
  1690. XOutput arguments : none
  1691. XReturn value :
  1692. X    0 : if the arc passes p1, p2 and p3 (in that order) in
  1693. X        clockwise direction
  1694. X    1 : if direction is counterclockwise
  1695. X
  1696. X*************************************************************/
  1697. X
  1698. Xint
  1699. Xcompute_direction(p1, p2, p3)
  1700. X    F_pos        p1, p2, p3;
  1701. X{
  1702. X    float        diff, dx, dy, alpha, theta;
  1703. X
  1704. X    dx = p2.x - p1.x;
  1705. X    dy = p1.y - p2.y;        /* because origin of the screen is on the
  1706. X                 * upper left corner */
  1707. X
  1708. X    alpha = compute_angle(dx, dy);
  1709. X
  1710. X    dx = p3.x - p2.x;
  1711. X    dy = p2.y - p3.y;
  1712. X    theta = compute_angle(dx, dy);
  1713. X
  1714. X    diff = theta - alpha;
  1715. X    if ((0 < diff && diff < M_PI) || diff < -M_PI) {
  1716. X    return (1);        /* counterclockwise */
  1717. X    }
  1718. X    return (0);            /* clockwise */
  1719. X}
  1720. X
  1721. X/*********************** LATEX LINE ROUTINES ***************************/
  1722. X
  1723. Xint
  1724. Xpgcd(a, b)
  1725. X    int            a, b;
  1726. X
  1727. X/*
  1728. X * compute greatest common divisor, assuming 0 < a <= b
  1729. X */
  1730. X{
  1731. X    b = b % a;
  1732. X    return (b) ? gcd(b, a) : a;
  1733. X}
  1734. X
  1735. Xint
  1736. Xgcd(a, b)
  1737. X    int            a, b;
  1738. X
  1739. X/*
  1740. X * compute greatest common divisor
  1741. X */
  1742. X{
  1743. X    if (a < 0)
  1744. X    a = -a;
  1745. X    if (b < 0)
  1746. X    b = -b;
  1747. X    return (a <= b) ? pgcd(a, b) : pgcd(b, a);
  1748. X}
  1749. X
  1750. X
  1751. Xint
  1752. Xlcm(a, b)
  1753. X    int            a, b;
  1754. X
  1755. X/*
  1756. X * compute least common multiple
  1757. X */
  1758. X{
  1759. X    return abs(a * b) / gcd(a, b);
  1760. X}
  1761. X
  1762. X
  1763. Xdouble        rad2deg = 57.295779513082320877;
  1764. X
  1765. Xstruct angle_table {
  1766. X    int            x, y;
  1767. X    double        angle;
  1768. X};
  1769. X
  1770. Xstruct angle_table line_angles[25] =
  1771. X{{0, 1, 90.0},
  1772. X{1, 0, 0.0},
  1773. X{1, 1, 45.0},
  1774. X{1, 2, 63.434948822922010648},
  1775. X{1, 3, 71.565051177077989351},
  1776. X{1, 4, 75.963756532073521417},
  1777. X{1, 5, 78.690067525979786913},
  1778. X{1, 6, 80.537677791974382609},
  1779. X{2, 1, 26.565051177077989351},
  1780. X{2, 3, 56.309932474020213086},
  1781. X{2, 5, 68.198590513648188229},
  1782. X{3, 1, 18.434948822922010648},
  1783. X{3, 2, 33.690067525979786913},
  1784. X{3, 4, 53.130102354155978703},
  1785. X{3, 5, 59.036243467926478582},
  1786. X{4, 1, 14.036243467926478588},
  1787. X{4, 3, 36.869897645844021297},
  1788. X{4, 5, 51.340191745909909396},
  1789. X{5, 1, 11.309932474020213086},
  1790. X{5, 2, 21.801409486351811770},
  1791. X{5, 3, 30.963756532073521417},
  1792. X{5, 4, 38.659808254090090604},
  1793. X{5, 6, 50.194428907734805993},
  1794. X{6, 1, 9.4623222080256173906},
  1795. X{6, 5, 39.805571092265194006}
  1796. X};
  1797. X
  1798. Xstruct angle_table arrow_angles[13] =
  1799. X{{0, 1, 90.0},
  1800. X{1, 0, 0.0},
  1801. X{1, 1, 45.0},
  1802. X{1, 2, 63.434948822922010648},
  1803. X{1, 3, 71.565051177077989351},
  1804. X{1, 4, 75.963756532073521417},
  1805. X{2, 1, 26.565051177077989351},
  1806. X{2, 3, 56.309932474020213086},
  1807. X{3, 1, 18.434948822922010648},
  1808. X{3, 2, 33.690067525979786913},
  1809. X{3, 4, 53.130102354155978703},
  1810. X{4, 1, 14.036243467926478588},
  1811. X{4, 3, 36.869897645844021297},
  1812. X};
  1813. X
  1814. Xget_slope(dx, dy, sxp, syp, arrow)
  1815. X    int            dx, dy, *sxp, *syp, arrow;
  1816. X{
  1817. X    double        angle;
  1818. X    int            i, s, max;
  1819. X    double        d, d1;
  1820. X    struct angle_table *st;
  1821. X
  1822. X    if (dx == 0) {
  1823. X    *sxp = 0;
  1824. X    *syp = signof(dy);
  1825. X    return;
  1826. X    }
  1827. X    angle = atan((double) abs(dy) / (double) abs(dx)) * rad2deg;
  1828. X    if (arrow) {
  1829. X    st = arrow_angles;
  1830. X    max = 13;
  1831. X    } else {
  1832. X    st = line_angles;
  1833. X    max = 25;
  1834. X    }
  1835. X    s = 0;
  1836. X    d = 9.9e9;
  1837. X    for (i = 0; i < max; i++) {
  1838. X    d1 = fabs(angle - st[i].angle);
  1839. X    if (d1 < d) {
  1840. X        s = i;
  1841. X        d = d1;
  1842. X    }
  1843. X    }
  1844. X    *sxp = st[s].x;
  1845. X    if (dx < 0)
  1846. X    *sxp = -*sxp;
  1847. X    *syp = st[s].y;
  1848. X    if (dy < 0)
  1849. X    *syp = -*syp;
  1850. X}
  1851. X
  1852. Xlatex_endpoint(x1, y1, x2, y2, xout, yout, arrow, magnet)
  1853. X    int            x1, y1, x2, y2;
  1854. X    int           *xout, *yout;
  1855. X    int            arrow, magnet;
  1856. X{
  1857. X    int            dx, dy, sx, sy, ds, dsx, dsy;
  1858. X
  1859. X    dx = x2 - x1;
  1860. X    dy = y2 - y1;
  1861. X    get_slope(dx, dy, &sx, &sy, arrow);
  1862. X    if (abs(sx) >= abs(sy)) {
  1863. X    ds = lcm(sx, magnet * gcd(sx, magnet));
  1864. X    dsx = (2 * abs(dx) / ds + 1) / 2;
  1865. X    dsx = (dx >= 0) ? dsx * ds : -dsx * ds;
  1866. X    *xout = x1 + dsx;
  1867. X    *yout = y1 + dsx * sy / sx;
  1868. X    } else {
  1869. X    ds = lcm(sy, magnet * gcd(sy, magnet));
  1870. X    dsy = (2 * abs(dy) / ds + 1) / 2;
  1871. X    dsy = (dy >= 0) ? dsy * ds : -dsy * ds;
  1872. X    *yout = y1 + dsy;
  1873. X    *xout = x1 + dsy * sx / sy;
  1874. X    }
  1875. X}
  1876. END_OF_FILE
  1877. if test 9088 -ne `wc -c <'u_geom.c'`; then
  1878.     echo shar: \"'u_geom.c'\" unpacked with wrong size!
  1879. fi
  1880. # end of 'u_geom.c'
  1881. fi
  1882. echo shar: End of archive 7 \(of 27\).
  1883. cp /dev/null ark7isdone
  1884. MISSING=""
  1885. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 ; do
  1886.     if test ! -f ark${I}isdone ; then
  1887.     MISSING="${MISSING} ${I}"
  1888.     fi
  1889. done
  1890. if test "${MISSING}" = "" ; then
  1891.     echo You have unpacked all 27 archives.
  1892.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1893. else
  1894.     echo You still need to unpack the following archives:
  1895.     echo "        " ${MISSING}
  1896. fi
  1897. ##  End of shell archive.
  1898. exit 0
  1899.  
  1900. exit 0 # Just in case...
  1901. -- 
  1902.   // chris@IMD.Sterling.COM       | Send comp.sources.x submissions to:
  1903. \X/  Amiga - The only way to fly! |    sources-x@imd.sterling.com
  1904.  "It's intuitively obvious to the |
  1905.   most casual observer..."        | GCS d+/-- p+ c++ l+ m+ s++/+ g+ w+ t+ r+ x+
  1906.