rsalz@uunet.UU.NET (Rich Salz) (10/26/87)
Submitted-by: lee@uhccux.UUCP (Greg Lee) Posting-number: Volume 12, Issue 40 Archive-name: hershtools/part01 Here are some programs for making use of the Hershey character data. Eplot and hplot allow the editing of vector fonts and the creation of other fonts from them -- vfont format raster fonts, PostScript analytic fonts -- as well as tfm files for TeX. The file format for vector fonts is idiosyncratic, I'm sorry to say. I have not had access to the Hershey data in the usual formats. I have included two sets of four files each containing the Hershey simplex and triplex Roman characters in the format required for these programs -- these are sr?.chr and tr?.chr, where the ? is c for capital letters, s for small letters, d for digits, or p for punctuation. Just in case anyone has the Hershey data in the compressed form I have it in (similar the National Bureau of Standards form) I included the utility htrans, which converts from the compressed form to my form. (By the way, I would really like to have the Hershey data for oriental characters.) These programs have compiled ok in the Ultrix 1.2 and Sun 3.0 versions of BSD 4.2. Parts of the source (termio.c, termio.h) were taken from the Xum package distributed in net.sources by John Paul O'Brien, Nova University, Fort Lauderdale, Florida, {allegra, ucf-cs, usfvax2}!novavax!john, and (vfont.c) from the Hfont package by William LeFebvre, Department of Computer Science, Rice University, <phil@Rice.edu>. These appear to be in the public domain. I am grateful to the above for the use of their code, and I hereby place the rest of the code and documents for these programs in the public domain. Greg Lee U.S.mail: 562 Moore Hall, Dept. of Linguistics, Univ. of Hawaii, HONO, HI 96822 INTERNET: lee@uhccux.uhcc.hawaii.edu UUCP: {ihnp4,dcdwest,ucbvax}!sdcsvax!nosc!uhccux!lee BITNET: lee%uhccux.uhcc.hawaii.edu@rutgers.edu # This is a shell archive. Remove anything before this line # then unpack it by saving it in a file and typing "sh file" # (Files unpacked will be owned by you and have default permissions). # This archive contains the following files: # ./termio.h # ./trc.chr # ./trd.chr # ./trp.chr # ./trs.chr # ./vfont.c # if `test ! -s ./termio.h` then echo "writing ./termio.h" sed 's/^X//' > ./termio.h << '\Rogue\Monster\' X#include <stdio.h> X#include <sgtty.h> X#include <signal.h> X#include <setjmp.h> X#include <sys/file.h> X#include <sys/errno.h> X Xtypedef unsigned char byte; Xtypedef unsigned short word; X Xint errno; /* define this globally so that Unix can set it */ X \Rogue\Monster\ else echo "will not over write ./termio.h" fi if [ `wc -c ./termio.h | awk '{printf $1}'` -ne 245 ] then echo `wc -c ./termio.h | awk '{print "Got " $1 ", Expected " 245}'` fi if `test ! -s ./trc.chr` then echo "writing ./trc.chr" sed 's/^X//' > ./trc.chr << '\Rogue\Monster\' X'A': Bounds(-10,10)(0,-12)(-7,9) Pen Up X (-1,-9)(5,9) Pen Up X (0,-9)(6,9) Pen Up X (0,-12)(7,9) Pen Up X (-5,3)(4,3) Pen Up X S(-9,9)S(-3,9) Pen Up X S(2,9)S(9,9) Pen Up X s(-7,8)s(-8,9) Pen Up X s(-7,8)s(-5,9) Pen Up X s(5,8)s(3,9) Pen Up X s(5,7)s(4,9) Pen Up X s(6,7)s(8,9) End Char X'B': Bounds(-11,11)(-6,-12)(-6,9) Pen Up X (-5,-11)(-5,8) Pen Up X (-4,-12)(-4,9) Pen Up X S(-9,-12)(-6,-12)(3,-12)(6,-11)(7,-10)(8,-8)(8,-6)(7,-4)(6,-3)(3,-2) Pen Up X (6,-10)(7,-8)(7,-6)(6,-4) Pen Up *CDE X (3,-12)(5,-11)(6,-9)(6,-5)(5,-3)(3,-2) Pen Up X (-4,-2)(3,-2)(6,-1)(7,0)(8,2)(8,5)(7,7)(6,8)(3,9) X (-6,9)S(-9,9) Pen Up X (6,0)(7,2)(7,5)(6,7) Pen Up *TUV X (3,-2)(5,-1)(6,1)(6,6)(5,8)(3,9) Pen Up X S(-8,-12)S(-6,-11) Pen Up *b X s(-7,-12)s(-6,-10) Pen Up X s(-3,-12)s(-4,-10) Pen Up X S(-2,-12)S(-4,-11) Pen Up X s(-6,8)s(-8,9) Pen Up *f X S(-6,7)S(-7,9) Pen Up X S(-4,7)S(-3,9) Pen Up X s(-4,8)s(-2,9) End Char X'C': Bounds(-11,10)S(6,-9)S(7,-12)(7,-6)(6,-9)(4,-11)(2,-12)(-1,-12)(-4,-11) X (-6,-9)(-7,-7)(-8,-4)(-8,1)(-7,4)(-6,6)(-4,8)(-1,9)(2,9) X (4,8)(6,6)(7,4) Pen Up X (-5,-9)(-6,-7)(-7,-4)(-7,1)(-6,4)(-5,6) Pen Up X (-1,-12)(-3,-11)(-5,-8)(-6,-4)(-6,1)(-5,5)(-3,8)(-1,9) End Char X'D': Bounds(-11,11)(-6,-12)(-6,9) Pen Up X (-5,-11)(-5,8) Pen Up X (-4,-12)(-4,9) Pen Up X S(-9,-12)(-6,-12)(1,-12)(4,-11)(6,-9)(7,-7)(8,-4)(8,1)(7,4)(6,6) X (4,8)(1,9)(-6,9)S(-9,9) Pen Up X (5,-9)(6,-7)(7,-4)(7,1)(6,4)(5,6) Pen Up X (1,-12)(3,-11)(5,-8)(6,-4)(6,1)(5,5)(3,8)(1,9) Pen Up X S(-8,-12)S(-6,-11) Pen Up X s(-7,-12)s(-6,-10) Pen Up X S(-3,-12)s(-4,-10) Pen Up X s(-2,-12)S(-4,-11) Pen Up X S(-6,8)S(-8,9) Pen Up X s(-6,7)s(-7,9) Pen Up X S(-4,7)S(-3,9) Pen Up X s(-4,8)s(-2,9) End Char X'E': Bounds(-11,10)(-6,-12)(-6,9) Pen Up X (-5,-11)(-5,8) Pen Up X (-4,-12)(-4,9) Pen Up X S(-9,-12)(-6,-12)(7,-12)S(7,-6) Pen Up X (-4,-2)(2,-2) Pen Up X S(2,-6)S(2,2) Pen Up *7 X S(-9,9)(-6,9)(7,9)S(7,3) Pen Up X S(-8,-12)S(-6,-11) Pen Up *A X s(-7,-12)s(-6,-10) Pen Up X s(-3,-12)s(-4,-10) Pen Up X S(-2,-12)S(-4,-11) Pen Up X S(2,-12)S(7,-11) Pen Up X s(4,-12)s(7,-10) Pen Up X s(5,-12)s(7,-9) Pen Up X S(6,-12)S(7,-6) Pen Up X S(2,-6)S(1,-2)S(2,2) Pen Up X S(2,-4)S(0,-2)S(2,0) Pen Up *KL X S(2,-3)S(-2,-2)S(2,-1) Pen Up X S(-6,8)S(-8,9) Pen Up X S(-6,7)S(-7,9) Pen Up X S(-4,7)S(-3,9) Pen Up X s(-4,8)s(-2,9) Pen Up X s(2,9)s(7,8) Pen Up X s(4,9)s(7,7) Pen Up *T X s(5,9)s(7,6) Pen Up X S(6,9)S(7,3) End Char X'F': Bounds(-11,9)(-6,-12)(-6,9) Pen Up X (-5,-11)(-5,8) Pen Up X (-4,-12)(-4,9) Pen Up X S(-9,-12)(-6,-12)(7,-12)S(7,-6) Pen Up X (-4,-2)(2,-2) Pen Up X S(2,-6)S(2,2) Pen Up X S(-9,9)S(-1,9) Pen Up X S(-8,-12)S(-6,-11) Pen Up X s(-7,-12)s(-6,-10) Pen Up X s(-3,-12)s(-4,-10) Pen Up X S(-2,-12)S(-4,-11) Pen Up *C X S(2,-12)S(7,-11) Pen Up X s(4,-12)s(7,-10) Pen Up X s(5,-12)s(7,-9) Pen Up X S(6,-12)S(7,-6) Pen Up X S(2,-6)S(1,-2)S(2,2) Pen Up *HI X s(2,-4)s(0,-2)s(2,0) Pen Up X s(2,-3)s(-2,-2)s(2,-1) Pen Up X S(-6,8)S(-8,9) Pen Up X S(-6,7)S(-7,9) Pen Up X S(-4,7)S(-3,9) Pen Up X S(-4,8)S(-2,9) End Char X'G': Bounds(-11,12)S(6,-9)S(7,-12)(7,-6)(6,-9)(4,-11)(2,-12)(-1,-12)(-4,-11) X (-6,-9)(-7,-7)(-8,-4)(-8,1)(-7,4)(-6,6)(-4,8)(-1,9)(2,9) X (4,8)(6,8)(7,9)(7,1) Pen Up *1-K X (-5,-9)(-6,-7)(-7,-4)(-7,1)(-6,4)(-5,6) Pen Up X (-1,-12)(-3,-11)(-5,-8)(-6,-4)(-6,1)(-5,5)(-3,8)(-1,9) Pen Up X (6,2)(6,7) Pen Up *X X (5,1)(5,7)(4,8) Pen Up X (2,1)(10,1) Pen Up X S(3,1)S(5,2) Pen Up *a X S(4,1)S(5,3) Pen Up X s(8,1)s(7,3) Pen Up X s(9,1)s(7,2) End Char X'H': Bounds(-12,12)(-7,-12)(-7,9) Pen Up X (-6,-11)(-6,8) Pen Up X (-5,-12)(-5,9) Pen Up X (5,-12)(5,9) Pen Up X (6,-11)(6,8) Pen Up X (7,-12)(7,9) Pen Up X S(-10,-12)S(-2,-12) Pen Up X S(2,-12)S(10,-12) Pen Up X (-5,-2)(5,-2) Pen Up X S(-10,9)S(-2,9) Pen Up *A X S(2,9)S(10,9) Pen Up X S(-9,-12)S(-7,-11) Pen Up X s(-8,-12)s(-7,-10) Pen Up X s(-4,-12)s(-5,-10) Pen Up X S(-3,-12)S(-5,-11) Pen Up X S(3,-12)S(5,-11) Pen Up *G X s(4,-12)s(5,-10) Pen Up X s(8,-12)s(7,-10) Pen Up X S(9,-12)S(7,-11) Pen Up X S(-7,8)S(-9,9) Pen Up X s(-7,7)s(-8,9) Pen Up X s(-5,7)s(-4,9) Pen Up X S(-5,8)S(-3,9) Pen Up X S(5,8)S(3,9) Pen Up X s(5,7)s(4,9) Pen Up X s(7,7)s(8,9) Pen Up X S(7,8)S(9,9) End Char X'I': Bounds(-6,6)(-1,-12)(-1,9) Pen Up X (0,-11)(0,8) Pen Up X (1,-12)(1,9) Pen Up X S(-4,-12)S(4,-12) Pen Up X S(-4,9)S(4,9) Pen Up X S(-3,-12)S(-1,-11) Pen Up X s(-2,-12)s(-1,-10) Pen Up X s(2,-12)s(1,-10) Pen Up X S(3,-12)S(1,-11) Pen Up X S(-1,8)S(-3,9) Pen Up X s(-1,7)s(-2,9) Pen Up X s(1,7)s(2,9) Pen Up X S(1,8)S(3,9) End Char X'J': Bounds(-8,8)(1,-12)(1,5)(0,8)(-1,9) Pen Up X (2,-11)(2,5)(1,8) Pen Up X (3,-12)(3,5)(2,8)(-1,9)(-3,9)(-5,8)(-6,6)(-6,4)(-5,3) X s(-4,3)s(-3,4)S(-3,5)S(-4,6)S(-5,6) Pen Up *E-I X S(-5,4)S(-5,5)S(-4,5)S(-4,4)S(-5,4) Pen Up X S(-2,-12)S(6,-12) Pen Up *N X S(-1,-12)S(1,-11) Pen Up X s(0,-12)s(1,-10) Pen Up X s(4,-12)s(3,-10) Pen Up X S(5,-12)S(3,-11) End Char X'K': Bounds(-12,10)(-7,-12)(-7,9) Pen Up X (-6,-11)(-6,8) Pen Up X (-5,-12)(-5,9) Pen Up X (6,-12)(-5,0) Pen Up X (-2,-2)(5,9) Pen Up X (-1,-2)(6,9) Pen Up X (-1,-4)(7,9) Pen Up X S(-10,-12)S(-2,-12) Pen Up *8 X S(3,-12)S(9,-12) Pen Up X S(-10,9)S(-2,9) Pen Up *A X S(2,9)S(9,9) Pen Up X S(-9,-12)S(-7,-11) Pen Up X s(-8,-12)s(-7,-10) Pen Up X s(-4,-12)s(-5,-10) Pen Up X S(-3,-12)S(-5,-11) Pen Up X s(5,-12)s(6,-11) Pen Up *G X s(8,-12)s(6,-11) Pen Up X S(-7,8)S(-9,9) Pen Up X s(-7,7)s(-8,9) Pen Up X s(-5,7)s(-4,9) Pen Up X S(-5,8)S(-3,9) Pen Up X S(5,7)S(3,9) Pen Up *M X s(5,7)s(8,9) End Char X'L': Bounds(-9,9)(-4,-12)(-4,9) Pen Up X (-3,-11)(-3,8) Pen Up X (-2,-12)(-2,9) Pen Up X S(-7,-12)S(1,-12) Pen Up *4 X S(-7,9)s(-2,9)(-4,9)(8,9)s(8,6)S(8,3) Pen Up *5,6 X S(-6,-12)S(-4,-11) Pen Up X s(-5,-12)s(-4,-10) Pen Up X s(-1,-12)s(-2,-10) Pen Up X S(0,-12)S(-2,-11) Pen Up *A X S(-4,8)S(-6,9) Pen Up X (-4,7)(-5,9) Pen Up X (-2,7)(-1,9) Pen Up *D X S(-2,8)S(0,9) Pen Up X s(3,9)s(8,8) Pen Up X s(5,9)s(8,7) Pen Up X S(6,9)S(8,6) Pen Up *H X S(7,9)S(8,3) End Char X'M': Bounds(-13,13)(-8,-12)(-8,8) Pen Up X (-8,-12)(-1,9) Pen Up X (-7,-12)(-1,6) Pen Up X (-6,-12)(0,6) Pen Up X (6,-12)(-1,9) Pen Up *5 X (6,-12)(6,9) Pen Up X (7,-11)(7,8) Pen Up X (8,-12)(8,9) Pen Up X S(-11,-12)(-8,-12)(-6,-12) Pen Up *9 X S(6,-12)(8,-12)(11,-12) Pen Up *A X S(-11,9)S(-5,9) Pen Up *B X S(3,9)(6,9)(9,9)S(11,9) Pen Up *C X S(-10,-12)S(-8,-11) Pen Up *D X s(-9,-12)s(-8,-11) Pen Up X s(9,-12)s(8,-10) Pen Up *E X S(10,-12)S(8,-11) Pen Up X s(-8,8)s(-10,9) Pen Up X s(-8,8)s(-6,9) Pen Up X S(6,8)S(4,9) Pen Up *I X s(6,7)s(5,9) Pen Up X s(8,7)s(9,9) Pen Up *K X S(8,8)S(10,9) End Char X'N': Bounds(-12,12)(-7,-12)(-7,8) Pen Up X (-7,-12)(7,9) Pen Up X (-6,-12)(6,6) Pen Up X (-5,-12)(7,6) Pen Up X (7,-11)(7,9) Pen Up X (-10,-12)(-5,-12) Pen Up X (4,-12)(10,-12) Pen Up X (-10,9)(-4,9) Pen Up X (-9,-12)(-7,-11) Pen Up X (5,-12)(7,-11) Pen Up X (9,-12)(7,-11) Pen Up X (-7,8)(-9,9) Pen Up X (-7,8)(-5,9) End Char X'O': Bounds(-11,11)(-1,-12)(-4,-11)(-6,-9)(-7,-7)(-8,-3)(-8,0)(-7,4)(-6,6) X (-4,8)(-1,9)(1,9)(4,8)(6,6)(7,4)(8,0)(8,-3)(7,-7) X (6,-9)(4,-11)(1,-12)(-1,-12) Pen Up X (-5,-9)(-6,-7)(-7,-4)(-7,1)(-6,4)(-5,6) Pen Up X (5,6)(6,4)(7,1)(7,-4)(6,-7)(5,-9) Pen Up X (-1,-12)(-3,-11)(-5,-8)(-6,-4)(-6,1)(-5,5)(-3,8)(-1,9) Pen Up X (1,9)(3,8)(5,5)(6,1)(6,-4)(5,-8)(3,-11)(1,-12) End Char X'P': Bounds(-11,11)(-6,-12)(-6,9) Pen Up X (-5,-11)(-5,8) Pen Up X (-4,-12)(-4,9) Pen Up X (-9,-12)(3,-12)(6,-11)(7,-10)(8,-8)(8,-5)(7,-3)(6,-2)(3,-1) X (-4,-1) Pen Up X (6,-10)(7,-8)(7,-5)(6,-3) Pen Up X (3,-12)(5,-11)(6,-9)(6,-4)(5,-2)(3,-1) Pen Up X (-9,9)(-1,9) Pen Up X (-8,-12)(-6,-11) Pen Up X (-7,-12)(-6,-10) Pen Up X (-3,-12)(-4,-10) Pen Up X (-2,-12)(-4,-11) Pen Up X (-6,8)(-8,9) Pen Up X (-6,7)(-7,9) Pen Up X (-4,7)(-3,9) Pen Up X (-4,8)(-2,9) End Char X'Q': Bounds(-11,11)(-1,-12)(-4,-11)(-6,-9)(-7,-7)(-8,-3)(-8,0)(-7,4)(-6,6) X (-4,8)(-1,9)(1,9)(4,8)(6,6)(7,4)(8,0)(8,-3)(7,-7) X (6,-9)(4,-11)(1,-12)(-1,-12) Pen Up X (-5,-9)(-6,-7)(-7,-4)(-7,1)(-6,4)(-5,6) Pen Up X (5,6)(6,4)(7,1)(7,-4)(6,-7)(5,-9) Pen Up X (-1,-12)(-3,-11)(-5,-8)(-6,-4)(-6,1)(-5,5)(-3,8)(-1,9) Pen Up X (1,9)(3,8)(5,5)(6,1)(6,-4)(5,-8)(3,-11)(1,-12) Pen Up X (-4,6)(-3,4)(-1,3)(0,3)(2,4)(3,6)(4,12)(5,14)(7,14) X (8,12)(8,10) Pen Up X (4,10)(5,12)(6,13)(7,13) Pen Up X (3,6)(5,11)(6,12)(7,12)(8,11) End Char X'R': Bounds(-11,11)(-6,-12)(-6,9) Pen Up X (-5,-11)(-5,8) Pen Up X (-4,-12)(-4,9) Pen Up X (-9,-12)(3,-12)(6,-11)(7,-10)(8,-8)(8,-6)(7,-4)(6,-3)(3,-2) X (-4,-2) Pen Up X (6,-10)(7,-8)(7,-6)(6,-4) Pen Up X (3,-12)(5,-11)(6,-9)(6,-5)(5,-3)(3,-2) Pen Up X (0,-2)(2,-1)(3,1)(5,7)(6,9)(8,9)(9,7)(9,5) Pen Up X (5,5)(6,7)(7,8)(8,8) Pen Up X (2,-1)(3,0)(6,6)(7,7)(8,7)(9,6) Pen Up X (-9,9)(-1,9) Pen Up X (-8,-12)(-6,-11) Pen Up X (-7,-12)(-6,-10) Pen Up X (-3,-12)(-4,-10) Pen Up X (-2,-12)(-4,-11) Pen Up X (-6,8)(-8,9) Pen Up X (-6,7)(-7,9) Pen Up X (-4,7)(-3,9) Pen Up X (-4,8)(-2,9) End Char X'S': Bounds(-10,10)(6,-9)(7,-12)(7,-6)(6,-9)(4,-11)(1,-12)(-2,-12)(-5,-11) X (-7,-9)(-7,-6)(-6,-4)(-3,-2)(3,0)(5,1)(6,3)(6,6)(5,8) Pen Up X (-6,-6)(-5,-4)(-3,-3)(3,-1)(5,0)(6,2) Pen Up X (-5,-11)(-6,-9)(-6,-7)(-5,-5)(-3,-4)(3,-2)(6,0)(7,2)(7,5) X (6,7)(5,8)(2,9)(-1,9)(-4,8)(-6,6)(-7,3)(-7,9)(-6,6) End Char X'T': Bounds(-10,10)(-8,-12)(-8,-6) Pen Up X (-1,-12)(-1,9) Pen Up X (0,-11)(0,8) Pen Up X (1,-12)(1,9) Pen Up X (8,-12)(8,-6) Pen Up X (-8,-12)(8,-12) Pen Up X (-4,9)(4,9) Pen Up X (-7,-12)(-8,-6) Pen Up X (-6,-12)(-8,-9) Pen Up X (-5,-12)(-8,-10) Pen Up X (-3,-12)(-8,-11) Pen Up X (3,-12)(8,-11) Pen Up X (5,-12)(8,-10) Pen Up X (6,-12)(8,-9) Pen Up X (7,-12)(8,-6) Pen Up X (-1,8)(-3,9) Pen Up X (-1,7)(-2,9) Pen Up X (1,7)(2,9) Pen Up X (1,8)(3,9) End Char X'U': Bounds(-12,12)(-7,-12)(-7,3)(-6,6)(-4,8)(-1,9)(1,9)(4,8)(6,6) X (7,3)(7,-11) Pen Up X (-6,-11)(-6,4)(-5,6) Pen Up X (-5,-12)(-5,4)(-4,7)(-3,8)(-1,9) Pen Up X (-10,-12)(-2,-12) Pen Up X (4,-12)(10,-12) Pen Up X (-9,-12)(-7,-11) Pen Up X (-8,-12)(-7,-10) Pen Up X (-4,-12)(-5,-10) Pen Up X (-3,-12)(-5,-11) Pen Up X (5,-12)(7,-11) Pen Up X (9,-12)(7,-11) End Char X'V': Bounds(-10,10)(-7,-12)(0,9) Pen Up X (-6,-12)(0,6)(0,9) Pen Up X (-5,-12)(1,6) Pen Up X (7,-11)(0,9) Pen Up X (-9,-12)(-2,-12) Pen Up X (3,-12)(9,-12) Pen Up X (-8,-12)(-6,-10) Pen Up X (-4,-12)(-5,-10) Pen Up X (-3,-12)(-5,-11) Pen Up X (5,-12)(7,-11) Pen Up X (8,-12)(7,-11) End Char X'W': Bounds(-12,12)(-12,-12)(-6,9) Pen Up *1 X (-11,-12)(-6,4)(-6,9) Pen Up *2 3 X (-10,-12)(-5,4) Pen Up *4 X (0,-12)(-5,4)(-6,9) Pen Up *5 6 X (0,-12)(6,9) Pen Up *7 X (1,-12)(6,4)(6,9) Pen Up *8 9 X (2,-12)(7,4) Pen Up *A X (10,-12)(7,4)(6,9) Pen Up *B C X S(-15,-12)S(-5,-12) Pen Up *D X s(0,-12)s(2,-12) Pen Up *E X S(7,-12)S(15,-12) Pen Up *F X s(-14,-12)s(-11,-11) Pen Up *G X s(-13,-12)s(-11,-10) Pen Up *H X s(-9,-12)s(-10,-10) Pen Up *I X s(-8,-12)s(-10,-11) Pen Up *J X s(10,-12)s(12,-11) Pen Up *K X s(14,-12)s(12,-11) End Char *L X'X': Bounds(-10,10)(-7,-12)(5,9) Pen Up X (-6,-12)(6,9) Pen Up X (-5,-12)(7,9) Pen Up X (6,-11)(-6,8) Pen Up X (-9,-12)(-2,-12) Pen Up X (3,-12)(9,-12) Pen Up X (-9,9)(-3,9) Pen Up X (2,9)(9,9) Pen Up X (-8,-12)(-5,-10) Pen Up X (-4,-12)(-5,-10) Pen Up X (-3,-12)(-5,-11) Pen Up X (4,-12)(6,-11) Pen Up X (8,-12)(6,-11) Pen Up X (-6,8)(-8,9) Pen Up X (-6,8)(-4,9) Pen Up X (5,8)(3,9) Pen Up X (5,7)(4,9) Pen Up X (5,7)(8,9) End Char X'Y': Bounds(-11,11)(-8,-12)(-1,-1)(-1,9) Pen Up X (-7,-12)(0,-1)(0,8) Pen Up X (-6,-12)(1,-1)(1,9) Pen Up X (7,-11)(1,-1) Pen Up X (-10,-12)(-3,-12) Pen Up X (4,-12)(10,-12) Pen Up X (-4,9)(4,9) Pen Up X (-9,-12)(-7,-11) Pen Up X (-4,-12)(-6,-11) Pen Up X (5,-12)(7,-11) Pen Up X (9,-12)(7,-11) Pen Up X (-1,8)(-3,9) Pen Up X (-1,7)(-2,9) Pen Up X (1,7)(2,9) Pen Up X (1,8)(3,9) End Char X'Z': Bounds(-10,10)(7,-12)(-7,-12)(-7,-6) Pen Up X (5,-12)(-7,9) Pen Up X (6,-12)(-6,9) Pen Up X (7,-12)(-5,9) Pen Up X (-7,9)(7,9)(7,3) Pen Up X (-6,-12)(-7,-6) Pen Up X (-5,-12)(-7,-9) Pen Up X (-4,-12)(-7,-10) Pen Up X (-2,-12)(-7,-11) Pen Up X (2,9)(7,8) Pen Up X (4,9)(7,7) Pen Up X (5,9)(7,6) Pen Up X (6,9)(7,3) End Char X \Rogue\Monster\ else echo "will not over write ./trc.chr" fi if [ `wc -c ./trc.chr | awk '{printf $1}'` -ne 12777 ] then echo `wc -c ./trc.chr | awk '{print "Got " $1 ", Expected " 12777}'` fi if `test ! -s ./trd.chr` then echo "writing ./trd.chr" sed 's/^X//' > ./trd.chr << '\Rogue\Monster\' X'0': Bounds(-10,10)(-1,-12)(-4,-11)(-6,-8)(-7,-3)(-7,0)(-6,5)(-4,8)(-1,9) X (1,9)(4,8)(6,5)(7,0)(7,-3)(6,-8)(4,-11)(1,-12)(-1,-12) Pen Up X (-4,-10)(-5,-8)(-6,-4)(-6,1)(-5,5)(-4,7) Pen Up X (4,7)(5,5)(6,1)(6,-4)(5,-8)(4,-10) Pen Up X (-1,-12)(-3,-11)(-4,-9)(-5,-4)(-5,1)(-4,6)(-3,8)(-1,9) Pen Up X (1,9)(3,8)(4,6)(5,1)(5,-4)(4,-9)(3,-11)(1,-12) End Char X'1': Bounds(-10,10)(-1,-10)(-1,9) Pen Up X (0,-10)(0,8) Pen Up X (1,-12)(1,9) Pen Up X (1,-12)(-2,-9)(-4,-8) Pen Up X (-5,9)(5,9) Pen Up X (-1,8)(-3,9) Pen Up X (-1,7)(-2,9) Pen Up X (1,7)(2,9) Pen Up X (1,8)(3,9) End Char X'2': Bounds(-10,10)(-6,-8)(-6,-7)(-5,-7)(-5,-8)(-6,-8) Pen Up X (-6,-9)(-5,-9)(-4,-8)(-4,-7)(-5,-6)(-6,-6)(-7,-7)(-7,-8)(-6,-10) X (-5,-11)(-2,-12)(2,-12)(5,-11)(6,-10)(7,-8)(7,-6)(6,-4)(3,-2) X (-2,0)(-4,1)(-6,3)(-7,6)(-7,9) Pen Up X (5,-10)(6,-8)(6,-6)(5,-4) Pen Up X (2,-12)(4,-11)(5,-8)(5,-6)(4,-4)(2,-2)(-2,0) Pen Up X (-7,7)(-6,6)(-4,6)(1,7)(5,7)(7,6) Pen Up X (-4,6)(1,8)(5,8)(6,7) Pen Up X (-4,6)(1,9)(5,9)(6,8)(7,6)(7,4) End Char X'3': Bounds(-10,10)(-6,-8)(-6,-7)(-5,-7)(-5,-8)(-6,-8) Pen Up X (-6,-9)(-5,-9)(-4,-8)(-4,-7)(-5,-6)(-6,-6)(-7,-7)(-7,-8)(-6,-10) X (-5,-11)(-2,-12)(2,-12)(5,-11)(6,-9)(6,-6)(5,-4)(2,-3) Pen Up X (4,-11)(5,-9)(5,-6)(4,-4) Pen Up X (1,-12)(3,-11)(4,-9)(4,-6)(3,-4)(1,-3) Pen Up X (-1,-3)(2,-3)(4,-2)(6,0)(7,2)(7,5)(6,7)(5,8)(2,9) X (-2,9)(-5,8)(-6,7)(-7,5)(-7,4)(-6,3)(-5,3)(-4,4)(-4,5) X (-5,6)(-6,6) Pen Up X (5,0)(6,2)(6,5)(5,7) Pen Up X (1,-3)(3,-2)(4,-1)(5,2)(5,5)(4,8)(2,9) Pen Up X (-6,4)(-6,5)(-5,5)(-5,4)(-6,4) End Char X'4': Bounds(-10,10)(1,-9)(1,9) Pen Up X (2,-10)(2,8) Pen Up X (3,-12)(3,9) Pen Up X (3,-12)(-8,3)(8,3) Pen Up X (-2,9)(6,9) Pen Up X (1,8)(-1,9) Pen Up X (1,7)(0,9) Pen Up X (3,7)(4,9) Pen Up X (3,8)(5,9) End Char X'5': Bounds(-10,10)(-5,-12)(-7,-2)(-5,-4)(-2,-5)(1,-5)(4,-4)(6,-2)(7,1) X (7,3)(6,6)(4,8)(1,9)(-2,9)(-5,8)(-6,7)(-7,5)(-7,4) X (-6,3)(-5,3)(-4,4)(-4,5)(-5,6)(-6,6) Pen Up X (5,-2)(6,0)(6,4)(5,6) Pen Up X (1,-5)(3,-4)(4,-3)(5,0)(5,4)(4,7)(3,8)(1,9) Pen Up X (-6,4)(-6,5)(-5,5)(-5,4)(-6,4) Pen Up X (-5,-12)(5,-12) Pen Up X (-5,-11)(3,-11) Pen Up X (-5,-10)(-1,-10)(3,-11)(5,-12) End Char X'6': Bounds(-10,10)(4,-9)(4,-8)(5,-8)(5,-9)(4,-9) Pen Up X (5,-10)(4,-10)(3,-9)(3,-8)(4,-7)(5,-7)(6,-8)(6,-9)(5,-11) X (3,-12)(0,-12)(-3,-11)(-5,-9)(-6,-7)(-7,-3)(-7,3)(-6,6)(-4,8) X (-1,9)(1,9)(4,8)(6,6)(7,3)(7,2)(6,-1)(4,-3)(1,-4) X (-1,-4)(-3,-3)(-4,-2)(-5,0) Pen Up X (-4,-9)(-5,-7)(-6,-3)(-6,3)(-5,6)(-4,7) Pen Up X (5,6)(6,4)(6,1)(5,-1) Pen Up X (0,-12)(-2,-11)(-3,-10)(-4,-8)(-5,-4)(-5,3)(-4,6)(-3,8)(-1,9) Pen Up X (1,9)(3,8)(4,7)(5,4)(5,1)(4,-2)(3,-3)(1,-4) End Char X'7': Bounds(-10,10)(-7,-12)(-7,-6) Pen Up X (7,-12)(7,-9)(6,-6)(2,-1)(1,1)(0,5)(0,9) Pen Up X (1,0)(0,2)(-1,5)(-1,9) Pen Up X (6,-6)(1,-1)(-1,2)(-2,5)(-2,9)(0,9) Pen Up X (-7,-8)(-6,-10)(-4,-12)(-2,-12)(3,-9)(5,-9)(6,-10)(7,-12) Pen Up X (-5,-10)(-4,-11)(-2,-11)(0,-10) Pen Up X (-7,-8)(-6,-9)(-4,-10)(-2,-10)(3,-9) End Char X'8': Bounds(-10,10)(-2,-12)(-5,-11)(-6,-9)(-6,-6)(-5,-4)(-2,-3)(2,-3)(5,-4) X (6,-6)(6,-9)(5,-11)(2,-12)(-2,-12) Pen Up X (-4,-11)(-5,-9)(-5,-6)(-4,-4) Pen Up X (4,-4)(5,-6)(5,-9)(4,-11) Pen Up X (-2,-12)(-3,-11)(-4,-9)(-4,-6)(-3,-4)(-2,-3) Pen Up X (2,-3)(3,-4)(4,-6)(4,-9)(3,-11)(2,-12) Pen Up X (-2,-3)(-5,-2)(-6,-1)(-7,1)(-7,5)(-6,7)(-5,8)(-2,9)(2,9) X (5,8)(6,7)(7,5)(7,1)(6,-1)(5,-2)(2,-3) Pen Up X (-5,-1)(-6,1)(-6,5)(-5,7) Pen Up X (5,7)(6,5)(6,1)(5,-1) Pen Up X (-2,-3)(-4,-2)(-5,1)(-5,5)(-4,8)(-2,9) Pen Up X (2,9)(4,8)(5,5)(5,1)(4,-2)(2,-3) End Char X'9': Bounds(-10,10)(-5,5)(-5,6)(-4,6)(-4,5)(-5,5) Pen Up X (5,-3)(4,-1)(3,0)(1,1)(-1,1)(-4,0)(-6,-2)(-7,-5)(-7,-6) X (-6,-9)(-4,-11)(-1,-12)(1,-12)(4,-11)(6,-9)(7,-6)(7,0)(6,4) X (5,6)(3,8)(0,9)(-3,9)(-5,8)(-6,6)(-6,5)(-5,4)(-4,4) X (-3,5)(-3,6)(-4,7)(-5,7) Pen Up X (-5,-2)(-6,-4)(-6,-7)(-5,-9) Pen Up X (4,-10)(5,-9)(6,-6)(6,0)(5,4)(4,6) Pen Up X (-1,1)(-3,0)(-4,-1)(-5,-4)(-5,-7)(-4,-10)(-3,-11)(-1,-12) Pen Up X (1,-12)(3,-11)(4,-9)(5,-6)(5,1)(4,5)(3,7)(2,8)(0,9) End Char \Rogue\Monster\ else echo "will not over write ./trd.chr" fi if [ `wc -c ./trd.chr | awk '{printf $1}'` -ne 4143 ] then echo `wc -c ./trd.chr | awk '{print "Got " $1 ", Expected " 4143}'` fi if `test ! -s ./trp.chr` then echo "writing ./trp.chr" sed 's/^X//' > ./trp.chr << '\Rogue\Monster\' X X*21 X'!': Bounds(-5,6)(0,-12)(-1,-11)(-1,-9)(0,-1) Pen Up X (0,-12)(0,2)(1,2) Pen Up X (0,-12)(1,-12)(1,2) Pen Up X (1,-12)(2,-11)(2,-9)(1,-1) Pen Up X (0,6)(-1,7)(-1,8)(0,9)(1,9)(2,8)(2,7)(1,6)(0,6) Pen Up X (0,7)(0,8)(1,8)(1,7)(0,7) End Char X*22 X'"': Bounds(-9,9)(-4,-12)(-5,-11)(-5,-5) Pen Up X (-4,-11)(-5,-5) Pen Up X (-4,-12)(-3,-11)(-5,-5) Pen Up X (5,-12)(4,-11)(4,-5) Pen Up X (5,-11)(4,-5) Pen Up X (5,-12)(6,-11)(4,-5) End Char X*23 922 # X'#': Bounds(-10,11)(1,-12)(-6,16) Pen Up X (7,-12)(0,16) Pen Up X (-6,-1)(8,-1) Pen Up X (-7,5)(7,5) End Char X*24 X'$': Bounds(-10,10)(-2,-12)(-2,9) Pen Up X (2,-12)(2,9) Pen Up X (6,-6)(6,-6)(5,-6)(5,-5)(7,-5)(7,-6)(6,-8)(5,-9)(2,-10) X (-2,-10)(-5,-9)(-7,-7)(-7,-5)(-6,-3)(-3,-2)(3,0)(5,0)(6,2) X (6,4)(5,6) Pen Up X (-6,-5)(-5,-3)(-3,-3)(3,-1)(5,0)(6,1) Pen Up X (-5,-9)(-6,-7)(-6,-6)(-5,-4)(-3,-3)(3,-2)(6,0)(7,1)(7,3) X (6,5)(5,6)(2,7)(-2,7)(-5,6)(-6,5)(-7,3)(-7,2)(-5,2) X (-5,3)(-6,3)(-6,3) End Char X*25 918 % X'%': Bounds(-12,12)(9,-12)(-9,9) Pen Up X (-4,-12)(-2,-10)(-2,-8)(-3,-6)(-5,-5)(-7,-5)(-9,-7)(-9,-9)(-8,-11) X (-6,-12)(-4,-12)(-2,-11)(1,-10)(4,-10)(7,-11)(9,-12) Pen Up X (5,2)(3,3)(2,5)(2,7)(4,9)(6,9)(8,8)(9,6)(9,4) X (7,2)(5,2) End Char X*26 X'&': Bounds(-13,13)(9,-3)(9,-4)(8,-4)(8,-2)(10,-2)(10,-4)(9,-5)(8,-5) X (7,-4)(6,-2)(4,3)(2,6)(0,8)(-2,9)(-6,9)(-8,8)(-9,6) X (-9,3)(-8,1)(-2,-3)(0,-5)(1,-7)(1,-9)(0,-11)(-2,-12)(-4,-11) X (-5,-9)(-5,-6)(-4,-3)(-2,0)(2,5)(5,8)(7,9)(9,9)(10,7) X (10,6) Pen Up X (-7,8)(-8,6)(-8,3)(-7,1)(-6,0) Pen Up X (0,-5)(1,-9) Pen Up X (1,-7)(0,-11) Pen Up X (-4,-11)(-5,-7) Pen Up X (-4,-4)(-2,-1)(2,4)(5,7)(7,8) Pen Up X (-4,9)(-6,8)(-7,6)(-7,3)(-6,1)(-2,-3) Pen Up X (-5,-9)(-4,-5)(-1,-1)(3,4)(6,7)(8,8)(9,8)(10,7) End Char X*27 X''': Bounds(-5,6)(2,-10)(1,-9)(0,-9)(-1,-10)(-1,-11)(0,-12)(1,-12)(2,-11) X (2,-8)(1,-6)(-1,-5) Pen Up X (0,-11)(0,-10)(1,-10)(1,-11)(0,-11) Pen Up X (1,-9)(2,-8) Pen Up X (2,-10)(1,-6) End Char X*28 X'(': Bounds(-7,7)(1,-12)(-1,-9)(-3,-5)(-4,0)(-4,4)(-3,9)(-1,13) X (1,16) Pen Up X (-1,-8)(-2,-5)(-3,-1)(-3,5)(-2,9)(-1,12) Pen Up X (1,-12)(0,-10)(-1,-7)(-2,-1)(-2,5)(-1,11)(0,14)(1,16) End Char X*29 X')': Bounds(-7,7)(-1,-12)(1,-9)(3,-5)(4,0)(4,4)(3,9)(1,13) X (-1,16) Pen Up X (1,-8)(2,-5)(3,-1)(3,5)(2,9)(1,12) Pen Up X (-1,-12)(0,-10)(1,-7)(2,-1)(2,5)(1,11)(0,14)(-1,16) End Char X*2A X'*': Bounds(-8,8)(0,-12)(-1,-11)(1,-1)(0,0) Pen Up X (0,-12)(0,0) Pen Up X (0,-12)(1,-11)(-1,-1)(0,0) Pen Up X (-5,-9)(-4,-9)(4,-3)(5,-3) Pen Up X (-5,-9)(5,-3) Pen Up X (-5,-9)(-5,-8)(5,-4)(5,-3) Pen Up X (5,-9)(4,-9)(-4,-3)(-5,-3) Pen Up X (5,-9)(-5,-3) Pen Up X (5,-9)(5,-8)(-5,-4)(-5,-3) End Char X*2B X'+': Bounds(-12,13)(0,-9)(0,8)(1,8) Pen Up X (0,-9)(1,-9)(1,8) Pen Up X (-8,-1)(9,-1)(9,0) Pen Up X (-8,-1)(-8,0)(9,0) End Char X*2C X',': Bounds(-5,6)(2,8)(1,9)(0,9)(-1,8)(-1,7)(0,6)(1,6)(2,7) X (2,10)(1,12)(-1,13) Pen Up X (0,7)(0,8)(1,8)(1,7)(0,7) Pen Up X (1,9)(2,10) Pen Up X (2,8)(1,12) End Char X*2D X'-': Bounds(-12,13)(-4,-1)(5,-1)(5,0) Pen Up X (-4,-1)(-4,0)(5,0) End Char X*2E X'.': Bounds(-5,6)(0,6)(-1,7)(-1,8)(0,9)(1,9)(2,8)(2,7)(1,6) X (0,6) Pen Up X (0,7)(0,8)(1,8)(1,7)(0,7) End Char X*2f X'/': Bounds(-11,12)(9,-12)(-9,16)(-8,16) Pen Up X (9,-12)(10,-12)(-8,16) End Char X*3A X':': Bounds(-5,6)(0,-5)(-1,-4)(-1,-3)(0,-2)(1,-2)(2,-3)(2,-4)(1,-5) X (0,-5) Pen Up X (0,-4)(0,-3)(1,-3)(1,-4)(0,-4) Pen Up X (0,6)(-1,7)(-1,8)(0,9)(1,9)(2,8)(2,7)(1,6)(0,6) Pen Up X (0,7)(0,8)(1,8)(1,7)(0,7) End Char X*3B X';': Bounds(-5,6)(0,-5)(-1,-4)(-1,-3)(0,-2)(1,-2)(2,-3)(2,-4)(1,-5) X (0,-5) Pen Up X (0,-4)(0,-3)(1,-3)(1,-4)(0,-4) Pen Up X (2,8)(1,9)(0,9)(-1,8)(-1,7)(0,6)(1,6)(2,7)(2,10) X (1,12)(-1,13) Pen Up X (0,7)(0,8)(1,8)(1,7)(0,7) Pen Up X (1,9)(2,10) Pen Up X (2,8)(1,12) End Char X*3C 888 < X'<': Bounds(-12,12)(8,-9)(-8,0)(8,9) End Char X*3C big X*'<': Bounds(-7,7)(3,-16)(-4,0)(3,16) End Char X*3D X'=': Bounds(-12,13)(-8,-5)(9,-5)(9,-4) Pen Up X (-8,-5)(-8,-4)(9,-4) Pen Up X (-8,3)(9,3)(9,4) Pen Up X (-8,3)(-8,4)(9,4) End Char X*3E 889 > X'>': Bounds(-12,12)(-8,-9)(8,0)(-8,9) End Char X*3E big X*'>': Bounds(-7,7)(-3,-16)(4,0)(-3,16) End Char X*3F X'?': Bounds(-9,10)(-5,-7)(-5,-8)(-4,-8)(-4,-6)(-6,-6)(-6,-8)(-5,-10)(-4,-11) X (-2,-12)(2,-12)(5,-11)(6,-10)(7,-8)(7,-6)(6,-4)(5,-3)(1,-1) Pen Up X (5,-10)(6,-9)(6,-5)(5,-4) Pen Up X (2,-12)(4,-11)(5,-9)(5,-5)(4,-3)(3,-2) Pen Up X (0,-1)(0,2)(1,2)(1,-1)(0,-1) Pen Up X (0,6)(-1,7)(-1,8)(0,9)(1,9)(2,8)(2,7)(1,6)(0,6) Pen Up X (0,7)(0,8)(1,8)(1,7)(0,7) End Char X*40 920 @ X'@': Bounds(-13,14)(5,-4)(4,-6)(2,-7)(-1,-7)(-3,-6)(-4,-5)(-5,-2)(-5,1) X (-4,3)(-2,4)(1,4)(3,3)(4,1) Pen Up X (-1,-7)(-3,-5)(-4,-2)(-4,1)(-3,3)(-2,4) Pen Up X (5,-7)(4,1)(4,3)(6,4)(8,4)(10,2)(11,-1)(11,-3)(10,-6) X (9,-8)(7,-10)(5,-11)(2,-12)(-1,-12)(-4,-11)(-6,-10)(-8,-8)(-9,-6) X (-10,-3)(-10,0)(-9,3)(-8,5)(-6,7)(-4,8)(-1,9)(2,9)(5,8) X (7,7)(8,6) Pen Up X (6,-7)(5,1)(5,3)(6,4) End Char X*5B X'[': Bounds(-7,7)(-3,-12)(-3,16) Pen Up X (-2,-12)(-2,16) Pen Up X (-3,-12)(4,-12) Pen Up X (-3,16)(4,16) End Char X*5C X'\': Bounds(-7,7)(-1,-12)(-3,-11)(-4,-9)(-4,-7)(-3,-5)(-1,-4)(1,-4)(3,-5) X (4,-7)(4,-9)(3,-11)(1,-12)(-1,-12) Pen Up X (-1,-12)(-4,-9)(-3,-5)(1,-4)(4,-7)(3,-11)(-1,-12) Pen Up X (1,-12)(-3,-11)(-4,-7)(-1,-4)(3,-5)(4,-9)(1,-12) End Char X*5D X']': Bounds(-7,7)(2,-12)(2,16) Pen Up X (3,-12)(3,16) Pen Up X (-4,-12)(3,-12) Pen Up X (-4,16)(3,16) End Char X*5E 909 up arrow X'^': Bounds(-8,8)(-2,-6)(0,-9)(2,-6) Pen Up X (-5,-3)(0,-8)(5,-3) Pen Up X (0,-8)(0,9) End Char X*5F X'_': Bounds(-9,9)(-9,16)(9,16) End Char X*60 X'`': Bounds(-5,6)(2,-12)(0,-11)(-1,-9)(-1,-6)(0,-5)(1,-5)(2,-6)(2,-7) X (1,-8)(0,-8)(-1,-7) Pen Up X (0,-7)(0,-6)(1,-6)(1,-7)(0,-7) Pen Up X (0,-11)(-1,-7) Pen Up X (-1,-9)(0,-8) End Char X*7B X'{': Bounds(-7,7)(2,-12)(0,-11)(-1,-10)(-2,-9)(-2,-7)(-1,-6)(0,-5)(1,-3) X (1,-1)(-1,1) Pen Up X (0,-11)(-1,-9)(-1,-8)(0,-7)(1,-6)(2,-4)(2,-2)(1,0)(-3,2) X (1,4)(2,6)(2,8)(1,10)(0,11)(-1,12)(-1,13)(0,15) Pen Up X (-1,3)(1,5)(1,7)(0,9)(-1,10)(-2,11)(-2,13)(-1,14)(0,15) X (2,16) End Char X*7C X'|': Bounds(-4,4)(0,-12)(0,16) End Char X*7D X'}': Bounds(-7,7)(-2,-12)(0,-11)(1,-10)(2,-9)(2,-7)(1,-6)(0,-5)(-1,-3) X (-1,-1)(1,1) Pen Up X (0,-11)(1,-9)(1,-8)(0,-7)(-1,-6)(-2,-4)(-2,-2)(-1,0)(3,2) X (-1,4)(-2,6)(-2,8)(-1,10)(0,11)(1,12)(1,13)(0,15) Pen Up X (1,3)(-1,5)(-1,7)(0,9)(1,10)(2,11)(2,13)(1,14)(0,15) X (-2,16) End Char X*7E 893 low tilde X'~': Bounds(-12,12)(-9,3)(-9,1)(-8,-2)(-6,-3)(-4,-3)(-2,-2)(2,1)(4,2) X (6,2)(8,1)(9,-1) Pen Up X (-9,1)(-8,-1)(-6,-2)(-4,-2)(-2,-1)(2,2)(4,3)(6,3)(8,2) X (9,-1)(9,-3) End Char X X*FROM SPECIAL X*894 low circumflex, moved up 9 X^D': Bounds(-11,11)(-8,-8)(0,-12)(8,-8) Pen Up X (-8,-8)(0,-11)(8,-8) End Char X*895 acute X^C': Bounds(-6,6)(2,-12)(-3,-6) Pen Up X (2,-12)(3,-11)(-3,-6) End Char X*896 grave X^B': Bounds(-6,6)(-2,-12)(3,-6) Pen Up X (-2,-12)(-3,-11)(3,-6) End Char X*897 short X^S': Bounds(-10,10)(-7,-12)(-6,-10)(-4,-8)(-1,-7)(1,-7)(4,-8)(6,-10)(7,-12) Pen Up X (-7,-12)(-6,-9)(-4,-7)(-1,-6)(1,-6)(4,-7)(6,-9)(7,-12) End Char X*923 section X^M': Bounds(-8,8)(3,-9)(2,-8)(3,-7)(4,-8)(4,-9)(3,-11)(1,-12)(-1,-12) X (-3,-11)(-4,-9)(-4,-7)(-3,-5)(-1,-3)(4,0) Pen Up X (-3,-5)(2,-2)(4,0)(5,2)(5,4)(4,6)(2,8) Pen Up X (-2,-4)(-4,-2)(-5,0)(-5,2)(-4,4)(-2,6)(3,9) Pen Up X (-4,4)(1,7)(3,9)(4,11)(4,13)(3,15)(1,16)(-1,16)(-3,15) X (-4,13)(-4,12)(-3,11)(-2,12)(-3,13) End Char X*924 dagger X^K': Bounds(-8,8)(0,-12)(-1,-10)(0,-8)(1,-10)(0,-12) Pen Up X (0,-12)(0,16) Pen Up X (0,-1)(-1,2)(0,16)(1,2)(0,-1) Pen Up X (-6,-5)(-4,-4)(-2,-5)(-4,-6)(-6,-5) Pen Up X (-6,-5)(6,-5) Pen Up X (2,-5)(4,-4)(6,-5)(4,-6)(2,-5) End Char X*925 double dagger X^L': Bounds(-8,8)(0,-12)(-1,-10)(0,-8)(1,-10)(0,-12) Pen Up X (0,-12)(0,2) Pen Up X (0,-2)(-1,0)(1,4)(0,6)(-1,4)(1,0)(0,-2) Pen Up X (0,2)(0,16) Pen Up X (0,12)(-1,14)(0,16)(1,14)(0,12) Pen Up X (-6,-5)(-4,-4)(-2,-5)(-4,-6)(-6,-5) Pen Up X (-6,-5)(6,-5) Pen Up X (2,-5)(4,-4)(6,-5)(4,-6)(2,-5) Pen Up X (-6,9)(-4,10)(-2,9)(-4,8)(-6,9) Pen Up X (-6,9)(6,9) Pen Up X (2,9)(4,10)(6,9)(4,8)(2,9) End Char X \Rogue\Monster\ else echo "will not over write ./trp.chr" fi if [ `wc -c ./trp.chr | awk '{printf $1}'` -ne 8218 ] then echo `wc -c ./trp.chr | awk '{print "Got " $1 ", Expected " 8218}'` fi if `test ! -s ./trs.chr` then echo "writing ./trs.chr" sed 's/^X//' > ./trs.chr << '\Rogue\Monster\' XBase(9) XHeight(22) Xx Height(15) X'a': Bounds(-9,11)S(-4,-2)S(-4,-3)S(-3,-3)S(-3,-1)(-5,-1)(-5,-3)(-4,-4)(-2,-5) X (2,-5)(4,-4)(5,-3)(6,-1)S(6,6)S(7,8)S(8,9)(6,9) Pen Up X (4,-3)(5,-1)(5,6)(6,8) Pen Up X (2,-5)(3,-4)(4,-2)(4,6)(5,8)S(8,9)S(9,9) Pen Up X (4,0)(3,1)(-2,2)(-5,3)(-6,5)(-6,6)(-5,8)(-2,9)(1,9) X (3,8)(4,6) Pen Up X (-4,3)(-5,5)(-5,6)(-4,8) Pen Up X (3,1)(-1,2)(-3,3)(-4,5)(-4,6)(-3,8)(-2,9) End Char X'b': Bounds(-11,10)(-6,-12)(-6,7)S(-6,9)(-5,8)(-3,8) Pen Up X (-5,-11)(-5,7) Pen Up X S(-9,-12)(-4,-12)(-4,8) Pen Up X (-4,-2)(-3,-4)(-1,-5)(1,-5)(4,-4)(6,-2)(7,1)(7,3)(6,6) X (4,8)(1,9)(-1,9)(-3,8)(-4,6) Pen Up X (5,-2)(6,0)(6,4)(5,6) Pen Up X (1,-5)(3,-4)(4,-3)(5,0)(5,4)(4,7)(3,8)(1,9) Pen Up X S(-8,-12)S(-6,-11) Pen Up X s(-7,-12)s(-6,-10) End Char X'c': Bounds(-10,9)S(5,-1)S(5,-2)S(4,-2)S(4,0)(6,0)(6,-2)(4,-4)(2,-5) X (-1,-5)(-4,-4)(-6,-2)(-7,1)(-7,3)(-6,6)(-4,8)(-1,9)(1,9) X (4,8)(6,6) Pen Up X (-5,-2)(-6,0)(-6,4)(-5,6) Pen Up X (-1,-5)(-3,-4)(-4,-3)(-5,0)(-5,4)(-4,7)(-3,8)(-1,9) End Char X'd': Bounds(-10,11)(4,-12)(4,9)S(9,9) Pen Up X (5,-11)(5,8) Pen Up X S(1,-12)(6,-12)(6,9) Pen Up X (4,-2)(3,-4)(1,-5)(-1,-5)(-4,-4)(-6,-2)(-7,1)(-7,3)(-6,6) X (-4,8)(-1,9)(1,9)(3,8)(4,6) Pen Up X (-5,-2)(-6,0)(-6,4)(-5,6) Pen Up X (-1,-5)(-3,-4)(-4,-3)(-5,0)(-5,4)(-4,7)(-3,8)(-1,9) Pen Up X S(2,-12)S(4,-11) Pen Up X s(3,-12)s(4,-10) Pen Up X S(6,7)S(7,9) Pen Up X s(6,8)s(8,9) End Char X'e': Bounds(-10,9)(-5,1)(6,1)(6,-1)(5,-3)(4,-4)(1,-5)(-1,-5)(-4,-4) X (-6,-2)(-7,1)(-7,3)(-6,6)(-4,8)(-1,9)(1,9)(4,8)(6,6) Pen Up X (5,0)(5,-1)(4,-3) Pen Up X (-5,-2)(-6,0)(-6,4)(-5,6) Pen Up X (4,1)(4,-2)(3,-4)(1,-5) Pen Up X (-1,-5)(-3,-4)(-4,-3)(-5,0)(-5,4)(-4,7)(-3,8)(-1,9) End Char X'f': Bounds(-7,7)S(5,-10)S(5,-11)S(4,-11)S(4,-9)(6,-9)(6,-11)(5,-12)(2,-12) X (0,-11)(-1,-10)(-2,-7)(-2,9) Pen Up X (0,-10)(-1,-7)(-1,8) Pen Up X (2,-12)(1,-11)(0,-9)(0,9) Pen Up X (-5,-5)(4,-5) Pen Up X S(-5,9)S(3,9) Pen Up X S(-2,8)S(-4,9) Pen Up X S(-2,7)S(-3,9) Pen Up X S(0,7)S(1,9) Pen Up X S(0,8)S(2,9) End Char X'g': Bounds(-9,10)S(6,-4)S(7,-3)S(8,-4)S(7,-5)S(6,-5)S(4,-4)S(3,-3) Pen Up X (-1,-5)(-3,-4)(-4,-3)(-5,-1)(-5,1)(-4,3)(-3,4)(-1,5)(1,5) X (3,4)(4,3)(5,1)(5,-1)(4,-3)(3,-4)(1,-5)(-1,-5) Pen Up X (-3,-3)(-4,-1)(-4,1)(-3,3) Pen Up X (3,3)(4,1)(4,-1)(3,-3) Pen Up X (-1,-5)(-2,-4)(-3,-2)(-3,2)(-2,4)(-1,5) Pen Up X (1,5)(2,4)(3,2)(3,-2)(2,-4)(1,-5) Pen Up X (-4,3)(-5,4)(-6,6)(-6,7)(-5,9)(-4,10)(-1,11)(3,11)(6,12) X (7,13) Pen Up X (-4,9)(-1,10)(3,10)(6,11) Pen Up X (-6,7)(-5,8)(-2,9)(3,9)(6,10)(7,12)(7,13)(6,15)(3,16) X (-3,16)(-6,15)(-7,13)(-7,12)(-6,10)(-3,9) Pen Up X (-3,16)(-5,15)(-6,13)(-6,12)(-5,10)(-3,9) End Char X'h': Bounds(-11,12)(-6,-12)(-6,9) Pen Up X (-5,-11)(-5,8) Pen Up X S(-9,-12)(-4,-12)(-4,9) Pen Up X (-4,-1)(-3,-3)(-2,-4)(0,-5)(3,-5)(5,-4)(6,-3)(7,0)(7,9) Pen Up X (5,-3)(6,0)(6,8) Pen Up X (3,-5)(4,-4)(5,-1)(5,9) Pen Up X S(-9,9)S(-1,9) Pen Up X S(2,9)S(10,9) Pen Up X S(-8,-12)S(-6,-11) Pen Up X s(-7,-12)s(-6,-10) Pen Up X S(-6,8)S(-8,9) Pen Up X s(-6,7)s(-7,9) Pen Up X S(-4,7)S(-3,9) Pen Up X s(-4,8)s(-2,9) Pen Up X S(5,8)S(3,9) Pen Up X s(5,7)s(4,9) Pen Up X S(7,7)S(8,9) Pen Up X s(7,8)s(9,9) End Char X'i': Bounds(-6,6)(-1,-12)(-1,-10)(1,-10)(1,-12)(-1,-12) Pen Up X (0,-12)(0,-10) Pen Up X (-1,-11)(1,-11) Pen Up X (-1,-5)(-1,9) Pen Up X (0,-4)(0,8) Pen Up X S(-4,-5)(1,-5)(1,9) Pen Up X S(-4,9)S(4,9) Pen Up X S(-3,-5)S(-1,-4) Pen Up X s(-2,-5)s(-1,-3) Pen Up X S(-1,8)S(-3,9) Pen Up X s(-1,7)s(-2,9) Pen Up X S(1,7)S(2,9) Pen Up X s(1,8)s(3,9) End Char X'j': Bounds(-7,6)(0,-12)(0,-10)(2,-10)(2,-12)(0,-12) Pen Up X (1,-12)(1,-10) Pen Up X (0,-11)(2,-11) Pen Up X (0,-5)(0,12)(-1,15)(-2,16) Pen Up X (1,-4)(1,11)(0,14) Pen Up X S(-3,-5)(2,-5)(2,11)(1,14)(0,15)(-2,16)(-5,16)(-6,15)(-6,13) X (-4,13)(-4,15)(-5,15)(-5,14) Pen Up X S(-2,-5)S(0,-4) Pen Up X s(-1,-5)s(0,-3) End Char X'k': Bounds(-11,11)(-6,-12)(-6,9) Pen Up X (-5,-11)(-5,8) Pen Up X S(-9,-12)(-4,-12)(-4,9) Pen Up X (5,-5)(-4,5) Pen Up X (0,1)(7,9) Pen Up X (0,2)(6,9) Pen Up X (-1,2)(5,9) Pen Up X S(2,-5)S(9,-5) Pen Up X S(-9,9)S(-1,9) Pen Up X s(2,9)s(9,9) Pen Up X S(-8,-12)S(-6,-11) Pen Up X s(-7,-12)s(-6,-10) Pen Up X s(3,-5)s(5,-4) Pen Up X s(8,-5)s(5,-4) Pen Up X S(-6,8)S(-8,9) Pen Up X s(-6,7)s(-7,9) Pen Up X S(-4,7)S(-3,9) Pen Up X s(-4,8)s(-2,9) Pen Up X s(5,7)s(3,9) Pen Up X s(4,7)s(8,9) End Char X'l': Bounds(-6,6)(-1,-12)(-1,9) Pen Up X (0,-11)(0,8) Pen Up X S(-4,-12)(1,-12)(1,9) Pen Up X S(-4,9)S(4,9) Pen Up X S(-3,-12)S(-1,-11) Pen Up X s(-2,-12)s(-1,-10) Pen Up X s(-1,8)s(-3,9) Pen Up X S(-1,7)S(-2,9) Pen Up X S(1,7)S(2,9) Pen Up X s(1,8)s(3,9) End Char X'm': Bounds(-17,17)(-12,-5)(-12,9) Pen Up X (-11,-4)(-11,8) Pen Up X S(-15,-5)(-10,-5)(-10,9) Pen Up X (-10,-1)(-9,-3)(-8,-4)(-6,-5)(-3,-5)(-1,-4)(0,-3)(1,0)(1,9) Pen Up X (-1,-3)(0,0)(0,8) Pen Up X (-3,-5)(-2,-4)(-1,-1)(-1,9) Pen Up X (1,-1)(2,-3)(3,-4)(5,-5)(8,-5)(10,-4)(11,-3)(12,0)(12,9) Pen Up X (10,-3)(11,0)(11,8) Pen Up X (8,-5)(9,-4)(10,-1)(10,9) Pen Up X S(-15,9)S(-7,9) Pen Up X S(-4,9)S(4,9) Pen Up X S(7,9)S(15,9) Pen Up X S(-14,-5)S(-12,-4) Pen Up X s(-13,-5)s(-12,-3) Pen Up X s(-12,8)s(-14,9) Pen Up *a X S(-12,7)S(-13,9) Pen Up X S(-10,7)S(-9,9) Pen Up X s(-10,8)s(-8,9) Pen Up X s(-1,8)s(-3,9) Pen Up X S(-1,7)S(-2,9) Pen Up X S(1,7)S(2,9) Pen Up X s(1,8)s(3,9) Pen Up X s(10,8)s(8,9) Pen Up X S(10,7)S(9,9) Pen Up X S(12,7)S(13,9) Pen Up X s(12,8)s(14,9) End Char X'n': Bounds(-11,12)(-6,-5)(-6,9) Pen Up X (-5,-4)(-5,8) Pen Up X S(-9,-5)(-4,-5)(-4,9) Pen Up X (-4,-1)(-3,-3)(-2,-4)(0,-5)(3,-5)(5,-4)(6,-3)(7,0)(7,9) Pen Up X (5,-3)(6,0)(6,8) Pen Up X (3,-5)(4,-4)(5,-1)(5,9) Pen Up X S(-9,9)S(-1,9) Pen Up X S(2,9)S(10,9) Pen Up X S(-8,-5)S(-6,-4) Pen Up X s(-7,-5)s(-6,-3) Pen Up X s(-6,8)s(-8,9) Pen Up X S(-6,7)S(-7,9) Pen Up X S(-4,7)S(-3,9) Pen Up X s(-4,8)s(-2,9) Pen Up X s(5,8)s(3,9) Pen Up X S(5,7)S(4,9) Pen Up X S(7,7)S(8,9) Pen Up X s(7,8)s(9,9) End Char X'o': Bounds(-10,10)(-1,-5)(-4,-4)(-6,-2)(-7,1)(-7,3)(-6,6)(-4,8)(-1,9) X (1,9)(4,8)(6,6)(7,3)(7,1)(6,-2)(4,-4)(1,-5)(-1,-5) Pen Up X (-5,-2)(-6,0)(-6,4)(-5,6) Pen Up X (5,6)(6,4)(6,0)(5,-2) Pen Up X (-1,-5)(-3,-4)(-4,-3)(-5,0)(-5,4)(-4,7)(-3,8)(-1,9) Pen Up X (1,9)(3,8)(4,7)(5,4)(5,0)(4,-3)(3,-4)(1,-5) End Char X'p': Bounds(-11,10)(-6,-5)(-6,16) Pen Up X (-5,-4)(-5,15) Pen Up X S(-9,-5)(-4,-5)(-4,16) Pen Up X (-4,-2)(-3,-4)(-1,-5)(1,-5)(4,-4)(6,-2)(7,1)(7,3)(6,6) X (4,8)(1,9)(-1,9)(-3,8)(-4,6) Pen Up X (5,-2)(6,0)(6,4)(5,6) Pen Up X (1,-5)(3,-4)(4,-3)(5,0)(5,4)(4,7)(3,8)(1,9) Pen Up X S(-9,16)S(-1,16) Pen Up X S(-8,-5)S(-6,-4) Pen Up X s(-7,-5)s(-6,-3) Pen Up X s(-6,15)s(-8,16) Pen Up X S(-6,14)S(-7,16) Pen Up X S(-4,14)S(-3,16) Pen Up X s(-4,15)s(-2,16) End Char X'q': Bounds(-10,10)(4,-4)(4,16) Pen Up X (5,-3)(5,15) Pen Up X (3,-4)(5,-4)(6,-5)(6,16) Pen Up X (4,-2)(3,-4)(1,-5)(-1,-5)(-4,-4)(-6,-2)(-7,1)(-7,3)(-6,6) X (-4,8)(-1,9)(1,9)(3,8)(4,6) Pen Up X (-5,-2)(-6,0)(-6,4)(-5,6) Pen Up X (-1,-5)(-3,-4)(-4,-3)(-5,0)(-5,4)(-4,7)(-3,8)(-1,9) Pen Up X S(1,16)S(9,16) Pen Up X s(4,15)s(2,16) Pen Up X S(4,14)S(3,16) Pen Up X S(6,14)S(7,16) Pen Up X s(6,15)s(8,16) End Char X'r': Bounds(-9,8)(-4,-5)(-4,9) Pen Up X (-3,-4)(-3,8) Pen Up X S(-7,-5)(-2,-5)(-2,9) Pen Up X S(5,-3)S(5,-4)S(4,-4)S(4,-2)(6,-2)(6,-4)(5,-5)(3,-5)(1,-4) X (-1,-2)(-2,1) Pen Up X S(-7,9)S(1,9) Pen Up X S(-6,-5)S(-4,-4) Pen Up X s(-5,-5)s(-4,-3) Pen Up X s(-4,8)s(-6,9) Pen Up X S(-4,7)S(-5,9) Pen Up X S(-2,7)S(-1,9) Pen Up X s(-2,8)s(0,9) End Char X's': Bounds(-8,9)S(5,-3)S(6,-5)(6,-1)(5,-3)(4,-4)(2,-5)(-2,-5)(-4,-4) X (-5,-3)(-5,-1)(-4,1)(-2,2)(3,3)(5,4)(6,7) Pen Up X (-4,-4)(-5,-1) Pen Up X (-4,0)(-2,1)(3,2)(5,3) Pen Up X (6,4)(5,8) Pen Up X (-5,-3)(-4,-1)(-2,0)(3,1)(5,2)(6,4)(6,7)(5,8)(3,9) X (-1,9)(-3,8)(-4,7)(-5,5)S(-5,9)S(-4,7) End Char X't': Bounds(-7,8)(-2,-10)(-2,4)(-1,7)(0,8)(2,9)s(4,9)S(6,8)S(7,6) Pen Up X (-1,-10)(-1,5)(0,7) Pen Up X (-2,-10)(0,-12)(0,5)(1,8)(2,9) Pen Up X (-5,-5)(4,-5) End Char X'u': Bounds(-11,12)(-6,-5)(-6,4)(-5,7)(-4,8)(-2,9)(1,9)(3,8)(4,7) X (5,5) Pen Up X (-5,-4)(-5,5)(-4,7) Pen Up X S(-9,-5)(-4,-5)(-4,5)(-3,8)(-2,9) Pen Up X (5,-5)(5,9)S(10,9) Pen Up X (6,-4)(6,8) Pen Up X S(2,-5)(7,-5)(7,9) Pen Up X S(-8,-5)S(-6,-4) Pen Up X s(-7,-5)s(-6,-3) Pen Up X S(7,7)S(8,9) Pen Up X s(7,8)s(9,9) End Char X'v': Bounds(-9,9)(-6,-5)(0,9) Pen Up X (-5,-5)(0,7) Pen Up X (-4,-5)(1,7) Pen Up X (6,-5)(1,7)(0,9) Pen Up X S(-8,-5)S(-1,-5) Pen Up X S(2,-5)S(8,-5) Pen Up X s(-7,-5)s(-4,-3) Pen Up X s(-2,-5)s(-4,-4) Pen Up X s(4,-5)s(6,-4) Pen Up X s(7,-5)s(6,-4) End Char X'w': Bounds(-12,12)(-10,-5)(-5,9) Pen Up X (-9,-5)(-5,6) Pen Up X (-8,-5)(-4,6) Pen Up X (0,-5)(-5,6)(-5,9) Pen Up X (0,-5)(5,9) Pen Up X (1,-5)(5,6) Pen Up X (0,-5)(2,-5)(6,6) Pen Up X (10,-5)(6,6)(5,9) Pen Up *was (10,-4)... X S(-13,-5)S(-4,-5) Pen Up X S(7,-5)S(13,-5) Pen Up X S(-12,-5)S(-8,-4) Pen Up X S(-5,-5)S(-7,-4) Pen Up X S(7,-5)S(10,-4) Pen Up X S(12,-5)S(10,-4) End Char X'x': Bounds(-10,10)(-6,-5)(4,9) Pen Up X (-5,-5)(5,9) Pen Up X (-4,-5)(6,9) Pen Up X (5,-5)(-5,8) Pen Up X S(-8,-5)S(-1,-5) Pen Up X S(2,-5)S(8,-5) Pen Up X S(-8,9)S(-2,9) Pen Up X S(1,9)S(8,9) Pen Up X s(-7,-5)s(-5,-4) Pen Up X s(-2,-5)s(-4,-4) Pen Up X s(3,-5)s(5,-4) Pen Up X s(7,-5)s(5,-4) Pen Up X s(-5,8)s(-7,9) Pen Up X s(-5,8)s(-3,9) Pen Up X s(4,8)s(2,9) Pen Up X s(5,8)s(7,9) End Char X'y': Bounds(-10,9)(-6,-5)(0,9) Pen Up X (-5,-5)(0,7) Pen Up X (-4,-5)(1,7) Pen Up X (6,-5)(1,7)(-2,13)(-4,15)(-6,16)(-8,16)s(-9,15)s(-9,13)S(-7,13) X S(-7,15)S(-8,15)S(-8,14) Pen Up X S(-8,-5)S(-1,-5) Pen Up X S(2,-5)S(8,-5) Pen Up X s(-7,-5)s(-4,-3) Pen Up X s(-2,-5)s(-4,-4) Pen Up X s(4,-5)s(6,-4) Pen Up X s(7,-5)s(6,-4) End Char X'z': Bounds(-9,9)(4,-5)(-6,9) Pen Up X (5,-5)(-5,9) Pen Up X (6,-5)(-4,9) Pen Up X (6,-5)(-6,-5)S(-6,-1) Pen Up X (-6,9)(6,9)S(6,5) Pen Up X S(-5,-5)S(-6,-1) Pen Up X S(-4,-5)S(-6,-2) Pen Up X S(-3,-5)S(-6,-3) Pen Up X S(-1,-5)S(-6,-4) Pen Up X S(1,9)S(6,8) Pen Up X S(3,9)S(6,7) Pen Up X S(4,9)S(6,6) Pen Up X S(5,9)S(6,5) End Char X \Rogue\Monster\ else echo "will not over write ./trs.chr" fi if [ `wc -c ./trs.chr | awk '{printf $1}'` -ne 10460 ] then echo `wc -c ./trs.chr | awk '{print "Got " $1 ", Expected " 10460}'` fi if `test ! -s ./vfont.c` then echo "writing ./vfont.c" sed 's/^X//' > ./vfont.c << '\Rogue\Monster\' X/* X * This routine was adapted from: X * X * hfont - build a vfont raster file from a hershey format vector file X * X * Written by William LeFebvre, LCSE, Rice University X */ X X# include <vfont.h> X X# define MAX_CHARS 256 /* number of chars in a vfont file */ X# define Headersize (sizeof(struct header) + sizeof(struct dispatch) * MAX_CHARS) X X Xvfont() X{ int vfd, filesize, bytecnt, nrows, ncols, colbytes; X struct header v_header; X struct dispatch v_character[256]; X struct dispatch *character; X X if ((vfd = creat(ftname, 0666)) == -1) X { X perror(ftname); X exit(1); X } X /* leave space for the header, character descriptors, and space bitmap */ X lseek(vfd, Headersize + 2, 0); X filesize = 2; X X /* translate the characters */ X X for (letter = 0; letter < 128; letter++) X { X X character = &(v_character[letter]); X X /* find the character in the Hershey font */ X X if (letter == 32) X { X /* this is a special width space character */ X character->nbytes = 2; X character->addr = 0; X character->up = character->down = X character->left = character->right = 0; X character->width = 12; /* ??? */ X } X else if (cindex[letter] || cvflag) X { X /* normal hershey character */ X X if (cvflag) X { if (letter == 0 || letter == 127) continue; X currch = letter; X tokeep(); X if (!currlen) continue; X ctovkeep();/* showbits();*/ X } else X lplot(letter); X X nrows = ytop + ybot; X ncols = currlen; X colbytes = (ncols + 7)/8; X#ifdef sun X if (colbytes & 1) colbytes += 1; X#endif X /* fill in the character descriptor */ X character->width = ncols; /* ADD bearings */ X character->down = ybot; /*down_max - baseline;*/ X character->up = ytop; /*baseline - up_max;*/ X character->left = 0; /*left_ex - left_max;*/ X character->right = ncols; /*right_max - left_ex + 1;*/ X character->addr = filesize; X character->nbytes = bytecnt = colbytes * nrows; X /*((right_max - left_max + 8) >> 3) * X (down_max - up_max);*/ X X /* write the raster */ X for (i = 0; i < nrows; i++) X write(vfd, vkeep[i], colbytes); X X filesize += bytecnt; X X } X X } X X /* write the font header with the real file size */ X v_header.size = filesize; X v_header.magic = 0436; X v_header.maxx = v_header.maxy = v_header.xtend = 0; X lseek(vfd, 0, 0); X write(vfd, &v_header, sizeof(v_header)); X X /* write the character dispatch area */ X write(vfd, v_character, sizeof(v_character)); X X close(vfd); X} X \Rogue\Monster\ else echo "will not over write ./vfont.c" fi if [ `wc -c ./vfont.c | awk '{printf $1}'` -ne 2486 ] then echo `wc -c ./vfont.c | awk '{print "Got " $1 ", Expected " 2486}'` fi echo "Finished archive 1 of 4" # if you want to concatenate archives, remove anything after this line exit