v08i010: xfig -- X Drawing Tool, Part01/21
Brian V. Smith
envbvs at epb2.lbl.gov
Tue Jul 3 07:25:10 AEST 1990
Submitted-by: envbvs at epb2.lbl.gov (Brian V. Smith)
Posting-number: Volume 8, Issue 10
Archive-name: xfig2.8/part01
This is the next release of xfig 2.0, patchlevel 8. I have included
the WHOLE source this time to prevent the problems of patching that
I had caused in the past.
The CHANGES description follows.
- Brian Smith
_____________________________________
Brian V. Smith (bvsmith at lbl.gov)
Lawrence Berkeley Laboratory
I don't speak for LBL, these non-opinions are all mine.
______________________________________________________________________
xfig Version 2.0
Patchlevel 8
Changes from patchlevel 7:
o Many bugs fixed with flipping arcs, malloc/free, popup menu
going off screen, gcc warnings, etc.
From Isamu Wada <i-wada at srans3.sra.co.jp>
o Bug fixed in redisplay.c where all but the most recently created
compounds' objects were invisible
o Changed code that assumed a (char *) return value for sprintf
to follow POSIX and ANSI C standard of returning int.
o Removed conditional compilation flags for R3, since R3 is no
longer supported :-(
o Moved initializing of Fig icon in main() to work with mwm
From David Elliot <dce at smsc.sony.com>
o f2p and f2ps now return meaningfull error codes: 0 for OK, 1 for error
o Errors in reading figure file should report correct line numbers now
o Handles "default" font for TransFig correctly
o Text input is now correctly terminated whenever a menu item is chosen,
not just on CR or middle-button pressed
o troff_ft_codes files allows ANY white space between troff font name
and Postscript fone name
o Attempting to move the center point of circle/ellipse with move-point
no longer makes point markers disappear
o BoundingBox computed correctly for centered and right-justified text now
for f2ps and save-as-bitmap
From Tom Tkacik
o Font names output by f2p and f2ps fixed for -TFX option.
From Guy Cardwell
o Object icon displayed in change-object popup menu
o Removed rounded-corner boxes from TFX compile-time option and reverted
protocol version to 1.4-TFX, as per Micah Beck (beck at cs.cornell.edu)
_____________________________ shar file Part 01/21 _____________________________
#! /bin/sh
# This is a shell archive. Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file". To overwrite existing
# files, type "sh file -c". You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g.. If this archive is complete, you
# will see the following message at the end:
# "End of archive 1 (of 21)."
# Contents: @figs @figs/balance.fig @figs/bath.fig @figs/bedroom1.fig
# @figs/bedroom2.fig @figs/cassette.fig @figs/dresser.fig
# @figs/greek.fig @figs/shades.fig @figs/splinefill.fig
# @figs/thermal.fig @figs/window1.fig FORMAT1.3 Fig.ad Imakefile
# README alloc.h arrow.c blink.c break.c color.c const.h dir.c
# f2p.man f2ps.man fig.h font.h paintop.h patchlevel.h psfonts.h
# puterr.c switch.h troff_fonts.c troff_fonts.h troff_ft_codes
# version.h xtra.h
# Wrapped by envbvs at epb2.lbl.gov on Thu Jun 28 08:50:23 1990
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test ! -d '@figs' ; then
echo shar: Creating directory \"'@figs'\"
mkdir '@figs'
fi
if test -f '@figs/balance.fig' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'@figs/balance.fig'\"
else
echo shar: Extracting \"'@figs/balance.fig'\" \(781 characters\)
sed "s/^X//" >'@figs/balance.fig' <<'END_OF_FILE'
X#FIG 1.4
X80 2
X2 1 0 4 0 0 0 0 0.000 0 0
X 139 239 674 134 9999 9999
X2 1 0 2 0 0 0 0 0.000 0 0
X 159 234 159 269 9999 9999
X2 1 0 2 0 0 0 0 0.000 0 0
X 659 139 659 169 9999 9999
X2 3 0 3 0 0 0 0 0.000 0 0
X 394 189 329 304 469 304 394 189 9999 9999
X3 1 0 2 0 0 0 0 0.000 0 0
X 654 214 649 189 664 169 659 164 644 179 644 214 649 209 654 214 9999 9999
X3 1 0 2 0 0 0 0 0.000 0 0
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
X3 1 0 2 0 0 0 0 0.000 0 0
X 164 314 169 289 154 269 159 264 174 279 174 314 169 309 164 314 9999 9999
X3 1 0 2 0 0 0 0 0.000 0 0
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
END_OF_FILE
if test 781 -ne `wc -c <'@figs/balance.fig'`; then
echo shar: \"'@figs/balance.fig'\" unpacked with wrong size!
fi
# end of '@figs/balance.fig'
fi
if test -f '@figs/bath.fig' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'@figs/bath.fig'\"
else
echo shar: Extracting \"'@figs/bath.fig'\" \(1382 characters\)
sed "s/^X//" >'@figs/bath.fig' <<'END_OF_FILE'
X#FIG 1.4X
X80 2
X5 1 0 1 0 0 0 0 0.000 0 0 0 390.167 205.167 394 204 393 208 389 209
X1 2 0 1 0 0 0 0 0.000 1 0.000 423 378 30 22 458 360 391 402
X2 1 0 1 0 0 0 0 0.000 0 0
X 404 394 385 394 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 405 360 385 360 9999 9999
X2 4 0 1 0 0 3 0 0.000 0 0
X 385 351 363 351 363 406 385 406 385 351 9999 9999
X2 3 0 1 0 0 0 5 0.000 0 0
X 404 99 339 99 339 439 379 439 379 419 359 419 359 119 404 119 404 99 9999 9999
X2 3 0 1 0 0 0 5 0.000 0 0
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
X2 1 0 1 0 0 0 0 0.000 0 0
X 509 219 509 419 9999 9999
X2 4 0 1 0 0 7 0 0.000 0 0
X 524 234 524 404 609 404 609 234 524 234 9999 9999
X2 2 0 1 0 0 0 0 0.000 0 0
X 379 419 379 439 489 439 489 419 379 419 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 379 429 489 429 9999 9999
X2 4 0 1 0 0 6 0 0.000 0 0
X 364 249 364 319 419 319 419 249 364 249 9999 9999
X2 4 0 1 0 0 8 0 0.000 0 0
X 374 259 374 309 409 309 409 259 374 259 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 394 119 394 204 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 359 209 389 209 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 414 149 494 109 9999 9999
X4 0 0 12 0 0 0 0.000 1 9 32 133 474 Outlet
X4 1 34 18 0 0 0 0.000 1 18 20 112 481 h
X4 1 34 18 0 0 0 0.000 1 18 20 369 241 h
X4 0 0 20 0 0 0 0.000 1 13 117 109 414 134 Behrens st.
X4 1 0 14 0 0 0 0.000 1 10 27 438 214 Bath
END_OF_FILE
echo shar: 5 control characters may be missing from \"'@figs/bath.fig'\"
if test 1382 -ne `wc -c <'@figs/bath.fig'`; then
echo shar: \"'@figs/bath.fig'\" unpacked with wrong size!
fi
# end of '@figs/bath.fig'
fi
if test -f '@figs/bedroom1.fig' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'@figs/bedroom1.fig'\"
else
echo shar: Extracting \"'@figs/bedroom1.fig'\" \(1457 characters\)
sed "s/^X//" >'@figs/bedroom1.fig' <<'END_OF_FILE'
X#FIG 1.4X
X80 2
X2 3 0 1 0 0 0 5 0.000 0 0
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
X2 1 0 1 0 0 0 0 0.000 0 0
X 624 479 589 389 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 1
X 0 0 1.000 4.000 8.000
X 44 524 44 324 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 1
X 0 0 1.000 4.000 8.000
X 44 84 44 284 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 54 529 34 529 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 54 79 34 79 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 1
X 0 0 1.000 4.000 8.000
X 609 44 374 44 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 1
X 0 0 1.000 4.000 8.000
X 84 44 319 44 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 614 34 614 54 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 79 34 79 54 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 59 414 79 414 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 69 304 69 524 9999 9999
X2 2 0 1 0 0 0 0 0.000 0 0
X 59 304 79 304 79 524 59 524 59 304 9999 9999
X2 3 0 1 0 0 0 5 0.000 0 0
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
X2 1 0 1 0 0 0 0 0.000 0 0
X 624 109 584 184 9999 9999
X2 3 0 1 0 0 0 5 0.000 0 0
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
X4 1 0 12 0 0 0 0.000 1 9 33 684 434 Closet
X4 1 0 12 0 0 0 0.000 1 9 28 694 274 Linen
X4 1 0 14 0 0 0 0.000 1 10 63 334 279 Bedroom 1
X4 1 0 14 0 0 0 0.000 1 10 31 34 309 11'3"
X4 1 0 14 0 0 0 0.000 1 10 31 349 49 13'4"
END_OF_FILE
echo shar: 5 control characters may be missing from \"'@figs/bedroom1.fig'\"
if test 1457 -ne `wc -c <'@figs/bedroom1.fig'`; then
echo shar: \"'@figs/bedroom1.fig'\" unpacked with wrong size!
fi
# end of '@figs/bedroom1.fig'
fi
if test -f '@figs/bedroom2.fig' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'@figs/bedroom2.fig'\"
else
echo shar: Extracting \"'@figs/bedroom2.fig'\" \(1291 characters\)
sed "s/^X//" >'@figs/bedroom2.fig' <<'END_OF_FILE'
X#FIG 1.4X
X80 2
X2 1 0 1 0 0 0 0 0.000 0 0
X 644 144 609 234 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 1
X 0 0 1.000 4.000 8.000
X 44 529 44 324 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 1
X 0 0 1.000 4.000 8.000
X 44 84 44 289 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 1
X 0 0 1.000 4.000 8.000
X 629 44 364 44 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 1
X 0 0 1.000 4.000 8.000
X 84 44 314 44 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 54 534 34 534 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 54 79 34 79 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 634 34 634 54 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 79 34 79 54 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 739 544 644 514 9999 9999
X2 3 0 1 0 0 0 5 0.000 0 0
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
X2 3 0 1 0 0 0 5 0.000 0 0
X 59 414 59 554 639 554 639 534 79 534 79 414 59 414 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 69 194 69 414 9999 9999
X2 2 0 1 0 0 0 0 0.000 0 0
X 59 194 79 194 79 414 59 414 59 194 9999 9999
X2 3 0 1 0 0 0 5 0.000 0 0
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
X4 2 0 12 0 0 0 0.000 1 9 33 702 189 Closet
X4 1 0 14 0 0 0 0.000 1 10 63 344 279 Bedroom 2
X4 2 0 14 0 0 0 0.000 1 10 31 54 309 11'4"
X4 1 0 14 0 0 0 0.000 1 10 38 339 49 13'10"
END_OF_FILE
echo shar: 4 control characters may be missing from \"'@figs/bedroom2.fig'\"
if test 1291 -ne `wc -c <'@figs/bedroom2.fig'`; then
echo shar: \"'@figs/bedroom2.fig'\" unpacked with wrong size!
fi
# end of '@figs/bedroom2.fig'
fi
if test -f '@figs/cassette.fig' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'@figs/cassette.fig'\"
else
echo shar: Extracting \"'@figs/cassette.fig'\" \(1218 characters\)
sed "s/^X//" >'@figs/cassette.fig' <<'END_OF_FILE'
X#FIG 1.4
X80 2
X5 1 0 1 0 0 0 0 0.000 0 0 0 239.000 221.500 259 199 269 219 259 244
X5 1 0 1 0 0 0 0 0.000 1 0 0 391.500 221.500 359 194 349 219 359 249
X5 1 0 1 0 0 0 0 0.000 1 0 0 376.500 221.500 304 194 299 219 304 249
X5 1 0 1 0 0 0 0 0.000 0 0 0 246.500 221.500 264 194 279 219 264 249
X1 4 0 1 0 0 0 0 0.000 1 0.000 419 224 15 15 419 209 419 239
X1 4 0 1 0 0 0 0 0.000 1 0.000 204 224 15 15 204 209 204 239
X1 4 0 2 0 0 0 0 0.000 1 0.000 421 224 21 21 414 204 429 245
X1 4 0 2 0 0 0 0 0.000 1 0.000 204 224 21 21 199 204 209 244
X1 4 0 1 0 0 0 21 0.000 1 0.000 419 388 8 8 415 383 424 394
X1 4 0 1 0 0 0 21 0.000 1 0.000 199 389 8 8 194 384 204 394
X2 3 0 1 0 0 0 0 0.000 0 0
X 539 304 544 314 544 379 539 384 539 304 9999 9999
X2 3 0 1 0 0 0 0 0.000 0 0
X 79 304 74 314 74 379 79 384 79 304 9999 9999
X2 3 0 1 0 0 0 3 0.000 0 0
X 134 399 161 334 457 334 484 399 134 399 9999 9999
X2 3 0 1 0 0 0 10 0.000 0 0
X 139 399 164 339 454 339 479 399 139 399 9999 9999
X2 4 0 1 0 0 8 0 0.000 0 0
X 99 139 99 319 519 319 519 139 99 139 9999 9999
X2 4 0 1 0 0 8 0 0.000 0 0
X 79 119 79 399 539 399 539 119 79 119 9999 9999
X2 2 0 1 0 0 0 0 0.000 0 0
X 259 194 259 249 359 249 359 194 259 194 9999 9999
X4 0 0 12 0 0 0 0.000 1 9 6 109 164 A
END_OF_FILE
echo shar: 1 control character may be missing from \"'@figs/cassette.fig'\"
if test 1218 -ne `wc -c <'@figs/cassette.fig'`; then
echo shar: \"'@figs/cassette.fig'\" unpacked with wrong size!
fi
# end of '@figs/cassette.fig'
fi
if test -f '@figs/dresser.fig' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'@figs/dresser.fig'\"
else
echo shar: Extracting \"'@figs/dresser.fig'\" \(1738 characters\)
sed "s/^X//" >'@figs/dresser.fig' <<'END_OF_FILE'
X#FIG 1.4
X80 2
X2 4 0 1 0 0 5 2 0.000 0 0
X 21 32 21 268 391 268 391 32 21 32 9999 9999
X2 4 0 1 0 0 3 5 0.000 0 0
X 389 242 389 202 224 202 224 242 389 242 9999 9999
X2 4 0 1 0 0 3 5 0.000 0 0
X 389 200 389 160 224 160 224 200 389 200 9999 9999
X2 4 0 1 0 0 3 5 0.000 0 0
X 389 158 389 118 224 118 224 158 389 158 9999 9999
X2 4 0 1 0 0 3 5 0.000 0 0
X 389 116 389 76 224 76 224 116 389 116 9999 9999
X2 4 0 1 0 0 3 5 0.000 0 0
X 389 74 389 34 224 34 224 74 389 74 9999 9999
X2 4 0 1 0 0 3 5 0.000 0 0
X 124 74 124 34 23 34 23 74 124 74 9999 9999
X2 4 0 1 0 0 3 5 0.000 0 0
X 124 116 124 76 23 76 23 116 124 116 9999 9999
X2 4 0 1 0 0 3 5 0.000 0 0
X 124 158 124 118 23 118 23 158 124 158 9999 9999
X2 4 0 1 0 0 3 5 0.000 0 0
X 124 200 124 160 23 160 23 200 124 200 9999 9999
X2 4 0 1 0 0 3 5 0.000 0 0
X 124 242 124 202 23 202 23 242 124 242 9999 9999
X2 4 0 1 0 0 3 5 0.000 0 0
X 126 34 126 242 222 242 222 34 126 34 9999 9999
X2 4 0 1 0 0 3 2 0.000 0 0
X 138 130 138 54 132 54 132 130 138 130 9999 9999
X2 4 0 1 0 0 3 2 0.000 0 0
X 34 38 34 43 115 43 115 38 34 38 9999 9999
X2 4 0 1 0 0 3 2 0.000 0 0
X 34 80 34 85 115 85 115 80 34 80 9999 9999
X2 4 0 1 0 0 3 2 0.000 0 0
X 34 122 34 127 115 127 115 122 34 122 9999 9999
X2 4 0 1 0 0 3 2 0.000 0 0
X 34 164 34 169 115 169 115 164 34 164 9999 9999
X2 4 0 1 0 0 3 2 0.000 0 0
X 34 206 34 211 115 211 115 206 34 206 9999 9999
X2 4 0 1 0 0 3 2 0.000 0 0
X 241 206 241 211 374 211 374 206 241 206 9999 9999
X2 4 0 1 0 0 3 2 0.000 0 0
X 241 164 241 169 374 169 374 164 241 164 9999 9999
X2 4 0 1 0 0 3 2 0.000 0 0
X 241 80 241 85 374 85 374 80 241 80 9999 9999
X2 4 0 1 0 0 3 2 0.000 0 0
X 241 38 241 43 374 43 374 38 241 38 9999 9999
X2 4 0 1 0 0 3 2 0.000 0 0
X 241 122 241 127 374 127 374 122 241 122 9999 9999
END_OF_FILE
if test 1738 -ne `wc -c <'@figs/dresser.fig'`; then
echo shar: \"'@figs/dresser.fig'\" unpacked with wrong size!
fi
# end of '@figs/dresser.fig'
fi
if test -f '@figs/greek.fig' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'@figs/greek.fig'\"
else
echo shar: Extracting \"'@figs/greek.fig'\" \(802 characters\)
sed "s/^X//" >'@figs/greek.fig' <<'END_OF_FILE'
X#FIG 1.4X
X80 2
X4 0 0 24 0 0 0 0.000 1 22 183 234 479 [ \ ] ^ _ ` { | } ~
X4 0 32 24 0 0 0 0.000 1 28 179 234 519 [ \ ] ^ _ ` { | } ~
X4 0 0 24 0 0 0 0.000 1 21 110 54 484 : ; < = > ? @
X4 0 32 24 0 0 0 0.000 1 21 110 54 519 : ; < = > ? @
X4 0 0 24 0 0 0 0.000 1 24 433 44 369 ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9
X4 0 32 24 0 0 0 0.000 1 22 434 44 419 ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9
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
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
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
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
END_OF_FILE
echo shar: 10 control characters may be missing from \"'@figs/greek.fig'\"
if test 802 -ne `wc -c <'@figs/greek.fig'`; then
echo shar: \"'@figs/greek.fig'\" unpacked with wrong size!
fi
# end of '@figs/greek.fig'
fi
if test -f '@figs/shades.fig' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'@figs/shades.fig'\"
else
echo shar: Extracting \"'@figs/shades.fig'\" \(1674 characters\)
sed "s/^X//" >'@figs/shades.fig' <<'END_OF_FILE'
X#FIG 2.0
X80 2
X2 2 0 1 0 0 0 21 0.000 0 0
X 110 58 82 58 82 204 110 204 110 58 9999 9999
X2 2 0 1 0 0 0 20 0.000 0 0
X 110 58 137 58 137 204 110 204 110 58 9999 9999
X2 2 0 1 0 0 0 19 0.000 0 0
X 164 58 137 58 137 204 164 204 164 58 9999 9999
X2 2 0 1 0 0 0 18 0.000 0 0
X 164 58 189 58 189 204 164 204 164 58 9999 9999
X2 2 0 1 0 0 0 17 0.000 0 0
X 216 58 189 58 189 204 216 204 216 58 9999 9999
X2 2 0 1 0 0 0 16 0.000 0 0
X 216 58 244 58 244 204 216 204 216 58 9999 9999
X2 2 0 1 0 0 0 15 0.000 0 0
X 271 58 244 58 244 204 271 204 271 58 9999 9999
X2 2 0 1 0 0 0 14 0.000 0 0
X 271 58 298 58 298 204 271 204 271 58 9999 9999
X2 2 0 1 0 0 0 13 0.000 0 0
X 325 58 298 58 298 204 325 204 325 58 9999 9999
X2 2 0 1 0 0 0 12 0.000 0 0
X 325 58 352 58 352 204 325 204 325 58 9999 9999
X2 2 0 1 0 0 0 11 0.000 0 0
X 379 58 352 58 352 204 379 204 379 58 9999 9999
X2 2 0 1 0 0 0 10 0.000 0 0
X 379 58 408 58 408 204 379 204 379 58 9999 9999
X2 2 0 1 0 0 0 9 0.000 0 0
X 434 58 408 58 408 204 434 204 434 58 9999 9999
X2 2 0 1 0 0 0 8 0.000 0 0
X 434 58 461 58 461 204 434 204 434 58 9999 9999
X2 2 0 1 0 0 0 7 0.000 0 0
X 488 58 461 58 461 204 488 204 488 58 9999 9999
X2 2 0 1 0 0 0 6 0.000 0 0
X 488 58 515 58 515 204 488 204 488 58 9999 9999
X2 2 0 1 0 0 0 5 0.000 0 0
X 542 58 515 58 515 204 542 204 542 58 9999 9999
X2 2 0 1 0 0 0 4 0.000 0 0
X 542 58 568 58 568 204 542 204 542 58 9999 9999
X2 2 0 1 0 0 0 3 0.000 0 0
X 595 58 568 58 568 204 595 204 595 58 9999 9999
X2 2 0 1 0 0 0 2 0.000 0 0
X 595 58 623 58 623 204 595 204 595 58 9999 9999
X2 2 0 1 0 0 0 1 0.000 0 0
X 649 58 623 58 623 204 649 204 649 58 9999 9999
X2 2 0 1 0 0 0 0 0.000 0 0
X 649 58 676 58 676 204 649 204 649 58 9999 9999
END_OF_FILE
if test 1674 -ne `wc -c <'@figs/shades.fig'`; then
echo shar: \"'@figs/shades.fig'\" unpacked with wrong size!
fi
# end of '@figs/shades.fig'
fi
if test -f '@figs/splinefill.fig' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'@figs/splinefill.fig'\"
else
echo shar: Extracting \"'@figs/splinefill.fig'\" \(598 characters\)
sed "s/^X//" >'@figs/splinefill.fig' <<'END_OF_FILE'
X#FIG 1.4X
X80 2
X3 1 0 1 0 0 0 9 0.000 0 0
X 514 134 504 209 704 304 704 74 699 194 519 474 424 449 364 274 514 134 9999 9999
X3 3 0 1 0 0 0 5 0.000 0 0
X 134 154 179 334 369 329 264 424 269 149 369 79 354 139 134 154 9999 9999
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
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.
END_OF_FILE
echo shar: 1 control character may be missing from \"'@figs/splinefill.fig'\"
if test 598 -ne `wc -c <'@figs/splinefill.fig'`; then
echo shar: \"'@figs/splinefill.fig'\" unpacked with wrong size!
fi
# end of '@figs/splinefill.fig'
fi
if test -f '@figs/thermal.fig' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'@figs/thermal.fig'\"
else
echo shar: Extracting \"'@figs/thermal.fig'\" \(2144 characters\)
sed "s/^X//" >'@figs/thermal.fig' <<'END_OF_FILE'
X#FIG 1.4
X80 2
X1 3 0 1 0 0 0 21 0.000 1 0.000 439 339 5 5 439 339 444 339
X1 3 0 1 0 0 0 21 0.000 1 0.000 199 339 5 5 199 339 204 339
X1 3 0 1 0 0 0 21 0.000 1 0.000 359 259 5 5 359 259 364 259
X1 3 0 1 0 0 0 21 0.000 1 0.000 279 259 5 5 279 259 284 259
X1 3 0 1 0 0 0 0 0.000 1 0.000 359 339 5 5 359 339 364 339
X1 3 0 1 0 0 0 0 0.000 1 0.000 279 339 5 5 279 339 284 339
X2 1 1 1 0 0 0 0 4.000 0 0
X 319 299 399 299 399 379 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 364 339 434 339 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 284 339 354 339 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 359 264 359 334 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 279 264 279 334 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 204 339 274 339 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 424 379 434 389 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 409 379 419 389 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 394 379 404 389 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 379 379 389 389 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 364 379 374 389 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 349 379 359 389 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 334 379 344 389 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 304 379 314 389 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 289 379 299 389 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 274 379 284 389 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 319 379 329 389 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 259 379 269 389 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 244 379 254 389 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 229 379 239 389 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 214 379 224 389 9999 9999
X2 1 0 1 0 0 0 0 0.000 0 0
X 209 379 434 379 9999 9999
X2 2 1 1 0 0 0 0 4.000 0 0
X 239 299 319 299 319 379 239 379 239 299 9999 9999
X4 0 0 12 0 0 0 0.000 1 11 54 279 459 Figure 1.
X4 0 0 12 0 0 0 0.000 1 9 6 199 324 1
X4 0 0 12 0 0 0 0.000 1 9 6 194 319 P
X4 0 0 12 0 0 0 0.000 1 9 6 274 239 P
X4 0 0 12 0 0 0 0.000 1 9 6 279 244 2
X4 0 0 12 0 0 0 0.000 1 9 6 359 244 4
X4 0 0 12 0 0 0 0.000 1 9 6 354 239 P
X4 0 0 12 0 0 0 0.000 1 9 6 439 324 5
X4 0 0 12 0 0 0 0.000 1 9 6 434 319 P
X4 0 0 12 0 0 0 0.000 1 9 6 361 365 b
X4 0 0 12 0 0 0 0.000 1 9 6 354 359 P
X4 0 0 12 0 0 0 0.000 1 6 6 280 365 a
X4 0 0 12 0 0 0 0.000 1 9 6 274 359 P
END_OF_FILE
echo shar: 13 control characters may be missing from \"'@figs/thermal.fig'\"
if test 2144 -ne `wc -c <'@figs/thermal.fig'`; then
echo shar: \"'@figs/thermal.fig'\" unpacked with wrong size!
fi
# end of '@figs/thermal.fig'
fi
if test -f '@figs/window1.fig' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'@figs/window1.fig'\"
else
echo shar: Extracting \"'@figs/window1.fig'\" \(1255 characters\)
sed "s/^X//" >'@figs/window1.fig' <<'END_OF_FILE'
X#FIG 1.5
X80 2
X5 1 0 1 0 0 0 0 0.000 0 1 0 222.750 426.500 294 444 274 479 234 499
X 0 0 1.000 4.000 8.000
X5 1 0 1 0 0 0 0 0.000 0 1 0 208.886 360.136 209 299 249 314 269 349
X 0 0 1.000 4.000 8.000
X2 1 0 2 0 0 0 0 0.000 0 0
X 329 444 369 444 9999 9999
X2 1 0 2 0 0 0 0 0.000 0 0
X 294 374 254 374 9999 9999
X2 3 0 2 0 0 0 11 0.000 0 0
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
X2 2 0 2 0 0 0 0 0.000 0 0
X 304 304 304 309 319 309 319 304 304 304 9999 9999
X2 2 0 2 0 0 0 0 0.000 0 0
X 304 499 304 504 319 504 319 499 304 499 9999 9999
X2 2 0 1 0 0 0 0 0.000 0 0
X 309 499 309 309 314 309 314 499 309 499 9999 9999
X2 3 0 2 0 0 0 11 0.000 0 0
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
X3 0 0 2 0 0 0 0 0.000 0 0
X 294 374 304 374 309 389 309 408 314 412 313 430 319 444 329 444 9999 9999
X4 0 0 10 0 0 0 0.000 1 5 5 351 441 o
X4 0 0 12 0 0 0 0.000 1 9 7 344 439 T
X4 0 0 10 0 0 0 0.000 1 7 3 271 393 i
X4 0 0 12 0 0 0 0.000 1 9 7 264 389 T
X4 0 0 12 0 0 0 0.000 1 11 60 434 719 crack.fig3
END_OF_FILE
echo shar: 5 control characters may be missing from \"'@figs/window1.fig'\"
if test 1255 -ne `wc -c <'@figs/window1.fig'`; then
echo shar: \"'@figs/window1.fig'\" unpacked with wrong size!
fi
# end of '@figs/window1.fig'
fi
if test -f 'FORMAT1.3' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'FORMAT1.3'\"
else
echo shar: Extracting \"'FORMAT1.3'\" \(2274 characters\)
sed "s/^X//" >'FORMAT1.3' <<'END_OF_FILE'
XThe following is the format of fig output (fig 1.3).
X
XThe first line consists of four number:
X screen resolution (pixels/inch),
X screen origin (1 : upper rigth, 2 : upper left, 3 : lower left,
X 4 : lower right),
X canvas width (pixels),
X canvas height (pixels)
X
XThe first integer of the rest of the lines represents the followings;
X
X ELLIPSE 1
X POLYLINE 2
X SPLINE 3 (quadratic spline)
X TEXT 4
X ARC 5
X BEGIN_COMPOUND 6
X END_COMPOUND -BEGIN_COMPOUND
X
XThe detail of each object is:
X
XARC
X type (3 : circle by radius, 4 : circle by diameter, 5 : circular arc),
X line_style,
X thickness (pixels),
X dash_length (pixels),
X direction (0 : clockwise, 1 : counterclokwise),
X forward_arrow (0: off, 1: on),
X backward_arrow (0: off, 1: on),
X arrow_ht (pixels), arrow_wid (pixels),
X center.x, center.y,
X point[0].x, point[0].y, (the 1st point the user entered)
X point[1].x, point[1].y, (the 2nd point or the last for type 3 or 4)
X point[2].x, point[2].y (the last point if type is 5)
X
XBEGIN_COMPOUND
X upperright_corner.x, upperright_corner.y,
X lowerleft_corner.x, lowerleft_corner.y
X
XELLIPSE
X type (1 : defined by radiuses, 2 : defined by diameters),
X line_style,
X thickness (pixels),
X dash_length (pixels),
X direction (is always 1),
X center.x, center.y,
X radius.x, radius.y,
X start.x, start.y, (the 1st point the user entered)
X end.x, end.y
X
XLINE
X type (6 : polyline, 7 : box, 8 : polygon),
X line_style,
X thickness (pixels),
X dash_length (pixels),
X forward_arrow (0: off, 1: on),
X backward_arrow (0: off, 1: on),
X arrow_ht (pixels), arrow_wid (pixels),
X x1, y1,
X x2, y2,
X .
X .
X xn, yn, (this will be the same as the 1st point for type 7 or 8)
X 9999, 9999
X
XSPLINE (quadratic spline)
X type (10: open spline, 11: closed spline),
X line_style,
X thickness (pixels),
X dash_length (pixels),
X forward_arrow (0: off, 1: on),
X backward_arrow (0: off, 1: on),
X arrow_ht (pixels), arrow_wid (pixels),
X x1, y1,
X x2, y2,
X .
X .
X xn, yn, (this will be the same as the 1st point for type 11)
X 9999, 9999
X
XTEXT
X font, (not used)
X size, (not used)
X style, (not used)
X height (pixels), length (pixels),
X lowerleft_corner.x (pixels), lowerleft_corner.y (pixels),
X string (end at newline, \n)
X
XThere are only three line styles defined
X
X SOLID_LINE 0
X DASH_LINE 1
X DOTTED_LINE 2 (not implement)
END_OF_FILE
if test 2274 -ne `wc -c <'FORMAT1.3'`; then
echo shar: \"'FORMAT1.3'\" unpacked with wrong size!
fi
# end of 'FORMAT1.3'
fi
if test -f 'Fig.ad' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Fig.ad'\"
else
echo shar: Extracting \"'Fig.ad'\" \(1258 characters\)
sed "s/^X//" >'Fig.ad' <<'END_OF_FILE'
X! Some interesting colors for the different parts of xfig
X! NOTE: this must actually be read by xrdb in order to work
X! correctly, because of the #ifdef. This will nor work correctly
X! if put in /usr/lib/X11/app-defaults
X
X#ifdef COLOR
X ! popup command menu
X Fig.form.popup_menu.menu.pane.background: orange
X Fig.form.popup_menu.menu.pane.foreground: black
X ! popup font menu
X Fig.form.font_menu.menu.pane.background: white
X Fig.form.font_menu.menu.pane.foreground: slate blue
X ! font indicator window
X Fig.form.font_indicator.foreground: slate blue
X ! side button panel
X Fig.form.side_panel.background: red
X Fig.form.side_panel.button.background: orchid
X Fig.form.side_panel.button.foreground: black
X ! bottom button panel
X Fig.form.bottom_panel.background: yellow
X Fig.form.bottom_panel.button.background: sea green
X Fig.form.bottom_panel.button.foreground: black
X ! side ruler
X Fig.form.sruler.background: yellow
X ! top ruler
X Fig.form.truler.background: green
X ! message window
X Fig.form.message.background: pink
X ! change object popup menu
X Fig.change.form.done.background: green
X Fig.change.form.apply.background: yellow
X Fig.change.form.cancel.background: red
X Fig.change.form.image.background: blue
X Fig.change.form.image.foreground: yellow
X#endif
END_OF_FILE
if test 1258 -ne `wc -c <'Fig.ad'`; then
echo shar: \"'Fig.ad'\" unpacked with wrong size!
fi
# end of 'Fig.ad'
fi
if test -f 'Imakefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Imakefile'\"
else
echo shar: Extracting \"'Imakefile'\" \(1991 characters\)
sed "s/^X//" >'Imakefile' <<'END_OF_FILE'
XSYS_LIBRARIES= -lm
XDEPLIBS = XawClientDepLibs
XLOCAL_LIBRARIES = XawClientLibs
XFONTFILE = troff_ft_codes
XFONTLIBDIR = $(LIBDIR)/xfig
XDEFINES = -DFONTFILE=\"$(FONTFILE)\"\
X -DFONTLIBDIR=\"$(FONTLIBDIR)\"
X
X
XXFIGSRC = addpt.c arc.c arcbox.c arrow.c autoarrow.c bitmap.c\
X blink.c bound.c box.c break.c canvas.c change.c\
X color.c char.c copy.c\
X cursor.c curve.c deletept.c dir.c drag.c draw.c\
X ellipse.c file.c flip.c font.c free.c geom.c\
X global.c glue.c graphics.c grid.c intspline.c\
X latex_line.c line.c list.c main.c move.c movept.c\
X msgsw.c panel.c popup.c print.c printfonts.c psbits.c\
X psfonts.c puterr.c read.c read1_3.c redisplay.c\
X remove.c rotate.c ruler.c save.c scale.c search.c\
X spline.c text.c trans.c turn.c undo.c util.c xtra.c
X
XXFIGOBJ = addpt.o arc.o arcbox.o arrow.o autoarrow.o bitmap.o\
X blink.o bound.o box.o break.o canvas.o change.o\
X color.o char.o copy.o\
X cursor.o curve.o deletept.o dir.o drag.o draw.o\
X ellipse.o file.o flip.o font.o free.o geom.o global.o\
X glue.o graphics.o grid.o intspline.o latex_line.o\
X line.o list.o main.o move.o movept.o msgsw.o panel.o\
X popup.o print.o printfonts.o psbits.o psfonts.o\
X puterr.o read.o read1_3.o redisplay.o remove.o\
X rotate.o ruler.o save.o scale.o search.o spline.o\
X text.o trans.o turn.o undo.o util.o xtra.o
X
XF2PSRC = arrow.c f2p.c free.c read.c read1_3.c troff_fonts.c psfonts.c
XF2POBJ = arrow.o f2p.o free.o read.o read1_3.o troff_fonts.o psfonts.o
X
XF2PSSRC = arrow.c bound.c f2ps.c free.c read.c read1_3.c psfonts.c
XF2PSOBJ = arrow.o bound.o f2ps.o free.o read.o read1_3.o psfonts.o
X
XSRCS1 = $(XFIGSRC)
XOBJS1 = $(XFIGOBJ)
XSRCS2 = $(F2PSRC)
XOBJS2 = $(F2POBJ)
XSRCS3 = $(F2PSSRC)
XOBJS3 = $(F2PSOBJ)
X
XPROGRAMS = xfig f2p f2ps
X
XComplexProgramTarget_1(xfig,$(LOCAL_LIBRARIES),)
X
XComplexProgramTarget_2(f2p,,)
X
XComplexProgramTarget_3(f2ps,,)
X
XMakeDirectories(install,$(FONTLIBDIR))
XInstallNonExec(troff_ft_codes,$(DESTDIR)$(FONTLIBDIR)/$(FONTFILE))
END_OF_FILE
if test 1991 -ne `wc -c <'Imakefile'`; then
echo shar: \"'Imakefile'\" unpacked with wrong size!
fi
# end of 'Imakefile'
fi
if test -f 'README' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'README'\"
else
echo shar: Extracting \"'README'\" \(4678 characters\)
sed "s/^X//" >'README' <<'END_OF_FILE'
XFIG 2.0
X
XNOTE: Version 2.0 of xfig no longer supports SunView! If you wish to
X retain compatibility with SunView, use version 1.4.3.
X
X Also, xfig must be compiled under X11R4 because of the new
X simple-menu used in the popup menu to modify objects.
X
XNote: See the CHANGES file for up-to-date information
X
XAdded Features:
X===============
X
Xo Separate version number for program vs file format (protocol now 2.0)
Xo Area fill for circles, boxes, etc. with 20 different gray shades
X for Postscript output
Xo 35 different fonts - the 35 fonts normally included with the Laserwriters
X can be used in figures at any point size. If there is a corresponding
X font in X, then the text is shown in that font on the screen.
Xo text can be virtually any point size (on output)
Xo left, center and right justification of text
Xo rounded-corner boxes with any radius of the corners
Xo line thicknesses supported
Xo lower button panel for quick access to "save", "undo", etc. functions
Xo popup menu to modify existing objects
Xo portrait or landscape print mode
X
XNOTE: I will support these features as best I can, but I cannot promise
X anything, as my normal workload is pretty full.
X>>>> Please send any fixes, bug reports, etc. to me at bvsmth at lbl.gov
X Brian Smith
X (bvsmith at lbl.gov)
X
X____________________________________________________________________________
XTransFig Support
X
XPatchlevel 2 of Fig 2.0 and later provide a compile option for compatibility
Xwith the 2.0-TFX file format. Without this option, Fig 2.0 reads and writes
Xfiles in its own 2.0 format.
X
XWhen compiled with the -DTFX option, Fig 2.0 assumes the TFX format for its
Xinput and output files. The differences between 1.4X and TFX are minor:
X
X 1) the TFX text font field can specify only five "generic" font types;
X 1.4X has a list of 35 specific PostScript fonts.
X
X 2) the TFX area fill field can specify only three shades of grey;
X 1.4X can specify 19.
X
X 3) rounded corner boxes are not currently supported in TFX.
X
XFiles which do not use these three features will be compatible with both
Xfile formats.
X
XThe TransFig package provides a set of tools for translating Fig files
Xin TFX format to PostScript, PIC, LaTeX picture environment, and (E)EPIC
Xor PiCTeX macros. Several graphics programs use the TFX format for output,
Xincluding the Fig-FS Sunview graphics editor and the GnuTeX numerical
Xplotting program, and a tool exists for translating from Unix plot(5) format
Xto TFX. Fig 2.0 will be only partially compatible with these programs using
Xthe 1.4X format; when compiled for TFX compatibility, it should be fully
Xcompatible.
X
XTransFig is avialable via anonymous FTP from svax.cs.cornell.edu
Xin ~ftp/pub/fig/transfig.tar.Z, or by mail from the archive server
Xat sun.soe.clarkson.edu. Send mail to "archive-server at sun.soe.clarkson.edu"
Xwith the one-line message "help".
X
XI will support that part of Fig 2.0 which relates to TFX compatibility.
XBug reports and comments can be sent to me.
X
XMicah Beck, 2/24/90
XCornell CS Department
Xbeck at cs.cornell.edu
X
X____________________________________________________________________________
XThe History of Xfig:
X
Xxfig 1.4.1:
X
X14 Jul 88 Ken Yap (University of Rochester)
X Ported to X11. Alpha release.
X
X31 Jul 88 Ken Yap (University of Rochester)
X Works practically like SunView version now. Beta release.
X
X8 Aug 88 Ken Yap (University of Rochester)
X Dana Chee of Bellcore contributed lots of cleanups
X and put right some features I didn't know how
X to do properly. (Thanks, Dana.) Released to world.
X
Xxfig 1.4.2:
X
X23 Aug 88 Dana Chee (Bellcore)
X Fixed color, added mouse tracking option.
X
Xxfig 1.4.3:
X
X26 Aug 88 Dana Chee (Bellcore)
X Added John Kohl's changes to fix color and make
X inverse video work on a monochrome display.
X Allow scaling of compound objects on a side as well as
X a corner.
X Allow compound objects within a compound.
X
Xxfig 2.0:
X
X16 Feb 90 Brian V. Smith (Lawrence Berkeley Laboratory)
X Area fill for circles, boxes, etc. with 20 different
X gray shades for Postscript output.
X 35 different fonts - the 35 fonts normally included with
X the Laserwriters can be used in figures at any point size.
X If there is a corresponding font in X, then the text is shown
X in that font on the screen.
X Text can be virtually any point size.
X Left, center and right justification of text.
X Rounded-corner boxes with selectable radius of the corners.
X Different line thicknesses.
X Lower button panel for quick access to "save", "chdir",
X etc. functions.
X Portrait or landscape print mode.
X Popup menu to modify objects (Jon Tombs)
X
X Deleted Features:
X
X Sunview code has been removed.
END_OF_FILE
if test 4678 -ne `wc -c <'README'`; then
echo shar: \"'README'\" unpacked with wrong size!
fi
# end of 'README'
fi
if test -f 'alloc.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'alloc.h'\"
else
echo shar: Extracting \"'alloc.h'\" \(835 characters\)
sed "s/^X//" >'alloc.h' <<'END_OF_FILE'
X/*
X * FIG : Facility for Interactive Generation of figures
X *
X * Copyright (c) 1985 by Supoj Sutanthavibul (supoj at sally.UTEXAS.EDU)
X * January 1985.
X * 1st revision : Aug 1985.
X *
X * %W% %G%
X*/
Xextern char *malloc();
Xextern char *calloc();
X
X#define Line_malloc(z) z = (F_line*)malloc(LINOBJ_SIZE)
X#define Spline_malloc(z) z = (F_spline*)malloc(SPLOBJ_SIZE)
X#define Ellipse_malloc(z) z = (F_ellipse*)malloc(ELLOBJ_SIZE)
X#define Arc_malloc(z) z = (F_arc*)malloc(ARCOBJ_SIZE)
X#define Compound_malloc(z) z = (F_compound*)malloc(COMOBJ_SIZE)
X#define Text_malloc(z) z = (F_text*)malloc(TEXOBJ_SIZE)
X#define Point_malloc(z) z = (F_point*)malloc(POINT_SIZE)
X#define Control_malloc(z) z = (F_control*)malloc(CONTROL_SIZE)
X#define Arrow_malloc(z) z = (F_arrow*)malloc(ARROW_SIZE)
X
Xextern char Err_mem[];
Xextern char Err_incomp[];
END_OF_FILE
if test 835 -ne `wc -c <'alloc.h'`; then
echo shar: \"'alloc.h'\" unpacked with wrong size!
fi
# end of 'alloc.h'
fi
if test -f 'arrow.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'arrow.c'\"
else
echo shar: Extracting \"'arrow.c'\" \(1779 characters\)
sed "s/^X//" >'arrow.c' <<'END_OF_FILE'
X/*
X * FIG : Facility for Interactive Generation of figures
X *
X * Copyright (c) 1985, 1988 by Supoj Sutanthavibul (supoj at sally.UTEXAS.EDU)
X * January 1985.
X * 1st revision : August 1985.
X * 2nd revision : March 1988.
X *
X * %W% %G%
X*/
X#include "fig.h"
X#include "alloc.h"
X#include "object.h"
X
Xstatic float forward_arrow_wid = 4;
Xstatic float forward_arrow_ht = 8;
Xstatic int forward_arrow_type = 0;
Xstatic int forward_arrow_style = 0;
Xstatic float forward_arrow_thickness = 1;
X
Xstatic float backward_arrow_wid = 4;
Xstatic float backward_arrow_ht = 8;
Xstatic int backward_arrow_type = 0;
Xstatic int backward_arrow_style = 0;
Xstatic float backward_arrow_thickness = 1;
X
Xextern int line_thickness;
X
XF_arrow *
Xforward_arrow()
X{
X F_arrow *a;
X
X if (NULL == (Arrow_malloc(a))) {
X put_msg(Err_mem);
X return(NULL);
X }
X a->type = forward_arrow_type;
X a->style = forward_arrow_style;
X a->thickness = forward_arrow_thickness = (float) line_thickness;
X a->wid = forward_arrow_thickness * forward_arrow_wid;
X a->ht = forward_arrow_thickness * forward_arrow_ht;
X return(a);
X }
X
XF_arrow *
Xbackward_arrow()
X{
X F_arrow *a;
X
X if (NULL == (Arrow_malloc(a))) {
X put_msg(Err_mem);
X return(NULL);
X }
X a->type = backward_arrow_type;
X a->style = backward_arrow_style;
X a->thickness = backward_arrow_thickness = (float) line_thickness;
X a->wid = backward_arrow_thickness * backward_arrow_wid;
X a->ht = backward_arrow_thickness * backward_arrow_ht;
X return(a);
X }
X
XF_arrow *
Xmake_arrow(type, style, thickness, wid, ht)
Xint type, style;
Xfloat thickness, wid, ht;
X{
X F_arrow *a;
X
X if (NULL == (Arrow_malloc(a))) {
X put_msg(Err_mem);
X return(NULL);
X }
X a->type = type;
X a->style = style;
X a->thickness = thickness;
X a->wid = wid;
X a->ht = ht;
X return(a);
X }
END_OF_FILE
if test 1779 -ne `wc -c <'arrow.c'`; then
echo shar: \"'arrow.c'\" unpacked with wrong size!
fi
# end of 'arrow.c'
fi
if test -f 'blink.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'blink.c'\"
else
echo shar: Extracting \"'blink.c'\" \(1768 characters\)
sed "s/^X//" >'blink.c' <<'END_OF_FILE'
X/*
X * FIG : Facility for Interactive Generation of figures
X *
X * Copyright (c) 1988 by Supoj Sutanthavibul (supoj at sally.UTEXAS.EDU)
X * Febuary 1988.
X *
X * %W% %G%
X*/
X#include "fig.h"
X
Xstatic int cursor_on, cursor_is_moving;
Xstatic int cursor_x, cursor_y;
Xstatic int blink();
Xstatic int (*erase)();
Xstatic int (*draw)();
Xstatic unsigned long blink_timer;
X
Xstatic XtIntervalId blinkid;
Xstatic int stop_blinking=FALSE;
Xstatic int cur_is_blinking=FALSE;
X
Xturn_on_blinking_cursor(draw_cursor, erase_cursor, x, y, msec)
Xint (*draw_cursor)();
Xint (*erase_cursor)();
Xint x, y;
Xunsigned long msec;
X{
X draw = draw_cursor;
X erase = erase_cursor;
X cursor_is_moving = 0;
X cursor_x = x;
X cursor_y = y;
X blink_timer = msec;
X draw(x, y);
X cursor_on = 1;
X if (!cur_is_blinking) /* if we are already blinking, don't request another */
X {
X blinkid = XtAddTimeOut(blink_timer, blink, 0);
X cur_is_blinking=TRUE;
X }
X stop_blinking = FALSE;
X }
X
Xturn_off_blinking_cursor()
X{
X if (cursor_on)
X erase(cursor_x, cursor_y);
X stop_blinking = TRUE;
X }
X
Xstatic
Xblink(client_data,id)
X#if XtSpecificationRelease >= 4
XXtPointer client_data;
X#else
Xcaddr_t client_data;
X#endif
XXtIntervalId *id;
X{
X if (!stop_blinking)
X {
X if (cursor_is_moving)
X return(0);
X if (cursor_on) {
X erase(cursor_x, cursor_y);
X cursor_on = 0;
X }
X else {
X draw(cursor_x, cursor_y);
X cursor_on = 1;
X }
X blinkid = XtAddTimeOut(blink_timer, blink, 0);
X }
X else
X {
X stop_blinking = FALSE; /* signal that we've stopped */
X cur_is_blinking = FALSE;
X }
X return(0);
X }
X
Xmove_blinking_cursor(x, y)
Xint x, y;
X{
X cursor_is_moving = 1;
X if (cursor_on) erase(cursor_x, cursor_y);
X cursor_x = x;
X cursor_y = y;
X draw(cursor_x, cursor_y);
X cursor_on = 1;
X cursor_is_moving = 0;
X }
END_OF_FILE
if test 1768 -ne `wc -c <'blink.c'`; then
echo shar: \"'blink.c'\" unpacked with wrong size!
fi
# end of 'blink.c'
fi
if test -f 'break.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'break.c'\"
else
echo shar: Extracting \"'break.c'\" \(1466 characters\)
sed "s/^X//" >'break.c' <<'END_OF_FILE'
X/*
X * FIG : Facility for Interactive Generation of figures
X *
X * Copyright (c) 1985 by Supoj Sutanthavibul (supoj at sally.UTEXAS.EDU)
X * January 1985.
X * 1st revision : Aug 1985.
X *
X * %W% %G%
X*/
X#include "fig.h"
X#include "resources.h"
X#include "func.h"
X#include "object.h"
X#include "paintop.h"
X
X#define TOLERANCE 7
X
Xextern int init_break();
X
Xbreak_selected()
X{
X extern (*canvas_kbd_proc)();
X extern (*canvas_locmove_proc)();
X extern (*canvas_leftbut_proc)();
X extern (*canvas_middlebut_proc)();
X extern (*canvas_rightbut_proc)();
X extern null_proc();
X extern set_popupmenu();
X
X canvas_kbd_proc = null_proc;
X canvas_locmove_proc = null_proc;
X canvas_leftbut_proc = init_break;
X canvas_middlebut_proc = null_proc;
X canvas_rightbut_proc = set_popupmenu;
X set_cursor(&pick15_cursor);
X }
X
Xinit_break(x, y)
Xint x, y;
X{
X extern F_compound *compound_search();
X extern F_compound objects, saved_objects;
X extern int compoundbox_shown;
X F_compound *c;
X
X if ((c = compound_search(x, y, TOLERANCE, &x, &y)) == NULL) return;
X clean_up();
X if (compoundbox_shown) draw_compoundbox(c, INV_PAINT);
X delete_compound(&objects.compounds, c);
X break_compound(c);
X set_action(F_BREAK);
X saved_objects.compounds = c;
X break_selected();
X }
X
Xbreak_compound(c)
XF_compound *c;
X{
X extern F_compound objects, object_tails;
X extern int pointmarker_shown;
X
X if (pointmarker_shown) toggle_compoundpointmarker(c);
X tail(&objects, &object_tails);
X append_objects(&objects, c, &object_tails);
X }
END_OF_FILE
if test 1466 -ne `wc -c <'break.c'`; then
echo shar: \"'break.c'\" unpacked with wrong size!
fi
# end of 'break.c'
fi
if test -f 'color.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'color.c'\"
else
echo shar: Extracting \"'color.c'\" \(365 characters\)
sed "s/^X//" >'color.c' <<'END_OF_FILE'
X/*
X * FIG : Facility for Interactive Generation of figures
X *
X * Copyright (c) 1988 by Supoj Sutanthavibul (supoj at sally.UTEXAS.EDU)
X * March 1988.
X *
X * %W% %G%
X*/
X
Xint background_color = 0; /* black */
Xint foreground_color = 1; /* white */
X
Xinvert_color()
X{
X int c;
X
X c = background_color;
X background_color = foreground_color;
X foreground_color = c;
X }
END_OF_FILE
if test 365 -ne `wc -c <'color.c'`; then
echo shar: \"'color.c'\" unpacked with wrong size!
fi
# end of 'color.c'
fi
if test -f 'const.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'const.h'\"
else
echo shar: Extracting \"'const.h'\" \(903 characters\)
sed "s/^X//" >'const.h' <<'END_OF_FILE'
X/*
X * FIG : Facility for Interactive Generation of figures
X *
X * Copyright (c) 1985 by Supoj Sutanthavibul (supoj at sally.UTEXAS.EDU)
X * November 1985.
X *
X * %W% %G%
X*/
X#define PIX_PER_INCH 80
X#define PIX_PER_CM 30 /* ((int)(PIX_PER_INCH / 2.54 + (5.0/2))) */
X
X/* Portrait dimensions */
X#define DEF_CANVAS_HEIGHT_P 9.5*PIX_PER_INCH
X#define DEF_CANVAS_WIDTH_P 8*PIX_PER_INCH
X
X/* Landscape dimensions */
X#define DEF_CANVAS_HEIGHT_L 8*PIX_PER_INCH
X#define DEF_CANVAS_WIDTH_L 10*PIX_PER_INCH
X
X#define RULER_WIDTH 20
X
X#define MSG_HEIGHT 21
X
X#define ICON_COLUMN_PORT 3 /* number of switches wide in panel */
X#define ICON_COLUMN_LAND 3 /* same for landscape mode */
X
X#define SWITCH_ICON_WIDTH 32 /* width of a switch icon */
X#define SWITCH_ICON_HEIGHT 32
X#define SWITCH_ICON_SPACING 4
X
X#define MAXPRINTERS 3
X
X#define DEF_PRINTFONTSIZE 11 /* default printer font size (points) */
END_OF_FILE
if test 903 -ne `wc -c <'const.h'`; then
echo shar: \"'const.h'\" unpacked with wrong size!
fi
# end of 'const.h'
fi
if test -f 'dir.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'dir.c'\"
else
echo shar: Extracting \"'dir.c'\" \(1228 characters\)
sed "s/^X//" >'dir.c' <<'END_OF_FILE'
X/*
X * FIG : Facility for Interactive Generation of figures
X *
X * Copyright (c) 1985 by Supoj Sutanthavibul (supoj at sally.UTEXAS.EDU)
X * November 1985.
X * 1st revision: Mar 1988.
X *
X * %W% %G%
X*/
X#include "fig.h"
X
Xextern char *sys_errlist[];
Xextern int sys_nerr, errno;
X
Xextern char directory[];
X
Xint
Xchange_directory(path)
Xchar *path;
X{
X if (path == NULL)
X return(0);
X put_msg("Changing . . .");
X if (chdir(path) == -1) {
X put_msg("Can't go to directory %s, : %s",
X path, sys_errlist[errno]);
X }
X else {
X if (get_directory(directory) != NULL) /* get current working directory */
X print_directory();
X }
X return(1);
X }
X
Xprint_directory()
X{
X if (*directory == '\0')
X (void) get_directory(directory); /* get current working directory */
X put_msg("DIRECTORY: \"%s\"",directory);
X }
X
Xget_directory(direct)
Xchar *direct;
X {
X#ifdef SYSV
X extern char *getcwd();
X#else
X extern char *getwd();
X#endif
X
X#ifdef SYSV
X if (getcwd(direct, 1024) == NULL) /* get curent working dir */
X {
X put_msg("%s", "Can't get current directory");
X#else
X if (getwd(direct) == NULL) /* get curent working dir */
X {
X put_msg("%s", direct); /* err msg is in directory */
X#endif
X *direct = '\0';
X return NULL;
X }
X return 1;
X }
END_OF_FILE
if test 1228 -ne `wc -c <'dir.c'`; then
echo shar: \"'dir.c'\" unpacked with wrong size!
fi
# end of 'dir.c'
fi
if test -f 'f2p.man' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'f2p.man'\"
else
echo shar: Extracting \"'f2p.man'\" \(1320 characters\)
sed "s/^X//" >'f2p.man' <<'END_OF_FILE'
X.TH F2P 1 "12 March 1990"
X.SH NAME
Xf2p \- translates fig output into pic language
X.SH SYNOPSIS
X.B f2p
X[ -f font_file ] [ input_file [ output_file ] ]
X.SH DESCRIPTION
X.I F2p
Xtranslates fig objects in the named
X.I input_file
Xinto pic language and puts them in
X.I output_file.
XIf only one file name is present, it is assumed to be the input file
X(fig output file).
XThe output file
X.I (pic_file),
Xif not present, will be the stdout.
XIf the
X.I input_file
Xis not present, input will be assumed to come from the stdin.
X.PP
XThe fonts used for text objects are converted from their LaserWriter
Xnames (as selected when using fig) to site-specific
Xtroff 2-letter font names using
Xinformation in the file /usr/lib/X11/troff/troff_ft_codes,
Xor a file named using the optional
X.B \-f
Xargument.
XIf a file named with this option is not found in the working directory
Xit will be sought in /usr/lib/X11/troff.
X.SH BUGS
XFilling of closed objects is ignored.
XIt would be possible to generate
X.I pic
Xinstructions to produce some form of filling in
X.I f2p,
Xbut the filling feature really needs to be added to
X.I pic.
X.SH "SEE ALSO"
Xxfig(1),
Xpic(1),
Xf2ps(1).
X.SH AUTHOR
XSupoj Sutanthavibul (supoj at sally.UTEXAS.EDU),
X.br
XUniversity of Texas at Austin,
X.br
XJanuary 29, 1985.
X.br
XModified by daved at physiol.su.oz.au for fig 2.0 (March 1990).
X
END_OF_FILE
if test 1320 -ne `wc -c <'f2p.man'`; then
echo shar: \"'f2p.man'\" unpacked with wrong size!
fi
# end of 'f2p.man'
fi
if test -f 'f2ps.man' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'f2ps.man'\"
else
echo shar: Extracting \"'f2ps.man'\" \(1611 characters\)
sed "s/^X//" >'f2ps.man' <<'END_OF_FILE'
X.TH F2PS 1 "29 March 1988"
X.SH NAME
Xf2ps \- Fig to Postscript translator
X.SH SYNOPSIS
X.B f2ps
X[
X.B -f
Xfont ] [
X.B -s
Xsize ] [
X.B -e
Xscale ] [
X][
X.B -L
X][
X.B -P
X][
X.B -N
X][
X.B -c
X] [ input_file [ output_file ] ]
X.SH DESCRIPTION
X.I F2ps
Xtranslates xfig output format (in
X.I input_file
Xinto the postscript language (in
X.I output_file
X).
XThe default
X.I input_file
Xand
X.I output_file
Xare standard input and standard output.
X.PP
XThe
X.I font
Xshould be font that your printer knows about.
XThe unit of
X.I size
X(font size) is point. There are 72 points in an inch.
XThe upper limit for
X.I size
Xis 300 points (about 4 inches).
X.I Scale
Xwill also be applied to
X.I size.
XThe default value of
X.I font,
X.I size
Xand
X.I scale
Xare Times-Roman, 12 points and 1 respectively.
X.SH OPTIONS
X.TP
X.B \-c
XCenter the figure on the page.
XThe centering may not be accurate if there are texts in the
X.I input_file
Xthat extends too far to the right of other objects.
X.TP
X.B \-L
XPrint in landscape mode. This is the default.
X.TP
X.B \-P
XPrint in portrait mode.
X.TP
X.B \-N
XNo page printing command (showpage)
Xis to be appended after the figure.
XThis ensures that when the output is used as an included illustration,
Xit won't untimely skip the rest of the page.
XHowever you can not print it by itself on the printer.
X.PP
XObjects (except text) which are created in \fIxfig\fP while the
Xdash-line mode was on will be produced with dashed line even
Xthough they may be drawn with solid line in \fIxfig\fP.
X.SH "SEE ALSO"
Xxfig(1).
X.SH AUTHOR
XSupoj Sutanthavibul (supoj at sally.UTEXAS.EDU),
X.br
XUniversity of Texas at Austin,
X.br
XNovember 13, 1986.
END_OF_FILE
if test 1611 -ne `wc -c <'f2ps.man'`; then
echo shar: \"'f2ps.man'\" unpacked with wrong size!
fi
# end of 'f2ps.man'
fi
if test -f 'fig.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'fig.h'\"
else
echo shar: Extracting \"'fig.h'\" \(1008 characters\)
sed "s/^X//" >'fig.h' <<'END_OF_FILE'
X/*
X * FIG : Facility for Interactive Generation of figures
X *
X * Copyright (c) 1985 by Supoj Sutanthavibul (supoj at sally.UTEXAS.EDU)
X * January 1985.
X * 1st revision : Aug 1985.
X *
X * %W% %G%
X*/
X#include <X11/Xos.h>
X
X#include <sys/stat.h>
X#include <fcntl.h>
X#include <pwd.h>
X#include <signal.h>
X
X#include <stdio.h>
X#include <ctype.h>
X#include <errno.h>
X#include <math.h>
X
X#ifdef SYSV
X#define u_int uint
X#endif
X
X#ifndef M_PI
X#define M_PI 3.14159265358979323846
X#define M_PI_2 1.57079632679489661923
X#endif
X
X#include <X11/Xlib.h>
X#include <X11/cursorfont.h>
X#include <X11/Intrinsic.h>
X#include <X11/StringDefs.h>
X#include <X11/Shell.h>
X
X#include <X11/Xaw/Command.h>
X#include <X11/Xaw/Label.h>
X#include <X11/Xaw/Dialog.h>
X#include <X11/Xaw/Box.h>
X#include <X11/Xaw/Form.h>
X#include <X11/Xaw/Cardinals.h>
X#include <X11/Xaw/Text.h>
X#include <X11/Xaw/AsciiText.h>
X#include <X11/Xaw/MenuButton.h>
X#include <X11/Xaw/SimpleMenu.h>
X#include <X11/Xaw/Sme.h>
X#include <X11/Xaw/SmeBSB.h>
X#include <X11/Xaw/Toggle.h>
X
END_OF_FILE
if test 1008 -ne `wc -c <'fig.h'`; then
echo shar: \"'fig.h'\" unpacked with wrong size!
fi
# end of 'fig.h'
fi
if test -f 'font.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'font.h'\"
else
echo shar: Extracting \"'font.h'\" \(649 characters\)
sed "s/^X//" >'font.h' <<'END_OF_FILE'
X/*
X * FIG : Facility for Interactive Generation of figures
X *
X * Copyright (c) 1988 by Supoj Sutanthavibul (supoj at sally.UTEXAS.EDU)
X * January 1988.
X *
X * %W% %G%
X*/
X
XEXTERN PIX_FONT bold_font;
XEXTERN PIX_FONT roman_font;
XEXTERN PIX_FONT canvas_font;
XEXTERN PIX_FONT button_font;
X
X#define NORMAL_FONT "fixed"
X#define BOLD_FONT "8x13bold"
X
X#define char_height(font) ((font)->max_bounds.ascent + (font)->max_bounds.descent)
X#define char_width(font) ((font)->max_bounds.width)
X#define char_advance(font,char) (\
X ((font)->per_char)?\
X ((font)->per_char[(char)-(font)->min_char_or_byte2].width):\
X ((font)->max_bounds.width))
END_OF_FILE
if test 649 -ne `wc -c <'font.h'`; then
echo shar: \"'font.h'\" unpacked with wrong size!
fi
# end of 'font.h'
fi
if test -f 'paintop.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'paintop.h'\"
else
echo shar: Extracting \"'paintop.h'\" \(299 characters\)
sed "s/^X//" >'paintop.h' <<'END_OF_FILE'
X/*
X * FIG : Facility for Interactive Generation of figures
X *
X * Copyright (c) 1985 by Supoj Sutanthavibul (supoj at sally.UTEXAS.EDU)
X * November 1985.
X *
X * %W% %G%
X*/
X
X#define INV_PAINT 0
X#define MERGE 1
X#define PAINT 2
X#define ERASE 3
X
X#define NUMOPS 4
X
X#define DRAW 1
X#define UNDRAW 0
END_OF_FILE
if test 299 -ne `wc -c <'paintop.h'`; then
echo shar: \"'paintop.h'\" unpacked with wrong size!
fi
# end of 'paintop.h'
fi
if test -f 'patchlevel.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'patchlevel.h'\"
else
echo shar: Extracting \"'patchlevel.h'\" \(21 characters\)
sed "s/^X//" >'patchlevel.h' <<'END_OF_FILE'
X#define PATCHLEVEL 8
END_OF_FILE
if test 21 -ne `wc -c <'patchlevel.h'`; then
echo shar: \"'patchlevel.h'\" unpacked with wrong size!
fi
# end of 'patchlevel.h'
fi
if test -f 'psfonts.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'psfonts.h'\"
else
echo shar: Extracting \"'psfonts.h'\" \(822 characters\)
sed "s/^X//" >'psfonts.h' <<'END_OF_FILE'
X#define MIN_P_SIZE 6
X#define MAX_P_SIZE 30
X
X#ifndef TFX
X#define FONT_PANE_WIDTH 290
X#define FONT_PANE_HEIGHT 20
X#define NUMFONTS 35
X#else
X#define FONT_PANE_WIDTH 112
X#define FONT_PANE_HEIGHT 20
X#define NUMFONTS 6
X#endif
X
X/* element of linked list for each font
X The head of list is for the different font NAMES,
X and the elements of this list are for each different
X point size of that font */
X
Xstruct xfont {
X int size; /* size in points */
X Font fid; /* X font id */
X XFontStruct *fstruct; /* X font structure */
X char *fname; /* actual name of X font found */
X struct xfont *next; /* next in the list */
X };
X
Xstruct _fstruct {
X char *psfont; /* Postscript font name */
X char *template; /* template for locating X fonts */
X struct xfont *xfontlist; /* linked list of X fonts for different point sizes */
X };
X
END_OF_FILE
if test 822 -ne `wc -c <'psfonts.h'`; then
echo shar: \"'psfonts.h'\" unpacked with wrong size!
fi
# end of 'psfonts.h'
fi
if test -f 'puterr.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'puterr.c'\"
else
echo shar: Extracting \"'puterr.c'\" \(482 characters\)
sed "s/^X//" >'puterr.c' <<'END_OF_FILE'
X/*
X * FIG : Facility for Interactive Generation of figures
X *
X * Copyright (c) 1985 by Supoj Sutanthavibul (supoj at sally.UTEXAS.EDU)
X * November 1985.
X *
X * %W% %G%
X*/
X#include "fig.h"
X
X/*VARARGS1*/
Xput_err(format, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8)
Xchar *format, *arg1, *arg2, *arg3, *arg4, *arg5, *arg6, *arg7, *arg8;
X{
X fprintf(stderr, format, arg1, arg2, arg3, arg4, arg5,
X arg6, arg7, arg8);
X put_msg(format, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8);
X}
END_OF_FILE
if test 482 -ne `wc -c <'puterr.c'`; then
echo shar: \"'puterr.c'\" unpacked with wrong size!
fi
# end of 'puterr.c'
fi
if test -f 'switch.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'switch.h'\"
else
echo shar: Extracting \"'switch.h'\" \(1112 characters\)
sed "s/^X//" >'switch.h' <<'END_OF_FILE'
X/* button definition */
X
Xtypedef struct
X{
X TOOL widget;
X Pixmap normal, reverse;
X} button_info;
X
Xtypedef struct switch_struct {
X int on;
X int group;
X int x; /* Row 0 / 1 */
X int y; /* Column 0 -> ? */
X PIXRECT icon;
X int value;
X int (*on_func)();
X int (*off_func)();
X int type;
X#define S_TOG 1
X#define S_ON 2
X#define S_MOMENT 3
X button_info but;
X }
X F_switch;
X/*
XSwitches in the same "group" > -1 are mutually exclusive;
Xi.e., only one of the switches of the same group can be on at any time.
XIf a switch in a group n>-1 is on and another one in the same group is
Xdepressed, the former will be turned off and the latter on.
X
XA S_ON switch can not be turned off by clicking at it; it can be turned
Xoff only by clicking another switch in the same group.
X
XA S_TOG switch can be turned off both ways.
X
XNo two S_ON or S_ON switches of the same group can be on (hilighted)
Xat anytime.
X
XA S_MOMENT switch turns on when pressed and turns off when finished
Xwith the function (read file, save file, etc).
X
XSwitches with group = -1 are toggle type switches.
X*/
END_OF_FILE
if test 1112 -ne `wc -c <'switch.h'`; then
echo shar: \"'switch.h'\" unpacked with wrong size!
fi
# end of 'switch.h'
fi
if test -f 'troff_fonts.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'troff_fonts.c'\"
else
echo shar: Extracting \"'troff_fonts.c'\" \(1737 characters\)
sed "s/^X//" >'troff_fonts.c' <<'END_OF_FILE'
X/*
X** troff_fonts.c
X**
X** read a table of troff font code definitions related to laserwriter
X** font names as used in psfonts.c
X*/
X
X#ifndef FONTFILE
X#define FONTFILE "troff_ft_codes"
X#endif
X#ifndef FONTLIBDIR
X#define FONTLIBDIR "/usr/lib/X11/troff"
X#endif
X
X#include <stdio.h>
X#include "troff_fonts.h"
X
Xtroff_init()
X{
X FILE *fp,
X *fopen();
X char fname[128],
X line[128],
X *p,
X *strchr(),
X *strcpy(),
X *strncpy(),
X *strcat(),
X *malloc();
X int linecount = 0,
X fontcount = 0;
X
X if(!font_file)
X font_file = FONTFILE;
X if((fp = fopen(font_file, "r")) == NULL)
X {
X (void) sprintf(fname, "%s/%s", FONTLIBDIR, font_file);
X if((fp = fopen(fname, "r")) == NULL)
X {
X fprintf(stderr,"f2p: cannot open %s\n", fname);
X exit(1);
X }
X }
X while(fgets(line, sizeof line, fp) != NULL)
X {
X linecount++;
X if (line[0] == '#' || line[0] == '\n')
X continue;
X if (fontcount + 1 == MAX_TROFF_FONTS)
X {
X fprintf(stderr,"f2p: too many fonts in %s\n",fname);
X exit(1);
X }
X if ((p = strchr(line, '\t')) == NULL && (p=strchr(line, ' ')) == NULL)
X {
X fprintf(stderr,"f2p: %s lacks white space in line %d\n",
X fname, linecount);
X exit(1);
X }
X *p = '\0'; /* to do a simple strlen(line) to check length of code */
X if (strlen(line) > 2)
X {
X fprintf(stderr,
X "f2p: code \"%s\" too long in %s line %d\n",
X line, fname, linecount);
X exit(1);
X }
X while (*++p == '\t' || *p == ' ') /* skip past white space */
X ;
X (void) strcpy(troff_fonts[fontcount].trname,line);
X if ((troff_fonts[fontcount].lwname=malloc((unsigned)strlen(p)))
X == NULL)
X {
X fprintf(stderr,"f2p: malloc failed\n");
X exit(1);
X }
X (void) strncpy(troff_fonts[fontcount++].lwname,p,strlen(p)-1);
X /* not '\n' */
X }
X (void) fclose(fp);
X}
END_OF_FILE
if test 1737 -ne `wc -c <'troff_fonts.c'`; then
echo shar: \"'troff_fonts.c'\" unpacked with wrong size!
fi
# end of 'troff_fonts.c'
fi
if test -f 'troff_fonts.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'troff_fonts.h'\"
else
echo shar: Extracting \"'troff_fonts.h'\" \(133 characters\)
sed "s/^X//" >'troff_fonts.h' <<'END_OF_FILE'
X#define MAX_TROFF_FONTS 50
X
Xchar *font_file;
X
Xstruct lw_troff_map
X{
X char trname[3];
X char *lwname;
X} troff_fonts[MAX_TROFF_FONTS];
X
END_OF_FILE
if test 133 -ne `wc -c <'troff_fonts.h'`; then
echo shar: \"'troff_fonts.h'\" unpacked with wrong size!
fi
# end of 'troff_fonts.h'
fi
if test -f 'troff_ft_codes' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'troff_ft_codes'\"
else
echo shar: Extracting \"'troff_ft_codes'\" \(868 characters\)
sed "s/^X//" >'troff_ft_codes' <<'END_OF_FILE'
X# map of laserwriter font names to troff 2 letter codes
X# for use by f2p, the xfig to pic translator
X# normal path: /usr/lib/X11/troff/troff_ft_codes
X
XR Times-Roman
XI Times-Italic
XB Times-Bold
XBI Times-BoldItalic
XAR AvantGarde-Book
XAO AvantGarde-BookOblique
XAB AvantGarde-Demi
XAX AvantGarde-DemiOblique
XK Bookman-Light
XKO Bookman-LightItalic
XKB Bookman-Demi
XKX Bookman-DemiItalic
XC Courier
XCO Courier-Oblique
XCB Courier-Bold
XCX Courier-BoldItalic
XH Helvetica
XHO Helvetica-Oblique
XHB Helvetica-Bold
XHX Helvetica-BoldOblique
Xh Helvetica-Narrow
XhO Helvetica-Narrow-Oblique
XhB Helvetica-Narrow-Bold
XhX Helvetica-Narrow-BoldOblique
XNR NewCenturySchlbk-Roman
XNI NewCenturySchlbk-Italic
XNB NewCenturySchlbk-Bold
XNX NewCenturySchlbk-BoldItalic
XPR Palatino-Roman
XPI Palatino-Italic
XPB Palatino-Bold
XPX Palatino-BoldItalic
XS Symbol
XZC ZapfChancery-MediumItalic
XZD ZapfDingbats
X
END_OF_FILE
if test 868 -ne `wc -c <'troff_ft_codes'`; then
echo shar: \"'troff_ft_codes'\" unpacked with wrong size!
fi
# end of 'troff_ft_codes'
fi
if test -f 'version.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'version.h'\"
else
echo shar: Extracting \"'version.h'\" \(331 characters\)
sed "s/^X//" >'version.h' <<'END_OF_FILE'
X/*
X * FIG : Facility for Interactive Generation of figures
X *
X * Copyright (c) 1988 by Supoj Sutanthavibul (supoj at sally.UTEXAS.EDU)
X * March 1988.
X *
X * %W% %G%
X*/
X
X#define FIG_VERSION "2.0"
X#ifndef TFX
X#define PROTOCOL_VERSION "2.0" /* file format */
X#else
X#define PROTOCOL_VERSION "1.4-TFX" /* file format */
X#endif
END_OF_FILE
if test 331 -ne `wc -c <'version.h'`; then
echo shar: \"'version.h'\" unpacked with wrong size!
fi
# end of 'version.h'
fi
if test -f 'xtra.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'xtra.h'\"
else
echo shar: Extracting \"'xtra.h'\" \(522 characters\)
sed "s/^X//" >'xtra.h' <<'END_OF_FILE'
X/*
X * FIG : Facility for Interactive Generation of figures
X *
X * Copyright (c) 1985 by Supoj Sutanthavibul (supoj at sally.UTEXAS.EDU)
X * January 1985.
X * 1st revision : Aug 1985.
X *
X * %W% %G%
X*/
X
X#define tool_destroy(tool) XtDestroyWidget(tool)
X
Xpr_size pf_textwidth();
X
X#define msg_text(w, x, y, font, string) \
X XDrawString(tool_d, (w), (font==bold_font)?bold_gc: gc, (x), (y), \
X (string), strlen(string))
X
X#define CTRL_H 8
X#define NL 10
X#define CR 13
X#define CTRL_U 21
X#define CTRL_X 24
X#define SP 32
X#define DEL 127
END_OF_FILE
if test 522 -ne `wc -c <'xtra.h'`; then
echo shar: \"'xtra.h'\" unpacked with wrong size!
fi
# end of 'xtra.h'
fi
echo shar: End of archive 1 \(of 21\).
cp /dev/null ark1isdone
MISSING=""
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
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have unpacked all 21 archives.
rm -f ark[1-9]isdone ark[1-9][0-9]isdone
else
echo You still need to unpack the following archives:
echo " " ${MISSING}
fi
## End of shell archive.
exit 0
dan
----------------------------------------------------
O'Reilly && Associates argv at sun.com / argv at ora.com
Opinions expressed reflect those of the author only.
More information about the Comp.sources.x
mailing list