Source Code 1994 March

home *** CD-ROM | disk | FTP | other *** search

/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / unix / volume26 / ltroff / part01 < prev next >

Wrap

Text File | 1993-07-14 | 101.0 KB | 3,446 lines

Newsgroups: comp.sources.unix From: ado@elsie.nci.nih.gov (Arthur David Olson) Subject: v26i294: ltroff - troff-classic to laserjet 4 filter (incl scalable fonts), Part01/02 Sender: unix-sources-moderator@gw.home.vix.com Approved: vixie@gw.home.vix.com Submitted-By: ado@elsie.nci.nih.gov (Arthur David Olson) Posting-Number: Volume 26, Issue 294 Archive-Name: ltroff/part01 #! /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 2)." # Contents: INSTALL MANIFEST Makefile README ao-math-8.R ao-ms_publ.B # ao-ms_publ.I ao-ms_publ.R ao-table ao-win_l1.B ao-win_l1.I # ao-win_l1.R c-table cat.h catsup.3 co-math-8.R co-ms_publ.B # co-ms_publ.I co-ms_publ.R co-table co-win_l1.B co-win_l1.I # co-win_l1.R common.H ct-math-8.R ct-ms_publ.B ct-ms_publ.I # ct-ms_publ.R ct-table ct-win_l1.B ct-win_l1.I ct-win_l1.R fixed.H # ftXX.M ga-math-8.R ga-ms_publ.B ga-ms_publ.I ga-ms_publ.R ga-table # ga-win_l1.B ga-win_l1.I ga-win_l1.R lg-table ltroff.1 math-8.M # ms_publ.M pitch10.H pitch12.H prop.H tmac u-math-8.R u-ms_publ.B # u-ms_publ.I u-ms_publ.R u-table u-win_l1.B u-win_l1.I u-win_l1.R # uc-math-8.R uc-ms_publ.B uc-ms_publ.I uc-ms_publ.R uc-table # uc-win_l1.B uc-win_l1.I uc-win_l1.R win_l1.M wingdings.M # wingdings.R # Wrapped by vixie@gw.home.vix.com on Thu Jul 15 16:33:15 1993 PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f 'INSTALL' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'INSTALL'\" else echo shar: Extracting \"'INSTALL'\" $89 characters$ sed "s/^X//" >'INSTALL' <<'END_OF_FILE' XSee the beginning of the file "Makefile" for installation instructions. X X@(#)INSTALL 4.1 END_OF_FILE if test 89 -ne `wc -c <'INSTALL'`; then echo shar: \"'INSTALL'\" unpacked with wrong size! fi # end of 'INSTALL' fi if test -f 'MANIFEST' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'MANIFEST'\" else echo shar: Extracting \"'MANIFEST'\" $2377 characters$ sed "s/^X//" >'MANIFEST' <<'END_OF_FILE' X File Name Archive # Description X----------------------------------------------------------- X INSTALL 1 X MANIFEST 1 This shipping list X Makefile 1 X README 1 X ansic.h 2 X ao-math-8.R 1 X ao-ms_publ.B 1 X ao-ms_publ.I 1 X ao-ms_publ.R 1 X ao-table 1 X ao-win_l1.B 1 X ao-win_l1.I 1 X ao-win_l1.R 1 X c-table 1 X cat.h 1 X catsup.3 1 X catsup.c 2 X co-math-8.R 1 X co-ms_publ.B 1 X co-ms_publ.I 1 X co-ms_publ.R 1 X co-table 1 X co-win_l1.B 1 X co-win_l1.I 1 X co-win_l1.R 1 X common.H 1 X ct-math-8.R 1 X ct-ms_publ.B 1 X ct-ms_publ.I 1 X ct-ms_publ.R 1 X ct-table 1 X ct-win_l1.B 1 X ct-win_l1.I 1 X ct-win_l1.R 1 X fixed.H 1 X ftXX.M 1 X ga-math-8.R 1 X ga-ms_publ.B 1 X ga-ms_publ.I 1 X ga-ms_publ.R 1 X ga-table 1 X ga-win_l1.B 1 X ga-win_l1.I 1 X ga-win_l1.R 1 X lg-table 1 X ltroff.1 1 X math-8.M 1 X ms_publ.M 1 X pitch10.H 1 X pitch12.H 1 X prop.H 1 X testfile 2 X tlc.c 2 X tmac 1 X u-math-8.R 1 X u-ms_publ.B 1 X u-ms_publ.I 1 X u-ms_publ.R 1 X u-table 1 X u-win_l1.B 1 X u-win_l1.I 1 X u-win_l1.R 1 X uc-math-8.R 1 X uc-ms_publ.B 1 X uc-ms_publ.I 1 X uc-ms_publ.R 1 X uc-table 1 X uc-win_l1.B 1 X uc-win_l1.I 1 X uc-win_l1.R 1 X win_l1.M 1 X wingdings.M 1 X wingdings.R 1 END_OF_FILE if test 2377 -ne `wc -c <'MANIFEST'`; then echo shar: \"'MANIFEST'\" unpacked with wrong size! fi # end of 'MANIFEST' fi if test -f 'Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Makefile'\" else echo shar: Extracting \"'Makefile'\" $3613 characters$ sed "s/^X//" >'Makefile' <<'END_OF_FILE' X# @(#)Makefile 4.1 X X# XXX--correct "or" character X# XXX--better width tables X X# Tune these to taste, then X# make install X# and X# ltroff your-favorite-troff-input X# If you get reasonable results, you're in business. X# You can use the file "testfile" in the ltroff source directory X# if you lack anything better to test with. X XTOPDIR= /usr/local XBINDIR= $(TOPDIR)/bin XLIBDIR= $(TOPDIR)/lib XMANDIR= $(TOPDIR)/man XDATADIR= $(LIBDIR)/lfont XDEFCART= uc # to save a tree or two X XALIASES= \ X ao antique-olive \ X c courier \ X co cg-omega \ X ct cg-times \ X ga garamond-antiqua \ X lg letter-gothic \ X u univers \ X uc univers-condensed X X# On older BSD systems, you'll get to add X# -Dstrchr=index -Dstrrchr=rindex X# to the end of the next line. X XDEFINES= -DDATADIR=\"$(DATADIR)\" X X# X# Not as likely to be tuned. . . X# X XLINTFLAGS= -hbac XCC= cc $(DEFINES) XCFLAGS= -g X X# X# End of stuff you might want to tune. X# X XCARTS= ao c co ct ga lg u uc X XLINT= lint $(DEFINES) X XBINS= ltroff tlc X XCOMMON= \ X common.H \ X fixed.H \ X ftXX.M \ X math-8.M \ X ms_publ.M \ X pitch10.H \ X pitch12.H \ X prop.H \ X tmac \ X win_l1.M \ X wingdings.M \ X wingdings.R X XUNCOMMON= \ X ao-math-8.R ao-ms_publ.B ao-ms_publ.I ao-ms_publ.R \ X ao-table ao-win_l1.B ao-win_l1.I ao-win_l1.R \ X c-table \ X co-math-8.R co-ms_publ.B co-ms_publ.I co-ms_publ.R \ X co-table co-win_l1.B co-win_l1.I co-win_l1.R \ X ct-math-8.R ct-ms_publ.B ct-ms_publ.I ct-ms_publ.R \ X ct-table ct-win_l1.B ct-win_l1.I ct-win_l1.R \ X ga-math-8.R ga-ms_publ.B ga-ms_publ.I ga-ms_publ.R \ X ga-table ga-win_l1.B ga-win_l1.I ga-win_l1.R \ X lg-table \ X u-math-8.R u-ms_publ.B u-ms_publ.I u-ms_publ.R \ X u-table u-win_l1.B u-win_l1.I u-win_l1.R \ X uc-math-8.R uc-ms_publ.B uc-ms_publ.I uc-ms_publ.R \ X uc-table uc-win_l1.B uc-win_l1.I uc-win_l1.R X XDATA= $(COMMON) $(UNCOMMON) X XMAN1= ltroff.1 XMAN3= catsup.3 XMANS= $(MAN1) $(MAN3) X XHEADERS= \ X ansic.h \ X cat.h X XSOURCES= \ X tlc.c \ X catsup.c X XOBJECTS= \ X tlc.o \ X catsup.o X XPUBLIC= \ X README \ X INSTALL \ X $(MANS) \ X testfile \ X Makefile \ X $(HEADERS) \ X $(SOURCES) \ X $(COMMON) \ X $(UNCOMMON) X Xall: $(BINS) $(DATA) $(MANS) X Xpublic: ltroff.tar.Z X Xltroff.tar.Z: $(PUBLIC) X tar cfvp - $(PUBLIC) | compress > $@ X Xinstall: all X for i in $(BINS); do install -c $$i $(BINDIR); done X -mkdir $(LIBDIR) $(DATADIR) X for i in $(COMMON) ; \ X do \ X install -c -m 444 $$i $(DATADIR) ; \ X done X -cd $(DATADIR) ; mkdir $(CARTS) X for i in $(CARTS) ; \ X do \ X echo $$i-- ; \ X dir=$(DATADIR)/$$i ; \ X for j in $$i-* ; \ X do \ X file=`expr $$j : $$i-'$.*$'` ; \ X install -c -m 444 $$j $$dir/$$file ; \ X done ; \ X tlc -w $$dir ; \ X done X set $(DEFCART) default $(ALIASES) ; \ X chdir $(DATADIR) ; \ X while [ $$# -ne 0 ] ; \ X do \ X rm -f $$2 ; \ X ln -s $$1 $$2 ; \ X shift ; \ X shift ; \ X done X -for i in $(MAN1); \ X do \ X sed 's@DATADIR@$(DATADIR)@' $$i > ,$$i ; \ X install -m 444 ,$$i $(MANDIR)/man1/$$i ; \ X rm ,$$i ; \ X done X -for i in $(MAN3); \ X do \ X sed 's@DATADIR@$(DATADIR)@' $$i > ,$$i ; \ X install -m 444 ,$$i $(MANDIR)/man3/$$i ; \ X rm ,$$i ; \ X done X Xsure: $(SOURCES) $(HEADERS) X $(LINT) $(LINTFLAGS) $(SOURCES) X Xclean: X rm -f $(BINS) *.o *.out core ,* ltroff.tar.Z X XCLEAN: clean X sccs clean X Xtlc: $(OBJECTS) X $(CC) $(CFLAGS) $(OBJECTS) -o $@ X Xltroff: ltroff.sh X rm -f $@ X sed 's@DATADIR@$(DATADIR)@;s@LIBDIR@$(LIBDIR)@' $? > $@ X chmod +x $@ X Xcatsup.o: cat.h X Xtlc.o: ansic.h cat.h X X.KEEP_STATE: END_OF_FILE if test 3613 -ne `wc -c <'Makefile'`; then echo shar: \"'Makefile'\" unpacked with wrong size! fi # end of 'Makefile' fi if test -f 'README' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'README'\" else echo shar: Extracting \"'README'\" $284 characters$ sed "s/^X//" >'README' <<'END_OF_FILE' XLtroff runs troff (1), filtering its output for use with a Hewlett-Packard XLaserJet 4 printer. The results are piped through lpr(1) to the printer. XFor further information, see the accompanying ltroff(1) manual page. X X Arthur David Olson X ado@elsie.nci.nih.gov X X@(#)README 4.1 END_OF_FILE if test 284 -ne `wc -c <'README'`; then echo shar: \"'README'\" unpacked with wrong size! fi # end of 'README' fi if test -f 'ao-math-8.R' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ao-math-8.R'\" else echo shar: Extracting \"'ao-math-8.R'\" $1010 characters$ sed "s/^X//" >'ao-math-8.R' <<'END_OF_FILE' X# @(#)ao-math-8.R 4.1 X# LaserJet 4 math-8 Antique Olive widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 1805 0 1481 2500 2546 2500 648 X 741 741 2546 2546 741 2546 741 787 X 1481 1481 1481 1481 1481 1481 1481 1481 X 1481 1481 0 0 2500 2546 2500 0 X 0 1759 1667 1389 1851 1481 1528 1851 X 1898 694 1574 1851 2222 1851 1574 1805 X 1805 1574 1481 1435 1574 2037 1574 1990 X 1851 1851 1250 1111 2500 2500 2500 1805 X 0 1389 1342 1250 1342 1157 1064 1435 X 1342 602 1250 1296 1389 1389 1064 1435 X 1435 1342 1481 1157 1342 1759 1203 1713 X 1898 0 0 0 2500 2500 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 1805 1805 1805 1805 0 0 0 X 0 0 0 0 0 0 0 0 X 1805 0 0 0 0 2500 2500 2500 X 0 0 2500 2500 0 0 2500 2500 X 0 0 0 0 0 0 0 0 X 2546 0 0 0 1805 2500 1481 1481 X 0 0 0 0 0 2500 0 0 X 2500 0 0 0 0 0 0 0 X 1805 1805 1805 1805 1805 0 0 0 X 0 0 0 1805 0 0 2500 0 X 1805 1805 1805 1805 1805 1805 1250 0 X 0 0 0 1805 0 0 2546 0 END_OF_FILE if test 1010 -ne `wc -c <'ao-math-8.R'`; then echo shar: \"'ao-math-8.R'\" unpacked with wrong size! fi # end of 'ao-math-8.R' fi if test -f 'ao-ms_publ.B' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ao-ms_publ.B'\" else echo shar: Extracting \"'ao-ms_publ.B'\" $726 characters$ sed "s/^X//" >'ao-ms_publ.B' <<'END_OF_FILE' X# @(#)ao-ms_publ.B 4.1 X# LaserJet 4 ms_publ Antique Olive Bold widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 1667 2870 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 1667 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2731 X 0 0 1898 0 1528 0 0 0 X 0 1805 0 0 0 0 0 0 X 648 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2731 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 2083 2083 2407 3148 3148 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 2083 0 X 1342 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1667 0 X 879 0 0 0 0 0 0 0 END_OF_FILE if test 726 -ne `wc -c <'ao-ms_publ.B'`; then echo shar: \"'ao-ms_publ.B'\" unpacked with wrong size! fi # end of 'ao-ms_publ.B' fi if test -f 'ao-ms_publ.I' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ao-ms_publ.I'\" else echo shar: Extracting \"'ao-ms_publ.I'\" $728 characters$ sed "s/^X//" >'ao-ms_publ.I' <<'END_OF_FILE' X# @(#)ao-ms_publ.I 4.1 X# LaserJet 4 ms_publ Antique Olive Italic widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 1481 2500 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 1481 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2453 X 0 0 1898 0 1528 0 0 0 X 0 1574 0 0 0 0 0 0 X 741 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2685 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 1620 1620 1944 2500 2500 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1759 0 X 1250 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1250 0 X 741 0 0 0 0 0 0 0 END_OF_FILE if test 728 -ne `wc -c <'ao-ms_publ.I'`; then echo shar: \"'ao-ms_publ.I'\" unpacked with wrong size! fi # end of 'ao-ms_publ.I' fi if test -f 'ao-ms_publ.R' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ao-ms_publ.R'\" else echo shar: Extracting \"'ao-ms_publ.R'\" $721 characters$ sed "s/^X//" >'ao-ms_publ.R' <<'END_OF_FILE' X# @(#)ao-ms_publ.R 4.1 X# LaserJet 4 ms_publ Antique Olive widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 1481 2546 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 1481 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2500 X 0 0 1898 0 1528 0 0 0 X 0 1574 0 0 0 0 0 0 X 648 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2777 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 1713 1713 1990 2592 2592 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1805 0 X 1296 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1435 0 X 694 0 0 0 0 0 0 0 END_OF_FILE if test 721 -ne `wc -c <'ao-ms_publ.R'`; then echo shar: \"'ao-ms_publ.R'\" unpacked with wrong size! fi # end of 'ao-ms_publ.R' fi if test -f 'ao-table' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ao-table'\" else echo shar: Extracting \"'ao-table'\" $540 characters$ sed "s/^X//" >'ao-table' <<'END_OF_FILE' X# @(#)ao-table 4.1 X# Antique Olive a la LaserJet 4 XINCLUDE prop.H XDOWNDATA \E(s4168T # Antique Olive typeface XDOWNDATA \E)s4168T # Antique Olive typeface X# Ceilings and floors are artificially emboldened to match bold vertical X# Plain emboldening gives mismatched characters on the LaserJet 4 XCHAR lc math-8 \E&a-1H\340\b\E&a+2H\340\E&a-1H # left ceiling XCHAR lf math-8 \E&a-1H\341\b\E&a+2H\341\E&a-1H # left floor XCHAR rc math-8 \E&a-1H\360\b\E&a+2H\360\E&a-1H # right ceiling XCHAR rf math-8 \E&a-1H\361\b\E&a+2H\361\E&a-1H # right floor END_OF_FILE if test 540 -ne `wc -c <'ao-table'`; then echo shar: \"'ao-table'\" unpacked with wrong size! fi # end of 'ao-table' fi if test -f 'ao-win_l1.B' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ao-win_l1.B'\" else echo shar: Extracting \"'ao-win_l1.B'\" $1183 characters$ sed "s/^X//" >'ao-win_l1.B' <<'END_OF_FILE' X# @(#)ao-win_l1.B 4.1 X# LaserJet 4 win_l1 Antique Olive Bold widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 926 1157 1667 1667 2870 2037 648 X 833 833 1667 2870 833 833 833 1018 X 1667 1667 1667 1667 1667 1667 1667 1667 X 1667 1667 833 833 2500 2870 2500 1528 X 2870 1898 1713 1620 1851 1528 1528 1759 X 1851 787 1296 1759 1389 2315 1898 1898 X 1759 1898 1713 1481 1620 1805 1805 2592 X 1805 1805 1667 833 0 833 1458 0 X 1667 1620 1805 1481 1805 1667 1296 1805 X 1805 833 833 1620 787 2639 1805 1759 X 1805 1805 1296 1389 1342 1759 1667 2500 X 1667 1667 1435 1250 2500 1250 2500 0 X 0 0 0 0 0 2870 1667 1667 X 0 0 0 0 2731 0 0 0 X 0 648 648 0 0 1805 833 2870 X 1667 1528 0 0 2731 0 0 0 X 0 0 1667 1667 0 1667 0 1667 X 0 1250 0 1481 2870 0 1250 0 X 0 2870 0 0 1667 1481 0 0 X 0 0 0 1481 2870 2870 2870 0 X 1898 1898 1898 1898 1898 1898 2870 1620 X 1528 1528 1528 1528 787 787 787 787 X 1851 1898 1898 1898 1898 1898 1898 2870 X 1898 1805 1805 1805 1805 1805 1759 0 X 1620 1620 1620 1620 1620 1620 2592 1481 X 1667 1667 1667 1667 833 833 833 833 X 0 1805 1759 1759 1759 1759 1759 2870 X 1759 1759 1759 1759 1759 1667 1805 1667 END_OF_FILE if test 1183 -ne `wc -c <'ao-win_l1.B'`; then echo shar: \"'ao-win_l1.B'\" unpacked with wrong size! fi # end of 'ao-win_l1.B' fi if test -f 'ao-win_l1.I' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ao-win_l1.I'\" else echo shar: Extracting \"'ao-win_l1.I'\" $1184 characters$ sed "s/^X//" >'ao-win_l1.I' <<'END_OF_FILE' X# @(#)ao-win_l1.I 4.1 X# LaserJet 4 win_l1 Antique Olive Italic widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 741 1111 1481 1481 2500 1667 741 X 741 741 1481 2500 741 741 741 741 X 1481 1481 1481 1481 1481 1481 1481 1481 X 1481 1481 741 741 2500 2500 2500 1342 X 2500 1713 1574 1528 1805 1481 1435 1713 X 1851 648 1157 1528 1203 2176 1851 1805 X 1574 1805 1528 1389 1389 1759 1620 2407 X 1574 1574 1528 741 0 741 1365 0 X 1481 1528 1713 1435 1713 1574 1064 1713 X 1713 648 694 1389 648 2546 1713 1667 X 1713 1713 1064 1203 1157 1713 1528 2315 X 1435 1481 1296 1111 2500 1111 2500 0 X 0 0 0 0 0 2500 1481 1481 X 0 0 0 0 2453 0 0 0 X 0 741 741 0 0 1805 741 2500 X 1481 1528 0 0 2685 0 0 0 X 0 0 1481 1481 0 1481 0 1481 X 0 1250 0 1296 2500 0 1250 0 X 0 2500 0 0 1481 1481 0 0 X 0 0 0 1296 2500 2500 2500 0 X 1713 1713 1713 1713 1713 1713 2685 1528 X 1481 1481 1481 1481 648 648 648 648 X 1805 1851 1805 1805 1805 1805 1805 2500 X 1805 1759 1759 1759 1759 1574 1574 0 X 1528 1528 1528 1528 1528 1528 2453 1435 X 1574 1574 1574 1574 648 648 648 648 X 0 1713 1667 1667 1667 1667 1667 2500 X 1667 1713 1713 1713 1713 1481 1713 1481 END_OF_FILE if test 1184 -ne `wc -c <'ao-win_l1.I'`; then echo shar: \"'ao-win_l1.I'\" unpacked with wrong size! fi # end of 'ao-win_l1.I' fi if test -f 'ao-win_l1.R' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ao-win_l1.R'\" else echo shar: Extracting \"'ao-win_l1.R'\" $1177 characters$ sed "s/^X//" >'ao-win_l1.R' <<'END_OF_FILE' X# @(#)ao-win_l1.R 4.1 X# LaserJet 4 win_l1 Antique Olive widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 787 1064 1481 1481 2546 1805 648 X 741 741 1481 2546 741 741 741 787 X 1481 1481 1481 1481 1481 1481 1481 1481 X 1481 1481 741 741 2500 2546 2500 1435 X 2546 1759 1667 1528 1759 1481 1435 1713 X 1851 694 1157 1574 1296 2222 1851 1805 X 1574 1805 1574 1342 1435 1805 1574 2453 X 1574 1574 1528 741 0 741 1365 0 X 1481 1435 1759 1389 1759 1574 1111 1667 X 1713 741 741 1435 694 2592 1713 1713 X 1759 1759 1157 1157 1157 1667 1481 2268 X 1389 1481 1296 1111 2500 1111 2500 0 X 0 0 0 0 0 2546 1481 1481 X 0 0 0 0 2500 0 0 0 X 0 648 648 0 0 1805 741 2546 X 1481 1528 0 0 2777 0 0 0 X 0 0 1481 1481 0 1481 0 1481 X 0 1250 0 1342 2546 0 1250 0 X 0 2546 0 0 1481 1389 0 0 X 0 0 0 1342 2546 2546 2546 0 X 1759 1759 1759 1759 1759 1759 2916 1528 X 1481 1481 1481 1481 694 694 694 694 X 1759 1851 1805 1805 1805 1805 1805 2546 X 1805 1805 1805 1805 1805 1574 1574 0 X 1435 1435 1435 1435 1435 1435 2500 1389 X 1574 1574 1574 1574 741 741 741 741 X 0 1713 1713 1713 1713 1713 1713 2546 X 1713 1667 1667 1667 1667 1481 1759 1481 END_OF_FILE if test 1177 -ne `wc -c <'ao-win_l1.R'`; then echo shar: \"'ao-win_l1.R'\" unpacked with wrong size! fi # end of 'ao-win_l1.R' fi if test -f 'c-table' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'c-table'\" else echo shar: Extracting \"'c-table'\" $261 characters$ sed "s/^X//" >'c-table' <<'END_OF_FILE' X# @(#)c-table 4.1 X# Courier a la LaserJet 4 XINCLUDE pitch10.H XDOWNDATA \E(s4099T # Courier typeface XDOWNDATA \E)s4099T # Courier typeface X# Darned if I know why the LaserJet has a short Courier bold vertical... XFORGET bv XCHAR bv math-8 \E)s3B\365\b\366\E)sB | END_OF_FILE if test 261 -ne `wc -c <'c-table'`; then echo shar: \"'c-table'\" unpacked with wrong size! fi # end of 'c-table' fi if test -f 'cat.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'cat.h'\" else echo shar: Extracting \"'cat.h'\" $5499 characters$ sed "s/^X//" >'cat.h' <<'END_OF_FILE' X#ifndef lint X#ifndef NOID Xstatic char cathid[] = "@(#)cat.h 4.1"; X#endif /* !defined NOID */ X#endif /* !defined lint */ X/* mask for high order 4 bits of byte */ X#define CAT_HIGH_NIBBLE 0xf0 X#define CAT_MAX_BYTE 0xff X X#define CAT_ESCAPE_CODE 0x80 X#define CAT_ESCAPE_MASK 0x7f X#define CAT_MAX_ESCAPE 0x7f X/* nonzero if escape command and zero otherwise */ X#define CAT_IS_ESCAPE(x) (((x) & (CAT_HIGH_NIBBLE << 3)) == CAT_ESCAPE_CODE) X/* magnitude of escape */ X#define CAT_ESCAPE(x) (~(x) & CAT_ESCAPE_MASK) X#define CAT_ENCODE_ESCAPE(n) (CAT_ESCAPE_CODE | (~(n) & CAT_ESCAPE_MASK)) X X#define CAT_LEAD_CODE 0x60 X#define CAT_LEAD_MASK 0x1f X#define CAT_MAX_LEAD 0x1f X/* nonzero if leading command and zero otherwise */ X#define CAT_IS_LEADING(x) (((x) & (CAT_HIGH_NIBBLE << 1)) == CAT_LEAD_CODE) X/* magnitude of leading */ X#define CAT_LEAD(x) (~(x) & CAT_MAX_LEAD) X#define CAT_ENCODE_LEAD(n) (CAT_LEAD_CODE | (~(n) & CAT_LEAD_MASK)) X X#define CAT_SIZE_CHANGE_CODE 0x50 X/* nonzero if point size change command and zero otherwise */ X#define CAT_IS_SIZE_CHANGE(x) (((x) & CAT_HIGH_NIBBLE) == CAT_SIZE_CHANGE_CODE) X X/* translates from the weird CAT point size change codes into something sane */ X#define CAT_SIZE_CHANGE(x) \ X ((x) == 0x50 ? 7 : \ X (x) == 0x51 ? 8 : \ X (x) == 0x52 ? 10 : \ X (x) == 0x53 ? 11 : \ X (x) == 0x54 ? 12 : \ X (x) == 0x55 ? 14 : \ X (x) == 0x56 ? 18 : \ X (x) == 0x57 ? 9 : \ X (x) == 0x58 ? 6 : \ X (x) == 0x59 ? 16 : \ X (x) == 0x5a ? 20 : \ X (x) == 0x5b ? 22 : \ X (x) == 0x5c ? 24 : \ X (x) == 0x5d ? 28 : \ X (x) == 0x5e ? 36 : 0) X X/* translates from sane point sizes into the weird CAT encodings */ X#define CAT_ENCODE_SIZE(x) \ X ((x) == 6 ? 0x58 : \ X (x) == 7 ? 0x50 : \ X (x) == 8 ? 0x51 : \ X (x) == 9 ? 0x57 : \ X (x) == 10 ? 0x52 : \ X (x) == 11 ? 0x53 : \ X (x) == 12 ? 0x54 : \ X (x) == 14 ? 0x55 : \ X (x) == 16 ? 0x59 : \ X (x) == 18 ? 0x56 : \ X (x) == 20 ? 0x5a : \ X (x) == 22 ? 0x5b : \ X (x) == 24 ? 0x5c : \ X (x) == 28 ? 0x5d : \ X (x) == 36 ? 0x5e : 0) X X#define CAT_FLASH_CODE 0x00 X#define CAT_FLASH_MASK 0x3f X#define CAT_MAX_FLASH 0x3f X/* nonzero if printable character and zero otherwise */ X#define CAT_IS_FLASH(x) (((x) & (CAT_HIGH_NIBBLE << 2)) == CAT_FLASH_CODE) X#define CAT_FLASH(x) ((x) & CAT_MAX_FLASH) X#define CAT_ENCODE_FLASH(n) (CAT_FLASH_CODE | ((n) & CAT_FLASH_MASK)) X X#define CAT_CONTROL_CODE 0x40 X/* nonzero if control command and zero otherwise */ X#define CAT_IS_CONTROL(x) (((x) & CAT_HIGH_NIBBLE) == CAT_CONTROL_CODE) X X/* CAT-8 control commands */ X#define CAT_INITIALIZE 0x40 X#define CAT_LOWER_RAIL 0x41 X#define CAT_UPPER_RAIL 0x42 X#define CAT_UPPER_MAGAZINE 0x43 X#define CAT_LOWER_MAGAZINE 0x44 X#define CAT_LOWER_FONT 0x45 X#define CAT_UPPER_FONT 0x46 X#define CAT_ESCAPE_FORWARD 0x47 X#define CAT_ESCAPE_BACKWARD 0x48 X#define CAT_STOP 0x49 X#define CAT_LEAD_FORWARD 0x4a X#define CAT_LEAD_BACKWARD 0x4c X#define CAT_TILT_UP 0x4e X#define CAT_TILT_DOWN 0x4f X#define CAT_NOOP 0x00 X/* trapdoor for CAT extensions */ X#define CAT_EXTENSION 0x4b X X/* CAT_BIG_LEAD means take the next byte * 64 to obtain leading */ X#define CAT_BIG_LEAD 0x01 X#define CAT_BIG_LEAD_MULTIPLIER 64 X#define CAT_MIN_BIG_LEAD (CAT_BIG_LEAD_MULTIPLIER * 0x01) X#define CAT_MAX_BIG_LEAD (CAT_BIG_LEAD_MULTIPLIER * 0xff) X X/* CAT_BIG_ESCAPE means take the next byte * 128 to obtain escape */ X#define CAT_BIG_ESCAPE 0x02 X#define CAT_BIG_ESCAPE_MULTIPLIER 128 X#define CAT_MIN_BIG_ESCAPE (CAT_BIG_ESCAPE_MULTIPLIER * 0x01) X#define CAT_MAX_BIG_ESCAPE (CAT_BIG_ESCAPE_MULTIPLIER * 0xff) X X/* X * CAT_FORMFEED means advance to next page resetting current row X * and column to <0,0>. X */ X#define CAT_FORMFEED 0x03 X X/* X * Returns nonzero if a single point size and zero otherwise. X * The parameter is the `sane' point size and NOT the weird CAT encoding. X */ X#define CAT_IS_SINGLE(p) ((6 <= (p) && (p) <= 14) || (p) == 18) X X/* X * Returns nonzero is a double point size and zero otherwise. X * The parmeter is the `sane' point size and NOT the weird CAT encoding. X */ X#define CAT_IS_DOUBLE(p) ((p) == 16 || (p) >= 20) X X/* X * Returns nonzero if the old to new point size transition is a X * single to double transition and zero otherwise. X * The parameters are the `sane' point sizes NOT the weird CAT encodings. X */ X#define CAT_IS_SINGLE_TO_DOUBLE(old, new) \ X (CAT_IS_SINGLE(old) && CAT_IS_DOUBLE(new)) X X/* X * Returns nonzero if the old to new point size transition is a X * double to single transition and zero otherwise. X * The parameters are the `sane' point sizes NOT the weird CAT encodings. X */ X#define CAT_IS_DOUBLE_TO_SINGLE(old, new) \ X (CAT_IS_DOUBLE(old) && CAT_IS_SINGLE(new)) X Xtypedef struct CAT { X char escape_where; /* BACKWARD or FORWARD */ X char lead_where; /* BACKWARD or FORWARD */ X char font; /* bit 0 => tilt, bit 1 => rail, bit 2 => magazine */ X char font_half; /* LOWER or UPPER */ X char point_size; /* current point size */ X} CAT; X X#define CAT_FORWARD 0 X#define CAT_BACKWARD 1 X#define CAT_UPPER 0 X#define CAT_LOWER 1 X X/* vertical resolution per inch */ X#define CAT_VERTICAL_UNITS 144.0 X/* horizontal resolution per inch */ X#define CAT_HORIZONTAL_UNITS 432.0 X X/* compensatory escape for single/double point size transitions */ X#define CAT_LENSE_COMPENSATION 55 X X#define CAT_TILT 01 X#define CAT_RAIL 02 X#define CAT_MAGAZINE 04 X X/* default troff and scribe font mountings for CAT-8 */ X#define CAT_ROMAN_FONT 0 X#define CAT_ITALIC_FONT 2 X#define CAT_BOLD_FONT 4 X#define CAT_SPECIAL_FONT 6 X X/* the maximum number of characters on a filmstrip */ X#define CAT_MAX_FONT_INDEX 108 END_OF_FILE if test 5499 -ne `wc -c <'cat.h'`; then echo shar: \"'cat.h'\" unpacked with wrong size! fi # end of 'cat.h' fi if test -f 'catsup.3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'catsup.3'\" else echo shar: Extracting \"'catsup.3'\" $3149 characters$ sed "s/^X//" >'catsup.3' <<'END_OF_FILE' X.LC @(#)catsup.3 4.1 X.TH CATSUP 3E \*(eH X.SH NAME Xcatsup, ntn2vfi, ntn2fti, ntnons, ntnonr, fti2ntn \- C/A/T support X.SH SYNOPSIS X.B Xcatsup(int (* infunc)(), int (* outfunc)(), dosort, skipinit) X.PP X.B Xntn2vfi((char *) name) X.PP X.B Xntn2fti((char *) name) X.PP X.B Xntnons((char *) name) X.PP X.B Xntnonr((char *) name) X.PP X.B Xchar * fti2ntn(fti) X.SH DESCRIPTION XThese functions X.EL Xaid in dealing with C/A/T phototypesetter data. X.PP X.I Catsup Xcalls the function pointed to by its X.I infunc Xargument to obtain phototypesetter codes; X.I infunc Xshould return a negative number when no more codes are available. XFor each character specified in the input, a call of the form X.br X.in +.5i X.B X(*outfunc)((char *) charname, X(long) horizontal, X(long) vertical, Xsize, X(char *) fontnick) X.in -.5i X.br Xis made, where: X.TP X.B charname Xis a pointer to an [nt]roff name for the character to be typeset. XFor long names such as X.RB `` \e(*a '', Xa pointer to the last two characters of the name is returned. X.TP X.B horizontal Xis the horizontal position at which the character should be typeset, Xin 432nds of an inch. X.TP X.B vertical Xis the vertical position at which the character should be typeset, Xin 144ths of an inch. X.TP X.B size Xis the size to be used when setting the character, Xmeasured in 72nds of an inch (``points''). X.TP X.B fontnick Xis the name of the font (as used in X.RB `` .fp '' Xrequests) to use in setting the character. X.PP X.I Outfunc Xshould return zero if all has gone well, Xor a non-zero value if something seems wild. X.PP XIf X.I dosort Xis one, X.I catsup Xsorts characters on each line by their horizontal positions X(and by point size for characters at the same horizontal position); Xif X.I dosort Xis zero, Xno sorting takes place. X.PP XIf X.I skipinit Xis one, X.I catsup Xskips its normal initialization of position, font, and font size. X.PP X.I Catsup Xreturns zero if all seems okay, Xor -1 if something seems wild X(if Xan argument is invalid, Xif X.I outfunc Xever returns a non-zero value, Xor if memory required to sort characters cannot be allocated). X.PP XThe function X.IR ntn2vfi , Xgiven a pointer to (the last two characters of) an [nt]roff name for a Xcharacer, Xreturns the vfont dispatch table index for the character. X.PP XThe function X.IR ntn2fti , Xgiven a pointer to (the last two characters of) an [nt]roff name for a Xcharacer, Xreturns the font width table index for the character. Xmaps [nt]roff names to font width table indices. XThe function X.IR ntnons , Xgiven a pointer to (the last two characters of) an [nt]roff name for a Xcharacer, Xreturns 1 if the character is part of the C/A/T Special Math font Xor zero otherwise. XThe function X.IR ntnonr , Xgiven a pointer to (the last two characters of) an [nt]roff name for a Xcharacer, Xreturns 1 if the character is part of the C/A/T regular fonts Xor zero otherwise. XThe function X.IR fti2ntn , Xgiven a font width table index, Xreturns a pointer to (the last two characters of) an [nt]roff name associated Xwith the index. XThese functions are used in constructing font width tables. X.PP XThe X.I ntn* Xfunctions return -1 if passed a NULL or unrecognizable X.IR name ; Xfti2ntn Xreturns NULL if passed a nameless index. END_OF_FILE if test 3149 -ne `wc -c <'catsup.3'`; then echo shar: \"'catsup.3'\" unpacked with wrong size! fi # end of 'catsup.3' fi if test -f 'co-math-8.R' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'co-math-8.R'\" else echo shar: Extracting \"'co-math-8.R'\" $1005 characters$ sed "s/^X//" >'co-math-8.R' <<'END_OF_FILE' X# @(#)co-math-8.R 4.1 X# LaserJet 4 math-8 CG Omega widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 1805 0 1389 2500 2222 2500 694 X 694 694 2222 2222 694 2222 694 694 X 1389 1389 1389 1389 1389 1389 1389 1389 X 1389 1389 0 0 2500 2222 2500 0 X 0 1667 1528 1389 1851 1250 1528 1944 X 1898 694 1528 1851 2222 1944 1805 2083 X 2037 1389 1528 1389 1528 2315 1528 2315 X 2037 1851 1203 1157 2500 2500 2500 1805 X 0 1435 1481 1250 1435 1250 1157 1435 X 1528 648 1250 1250 1481 1389 1203 1435 X 1528 1435 1620 1157 1481 1805 1389 1805 X 1944 0 0 0 2500 2500 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 1805 1805 1805 1805 0 0 0 X 0 0 0 0 0 0 0 0 X 1805 0 0 0 0 2500 2500 2500 X 0 0 2500 2500 0 0 2500 2500 X 0 0 0 0 0 0 0 0 X 2222 0 0 0 1805 2500 1389 1389 X 0 0 0 0 0 2500 0 0 X 2500 0 0 0 0 0 0 0 X 1805 1805 1805 1805 1805 0 0 0 X 0 0 0 1805 0 0 2500 0 X 1805 1805 1805 1805 1805 1805 1250 0 X 0 0 0 1805 0 0 2222 0 END_OF_FILE if test 1005 -ne `wc -c <'co-math-8.R'`; then echo shar: \"'co-math-8.R'\" unpacked with wrong size! fi # end of 'co-math-8.R' fi if test -f 'co-ms_publ.B' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'co-ms_publ.B'\" else echo shar: Extracting \"'co-ms_publ.B'\" $721 characters$ sed "s/^X//" >'co-ms_publ.B' <<'END_OF_FILE' X# @(#)co-ms_publ.B 4.1 X# LaserJet 4 ms_publ CG Omega Bold widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 1389 2222 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 1389 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2361 X 0 0 1898 0 1528 0 0 0 X 0 1528 0 0 0 0 0 0 X 694 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2129 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 1435 1435 1574 2176 2176 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1667 0 X 1250 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1389 0 X 694 0 0 0 0 0 0 0 END_OF_FILE if test 721 -ne `wc -c <'co-ms_publ.B'`; then echo shar: \"'co-ms_publ.B'\" unpacked with wrong size! fi # end of 'co-ms_publ.B' fi if test -f 'co-ms_publ.I' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'co-ms_publ.I'\" else echo shar: Extracting \"'co-ms_publ.I'\" $723 characters$ sed "s/^X//" >'co-ms_publ.I' <<'END_OF_FILE' X# @(#)co-ms_publ.I 4.1 X# LaserJet 4 ms_publ CG Omega Italic widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 1389 2222 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 1389 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2315 X 0 0 1898 0 1528 0 0 0 X 0 1389 0 0 0 0 0 0 X 694 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2222 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 1389 1389 1389 2083 2083 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1435 0 X 1157 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1342 0 X 694 0 0 0 0 0 0 0 END_OF_FILE if test 723 -ne `wc -c <'co-ms_publ.I'`; then echo shar: \"'co-ms_publ.I'\" unpacked with wrong size! fi # end of 'co-ms_publ.I' fi if test -f 'co-ms_publ.R' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'co-ms_publ.R'\" else echo shar: Extracting \"'co-ms_publ.R'\" $716 characters$ sed "s/^X//" >'co-ms_publ.R' <<'END_OF_FILE' X# @(#)co-ms_publ.R 4.1 X# LaserJet 4 ms_publ CG Omega widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 1389 2222 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 1389 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2315 X 0 0 1898 0 1528 0 0 0 X 0 1528 0 0 0 0 0 0 X 694 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2222 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 1342 1342 1389 2037 2037 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1389 0 X 1250 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1342 0 X 694 0 0 0 0 0 0 0 END_OF_FILE if test 716 -ne `wc -c <'co-ms_publ.R'`; then echo shar: \"'co-ms_publ.R'\" unpacked with wrong size! fi # end of 'co-ms_publ.R' fi if test -f 'co-table' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'co-table'\" else echo shar: Extracting \"'co-table'\" $525 characters$ sed "s/^X//" >'co-table' <<'END_OF_FILE' X# @(#)co-table 4.1 X# CG Omega a la LaserJet 4 XINCLUDE prop.H XDOWNDATA \E(s4113T # CG Omega typeface XDOWNDATA \E)s4113T # CG Omega typeface X# Ceilings and floors are artificially emboldened to match bold vertical X# Plain emboldening gives mismatched characters on the LaserJet 4 XCHAR lc math-8 \E&a-1H\340\b\E&a+2H\340\E&a-1H # left ceiling XCHAR lf math-8 \E&a-1H\341\b\E&a+2H\341\E&a-1H # left floor XCHAR rc math-8 \E&a-1H\360\b\E&a+2H\360\E&a-1H # right ceiling XCHAR rf math-8 \E&a-1H\361\b\E&a+2H\361\E&a-1H # right floor END_OF_FILE if test 525 -ne `wc -c <'co-table'`; then echo shar: \"'co-table'\" unpacked with wrong size! fi # end of 'co-table' fi if test -f 'co-win_l1.B' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'co-win_l1.B'\" else echo shar: Extracting \"'co-win_l1.B'\" $1172 characters$ sed "s/^X//" >'co-win_l1.B' <<'END_OF_FILE' X# @(#)co-win_l1.B 4.1 X# LaserJet 4 win_l1 CG Omega Bold widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 694 1157 1389 1389 2222 1805 694 X 694 694 1389 2222 694 694 694 694 X 1389 1389 1389 1389 1389 1389 1389 1389 X 1389 1389 694 694 2500 2222 2500 1111 X 2222 1667 1528 1667 1944 1250 1250 1944 X 1944 833 833 1574 1250 2222 1944 2083 X 1435 2083 1528 1250 1389 1944 1667 2500 X 1528 1528 1528 694 0 694 1319 0 X 1389 1250 1389 1250 1389 1250 833 1250 X 1389 694 694 1250 694 2083 1389 1389 X 1389 1389 972 972 833 1389 1250 1944 X 1250 1250 1250 1250 2500 1250 2500 0 X 0 0 0 0 0 2222 1389 1389 X 0 0 0 0 2361 0 0 0 X 0 694 694 0 0 1805 694 2222 X 1389 1528 0 0 2129 0 0 0 X 0 0 1389 1389 0 1389 0 1389 X 0 1250 0 1111 2222 0 1250 0 X 0 2222 0 0 1389 1481 0 0 X 0 0 0 1111 2222 2222 2222 0 X 1667 1667 1667 1667 1667 1667 2176 1667 X 1250 1250 1250 1250 833 833 833 833 X 1944 1944 2083 2083 2083 2083 2083 2222 X 2083 1944 1944 1944 1944 1528 1435 0 X 1250 1250 1250 1250 1250 1250 1898 1250 X 1250 1250 1250 1250 694 694 694 694 X 0 1389 1389 1389 1389 1389 1389 2222 X 1389 1389 1389 1389 1389 1250 1389 1250 END_OF_FILE if test 1172 -ne `wc -c <'co-win_l1.B'`; then echo shar: \"'co-win_l1.B'\" unpacked with wrong size! fi # end of 'co-win_l1.B' fi if test -f 'co-win_l1.I' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'co-win_l1.I'\" else echo shar: Extracting \"'co-win_l1.I'\" $1171 characters$ sed "s/^X//" >'co-win_l1.I' <<'END_OF_FILE' X# @(#)co-win_l1.I 4.1 X# LaserJet 4 win_l1 CG Omega Italic widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 694 1018 1389 1389 2222 1667 694 X 694 694 1389 2222 694 694 694 694 X 1389 1389 1389 1389 1389 1389 1389 1389 X 1389 1389 694 694 2500 2222 2500 972 X 2222 1667 1528 1667 1944 1250 1250 1851 X 1944 741 694 1528 1157 2222 1944 2083 X 1389 2083 1574 1250 1389 1944 1528 2361 X 1389 1389 1528 694 0 694 1319 0 X 1389 1250 1389 1203 1389 1250 694 1250 X 1389 694 694 1250 694 2083 1389 1389 X 1389 1389 833 972 741 1389 1250 1944 X 1111 1250 1250 1111 2500 1111 2500 0 X 0 0 0 0 0 2222 1389 1389 X 0 0 0 0 2315 0 0 0 X 0 694 694 0 0 1805 694 2222 X 1389 1528 0 0 2222 0 0 0 X 0 0 1389 1389 0 1389 0 1389 X 0 1250 0 926 2222 0 1250 0 X 0 2222 0 0 1389 1481 0 0 X 0 0 0 926 2222 2222 2222 0 X 1667 1667 1667 1667 1667 1667 1990 1667 X 1250 1250 1250 1250 741 741 741 741 X 1944 1944 2083 2083 2083 2083 2083 2222 X 2083 1944 1944 1944 1944 1389 1389 0 X 1250 1250 1250 1250 1250 1250 1944 1203 X 1250 1250 1250 1250 694 694 694 694 X 0 1389 1389 1389 1389 1389 1389 2222 X 1389 1389 1389 1389 1389 1250 1389 1250 END_OF_FILE if test 1171 -ne `wc -c <'co-win_l1.I'`; then echo shar: \"'co-win_l1.I'\" unpacked with wrong size! fi # end of 'co-win_l1.I' fi if test -f 'co-win_l1.R' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'co-win_l1.R'\" else echo shar: Extracting \"'co-win_l1.R'\" $1164 characters$ sed "s/^X//" >'co-win_l1.R' <<'END_OF_FILE' X# @(#)co-win_l1.R 4.1 X# LaserJet 4 win_l1 CG Omega widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 694 1018 1389 1389 2222 1805 694 X 694 694 1389 2222 694 694 694 694 X 1389 1389 1389 1389 1389 1389 1389 1389 X 1389 1389 694 694 2500 2222 2500 972 X 2222 1667 1528 1667 1944 1250 1250 1944 X 1944 694 694 1528 1250 2222 1944 2083 X 1389 2083 1528 1250 1389 1944 1667 2500 X 1528 1528 1528 694 0 694 1319 0 X 1389 1203 1389 1203 1389 1250 694 1250 X 1389 694 694 1250 694 2083 1389 1389 X 1389 1389 833 972 694 1389 1250 1944 X 1250 1250 1250 1111 2500 1111 2500 0 X 0 0 0 0 0 2222 1389 1389 X 0 0 0 0 2315 0 0 0 X 0 694 694 0 0 1805 694 2222 X 1389 1528 0 0 2222 0 0 0 X 0 0 1389 1389 0 1389 0 1389 X 0 1250 0 926 2222 0 1250 0 X 0 2222 0 0 1389 1481 0 0 X 0 0 0 926 2222 2222 2222 0 X 1667 1667 1667 1667 1667 1667 2037 1667 X 1250 1250 1250 1250 694 694 694 694 X 1944 1944 2083 2083 2083 2083 2083 2222 X 2083 1944 1944 1944 1944 1528 1389 0 X 1203 1203 1203 1203 1203 1203 1944 1203 X 1250 1250 1250 1250 694 694 694 694 X 0 1389 1389 1389 1389 1389 1389 2222 X 1389 1389 1389 1389 1389 1250 1389 1250 END_OF_FILE if test 1164 -ne `wc -c <'co-win_l1.R'`; then echo shar: \"'co-win_l1.R'\" unpacked with wrong size! fi # end of 'co-win_l1.R' fi if test -f 'common.H' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'common.H'\" else echo shar: Extracting \"'common.H'\" $1458 characters$ sed "s/^X//" >'common.H' <<'END_OF_FILE' X# @(#)common.H 4.1 X# XXX--Dagger should italicize; LaserJet 4 lacks a built-in italicized dagger. XWIDTHPOINTSIZE 600 XWIDTHUNITSPERINCH 300 XUNITSPERINCH 720 720 XNEWPAGE \f XMOVES \E&a%dH \E&a%dV XLEFTMARGIN 60 # Unprintable left margin XPORTRAIT \E&lO XLANDSCAPE \E&l1O XFONT I \E(s1S\E)s1S \E(sS\E)sS XFONT B \E(s3B\E)s3B \E(sB\E)sB XSIZES \E&f%dy2X XSYMBOLS win_l1 \E(19U X# For the benefit of Tim Benjamin. . . XFORGET *m XSYMBOLS math-8 \016 \017 XSYMBOLS ms_publ \E(6J # for Fi, Fl and a few others XSYMBOLS wingdings \E(579L # for bs, lh, and rh X# It is tempting to try to grab box rule from the "symbol" symbol set, X# but the characters in that set with correct horizontal position X# have incorrect vertical position. XCHAR br win_l1 \E&fy2X # box rule XCHAR ru win_l1 \E&a-.167R_\E&a+.167R _ # baseline rule X############################################################################### XDOWNDATA \EE # Reset printer. . . XENDDATA \EE # . . .and be sure to reset it when done XDOWNDATA \E&lE # Set top margin to zero XDOWNORIENT X# Three-dot-wide box rules XDOWNDATA \E*c3A X# Box rule macro XDOWNDATA \E&fyX XDOWNDATA \E&fS\E&a-.833R\E*cP\E&f1S XDOWNDATA \E&f1X X# XDOWNDATA \E(19U # Windows 3.1 Latin 1 symbol set XDOWNDATA \E(s12V # 12 point XDOWNDATA \E(sS # Upright style XDOWNDATA \E(sB # Medium stroke weight XDOWNDATA \E)8M # Math-8 symbol set XDOWNDATA \E)s12V # 12 point XDOWNDATA \E)sS # Upright style XDOWNDATA \E)sB # Medium stroke weight END_OF_FILE if test 1458 -ne `wc -c <'common.H'`; then echo shar: \"'common.H'\" unpacked with wrong size! fi # end of 'common.H' fi if test -f 'ct-math-8.R' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ct-math-8.R'\" else echo shar: Extracting \"'ct-math-8.R'\" $1004 characters$ sed "s/^X//" >'ct-math-8.R' <<'END_OF_FILE' X# @(#)ct-math-8.R 4.1 X# LaserJet 4 math-8 CG Times widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 1805 0 1250 2500 2222 2500 833 X 833 833 2222 2222 833 2222 833 833 X 1250 1250 1250 1250 1250 1250 1250 1250 X 1250 1250 0 0 2500 2222 2500 0 X 0 1805 1574 1528 1667 1574 1620 1851 X 1805 833 1759 1667 2268 1851 1667 1805 X 1805 1435 1528 1574 1805 1667 1805 1944 X 1528 1667 1250 1250 2500 2500 2500 1805 X 0 1528 1389 1389 1111 972 1111 1250 X 1111 694 1111 1389 1389 1111 1250 1111 X 1528 1250 1250 1111 1111 1528 1389 1528 X 1528 0 0 0 2500 2500 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 1805 1805 1805 1805 0 0 0 X 0 0 0 0 0 0 0 0 X 1805 0 0 0 0 2500 2500 2500 X 0 0 2500 2500 0 0 2500 2500 X 0 0 0 0 0 0 0 0 X 2222 0 0 0 1805 2500 1250 1250 X 0 0 0 0 0 2500 0 0 X 2500 0 0 0 0 0 0 0 X 1805 1805 1805 1805 1805 0 0 0 X 0 0 0 1805 0 0 2500 0 X 1805 1805 1805 1805 1805 1805 1250 0 X 0 0 0 1805 0 0 2222 0 END_OF_FILE if test 1004 -ne `wc -c <'ct-math-8.R'`; then echo shar: \"'ct-math-8.R'\" unpacked with wrong size! fi # end of 'ct-math-8.R' fi if test -f 'ct-ms_publ.B' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ct-ms_publ.B'\" else echo shar: Extracting \"'ct-ms_publ.B'\" $721 characters$ sed "s/^X//" >'ct-ms_publ.B' <<'END_OF_FILE' X# @(#)ct-ms_publ.B 4.1 X# LaserJet 4 ms_publ CG Times Bold widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 1250 2222 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 1250 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2824 X 0 0 1898 0 1528 0 0 0 X 0 1805 0 0 0 0 0 0 X 833 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 1851 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 1389 1389 1574 2083 2083 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 2268 0 X 1667 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1430 0 X 694 0 0 0 0 0 0 0 END_OF_FILE if test 721 -ne `wc -c <'ct-ms_publ.B'`; then echo shar: \"'ct-ms_publ.B'\" unpacked with wrong size! fi # end of 'ct-ms_publ.B' fi if test -f 'ct-ms_publ.I' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ct-ms_publ.I'\" else echo shar: Extracting \"'ct-ms_publ.I'\" $723 characters$ sed "s/^X//" >'ct-ms_publ.I' <<'END_OF_FILE' X# @(#)ct-ms_publ.I 4.1 X# LaserJet 4 ms_publ CG Times Italic widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 1250 2222 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 1250 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2361 X 0 0 1898 0 1528 0 0 0 X 0 1389 0 0 0 0 0 0 X 833 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 1667 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 1250 1250 1342 1898 1898 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 2036 0 X 1400 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1250 0 X 700 0 0 0 0 0 0 0 END_OF_FILE if test 723 -ne `wc -c <'ct-ms_publ.I'`; then echo shar: \"'ct-ms_publ.I'\" unpacked with wrong size! fi # end of 'ct-ms_publ.I' fi if test -f 'ct-ms_publ.R' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ct-ms_publ.R'\" else echo shar: Extracting \"'ct-ms_publ.R'\" $716 characters$ sed "s/^X//" >'ct-ms_publ.R' <<'END_OF_FILE' X# @(#)ct-ms_publ.R 4.1 X# LaserJet 4 ms_publ CG Times widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 1250 2222 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 1250 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2222 X 0 0 1898 0 1528 0 0 0 X 0 1805 0 0 0 0 0 0 X 833 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 1805 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 1389 1389 1481 2083 2083 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1826 0 X 1550 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1389 0 X 700 0 0 0 0 0 0 0 END_OF_FILE if test 716 -ne `wc -c <'ct-ms_publ.R'`; then echo shar: \"'ct-ms_publ.R'\" unpacked with wrong size! fi # end of 'ct-ms_publ.R' fi if test -f 'ct-table' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ct-table'\" else echo shar: Extracting \"'ct-table'\" $525 characters$ sed "s/^X//" >'ct-table' <<'END_OF_FILE' X# @(#)ct-table 4.1 X# CG Times a la LaserJet 4 XINCLUDE prop.H XDOWNDATA \E(s4101T # CG Times typeface XDOWNDATA \E)s4101T # CG Times typeface X# Ceilings and floors are artificially emboldened to match bold vertical X# Plain emboldening gives mismatched characters on the LaserJet 4 XCHAR lc math-8 \E&a-1H\340\b\E&a+2H\340\E&a-1H # left ceiling XCHAR lf math-8 \E&a-1H\341\b\E&a+2H\341\E&a-1H # left floor XCHAR rc math-8 \E&a-1H\360\b\E&a+2H\360\E&a-1H # right ceiling XCHAR rf math-8 \E&a-1H\361\b\E&a+2H\361\E&a-1H # right floor END_OF_FILE if test 525 -ne `wc -c <'ct-table'`; then echo shar: \"'ct-table'\" unpacked with wrong size! fi # end of 'ct-table' fi if test -f 'ct-win_l1.B' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ct-win_l1.B'\" else echo shar: Extracting \"'ct-win_l1.B'\" $1186 characters$ sed "s/^X//" >'ct-win_l1.B' <<'END_OF_FILE' X# @(#)ct-win_l1.B 4.1 X# LaserJet 4 win_l1 CG Times Bold widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 354 828 1152 1242 1242 2214 2076 828 X 828 828 1242 2214 828 828 828 828 X 1242 1242 1242 1242 1242 1242 1242 1242 X 1242 1242 828 828 2490 2214 2490 1242 X 2214 1800 1662 1800 1800 1662 1524 1938 X 1938 966 1200 1938 1662 2352 1800 1938 X 1524 1938 1800 1386 1662 1800 1800 2490 X 1800 1800 1662 828 828 828 1242 1242 X 828 1242 1386 1104 1386 1104 876 1242 X 1386 690 828 1386 690 2076 1386 1242 X 1386 1386 1104 966 828 1386 1242 1800 X 1242 1242 1104 1242 1242 1242 2490 2490 X 0 0 0 0 0 2222 1250 1250 X 0 0 0 0 2824 0 0 0 X 0 833 833 0 0 1805 833 2222 X 1250 1528 0 0 1851 0 0 0 X 0 0 1250 1250 0 1250 0 1250 X 0 1250 0 1064 2222 0 1250 0 X 0 2222 0 0 1250 1389 0 0 X 0 0 0 1064 2222 2222 2222 0 X 1805 1805 1805 1805 1805 1805 2592 1805 X 1667 1667 1667 1667 972 972 972 972 X 1805 1805 1944 1944 1944 1944 1944 2222 X 1944 1805 1805 1805 1805 1805 1500 0 X 1250 1250 1250 1250 1250 1250 1805 1111 X 1111 1111 1111 1111 694 694 694 694 X 1400 1389 1250 1250 1250 1250 1250 2222 X 1250 1389 1389 1389 1389 1250 1389 1250 END_OF_FILE if test 1186 -ne `wc -c <'ct-win_l1.B'`; then echo shar: \"'ct-win_l1.B'\" unpacked with wrong size! fi # end of 'ct-win_l1.B' fi if test -f 'ct-win_l1.I' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ct-win_l1.I'\" else echo shar: Extracting \"'ct-win_l1.I'\" $1186 characters$ sed "s/^X//" >'ct-win_l1.I' <<'END_OF_FILE' X# @(#)ct-win_l1.I 4.1 X# LaserJet 4 win_l1 CG Times Italic widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 354 828 1200 1242 1242 2214 1938 828 X 828 828 1242 2214 828 828 828 828 X 1242 1242 1242 1242 1242 1242 1242 1242 X 1242 1242 828 828 2490 2214 2490 1242 X 2214 1524 1524 1662 1800 1524 1428 1800 X 1800 828 1104 1662 1386 2076 1662 1800 X 1524 1800 1524 1242 1386 1800 1524 2076 X 1524 1386 1386 828 828 828 1242 1242 X 828 1242 1242 1104 1242 1104 690 1242 X 1242 690 690 1104 690 1800 1242 1242 X 1242 1242 966 966 690 1242 1104 1662 X 1104 1104 966 1104 1242 1104 2490 2490 X 0 0 0 0 0 2222 1250 1250 X 0 0 0 0 2361 0 0 0 X 0 833 833 0 0 1805 833 2200 X 1250 1528 0 0 1667 0 0 0 X 0 0 1250 1250 0 1250 0 1250 X 0 1250 0 1157 2200 0 1250 0 X 0 2200 0 0 1250 1389 0 0 X 0 0 0 1157 2200 2200 2200 0 X 1500 1500 1500 1500 1500 1500 2200 1667 X 1500 1500 1500 1500 833 833 833 833 X 1805 1667 1805 1805 1805 1805 1805 2200 X 1805 1805 1805 1805 1805 1389 1500 0 X 1250 1250 1250 1250 1250 1250 1667 1111 X 1111 1111 1111 1111 694 694 694 694 X 1250 1250 1250 1250 1250 1250 1250 2200 X 1250 1250 1250 1250 1250 1111 1250 1111 END_OF_FILE if test 1186 -ne `wc -c <'ct-win_l1.I'`; then echo shar: \"'ct-win_l1.I'\" unpacked with wrong size! fi # end of 'ct-win_l1.I' fi if test -f 'ct-win_l1.R' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ct-win_l1.R'\" else echo shar: Extracting \"'ct-win_l1.R'\" $1179 characters$ sed "s/^X//" >'ct-win_l1.R' <<'END_OF_FILE' X# @(#)ct-win_l1.R 4.1 X# LaserJet 4 win_l1 CG Times widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 354 828 1152 1242 1242 2214 1938 828 X 828 828 1242 2214 828 828 828 828 X 1242 1242 1242 1242 1242 1242 1242 1242 X 1242 1242 828 828 2490 2214 2490 1104 X 2214 1800 1566 1704 1842 1566 1476 1800 X 1842 828 966 1752 1566 2256 1842 1800 X 1428 1800 1662 1338 1566 1842 1800 2352 X 1800 1800 1614 828 828 828 1242 1242 X 828 1104 1242 1104 1242 1104 828 1242 X 1242 690 690 1242 690 1938 1242 1242 X 1242 1242 924 966 690 1242 1242 1800 X 1242 1242 1104 1104 1242 1104 2490 2490 X 0 0 0 0 0 2222 1250 1250 X 0 0 0 0 2222 0 0 0 X 0 833 833 0 0 1805 833 2222 X 1250 1528 0 0 1805 0 0 0 X 0 0 1250 1250 0 1250 0 1250 X 0 1250 0 1018 2222 0 1250 0 X 0 2222 0 0 1250 1389 0 0 X 0 0 0 1018 2222 2222 2222 0 X 1805 1805 1805 1805 1805 1805 2222 1713 X 1574 1574 1574 1574 833 833 833 833 X 1851 1851 1805 1805 1805 1805 1805 2222 X 1805 1851 1851 1851 1851 1805 1435 0 X 1111 1111 1111 1111 1111 1111 1667 1111 X 1111 1111 1111 1111 694 694 694 694 X 1250 1250 1250 1250 1250 1250 1250 2222 X 1250 1250 1250 1250 1250 1250 1250 1250 END_OF_FILE if test 1179 -ne `wc -c <'ct-win_l1.R'`; then echo shar: \"'ct-win_l1.R'\" unpacked with wrong size! fi # end of 'ct-win_l1.R' fi if test -f 'fixed.H' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'fixed.H'\" else echo shar: Extracting \"'fixed.H'\" $712 characters$ sed "s/^X//" >'fixed.H' <<'END_OF_FILE' X# @(#)fixed.H 4.1 XINCLUDE common.H XDOWNDATA \E(sP # Fixed width XDOWNDATA \E)sP # Fixed width X# LaserJet 4 fixed width fonts have non-bold brackets and builders; X# we want bold to match traditional troff XCHAR bv math-8 \E)s3B\365\E)sB # bold vertical XCHAR lb math-8 \E)s3B\344\E)sB # left bottom XCHAR lc math-8 \E)s3B\340\E)sB # left ceiling XCHAR lf math-8 \E)s3B\341\E)sB # left floor XCHAR lk math-8 \E)s3B\343\E)sB # left kurly middle XCHAR lt math-8 \E)s3B\342\E)sB # left top XCHAR rb math-8 \E)s3B\364\E)sB # right bottom XCHAR rc math-8 \E)s3B\360\E)sB # right ceiling XCHAR rf math-8 \E)s3B\361\E)sB # right floor XCHAR rk math-8 \E)s3B\363\E)sB # right kurly middle XCHAR rt math-8 \E)s3B\362\E)sB # right top END_OF_FILE if test 712 -ne `wc -c <'fixed.H'`; then echo shar: \"'fixed.H'\" unpacked with wrong size! fi # end of 'fixed.H' fi if test -f 'ftXX.M' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ftXX.M'\" else echo shar: Extracting \"'ftXX.M'\" $957 characters$ sed "s/^X//" >'ftXX.M' <<'END_OF_FILE' X# @(#)ftXX.M 4.1 X# /usr/lib/font/ftXX slot names (except for space in slot 32). X# Just for reference--no programs use this file; they call cati2n instead. X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL ! " # $ % & ' X ( ) * + , - . / X 0 1 2 3 4 5 6 7 X 8 9 : ; < = > ? X @ A B C D E F G X H I J K L M N O X P Q R S T U V W X X Y Z [ \ ] ^ _ X ` a b c d e f g X h i j k l m n o X p q r s t u v w X x y z { | } ~ \| X hy bu sq em ru 14 12 34 X \- fi fl ff Fi Fl de dg X sc fm aa ga ul sl \^ NULL X *a *b *g *d *e *z *y *h X *i *k *l *m *n *c *o *p X *r *s *t *u *f *x *q *w X *G *D *H *L *C *P *S NULL X *U *F *Q *W sr ts rn >= X <= == mi ~= ap != -> <- X ua da eq mu di +- cu ca X sb sp ib ip if pd gr no X is pt es mo pl rg co br X ct dd rh lh ** bs or ci X lt lb rt rb lk rk bv lf X rf lc rc NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL END_OF_FILE if test 957 -ne `wc -c <'ftXX.M'`; then echo shar: \"'ftXX.M'\" unpacked with wrong size! fi # end of 'ftXX.M' fi if test -f 'ga-math-8.R' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ga-math-8.R'\" else echo shar: Extracting \"'ga-math-8.R'\" $1013 characters$ sed "s/^X//" >'ga-math-8.R' <<'END_OF_FILE' X# @(#)ga-math-8.R 4.1 X# LaserJet 4 math-8 Garamond Antiqua widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 1805 0 1203 2500 2037 2500 694 X 741 741 2037 2037 648 2037 648 1203 X 1203 1203 1203 1203 1203 1203 1203 1203 X 1203 1203 0 0 2500 2037 2500 0 X 0 1898 1528 1528 1667 1574 1667 2129 X 1805 833 1805 1667 2268 2129 1667 2129 X 1805 1481 1528 1713 1805 1667 1898 1944 X 1528 1667 1250 1250 2500 2500 2500 1805 X 0 1528 1389 1389 1111 972 1111 1250 X 1111 694 1111 1389 1389 1111 1250 1111 X 1528 1250 1250 1111 1111 1528 1389 1528 X 1528 0 0 0 2500 2500 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 1805 1805 1805 1805 0 0 0 X 0 0 0 0 0 0 0 0 X 1805 0 0 0 0 2500 2500 2500 X 0 0 2500 2500 0 0 2500 2500 X 0 0 0 0 0 0 0 0 X 2037 0 0 0 1805 2500 1203 1203 X 0 0 0 0 0 2500 0 0 X 2500 0 0 0 0 0 0 0 X 1805 1805 1805 1805 1805 0 0 0 X 0 0 0 1805 0 0 2500 0 X 1805 1805 1805 1805 1805 1805 1250 0 X 0 0 0 1805 0 0 2037 0 END_OF_FILE if test 1013 -ne `wc -c <'ga-math-8.R'`; then echo shar: \"'ga-math-8.R'\" unpacked with wrong size! fi # end of 'ga-math-8.R' fi if test -f 'ga-ms_publ.B' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ga-ms_publ.B'\" else echo shar: Extracting \"'ga-ms_publ.B'\" $725 characters$ sed "s/^X//" >'ga-ms_publ.B' <<'END_OF_FILE' X# @(#)ga-ms_publ.B 4.1 X# LaserJet 4 ms_publ Garamond Halbfett widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 1250 2083 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 1250 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2685 X 0 0 1898 0 1528 0 0 0 X 0 1759 0 0 0 0 0 0 X 648 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 1990 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 1481 1481 1620 2222 2222 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1898 0 X 1528 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1435 0 X 741 0 0 0 0 0 0 0 END_OF_FILE if test 725 -ne `wc -c <'ga-ms_publ.B'`; then echo shar: \"'ga-ms_publ.B'\" unpacked with wrong size! fi # end of 'ga-ms_publ.B' fi if test -f 'ga-ms_publ.I' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ga-ms_publ.I'\" else echo shar: Extracting \"'ga-ms_publ.I'\" $723 characters$ sed "s/^X//" >'ga-ms_publ.I' <<'END_OF_FILE' X# @(#)ga-ms_publ.I 4.1 X# LaserJet 4 ms_publ Garamond Kursiv widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 1203 1944 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 1203 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2592 X 0 0 1898 0 1528 0 0 0 X 0 1667 0 0 0 0 0 0 X 602 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 1713 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 1250 1342 1296 1805 1851 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1620 0 X 1481 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1342 0 X 694 0 0 0 0 0 0 0 END_OF_FILE if test 723 -ne `wc -c <'ga-ms_publ.I'`; then echo shar: \"'ga-ms_publ.I'\" unpacked with wrong size! fi # end of 'ga-ms_publ.I' fi if test -f 'ga-ms_publ.R' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ga-ms_publ.R'\" else echo shar: Extracting \"'ga-ms_publ.R'\" $724 characters$ sed "s/^X//" >'ga-ms_publ.R' <<'END_OF_FILE' X# @(#)ga-ms_publ.R 4.1 X# LaserJet 4 ms_publ Garamond Antiqua widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 1203 2037 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 1203 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2592 X 0 0 1898 0 1528 0 0 0 X 0 1805 0 0 0 0 0 0 X 694 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 1898 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 1389 1389 1481 2083 2083 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1759 0 X 1528 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1342 0 X 694 0 0 0 0 0 0 0 END_OF_FILE if test 724 -ne `wc -c <'ga-ms_publ.R'`; then echo shar: \"'ga-ms_publ.R'\" unpacked with wrong size! fi # end of 'ga-ms_publ.R' fi if test -f 'ga-table' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ga-table'\" else echo shar: Extracting \"'ga-table'\" $549 characters$ sed "s/^X//" >'ga-table' <<'END_OF_FILE' X# @(#)ga-table 4.1 X# Garamond Antiqua a la LaserJet 4 XINCLUDE prop.H XDOWNDATA \E(s4197T # Garamond Antiqua typeface XDOWNDATA \E)s4197T # Garamond Antiqua typeface X# Ceilings and floors are artificially emboldened to match bold vertical X# Plain emboldening gives mismatched characters on the LaserJet 4 XCHAR lc math-8 \E&a-1H\340\b\E&a+2H\340\E&a-1H # left ceiling XCHAR lf math-8 \E&a-1H\341\b\E&a+2H\341\E&a-1H # left floor XCHAR rc math-8 \E&a-1H\360\b\E&a+2H\360\E&a-1H # right ceiling XCHAR rf math-8 \E&a-1H\361\b\E&a+2H\361\E&a-1H # right floor END_OF_FILE if test 549 -ne `wc -c <'ga-table'`; then echo shar: \"'ga-table'\" unpacked with wrong size! fi # end of 'ga-table' fi if test -f 'ga-win_l1.B' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ga-win_l1.B'\" else echo shar: Extracting \"'ga-win_l1.B'\" $1177 characters$ sed "s/^X//" >'ga-win_l1.B' <<'END_OF_FILE' X# @(#)ga-win_l1.B 4.1 X# LaserJet 4 win_l1 Garamond Halbfett widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 694 1018 1250 1250 2083 2129 648 X 787 787 1250 2083 694 694 694 1250 X 1250 1250 1250 1250 1250 1250 1250 1250 X 1250 1250 694 694 2500 2083 2500 972 X 2083 1898 1667 1898 2083 1574 1574 2037 X 2222 972 926 1851 1528 2361 2129 2176 X 1574 2176 1851 1342 1667 2037 1851 2500 X 1898 1759 1667 787 0 787 1250 0 X 1250 1157 1389 1064 1389 1111 879 1342 X 1481 741 694 1389 741 2176 1481 1342 X 1389 1389 1064 926 926 1481 1342 1898 X 1342 1296 1203 1250 2500 1250 2500 0 X 0 0 0 0 0 2083 1250 1250 X 0 0 0 0 2685 0 0 0 X 0 648 648 0 0 1805 694 2083 X 1250 1528 0 0 1990 0 0 0 X 0 0 1250 1250 0 1250 0 1250 X 0 1250 0 1203 2083 0 1250 0 X 0 2083 0 0 1250 1389 0 0 X 0 0 0 1203 2083 2083 2083 0 X 1898 1898 1898 1898 1898 1898 2453 1898 X 1574 1574 1574 1574 972 972 972 972 X 2083 2129 2176 2176 2176 2176 2176 2083 X 2176 2037 2037 2037 2037 1759 1574 0 X 1157 1157 1157 1157 1157 1157 1713 1064 X 1111 1111 1111 1111 741 741 741 741 X 0 1481 1342 1342 1342 1342 1342 2083 X 1342 1481 1481 1481 1481 1296 1389 1296 END_OF_FILE if test 1177 -ne `wc -c <'ga-win_l1.B'`; then echo shar: \"'ga-win_l1.B'\" unpacked with wrong size! fi # end of 'ga-win_l1.B' fi if test -f 'ga-win_l1.I' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ga-win_l1.I'\" else echo shar: Extracting \"'ga-win_l1.I'\" $1167 characters$ sed "s/^X//" >'ga-win_l1.I' <<'END_OF_FILE' X# @(#)ga-win_l1.I 4.1 X# LaserJet 4 win_l1 Garamond Kursiv widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 602 1064 1203 1203 1944 1713 694 X 602 602 1203 1944 602 602 602 1250 X 1203 1203 1203 1203 1203 1203 1203 1203 X 1203 1203 602 602 2500 1944 2500 879 X 1956 1759 1435 1759 1898 1481 1250 1944 X 1944 833 787 1713 1481 1944 1851 1990 X 1389 1990 1713 1157 1528 1898 1805 2407 X 1759 1667 1574 602 0 602 1226 0 X 1203 1157 1203 926 1250 926 694 1064 X 1203 741 602 1250 694 2037 1389 1157 X 1157 1203 972 741 787 1296 1296 1805 X 1157 1111 1064 1111 2500 1111 2500 0 X 0 0 0 0 0 1944 1203 1203 X 0 0 0 0 2592 0 0 0 X 0 602 602 0 0 1805 602 1944 X 1203 1528 0 0 1713 0 0 0 X 0 0 1203 1203 0 1203 0 1203 X 0 1250 0 1018 1944 0 1250 0 X 0 1944 0 0 1203 1389 0 0 X 0 0 0 1018 1944 1944 1944 0 X 1759 1759 1759 1759 1759 1759 2407 1759 X 1481 1481 1481 1481 833 833 833 833 X 1898 1851 1990 1990 1990 1990 1990 1944 X 1990 1898 1898 1898 1898 1667 1389 0 X 1157 1157 1157 1157 1157 1157 1574 926 X 926 926 926 926 741 741 741 741 X 0 1389 1157 1157 1157 1157 1157 1944 X 1157 1296 1296 1296 1296 1111 1157 1111 END_OF_FILE if test 1167 -ne `wc -c <'ga-win_l1.I'`; then echo shar: \"'ga-win_l1.I'\" unpacked with wrong size! fi # end of 'ga-win_l1.I' fi if test -f 'ga-win_l1.R' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ga-win_l1.R'\" else echo shar: Extracting \"'ga-win_l1.R'\" $1175 characters$ sed "s/^X//" >'ga-win_l1.R' <<'END_OF_FILE' X# @(#)ga-win_l1.R 4.1 X# LaserJet 4 win_l1 Garamond Antiqua widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 648 1064 1203 1203 2037 2083 694 X 741 741 1203 2037 648 648 648 1203 X 1203 1203 1203 1203 1203 1203 1203 1203 X 1203 1203 648 648 2500 2037 2500 926 X 2049 1898 1528 1851 1990 1574 1481 1990 X 2129 833 926 1805 1528 2268 2129 2129 X 1481 2129 1759 1203 1713 2037 1805 2453 X 1898 1805 1667 741 0 741 1226 0 X 1203 1064 1342 1064 1296 1064 787 1157 X 1389 694 648 1389 694 2083 1389 1342 X 1342 1296 972 879 833 1342 1250 1898 X 1250 1342 1157 1111 2500 1111 2500 0 X 0 0 0 0 0 2037 1203 1203 X 0 0 0 0 2592 0 0 0 X 0 694 694 0 0 1805 648 2037 X 1203 1528 0 0 1898 0 0 0 X 0 0 1203 1203 0 1203 0 1203 X 0 1250 0 1064 2037 0 1250 0 X 0 2037 0 0 1203 1389 0 0 X 0 0 0 1064 2037 2037 2037 0 X 1898 1898 1898 1898 1898 1898 2685 1851 X 1574 1574 1574 1574 833 833 833 833 X 1990 2129 2129 2129 2129 2129 2129 2037 X 2129 2037 2037 2037 2037 1805 1481 0 X 1064 1064 1064 1064 1064 1064 1620 1064 X 1064 1064 1064 1064 694 694 694 694 X 0 1389 1342 1342 1342 1342 1342 2037 X 1342 1342 1342 1342 1342 1342 1342 1342 END_OF_FILE if test 1175 -ne `wc -c <'ga-win_l1.R'`; then echo shar: \"'ga-win_l1.R'\" unpacked with wrong size! fi # end of 'ga-win_l1.R' fi if test -f 'lg-table' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'lg-table'\" else echo shar: Extracting \"'lg-table'\" $158 characters$ sed "s/^X//" >'lg-table' <<'END_OF_FILE' X# @(#)lg-table 4.1 X# Letter Gothic a la LaserJet 4 XINCLUDE pitch12.H XDOWNDATA \E(s4102T # Letter Gothic typeface XDOWNDATA \E)s4102T # Letter Gothic typeface END_OF_FILE if test 158 -ne `wc -c <'lg-table'`; then echo shar: \"'lg-table'\" unpacked with wrong size! fi # end of 'lg-table' fi if test -f 'ltroff.1' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ltroff.1'\" else echo shar: Extracting \"'ltroff.1'\" $1044 characters$ sed "s/^X//" >'ltroff.1' <<'END_OF_FILE' X.LC @(#)ltroff.1 4.1 X.TH LTROFF 1E \*(eH X.SH NAME Xltroff \- LaserJet troff X.SH SYNOPSIS X.B ltroff X[ X.B \-c Xcartridge ] [ troff option ... ] [ file ... ] X.= ltroff X.SH DESCRIPTION X.I Ltroff Xruns X.IR troff (1), Xfiltering its output for use with a Hewlett-Packard LaserJet 4 printer. XThe results are piped through X.IR lpr (1) Xto the printer. X.PP XIn addition to the usual X.I troff Xoptions, this option is available: X.TP X.BI "\-c " cartridge XMake use of the fonts in the named X.IR ``cartridge .'' XSupported values for X.I cartridge Xare: X.in +.5i X.nf Xao or antique-olive Xc or courier Xcg or cg-times Xga or garamond-antiqua Xlg or letter-gothic Xo or omega Xu or univers Xuc or univers-condensed (the tree-saving default) X.fi X.in -.5i X(``Arial'' and ``Times New'' lack math characters and so are not supported.) X.SH FILES X.ta \w'DATADIR/default\0\0'u XDATADIR Directory for tables, fonts, and macros X.br XDATADIR/default Tables and macros used by default X.br Xtlc Troff-LaserJet Converter X.SH SEE ALSO Xlpr(1), Xtroff(1) X.SH BUGS XCharacter widths are not exact. END_OF_FILE if test 1044 -ne `wc -c <'ltroff.1'`; then echo shar: \"'ltroff.1'\" unpacked with wrong size! fi # end of 'ltroff.1' fi if test -f 'math-8.M' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'math-8.M'\" else echo shar: Extracting \"'math-8.M'\" $1201 characters$ sed "s/^X//" >'math-8.M' <<'END_OF_FILE' X# @(#)math-8.M 4.1 X# [nt]roff names of characters in HP Math-8 symbol set X# The "or" below is not right, but I haven't yet found anything better. X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL sr NULL de if di pt fm X ( ) mu pl , mi . / X 0 1 2 3 4 5 6 7 X 8 9 NULL NULL < eq > NULL X NULL *A *B *G *D *E *Z *Y X *H *I *K *L *M *N *C *O X *P *R *S *T *U *F *X *Q X *W gr pd ts <= != >= _ X NULL *a *b *g *d *e *z *y X *h *i *k *l *m *n *c *o X *p *r *s *t *u *f *x *q X *w NULL NULL NULL ~= == NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL ua -> da <- NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X rn NULL NULL NULL NULL cu ca mo X NULL NULL sb sp NULL NULL ib ip X NULL NULL NULL NULL NULL NULL NULL NULL X no NULL NULL NULL bu ci dg dd X NULL NULL NULL NULL NULL is NULL NULL X es NULL NULL NULL NULL NULL NULL NULL X lc lf lt lk lb NULL NULL NULL X NULL NULL NULL sl NULL NULL ** NULL X rc rf rt rk rb bv or NULL X NULL NULL NULL \ NULL NULL +- NULL END_OF_FILE if test 1201 -ne `wc -c <'math-8.M'`; then echo shar: \"'math-8.M'\" unpacked with wrong size! fi # end of 'math-8.M' fi if test -f 'ms_publ.M' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ms_publ.M'\" else echo shar: Extracting \"'ms_publ.M'\" $1520 characters$ sed "s/^X//" >'ms_publ.M' <<'END_OF_FILE' X# @(#)ms_publ.M 4.1 X# [nt]roff names of characters in Microsoft Publishing symbol set X# The only LaserJet 4 built-in symbol set tnat has Fi and Fl X# The "em" below is pure guesswork X# This list only includes rare [nt]roff characters and overstrikes X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL dg em NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL dd NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL OE X NULL NULL Rx NULL TM NULL NULL NULL X NULL "Y NULL NULL NULL NULL NULL NULL X ` NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL oe X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL ap NULL NULL NULL X NULL fi fl ff Fi Fl NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL sq NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL IJ NULL X /L NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL ij NULL X /l NULL NULL NULL NULL NULL NULL NULL END_OF_FILE if test 1520 -ne `wc -c <'ms_publ.M'`; then echo shar: \"'ms_publ.M'\" unpacked with wrong size! fi # end of 'ms_publ.M' fi if test -f 'pitch10.H' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pitch10.H'\" else echo shar: Extracting \"'pitch10.H'\" $1704 characters$ sed "s/^X//" >'pitch10.H' <<'END_OF_FILE' X# @(#)pitch10.H 4.1 XCPI 10 XINCLUDE fixed.H X# Switch to 6 point macro XDOWNDATA \E&f6yX XDOWNDATA \E(s6v20H\E)s6v20H\E*c60V\E&l4C XDOWNDATA \E&f1X X# Switch to 7 point macro XDOWNDATA \E&f7yX XDOWNDATA \E(s7v17.142H\E)s7v17.142H\E*c70V\E&l4.6667C XDOWNDATA \E&f1X X# Switch to 8 point macro XDOWNDATA \E&f8yX XDOWNDATA \E(s8v15H\E)s8v15H\E*c80V\E&l5.3333C XDOWNDATA \E&f1X X# Switch to 9 point macro XDOWNDATA \E&f9yX XDOWNDATA \E(s9v13.333H\E)s9v13.333H\E*c90V\E&l6C XDOWNDATA \E&f1X X# Switch to 10 point macro XDOWNDATA \E&f10yX XDOWNDATA \E(s10v12H\E)s10v12H\E*c100V\E&l6.6667C XDOWNDATA \E&f1X X# Switch to 11 point macro XDOWNDATA \E&f11yX XDOWNDATA \E(s11v10.909H\E)s11v10.909H\E*c110V\E&l7.3333C XDOWNDATA \E&f1X X# Switch to 12 point macro XDOWNDATA \E&f12yX XDOWNDATA \E(s12v10H\E)s12v10H\E*c120V\E&l8C XDOWNDATA \E&f1X X# Switch to 14 point macro XDOWNDATA \E&f14yX XDOWNDATA \E(s14v8.571H\E)s14v8.571H\E*c140V\E&l9.3333C XDOWNDATA \E&f1X X# Switch to 16 point macro XDOWNDATA \E&f16yX XDOWNDATA \E(s16v7.5H\E)s16v7.5H\E*c160V\E&l10.6667C XDOWNDATA \E&f1X X# Switch to 18 point macro XDOWNDATA \E&f18yX XDOWNDATA \E(s18v6.666H\E)s18v6.666H\E*c180V\E&l12C XDOWNDATA \E&f1X X# Switch to 20 point macro XDOWNDATA \E&f20yX XDOWNDATA \E(s20v6H\E)s20v6H\E*c200V\E&l13.3333C XDOWNDATA \E&f1X X# Switch to 22 point macro XDOWNDATA \E&f22yX XDOWNDATA \E(s22v5.454H\E)s22v5.454H\E*c220V\E&l14.6667C XDOWNDATA \E&f1X X# Switch to 24 point macro XDOWNDATA \E&f24yX XDOWNDATA \E(s24v5H\E)s24v5H\E*c240V\E&l16C XDOWNDATA \E&f1X X# Switch to 28 point macro XDOWNDATA \E&f28yX XDOWNDATA \E(s28v4.285H\E)s28v4.285H\E*c280V\E&l18.6667C XDOWNDATA \E&f1X X# Switch to 36 point macro XDOWNDATA \E&f36yX XDOWNDATA \E(s36v3.333H\E)s36v3.333H\E*c360V\E&l24C XDOWNDATA \E&f1X END_OF_FILE if test 1704 -ne `wc -c <'pitch10.H'`; then echo shar: \"'pitch10.H'\" unpacked with wrong size! fi # end of 'pitch10.H' fi if test -f 'pitch12.H' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pitch12.H'\" else echo shar: Extracting \"'pitch12.H'\" $1684 characters$ sed "s/^X//" >'pitch12.H' <<'END_OF_FILE' X# @(#)pitch12.H 4.1 XCPI 12 XINCLUDE fixed.H X# Switch to 6 point macro XDOWNDATA \E&f6yX XDOWNDATA \E(s6v24H\E)s6v24H\E*c60V\E&l4C XDOWNDATA \E&f1X X# Switch to 7 point macro XDOWNDATA \E&f7yX XDOWNDATA \E(s7v20.571H\E)s7v20.571H\E*c70V\E&l4.6667C XDOWNDATA \E&f1X X# Switch to 8 point macro XDOWNDATA \E&f8yX XDOWNDATA \E(s8v18H\E)s8v18H\E*c80V\E&l5.3333C XDOWNDATA \E&f1X X# Switch to 9 point macro XDOWNDATA \E&f9yX XDOWNDATA \E(s9v16H\E)s9v16H\E*c90V\E&l6C XDOWNDATA \E&f1X X# Switch to 10 point macro XDOWNDATA \E&f10yX XDOWNDATA \E(s10v14.4H\E)s10v14.4H\E*c100V\E&l6.6667C XDOWNDATA \E&f1X X# Switch to 11 point macro XDOWNDATA \E&f11yX XDOWNDATA \E(s11v13.09H\E)s11v13.09H\E*c110V\E&l7.3333C XDOWNDATA \E&f1X X# Switch to 12 point macro XDOWNDATA \E&f12yX XDOWNDATA \E(s12v12H\E)s12v12H\E*c120V\E&l8C XDOWNDATA \E&f1X X# Switch to 14 point macro XDOWNDATA \E&f14yX XDOWNDATA \E(s14v10.285H\E)s14v10.285H\E*c140V\E&l9.3333C XDOWNDATA \E&f1X X# Switch to 16 point macro XDOWNDATA \E&f16yX XDOWNDATA \E(s16v9H\E)s16v9H\E*c160V\E&l10.6667C XDOWNDATA \E&f1X X# Switch to 18 point macro XDOWNDATA \E&f18yX XDOWNDATA \E(s18v8H\E)s18v8H\E*c180V\E&l12C XDOWNDATA \E&f1X X# Switch to 20 point macro XDOWNDATA \E&f20yX XDOWNDATA \E(s20v7.2H\E)s20v7.2H\E*c200V\E&l13.3333C XDOWNDATA \E&f1X X# Switch to 22 point macro XDOWNDATA \E&f22yX XDOWNDATA \E(s22v6.545H\E)s22v6.545H\E*c220V\E&l14.6667C XDOWNDATA \E&f1X X# Switch to 24 point macro XDOWNDATA \E&f24yX XDOWNDATA \E(s24v6H\E)s24v6H\E*c240V\E&l16C XDOWNDATA \E&f1X X# Switch to 28 point macro XDOWNDATA \E&f28yX XDOWNDATA \E(s28v5.142H\E)s28v5.142H\E*c280V\E&l18.6667C XDOWNDATA \E&f1X X# Switch to 36 point macro XDOWNDATA \E&f36yX XDOWNDATA \E(s36v4H\E)s36v4H\E*c360V\E&l24C XDOWNDATA \E&f1X END_OF_FILE if test 1684 -ne `wc -c <'pitch12.H'`; then echo shar: \"'pitch12.H'\" unpacked with wrong size! fi # end of 'pitch12.H' fi if test -f 'prop.H' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'prop.H'\" else echo shar: Extracting \"'prop.H'\" $1632 characters$ sed "s/^X//" >'prop.H' <<'END_OF_FILE' X# @(#)prop.H 4.1 XINCLUDE common.H XDOWNDATA \E(s1P # Proportionally spaced XDOWNDATA \E)s1P # Proportionally spaced X# Switch to 6 point macro XDOWNDATA \E&f6yX XDOWNDATA \E(s6V\E)s6V\E*c60V\E&l4C XDOWNDATA \E&f1X X# Switch to 7 point macro XDOWNDATA \E&f7yX XDOWNDATA \E(s7V\E)s7V\E*c70V\E&l4.6667C XDOWNDATA \E&f1X X# Switch to 8 point macro XDOWNDATA \E&f8yX XDOWNDATA \E(s8V\E)s8V\E*c80V\E&l5.3333C XDOWNDATA \E&f1X X# Switch to 9 point macro XDOWNDATA \E&f9yX XDOWNDATA \E(s9V\E)s9V\E*c90V\E&l6C XDOWNDATA \E&f1X X# Switch to 10 point macro XDOWNDATA \E&f10yX XDOWNDATA \E(s10V\E)s10V\E*c100V\E&l6.6667C XDOWNDATA \E&f1X X# Switch to 11 point macro XDOWNDATA \E&f11yX XDOWNDATA \E(s11V\E)s11V\E*c110V\E&l7.3333C XDOWNDATA \E&f1X X# Switch to 12 point macro XDOWNDATA \E&f12yX XDOWNDATA \E(s12V\E)s12V\E*c120V\E&l8C XDOWNDATA \E&f1X X# Switch to 14 point macro XDOWNDATA \E&f14yX XDOWNDATA \E(s14V\E)s14V\E*c140V\E&l9.3333C XDOWNDATA \E&f1X X# Switch to 16 point macro XDOWNDATA \E&f16yX XDOWNDATA \E(s16V\E)s16V\E*c160V\E&l10.6667C XDOWNDATA \E&f1X X# Switch to 18 point macro XDOWNDATA \E&f18yX XDOWNDATA \E(s18V\E)s18V\E*c180V\E&l12C XDOWNDATA \E&f1X X# Switch to 20 point macro XDOWNDATA \E&f20yX XDOWNDATA \E(s20V\E)s20V\E*c200V\E&l13.3333C XDOWNDATA \E&f1X X# Switch to 22 point macro XDOWNDATA \E&f22yX XDOWNDATA \E(s22V\E)s22V\E*c220V\E&l14.6667C XDOWNDATA \E&f1X X# Switch to 24 point macro XDOWNDATA \E&f24yX XDOWNDATA \E(s24V\E)s24V\E*c240V\E&l16C XDOWNDATA \E&f1X X# Switch to 28 point macro XDOWNDATA \E&f28yX XDOWNDATA \E(s28V\E)s28V\E*c280V\E&l18.6667C XDOWNDATA \E&f1X X# Switch to 36 point macro XDOWNDATA \E&f36yX XDOWNDATA \E(s36V\E)s36V\E*c360V\E&l24C XDOWNDATA \E&f1X END_OF_FILE if test 1632 -ne `wc -c <'prop.H'`; then echo shar: \"'prop.H'\" unpacked with wrong size! fi # end of 'prop.H' fi if test -f 'tmac' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'tmac'\" else echo shar: Extracting \"'tmac'\" $49 characters$ sed "s/^X//" >'tmac' <<'END_OF_FILE' X'\" @(#)tmac 4.1 X'fp 1 R X'fp 2 I X'fp 3 B X'fp 4 S END_OF_FILE if test 49 -ne `wc -c <'tmac'`; then echo shar: \"'tmac'\" unpacked with wrong size! fi # end of 'tmac' fi if test -f 'u-math-8.R' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'u-math-8.R'\" else echo shar: Extracting \"'u-math-8.R'\" $1003 characters$ sed "s/^X//" >'u-math-8.R' <<'END_OF_FILE' X# @(#)u-math-8.R 4.1 X# LaserJet 4 math-8 Univers widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 1805 0 1550 2500 2500 2500 833 X 833 833 2500 2500 833 2500 833 833 X 1550 1550 1550 1550 1550 1550 1550 1550 X 1550 1550 0 0 2500 2500 2500 0 X 0 1851 1574 1389 1851 1435 1528 1805 X 1898 694 1667 1851 2268 1805 1574 1898 X 1805 1481 1481 1574 1713 2037 1805 1990 X 1851 1851 1250 1111 2500 2500 2500 1805 X 0 1389 1342 1250 1342 1157 1064 1435 X 1342 602 1250 1296 1389 1389 1064 1435 X 1435 1342 1481 1157 1342 1759 1203 1713 X 1898 0 0 0 2500 2500 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 1805 1805 1805 1805 0 0 0 X 0 0 0 0 0 0 0 0 X 1805 0 0 0 0 2500 2500 2500 X 0 0 2500 2500 0 0 2500 2500 X 0 0 0 0 0 0 0 0 X 2500 0 0 0 1805 2500 1574 1574 X 0 0 0 0 0 2500 0 0 X 2500 0 0 0 0 0 0 0 X 1805 1805 1805 1805 1805 0 0 0 X 0 0 0 1805 0 0 2500 0 X 1805 1805 1805 1805 1805 1805 1250 0 X 0 0 0 1805 0 0 2500 0 END_OF_FILE if test 1003 -ne `wc -c <'u-math-8.R'`; then echo shar: \"'u-math-8.R'\" unpacked with wrong size! fi # end of 'u-math-8.R' fi if test -f 'u-ms_publ.B' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'u-ms_publ.B'\" else echo shar: Extracting \"'u-ms_publ.B'\" $719 characters$ sed "s/^X//" >'u-ms_publ.B' <<'END_OF_FILE' X# @(#)u-ms_publ.B 4.1 X# LaserJet 4 ms_publ Univers Bold widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 1574 2500 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 1574 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2500 X 0 0 1898 0 1530 0 0 0 X 0 1713 0 0 0 0 0 0 X 833 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2268 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 1528 1528 1713 2315 2315 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 2083 0 X 1350 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1203 0 X 700 0 0 0 0 0 0 0 END_OF_FILE if test 719 -ne `wc -c <'u-ms_publ.B'`; then echo shar: \"'u-ms_publ.B'\" unpacked with wrong size! fi # end of 'u-ms_publ.B' fi if test -f 'u-ms_publ.I' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'u-ms_publ.I'\" else echo shar: Extracting \"'u-ms_publ.I'\" $721 characters$ sed "s/^X//" >'u-ms_publ.I' <<'END_OF_FILE' X# @(#)u-ms_publ.I 4.1 X# LaserJet 4 ms_publ Univers Italic widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 1574 2500 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 1574 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2500 X 0 0 1898 0 1530 0 0 0 X 0 1713 0 0 0 0 0 0 X 833 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2268 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 1528 1528 1713 2315 2315 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1990 0 X 1350 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1203 0 X 600 0 0 0 0 0 0 0 END_OF_FILE if test 721 -ne `wc -c <'u-ms_publ.I'`; then echo shar: \"'u-ms_publ.I'\" unpacked with wrong size! fi # end of 'u-ms_publ.I' fi if test -f 'u-ms_publ.R' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'u-ms_publ.R'\" else echo shar: Extracting \"'u-ms_publ.R'\" $714 characters$ sed "s/^X//" >'u-ms_publ.R' <<'END_OF_FILE' X# @(#)u-ms_publ.R 4.1 X# LaserJet 4 ms_publ Univers widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 1574 2500 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 1574 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2500 X 0 0 1898 0 1530 0 0 0 X 0 1713 0 0 0 0 0 0 X 833 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 2268 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 1528 1528 1713 2315 2315 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 2026 0 X 1350 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1203 0 X 600 0 0 0 0 0 0 0 END_OF_FILE if test 714 -ne `wc -c <'u-ms_publ.R'`; then echo shar: \"'u-ms_publ.R'\" unpacked with wrong size! fi # end of 'u-ms_publ.R' fi if test -f 'u-table' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'u-table'\" else echo shar: Extracting \"'u-table'\" $521 characters$ sed "s/^X//" >'u-table' <<'END_OF_FILE' X# @(#)u-table 4.1 X# Univers a la LaserJet 4 XINCLUDE prop.H XDOWNDATA \E(s4148T # Univers typeface XDOWNDATA \E)s4148T # Univers typeface X# Ceilings and floors are artificially emboldened to match bold vertical X# Plain emboldening gives mismatched characters on the LaserJet 4 XCHAR lc math-8 \E&a-1H\340\b\E&a+2H\340\E&a-1H # left ceiling XCHAR lf math-8 \E&a-1H\341\b\E&a+2H\341\E&a-1H # left floor XCHAR rc math-8 \E&a-1H\360\b\E&a+2H\360\E&a-1H # right ceiling XCHAR rf math-8 \E&a-1H\361\b\E&a+2H\361\E&a-1H # right floor END_OF_FILE if test 521 -ne `wc -c <'u-table'`; then echo shar: \"'u-table'\" unpacked with wrong size! fi # end of 'u-table' fi if test -f 'u-win_l1.B' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'u-win_l1.B'\" else echo shar: Extracting \"'u-win_l1.B'\" $1183 characters$ sed "s/^X//" >'u-win_l1.B' <<'END_OF_FILE' X# @(#)u-win_l1.B 4.1 X# LaserJet 4 win_l1 Univers Bold widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 60 828 1290 1566 1566 2490 1890 828 X 828 828 1566 2490 828 828 828 828 X 1566 1566 1566 1566 1566 1566 1566 1566 X 1566 1566 828 828 2490 2490 2490 1290 X 2490 1842 1566 1752 1800 1428 1386 1842 X 1800 690 1386 1662 1338 2256 1800 1890 X 1476 1938 1614 1614 1566 1800 1800 2490 X 1800 1704 1524 828 828 828 1242 1242 X 828 1338 1428 1338 1428 1338 924 1428 X 1428 600 600 1338 600 2166 1428 1428 X 1428 1428 876 1242 924 1428 1386 2166 X 1386 1386 1200 1242 1242 1242 2490 2490 X 0 0 0 0 0 2500 1574 1574 X 0 0 0 0 2500 0 0 0 X 0 833 833 0 0 1805 833 2500 X 1550 1530 0 0 2268 0 0 0 X 0 0 1550 1550 0 1550 0 1550 X 0 1250 0 1389 2500 0 1250 0 X 0 2500 0 0 1550 1481 0 0 X 0 0 0 1389 2500 2500 2500 0 X 1851 1851 1851 1851 1851 1851 2453 1759 X 1435 1435 1435 1435 694 694 694 694 X 1805 1805 1898 1898 1898 1898 1898 2500 X 1898 1805 1805 1805 1805 1713 1481 0 X 1342 1342 1342 1342 1342 1342 2100 1342 X 1342 1342 1342 1342 602 602 602 602 X 1450 1435 1435 1435 1435 1435 1435 2500 X 1435 1435 1435 1435 1435 1389 1435 1389 END_OF_FILE if test 1183 -ne `wc -c <'u-win_l1.B'`; then echo shar: \"'u-win_l1.B'\" unpacked with wrong size! fi # end of 'u-win_l1.B' fi if test -f 'u-win_l1.I' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'u-win_l1.I'\" else echo shar: Extracting \"'u-win_l1.I'\" $1185 characters$ sed "s/^X//" >'u-win_l1.I' <<'END_OF_FILE' X# @(#)u-win_l1.I 4.1 X# LaserJet 4 win_l1 Univers Italic widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 60 828 1242 1566 1566 2490 1890 828 X 828 828 1566 2490 828 828 828 828 X 1566 1566 1566 1566 1566 1566 1566 1566 X 1566 1566 828 828 2490 2490 2490 1290 X 2490 1842 1566 1752 1800 1428 1386 1842 X 1800 690 1386 1662 1338 2256 1800 1890 X 1476 1938 1614 1614 1566 1800 1800 2490 X 1800 1704 1524 828 828 828 1242 1242 X 828 1338 1428 1338 1428 1338 924 1428 X 1428 600 600 1338 600 2166 1428 1428 X 1428 1428 876 1242 924 1428 1386 2166 X 1386 1386 1200 1104 1242 1104 2490 2490 X 0 0 0 0 0 2500 1574 1574 X 0 0 0 0 2500 0 0 0 X 0 833 833 0 0 1805 833 2500 X 1550 1530 0 0 2268 0 0 0 X 0 0 1550 1550 0 1550 0 1550 X 0 1250 0 1389 2500 0 1250 0 X 0 2500 0 0 1550 1389 0 0 X 0 0 0 1389 2500 2500 2500 0 X 1851 1851 1851 1851 1851 1851 2453 1759 X 1435 1435 1435 1435 694 694 694 694 X 1805 1805 1898 1898 1898 1898 1898 2500 X 1898 1805 1805 1805 1805 1713 1481 0 X 1342 1342 1342 1342 1342 1342 2100 1342 X 1342 1342 1342 1342 602 602 602 602 X 1450 1435 1435 1435 1435 1435 1435 2500 X 1435 1435 1435 1435 1435 1389 1435 1389 END_OF_FILE if test 1185 -ne `wc -c <'u-win_l1.I'`; then echo shar: \"'u-win_l1.I'\" unpacked with wrong size! fi # end of 'u-win_l1.I' fi if test -f 'u-win_l1.R' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'u-win_l1.R'\" else echo shar: Extracting \"'u-win_l1.R'\" $1178 characters$ sed "s/^X//" >'u-win_l1.R' <<'END_OF_FILE' X# @(#)u-win_l1.R 4.1 X# LaserJet 4 win_l1 Univers widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 60 828 1242 1566 1566 2490 1890 828 X 828 828 1566 2490 828 828 828 828 X 1566 1566 1566 1566 1566 1566 1566 1566 X 1566 1566 828 828 2490 2490 2490 1290 X 2490 1842 1566 1752 1800 1428 1386 1842 X 1800 690 1386 1662 1338 2256 1800 1890 X 1476 1938 1614 1614 1566 1800 1800 2490 X 1800 1704 1524 828 828 828 1242 1242 X 828 1338 1428 1338 1428 1338 924 1428 X 1428 600 600 1338 600 2166 1428 1428 X 1428 1428 876 1242 924 1428 1386 2166 X 1386 1386 1200 1104 1242 1104 2490 2490 X 0 0 0 0 0 2500 1574 1574 X 0 0 0 0 2500 0 0 0 X 0 833 833 0 0 1805 833 2500 X 1550 1530 0 0 2268 0 0 0 X 0 0 1550 1550 0 1550 0 1550 X 0 1250 0 1389 2500 0 1250 0 X 0 2500 0 0 1550 1389 0 0 X 0 0 0 1389 2500 2500 2500 0 X 1851 1851 1851 1851 1851 1851 2453 1759 X 1435 1435 1435 1435 694 694 694 694 X 1805 1805 1898 1898 1898 1898 1898 2500 X 1898 1805 1805 1805 1805 1713 1481 0 X 1342 1342 1342 1342 1342 1342 2100 1342 X 1342 1342 1342 1342 602 602 602 602 X 1450 1435 1435 1435 1435 1435 1435 2500 X 1435 1435 1435 1435 1435 1389 1435 1389 END_OF_FILE if test 1178 -ne `wc -c <'u-win_l1.R'`; then echo shar: \"'u-win_l1.R'\" unpacked with wrong size! fi # end of 'u-win_l1.R' fi if test -f 'uc-math-8.R' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'uc-math-8.R'\" else echo shar: Extracting \"'uc-math-8.R'\" $1014 characters$ sed "s/^X//" >'uc-math-8.R' <<'END_OF_FILE' X# @(#)uc-math-8.R 4.1 X# LaserJet 4 math-8 Univers Condensed widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 1805 0 1157 2500 1667 2500 556 X 556 556 1667 1667 556 1667 556 556 X 1157 1157 1157 1157 1157 1157 1157 1157 X 1157 1157 0 0 2500 1667 2500 0 X 0 1296 1250 1389 1851 1064 1157 1296 X 1898 556 1250 1851 1713 1342 1574 1296 X 1805 1157 1481 1203 1157 2037 1296 1990 X 1851 1851 1250 1111 2500 2500 2500 1805 X 0 1389 1342 1250 1342 1157 1064 1435 X 1342 602 1250 1296 1389 1389 1064 1435 X 1435 1342 1481 1157 1342 1759 1203 1713 X 1898 0 0 0 2500 2500 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 1805 1805 1805 1805 0 0 0 X 0 0 0 0 0 0 0 0 X 1805 0 0 0 0 2500 2500 2500 X 0 0 2500 2500 0 0 2500 2500 X 0 0 0 0 0 0 0 0 X 1667 0 0 0 1805 2500 1157 1157 X 0 0 0 0 0 2500 0 0 X 2500 0 0 0 0 0 0 0 X 1805 1805 1805 1805 1805 0 0 0 X 0 0 0 1805 0 0 2500 0 X 1805 1805 1805 1805 1805 1805 1250 0 X 0 0 0 1805 0 0 1667 0 END_OF_FILE if test 1014 -ne `wc -c <'uc-math-8.R'`; then echo shar: \"'uc-math-8.R'\" unpacked with wrong size! fi # end of 'uc-math-8.R' fi if test -f 'uc-ms_publ.B' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'uc-ms_publ.B'\" else echo shar: Extracting \"'uc-ms_publ.B'\" $730 characters$ sed "s/^X//" >'uc-ms_publ.B' <<'END_OF_FILE' X# @(#)uc-ms_publ.B 4.1 X# LaserJet 4 ms_publ Univers Condensed Bold widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 1203 1667 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 1203 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 1944 X 0 0 1898 0 1528 0 0 0 X 0 1296 0 0 0 0 0 0 X 556 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 1667 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 1342 1342 1435 1990 1990 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1759 0 X 1111 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1203 0 X 648 0 0 0 0 0 0 0 END_OF_FILE if test 730 -ne `wc -c <'uc-ms_publ.B'`; then echo shar: \"'uc-ms_publ.B'\" unpacked with wrong size! fi # end of 'uc-ms_publ.B' fi if test -f 'uc-ms_publ.I' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'uc-ms_publ.I'\" else echo shar: Extracting \"'uc-ms_publ.I'\" $730 characters$ sed "s/^X//" >'uc-ms_publ.I' <<'END_OF_FILE' X# @(#)uc-ms_publ.I 4.1 X# LaserJet 4 ms_publ Univers Condensed Italic widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 1157 1667 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 1157 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 1713 X 0 0 1898 0 1528 0 0 0 X 0 1157 0 0 0 0 0 0 X 556 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 1574 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 1203 1203 1296 1759 1759 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1620 0 X 972 0 0 0 0 0 0 0 X 0 0 0 0 0 0 926 0 X 463 0 0 0 0 0 0 0 END_OF_FILE if test 730 -ne `wc -c <'uc-ms_publ.I'`; then echo shar: \"'uc-ms_publ.I'\" unpacked with wrong size! fi # end of 'uc-ms_publ.I' fi if test -f 'uc-ms_publ.R' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'uc-ms_publ.R'\" else echo shar: Extracting \"'uc-ms_publ.R'\" $723 characters$ sed "s/^X//" >'uc-ms_publ.R' <<'END_OF_FILE' X# @(#)uc-ms_publ.R 4.1 X# LaserJet 4 ms_publ Univers Condensed widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 1157 1667 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 1157 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 1713 X 0 0 1898 0 1528 0 0 0 X 0 1157 0 0 0 0 0 0 X 556 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 1574 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 1203 1203 1296 1691 1679 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 2500 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 1620 0 X 972 0 0 0 0 0 0 0 X 0 0 0 0 0 0 926 0 X 509 0 0 0 0 0 0 0 END_OF_FILE if test 723 -ne `wc -c <'uc-ms_publ.R'`; then echo shar: \"'uc-ms_publ.R'\" unpacked with wrong size! fi # end of 'uc-ms_publ.R' fi if test -f 'uc-table' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'uc-table'\" else echo shar: Extracting \"'uc-table'\" $623 characters$ sed "s/^X//" >'uc-table' <<'END_OF_FILE' X# @(#)uc-table 4.1 X# Univers Condensed a la LaserJet 4 XINCLUDE prop.H XDOWNDATA \E(s4148T # Univers typeface XDOWNDATA \E(s4S # Condensed XDOWNDATA \E)s4148T # Univers typeface XDOWNDATA \E)s4S # Condensed XFONT I \E(s5S\E)s5S \E(s4S\E)s4S X# Ceilings and floors are artificially emboldened to match bold vertical X# Plain emboldening gives mismatched characters on the LaserJet 4 XCHAR lc math-8 \E&a-1H\340\b\E&a+2H\340\E&a-1H # left ceiling XCHAR lf math-8 \E&a-1H\341\b\E&a+2H\341\E&a-1H # left floor XCHAR rc math-8 \E&a-1H\360\b\E&a+2H\360\E&a-1H # right ceiling XCHAR rf math-8 \E&a-1H\361\b\E&a+2H\361\E&a-1H # right floor END_OF_FILE if test 623 -ne `wc -c <'uc-table'`; then echo shar: \"'uc-table'\" unpacked with wrong size! fi # end of 'uc-table' fi if test -f 'uc-win_l1.B' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'uc-win_l1.B'\" else echo shar: Extracting \"'uc-win_l1.B'\" $1182 characters$ sed "s/^X//" >'uc-win_l1.B' <<'END_OF_FILE' X# @(#)uc-win_l1.B 4.1 X# LaserJet 4 win_l1 Univers Condensed Bold widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 741 1018 1203 1203 1667 1574 556 X 556 556 1203 1667 556 556 556 556 X 1203 1203 1203 1203 1203 1203 1203 1203 X 1203 1203 556 556 2500 1667 2500 1111 X 1667 1389 1342 1296 1389 1157 1111 1389 X 1389 648 1203 1342 1064 1851 1435 1389 X 1296 1435 1296 1342 1250 1389 1296 1944 X 1389 1296 1157 556 0 556 1250 0 X 1250 1111 1111 1018 1111 1064 787 1111 X 1157 602 602 1111 602 1667 1157 1111 X 1111 1111 833 1018 787 1157 1111 1759 X 1111 1111 926 1250 2500 1250 2500 0 X 0 0 0 0 0 1667 1203 1203 X 0 0 0 0 1944 0 0 0 X 0 556 556 0 0 1805 556 1667 X 1250 1528 0 0 1667 0 0 0 X 0 0 1203 1203 0 1203 0 1203 X 0 1250 0 1111 1667 0 1250 0 X 0 1667 0 0 1250 1481 0 0 X 0 0 0 1111 1667 1667 1667 0 X 1389 1389 1389 1389 1389 1389 1944 1296 X 1157 1157 1157 1157 648 648 648 648 X 1389 1435 1389 1389 1389 1389 1389 1667 X 1389 1389 1389 1389 1389 1296 1296 0 X 1111 1111 1111 1111 1111 1111 1667 1018 X 1064 1064 1064 1064 602 602 602 602 X 0 1157 1111 1111 1111 1111 1111 1667 X 1111 1157 1157 1157 1157 1111 1111 1111 END_OF_FILE if test 1182 -ne `wc -c <'uc-win_l1.B'`; then echo shar: \"'uc-win_l1.B'\" unpacked with wrong size! fi # end of 'uc-win_l1.B' fi if test -f 'uc-win_l1.I' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'uc-win_l1.I'\" else echo shar: Extracting \"'uc-win_l1.I'\" $1172 characters$ sed "s/^X//" >'uc-win_l1.I' <<'END_OF_FILE' X# @(#)uc-win_l1.I 4.1 X# LaserJet 4 win_l1 Univers Condensed Italic widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 741 926 1157 1157 1667 1528 556 X 556 556 1157 1667 556 556 556 556 X 1157 1157 1157 1157 1157 1157 1157 1157 X 1157 1157 556 556 2500 1667 2500 1064 X 1667 1296 1250 1250 1296 1064 1018 1296 X 1296 556 1064 1250 972 1713 1342 1296 X 1157 1296 1250 1203 1203 1296 1157 1713 X 1296 1157 1157 556 0 556 1203 0 X 1157 1018 1018 972 1018 972 741 1018 X 1018 463 463 1018 463 1528 1018 1018 X 1018 1018 694 926 741 1018 972 1620 X 972 1018 833 1111 2500 1111 2500 0 X 0 0 0 0 0 1667 1157 1157 X 0 0 0 0 1713 0 0 0 X 0 556 556 0 0 1805 556 1667 X 1157 1528 0 0 1574 0 0 0 X 0 0 1157 1157 0 1157 0 1157 X 0 1250 0 1111 1667 0 1250 0 X 0 1667 0 0 1157 1389 0 0 X 0 0 0 1111 1667 1667 1667 0 X 1296 1296 1296 1296 1296 1296 1759 1250 X 1064 1064 1064 1064 556 556 556 556 X 1296 1342 1296 1296 1296 1296 1296 1667 X 1296 1296 1296 1296 1296 1157 1157 0 X 1018 1018 1018 1018 1018 1018 1574 972 X 972 972 972 972 556 556 556 556 X 0 1018 1018 1018 1018 1018 1018 1667 X 1018 1018 1018 1018 1018 1018 1018 1018 END_OF_FILE if test 1172 -ne `wc -c <'uc-win_l1.I'`; then echo shar: \"'uc-win_l1.I'\" unpacked with wrong size! fi # end of 'uc-win_l1.I' fi if test -f 'uc-win_l1.R' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'uc-win_l1.R'\" else echo shar: Extracting \"'uc-win_l1.R'\" $1165 characters$ sed "s/^X//" >'uc-win_l1.R' <<'END_OF_FILE' X# @(#)uc-win_l1.R 4.1 X# LaserJet 4 win_l1 Univers Condensed widths X# Widths of 600 point characters in 300ths of an inch X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 741 926 1157 1157 1667 1528 556 X 556 556 1157 1667 556 556 556 556 X 1157 1157 1157 1157 1157 1157 1157 1157 X 1157 1157 556 556 2500 1667 2500 1064 X 1667 1296 1250 1250 1296 1064 1018 1296 X 1296 556 1064 1250 972 1713 1342 1296 X 1157 1296 1250 1203 1203 1296 1157 1713 X 1296 1157 1157 556 0 556 1203 0 X 1157 1018 1018 972 1018 972 741 1018 X 1018 463 463 1018 463 1528 1018 1018 X 1018 1018 694 926 741 1018 972 1620 X 972 1018 833 1111 2500 1111 2500 0 X 0 0 0 0 0 1667 1157 1157 X 0 0 0 0 1713 0 0 0 X 0 556 556 0 0 1805 556 1667 X 1157 1528 0 0 1574 0 0 0 X 0 0 1157 1157 0 1157 0 1157 X 0 1250 0 1111 1667 0 1250 0 X 0 1667 0 0 1157 1389 0 0 X 0 0 0 1111 1667 1667 1667 0 X 1296 1296 1296 1296 1296 1296 1759 1250 X 1064 1064 1064 1064 556 556 556 556 X 1296 1342 1296 1296 1296 1296 1296 1667 X 1296 1296 1296 1296 1296 1157 1157 0 X 1018 1018 1018 1018 1018 1018 1574 972 X 972 972 972 972 556 556 556 556 X 0 1018 1018 1018 1018 1018 1018 1667 X 1018 1018 1018 1018 1018 1018 1018 1018 END_OF_FILE if test 1165 -ne `wc -c <'uc-win_l1.R'`; then echo shar: \"'uc-win_l1.R'\" unpacked with wrong size! fi # end of 'uc-win_l1.R' fi if test -f 'win_l1.M' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'win_l1.M'\" else echo shar: Extracting \"'win_l1.M'\" $1084 characters$ sed "s/^X//" >'win_l1.M' <<'END_OF_FILE' X# @(#)win_l1.M 4.1 X# [nt]roff names (and juxtaposed names) of Windows 3.1 Latin 1 symbol set X# Since there is no root en to match the underline that appears in this X# symbol set, we leave out "_" below. X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL ! " # $ % & fm X ( ) * + , hy . / X 0 1 2 3 4 5 6 7 X 8 9 : ; < = > ? X @ A B C D E F G X H I J K L M N O X P Q R S T U V W X X Y Z [ NULL ] ^ NULL X ga a b c d e f g X h i j k l m n o X p q r s t u v w X x y z { | } ap NULL X NULL NULL NULL NULL NULL .. dg dd X NULL NULL NULL NULL OE NULL NULL NULL X NULL ` ' NULL NULL bu hy \- X ~ TM NULL NULL oe NULL NULL NULL X NULL NULL ct -L NULL =Y NULL sc X NULL co NULL << no NULL rg NULL X NULL +- NULL NULL aa *m NULL NULL X NULL NULL NULL >> 14 12 34 NULL X \`A \'A ^A ~A "A deA AE ,C X \`E \'E ^E "E \`I \'I ^I "I X -D ~N \`O \'O ^O ~O "O mu X /O \`U \'U ^U "U \'Y Th NULL X \`a \'a ^a ~a "a dea ae ,c X \`e \'e ^e "e \`i \'i ^i "i X -d ~n \`o \'o ^o ~o "o di X /o \`u \'u ^u "u \'y th "y END_OF_FILE if test 1084 -ne `wc -c <'win_l1.M'`; then echo shar: \"'win_l1.M'\" unpacked with wrong size! fi # end of 'win_l1.M' fi if test -f 'wingdings.M' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'wingdings.M'\" else echo shar: Extracting \"'wingdings.M'\" $597 characters$ sed "s/^X//" >'wingdings.M' <<'END_OF_FILE' X# @(#)wingdings.M 4.1 X# [nt]roff names (and juxtaposed names) of Wingdings symbol set characters X# Wingdings is the only source of the bell symbol, the left hand, X# and the right hand in the built-in character sets of the LaserJet 4. X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL bs NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL NULL NULL NULL X NULL NULL NULL NULL NULL lh rh NULL END_OF_FILE if test 597 -ne `wc -c <'wingdings.M'`; then echo shar: \"'wingdings.M'\" unpacked with wrong size! fi # end of 'wingdings.M' fi if test -f 'wingdings.R' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'wingdings.R'\" else echo shar: Extracting \"'wingdings.R'\" $1358 characters$ sed "s/^X//" >'wingdings.R' <<'END_OF_FILE' X# @(#)wingdings.R 4.1 X# LaserJet 4 Wingdings widths X# Widths of 600 point characters in 300ths of an inch X# Perhaps a few of the zeroes are worng here X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 0 0 0 0 0 0 0 0 X 2500 2600 2850 3250 3375 2250 3050 1150 X 2700 2250 2850 2850 2950 2950 3600 3600 X 2750 3350 1750 1750 2250 1400 1500 2700 X 2350 2700 2350 2250 2250 2250 2250 2250 X 2250 1450 2000 1700 1700 2350 2350 1350 X 1350 2250 2100 2100 2100 2800 1650 2100 X 2700 2200 2200 1650 2050 1850 1850 1800 X 1750 2000 2200 2250 2250 2250 2900 2650 X 2400 2750 2350 2350 2350 2550 2300 2750 X 2650 1950 2600 3200 1850 2400 1850 2250 X 2250 2250 2250 1150 1850 2450 2250 1450 X 2650 2650 2250 2250 2250 1350 1350 0 X 2250 2250 2250 2250 2250 2250 2250 2250 X 2250 2250 2250 2250 2250 2250 2250 2250 X 2250 2250 2250 2250 2250 2250 2500 2500 X 2500 2500 2500 2500 2500 2500 800 1150 X 800 2250 2250 2250 2250 2250 2400 1150 X 2250 2250 2250 2250 2250 2250 2250 2250 X 2250 2250 2250 2250 2250 2250 2250 2250 X 2250 2250 2250 2250 2250 2250 2250 2250 X 2250 2250 2250 2250 2250 2250 2250 2600 X 2600 2600 2600 2500 2500 2500 2500 2500 X 2500 2500 2500 2500 2500 3150 3150 2000 X 2000 2250 2250 2250 2250 2250 2250 2450 X 2450 2250 2250 1950 1950 1950 1950 2650 X 2650 2250 2250 2200 2200 2200 2200 2250 X 2250 2050 2050 2650 2050 1950 1950 1950 X 1950 1200 950 1600 1950 2250 2250 0 END_OF_FILE if test 1358 -ne `wc -c <'wingdings.R'`; then echo shar: \"'wingdings.R'\" unpacked with wrong size! fi # end of 'wingdings.R' fi echo shar: End of archive 1 $of 2$. cp /dev/null ark1isdone MISSING="" for I in 1 2 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have unpacked both archives. rm -f ark[1-9]isdone else echo You still need to unpack the following archives: echo " " ${MISSING} fi ## End of shell archive. exit 0