home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume12 / hershtools / part01 next >
Encoding:
Internet Message Format  |  1987-10-24  |  42.7 KB
  1. Subject:  v12i040:  Hershey font manipulation tools and data, Part01/05
  2. Newsgroups: comp.sources.unix
  3. Sender: sources
  4. Approved: rs@uunet.UU.NET
  5.  
  6. Submitted-by: lee@uhccux.UUCP (Greg Lee)
  7. Posting-number: Volume 12, Issue 40
  8. Archive-name: hershtools/part01
  9.  
  10. Here are some programs for making use of the Hershey character data.  Eplot
  11. and hplot allow the editing of vector fonts and the creation of other fonts
  12. from them -- vfont format raster fonts, PostScript analytic fonts -- as
  13. well as tfm files for TeX.  The file format for vector fonts is idiosyncratic,
  14. I'm sorry to say.  I have not had access to the Hershey data in the usual
  15. formats.  I have included two sets of four files each containing the Hershey
  16. simplex and triplex Roman characters in the format required for these
  17. programs -- these are sr?.chr and tr?.chr, where the ? is c for capital
  18. letters, s for small letters, d for digits, or p for punctuation.  Just
  19. in case anyone has the Hershey data in the compressed form I have it in
  20. (similar the National Bureau of Standards form) I included the utility
  21. htrans, which converts from the compressed form to my form.  (By the way,
  22. I would really like to have the Hershey data for oriental characters.)
  23.  
  24. These programs have compiled ok in the Ultrix 1.2 and Sun 3.0 versions of
  25. BSD 4.2.
  26.  
  27. Parts of the source (termio.c, termio.h) were taken from the Xum package
  28. distributed in net.sources by John Paul O'Brien, Nova University, Fort
  29. Lauderdale, Florida, {allegra, ucf-cs, usfvax2}!novavax!john, and (vfont.c) from
  30. the Hfont package by William LeFebvre, Department of Computer Science,
  31. Rice University, <phil@Rice.edu>.  These appear to be in the public domain.
  32. I am grateful to the above for the use of their code, and I hereby place
  33. the rest of the code and documents for these programs in the public domain.
  34.  
  35.  
  36. Greg Lee
  37. U.S.mail: 562 Moore Hall, Dept. of Linguistics, Univ. of Hawaii, HONO, HI 96822
  38. INTERNET: lee@uhccux.uhcc.hawaii.edu
  39. UUCP:     {ihnp4,dcdwest,ucbvax}!sdcsvax!nosc!uhccux!lee
  40. BITNET:   lee%uhccux.uhcc.hawaii.edu@rutgers.edu
  41.  
  42. # This is a shell archive.  Remove anything before this line
  43. # then unpack it by saving it in a file and typing "sh file"
  44. # (Files unpacked will be owned by you and have default permissions).
  45. # This archive contains the following files:
  46. #    ./termio.h
  47. #    ./trc.chr
  48. #    ./trd.chr
  49. #    ./trp.chr
  50. #    ./trs.chr
  51. #    ./vfont.c
  52. #
  53. if `test ! -s ./termio.h`
  54. then
  55. echo "writing ./termio.h"
  56. sed 's/^X//' > ./termio.h << '\Rogue\Monster\'
  57. X#include <stdio.h>
  58. X#include <sgtty.h>
  59. X#include <signal.h>
  60. X#include <setjmp.h>
  61. X#include <sys/file.h>
  62. X#include <sys/errno.h>
  63. X
  64. Xtypedef    unsigned char    byte;
  65. Xtypedef    unsigned short    word;
  66. X
  67. Xint    errno;    /* define this globally so that Unix can set it    */
  68. X
  69. \Rogue\Monster\
  70. else
  71.   echo "will not over write ./termio.h"
  72. fi
  73. if [ `wc -c ./termio.h | awk '{printf $1}'` -ne 245 ]
  74. then
  75. echo `wc -c ./termio.h | awk '{print "Got " $1 ", Expected " 245}'`
  76. fi
  77. if `test ! -s ./trc.chr`
  78. then
  79. echo "writing ./trc.chr"
  80. sed 's/^X//' > ./trc.chr << '\Rogue\Monster\'
  81. X'A': Bounds(-10,10)(0,-12)(-7,9) Pen Up
  82. X    (-1,-9)(5,9) Pen Up
  83. X    (0,-9)(6,9) Pen Up
  84. X    (0,-12)(7,9) Pen Up
  85. X    (-5,3)(4,3) Pen Up
  86. X    S(-9,9)S(-3,9) Pen Up
  87. X    S(2,9)S(9,9) Pen Up
  88. X    s(-7,8)s(-8,9) Pen Up
  89. X    s(-7,8)s(-5,9) Pen Up
  90. X    s(5,8)s(3,9) Pen Up
  91. X    s(5,7)s(4,9) Pen Up
  92. X    s(6,7)s(8,9) End Char
  93. X'B': Bounds(-11,11)(-6,-12)(-6,9) Pen Up
  94. X    (-5,-11)(-5,8) Pen Up
  95. X    (-4,-12)(-4,9) Pen Up
  96. X    S(-9,-12)(-6,-12)(3,-12)(6,-11)(7,-10)(8,-8)(8,-6)(7,-4)(6,-3)(3,-2) Pen Up
  97. X    (6,-10)(7,-8)(7,-6)(6,-4) Pen Up        *CDE
  98. X    (3,-12)(5,-11)(6,-9)(6,-5)(5,-3)(3,-2) Pen Up
  99. X    (-4,-2)(3,-2)(6,-1)(7,0)(8,2)(8,5)(7,7)(6,8)(3,9)
  100. X    (-6,9)S(-9,9) Pen Up
  101. X    (6,0)(7,2)(7,5)(6,7) Pen Up            *TUV
  102. X    (3,-2)(5,-1)(6,1)(6,6)(5,8)(3,9) Pen Up
  103. X    S(-8,-12)S(-6,-11) Pen Up            *b
  104. X    s(-7,-12)s(-6,-10) Pen Up
  105. X    s(-3,-12)s(-4,-10) Pen Up
  106. X    S(-2,-12)S(-4,-11) Pen Up
  107. X    s(-6,8)s(-8,9) Pen Up            *f
  108. X    S(-6,7)S(-7,9) Pen Up
  109. X    S(-4,7)S(-3,9) Pen Up
  110. X    s(-4,8)s(-2,9) End Char
  111. X'C': Bounds(-11,10)S(6,-9)S(7,-12)(7,-6)(6,-9)(4,-11)(2,-12)(-1,-12)(-4,-11)
  112. X    (-6,-9)(-7,-7)(-8,-4)(-8,1)(-7,4)(-6,6)(-4,8)(-1,9)(2,9)
  113. X    (4,8)(6,6)(7,4) Pen Up
  114. X    (-5,-9)(-6,-7)(-7,-4)(-7,1)(-6,4)(-5,6) Pen Up
  115. X    (-1,-12)(-3,-11)(-5,-8)(-6,-4)(-6,1)(-5,5)(-3,8)(-1,9) End Char
  116. X'D': Bounds(-11,11)(-6,-12)(-6,9) Pen Up
  117. X    (-5,-11)(-5,8) Pen Up
  118. X    (-4,-12)(-4,9) Pen Up
  119. X    S(-9,-12)(-6,-12)(1,-12)(4,-11)(6,-9)(7,-7)(8,-4)(8,1)(7,4)(6,6)
  120. X    (4,8)(1,9)(-6,9)S(-9,9) Pen Up
  121. X    (5,-9)(6,-7)(7,-4)(7,1)(6,4)(5,6) Pen Up
  122. X    (1,-12)(3,-11)(5,-8)(6,-4)(6,1)(5,5)(3,8)(1,9) Pen Up
  123. X    S(-8,-12)S(-6,-11) Pen Up
  124. X    s(-7,-12)s(-6,-10) Pen Up
  125. X    S(-3,-12)s(-4,-10) Pen Up
  126. X    s(-2,-12)S(-4,-11) Pen Up
  127. X    S(-6,8)S(-8,9) Pen Up
  128. X    s(-6,7)s(-7,9) Pen Up
  129. X    S(-4,7)S(-3,9) Pen Up
  130. X    s(-4,8)s(-2,9) End Char
  131. X'E': Bounds(-11,10)(-6,-12)(-6,9) Pen Up
  132. X    (-5,-11)(-5,8) Pen Up
  133. X    (-4,-12)(-4,9) Pen Up
  134. X    S(-9,-12)(-6,-12)(7,-12)S(7,-6) Pen Up
  135. X    (-4,-2)(2,-2) Pen Up
  136. X    S(2,-6)S(2,2) Pen Up            *7
  137. X    S(-9,9)(-6,9)(7,9)S(7,3) Pen Up
  138. X    S(-8,-12)S(-6,-11) Pen Up            *A
  139. X    s(-7,-12)s(-6,-10) Pen Up
  140. X    s(-3,-12)s(-4,-10) Pen Up
  141. X    S(-2,-12)S(-4,-11) Pen Up
  142. X    S(2,-12)S(7,-11) Pen Up
  143. X    s(4,-12)s(7,-10) Pen Up
  144. X    s(5,-12)s(7,-9) Pen Up
  145. X    S(6,-12)S(7,-6) Pen Up
  146. X    S(2,-6)S(1,-2)S(2,2) Pen Up
  147. X    S(2,-4)S(0,-2)S(2,0) Pen Up            *KL
  148. X    S(2,-3)S(-2,-2)S(2,-1) Pen Up
  149. X    S(-6,8)S(-8,9) Pen Up
  150. X    S(-6,7)S(-7,9) Pen Up
  151. X    S(-4,7)S(-3,9) Pen Up
  152. X    s(-4,8)s(-2,9) Pen Up
  153. X    s(2,9)s(7,8) Pen Up
  154. X    s(4,9)s(7,7) Pen Up                *T
  155. X    s(5,9)s(7,6) Pen Up
  156. X    S(6,9)S(7,3) End Char
  157. X'F': Bounds(-11,9)(-6,-12)(-6,9) Pen Up
  158. X    (-5,-11)(-5,8) Pen Up
  159. X    (-4,-12)(-4,9) Pen Up
  160. X    S(-9,-12)(-6,-12)(7,-12)S(7,-6) Pen Up
  161. X    (-4,-2)(2,-2) Pen Up
  162. X    S(2,-6)S(2,2) Pen Up
  163. X    S(-9,9)S(-1,9) Pen Up
  164. X    S(-8,-12)S(-6,-11) Pen Up
  165. X    s(-7,-12)s(-6,-10) Pen Up
  166. X    s(-3,-12)s(-4,-10) Pen Up
  167. X    S(-2,-12)S(-4,-11) Pen Up            *C
  168. X    S(2,-12)S(7,-11) Pen Up
  169. X    s(4,-12)s(7,-10) Pen Up
  170. X    s(5,-12)s(7,-9) Pen Up
  171. X    S(6,-12)S(7,-6) Pen Up
  172. X    S(2,-6)S(1,-2)S(2,2) Pen Up            *HI
  173. X    s(2,-4)s(0,-2)s(2,0) Pen Up
  174. X    s(2,-3)s(-2,-2)s(2,-1) Pen Up
  175. X    S(-6,8)S(-8,9) Pen Up
  176. X    S(-6,7)S(-7,9) Pen Up
  177. X    S(-4,7)S(-3,9) Pen Up
  178. X    S(-4,8)S(-2,9) End Char
  179. X'G': Bounds(-11,12)S(6,-9)S(7,-12)(7,-6)(6,-9)(4,-11)(2,-12)(-1,-12)(-4,-11)
  180. X    (-6,-9)(-7,-7)(-8,-4)(-8,1)(-7,4)(-6,6)(-4,8)(-1,9)(2,9)
  181. X    (4,8)(6,8)(7,9)(7,1) Pen Up            *1-K
  182. X    (-5,-9)(-6,-7)(-7,-4)(-7,1)(-6,4)(-5,6) Pen Up
  183. X    (-1,-12)(-3,-11)(-5,-8)(-6,-4)(-6,1)(-5,5)(-3,8)(-1,9) Pen Up
  184. X    (6,2)(6,7) Pen Up                *X
  185. X    (5,1)(5,7)(4,8) Pen Up
  186. X    (2,1)(10,1) Pen Up
  187. X    S(3,1)S(5,2) Pen Up                *a
  188. X    S(4,1)S(5,3) Pen Up
  189. X    s(8,1)s(7,3) Pen Up
  190. X    s(9,1)s(7,2) End Char
  191. X'H': Bounds(-12,12)(-7,-12)(-7,9) Pen Up
  192. X    (-6,-11)(-6,8) Pen Up
  193. X    (-5,-12)(-5,9) Pen Up
  194. X    (5,-12)(5,9) Pen Up
  195. X    (6,-11)(6,8) Pen Up
  196. X    (7,-12)(7,9) Pen Up
  197. X    S(-10,-12)S(-2,-12) Pen Up
  198. X    S(2,-12)S(10,-12) Pen Up
  199. X    (-5,-2)(5,-2) Pen Up
  200. X    S(-10,9)S(-2,9) Pen Up            *A
  201. X    S(2,9)S(10,9) Pen Up
  202. X    S(-9,-12)S(-7,-11) Pen Up
  203. X    s(-8,-12)s(-7,-10) Pen Up
  204. X    s(-4,-12)s(-5,-10) Pen Up
  205. X    S(-3,-12)S(-5,-11) Pen Up
  206. X    S(3,-12)S(5,-11) Pen Up            *G
  207. X    s(4,-12)s(5,-10) Pen Up
  208. X    s(8,-12)s(7,-10) Pen Up
  209. X    S(9,-12)S(7,-11) Pen Up
  210. X    S(-7,8)S(-9,9) Pen Up
  211. X    s(-7,7)s(-8,9) Pen Up
  212. X    s(-5,7)s(-4,9) Pen Up
  213. X    S(-5,8)S(-3,9) Pen Up
  214. X    S(5,8)S(3,9) Pen Up
  215. X    s(5,7)s(4,9) Pen Up
  216. X    s(7,7)s(8,9) Pen Up
  217. X    S(7,8)S(9,9) End Char
  218. X'I': Bounds(-6,6)(-1,-12)(-1,9) Pen Up
  219. X    (0,-11)(0,8) Pen Up
  220. X    (1,-12)(1,9) Pen Up
  221. X    S(-4,-12)S(4,-12) Pen Up
  222. X    S(-4,9)S(4,9) Pen Up
  223. X    S(-3,-12)S(-1,-11) Pen Up
  224. X    s(-2,-12)s(-1,-10) Pen Up
  225. X    s(2,-12)s(1,-10) Pen Up
  226. X    S(3,-12)S(1,-11) Pen Up
  227. X    S(-1,8)S(-3,9) Pen Up
  228. X    s(-1,7)s(-2,9) Pen Up
  229. X    s(1,7)s(2,9) Pen Up
  230. X    S(1,8)S(3,9) End Char
  231. X'J': Bounds(-8,8)(1,-12)(1,5)(0,8)(-1,9) Pen Up
  232. X    (2,-11)(2,5)(1,8) Pen Up
  233. X    (3,-12)(3,5)(2,8)(-1,9)(-3,9)(-5,8)(-6,6)(-6,4)(-5,3)
  234. X    s(-4,3)s(-3,4)S(-3,5)S(-4,6)S(-5,6) Pen Up        *E-I
  235. X    S(-5,4)S(-5,5)S(-4,5)S(-4,4)S(-5,4) Pen Up
  236. X    S(-2,-12)S(6,-12) Pen Up                *N
  237. X    S(-1,-12)S(1,-11) Pen Up
  238. X    s(0,-12)s(1,-10) Pen Up
  239. X    s(4,-12)s(3,-10) Pen Up
  240. X    S(5,-12)S(3,-11) End Char
  241. X'K': Bounds(-12,10)(-7,-12)(-7,9) Pen Up
  242. X    (-6,-11)(-6,8) Pen Up
  243. X    (-5,-12)(-5,9) Pen Up
  244. X    (6,-12)(-5,0) Pen Up
  245. X    (-2,-2)(5,9) Pen Up
  246. X    (-1,-2)(6,9) Pen Up
  247. X    (-1,-4)(7,9) Pen Up
  248. X    S(-10,-12)S(-2,-12) Pen Up            *8
  249. X    S(3,-12)S(9,-12) Pen Up
  250. X    S(-10,9)S(-2,9) Pen Up            *A
  251. X    S(2,9)S(9,9) Pen Up
  252. X    S(-9,-12)S(-7,-11) Pen Up
  253. X    s(-8,-12)s(-7,-10) Pen Up
  254. X    s(-4,-12)s(-5,-10) Pen Up
  255. X    S(-3,-12)S(-5,-11) Pen Up
  256. X    s(5,-12)s(6,-11) Pen Up            *G
  257. X    s(8,-12)s(6,-11) Pen Up
  258. X    S(-7,8)S(-9,9) Pen Up
  259. X    s(-7,7)s(-8,9) Pen Up
  260. X    s(-5,7)s(-4,9) Pen Up
  261. X    S(-5,8)S(-3,9) Pen Up
  262. X    S(5,7)S(3,9) Pen Up                *M
  263. X    s(5,7)s(8,9) End Char
  264. X'L': Bounds(-9,9)(-4,-12)(-4,9) Pen Up
  265. X    (-3,-11)(-3,8) Pen Up
  266. X    (-2,-12)(-2,9) Pen Up
  267. X    S(-7,-12)S(1,-12) Pen Up            *4
  268. X    S(-7,9)s(-2,9)(-4,9)(8,9)s(8,6)S(8,3) Pen Up    *5,6
  269. X    S(-6,-12)S(-4,-11) Pen Up
  270. X    s(-5,-12)s(-4,-10) Pen Up
  271. X    s(-1,-12)s(-2,-10) Pen Up
  272. X    S(0,-12)S(-2,-11) Pen Up            *A
  273. X    S(-4,8)S(-6,9) Pen Up
  274. X    (-4,7)(-5,9) Pen Up
  275. X    (-2,7)(-1,9) Pen Up                *D
  276. X    S(-2,8)S(0,9) Pen Up
  277. X    s(3,9)s(8,8) Pen Up
  278. X    s(5,9)s(8,7) Pen Up
  279. X    S(6,9)S(8,6) Pen Up                *H
  280. X    S(7,9)S(8,3) End Char
  281. X'M': Bounds(-13,13)(-8,-12)(-8,8) Pen Up
  282. X    (-8,-12)(-1,9) Pen Up
  283. X    (-7,-12)(-1,6) Pen Up
  284. X    (-6,-12)(0,6) Pen Up
  285. X    (6,-12)(-1,9) Pen Up            *5
  286. X    (6,-12)(6,9) Pen Up
  287. X    (7,-11)(7,8) Pen Up
  288. X    (8,-12)(8,9) Pen Up
  289. X    S(-11,-12)(-8,-12)(-6,-12) Pen Up        *9
  290. X    S(6,-12)(8,-12)(11,-12) Pen Up        *A
  291. X    S(-11,9)S(-5,9) Pen Up            *B
  292. X    S(3,9)(6,9)(9,9)S(11,9) Pen Up        *C
  293. X    S(-10,-12)S(-8,-11) Pen Up            *D
  294. X    s(-9,-12)s(-8,-11) Pen Up
  295. X    s(9,-12)s(8,-10) Pen Up            *E
  296. X    S(10,-12)S(8,-11) Pen Up
  297. X    s(-8,8)s(-10,9) Pen Up
  298. X    s(-8,8)s(-6,9) Pen Up
  299. X    S(6,8)S(4,9) Pen Up                *I
  300. X    s(6,7)s(5,9) Pen Up
  301. X    s(8,7)s(9,9) Pen Up                *K
  302. X    S(8,8)S(10,9) End Char
  303. X'N': Bounds(-12,12)(-7,-12)(-7,8) Pen Up
  304. X    (-7,-12)(7,9) Pen Up
  305. X    (-6,-12)(6,6) Pen Up
  306. X    (-5,-12)(7,6) Pen Up
  307. X    (7,-11)(7,9) Pen Up
  308. X    (-10,-12)(-5,-12) Pen Up
  309. X    (4,-12)(10,-12) Pen Up
  310. X    (-10,9)(-4,9) Pen Up
  311. X    (-9,-12)(-7,-11) Pen Up
  312. X    (5,-12)(7,-11) Pen Up
  313. X    (9,-12)(7,-11) Pen Up
  314. X    (-7,8)(-9,9) Pen Up
  315. X    (-7,8)(-5,9) End Char
  316. X'O': Bounds(-11,11)(-1,-12)(-4,-11)(-6,-9)(-7,-7)(-8,-3)(-8,0)(-7,4)(-6,6)
  317. X    (-4,8)(-1,9)(1,9)(4,8)(6,6)(7,4)(8,0)(8,-3)(7,-7)
  318. X    (6,-9)(4,-11)(1,-12)(-1,-12) Pen Up
  319. X    (-5,-9)(-6,-7)(-7,-4)(-7,1)(-6,4)(-5,6) Pen Up
  320. X    (5,6)(6,4)(7,1)(7,-4)(6,-7)(5,-9) Pen Up
  321. X    (-1,-12)(-3,-11)(-5,-8)(-6,-4)(-6,1)(-5,5)(-3,8)(-1,9) Pen Up
  322. X    (1,9)(3,8)(5,5)(6,1)(6,-4)(5,-8)(3,-11)(1,-12) End Char
  323. X'P': Bounds(-11,11)(-6,-12)(-6,9) Pen Up
  324. X    (-5,-11)(-5,8) Pen Up
  325. X    (-4,-12)(-4,9) Pen Up
  326. X    (-9,-12)(3,-12)(6,-11)(7,-10)(8,-8)(8,-5)(7,-3)(6,-2)(3,-1)
  327. X    (-4,-1) Pen Up
  328. X    (6,-10)(7,-8)(7,-5)(6,-3) Pen Up
  329. X    (3,-12)(5,-11)(6,-9)(6,-4)(5,-2)(3,-1) Pen Up
  330. X    (-9,9)(-1,9) Pen Up
  331. X    (-8,-12)(-6,-11) Pen Up
  332. X    (-7,-12)(-6,-10) Pen Up
  333. X    (-3,-12)(-4,-10) Pen Up
  334. X    (-2,-12)(-4,-11) Pen Up
  335. X    (-6,8)(-8,9) Pen Up
  336. X    (-6,7)(-7,9) Pen Up
  337. X    (-4,7)(-3,9) Pen Up
  338. X    (-4,8)(-2,9) End Char
  339. X'Q': Bounds(-11,11)(-1,-12)(-4,-11)(-6,-9)(-7,-7)(-8,-3)(-8,0)(-7,4)(-6,6)
  340. X    (-4,8)(-1,9)(1,9)(4,8)(6,6)(7,4)(8,0)(8,-3)(7,-7)
  341. X    (6,-9)(4,-11)(1,-12)(-1,-12) Pen Up
  342. X    (-5,-9)(-6,-7)(-7,-4)(-7,1)(-6,4)(-5,6) Pen Up
  343. X    (5,6)(6,4)(7,1)(7,-4)(6,-7)(5,-9) Pen Up
  344. X    (-1,-12)(-3,-11)(-5,-8)(-6,-4)(-6,1)(-5,5)(-3,8)(-1,9) Pen Up
  345. X    (1,9)(3,8)(5,5)(6,1)(6,-4)(5,-8)(3,-11)(1,-12) Pen Up
  346. X    (-4,6)(-3,4)(-1,3)(0,3)(2,4)(3,6)(4,12)(5,14)(7,14)
  347. X    (8,12)(8,10) Pen Up
  348. X    (4,10)(5,12)(6,13)(7,13) Pen Up
  349. X    (3,6)(5,11)(6,12)(7,12)(8,11) End Char
  350. X'R': Bounds(-11,11)(-6,-12)(-6,9) Pen Up
  351. X    (-5,-11)(-5,8) Pen Up
  352. X    (-4,-12)(-4,9) Pen Up
  353. X    (-9,-12)(3,-12)(6,-11)(7,-10)(8,-8)(8,-6)(7,-4)(6,-3)(3,-2)
  354. X    (-4,-2) Pen Up
  355. X    (6,-10)(7,-8)(7,-6)(6,-4) Pen Up
  356. X    (3,-12)(5,-11)(6,-9)(6,-5)(5,-3)(3,-2) Pen Up
  357. X    (0,-2)(2,-1)(3,1)(5,7)(6,9)(8,9)(9,7)(9,5) Pen Up
  358. X    (5,5)(6,7)(7,8)(8,8) Pen Up
  359. X    (2,-1)(3,0)(6,6)(7,7)(8,7)(9,6) Pen Up
  360. X    (-9,9)(-1,9) Pen Up
  361. X    (-8,-12)(-6,-11) Pen Up
  362. X    (-7,-12)(-6,-10) Pen Up
  363. X    (-3,-12)(-4,-10) Pen Up
  364. X    (-2,-12)(-4,-11) Pen Up
  365. X    (-6,8)(-8,9) Pen Up
  366. X    (-6,7)(-7,9) Pen Up
  367. X    (-4,7)(-3,9) Pen Up
  368. X    (-4,8)(-2,9) End Char
  369. X'S': Bounds(-10,10)(6,-9)(7,-12)(7,-6)(6,-9)(4,-11)(1,-12)(-2,-12)(-5,-11)
  370. X    (-7,-9)(-7,-6)(-6,-4)(-3,-2)(3,0)(5,1)(6,3)(6,6)(5,8) Pen Up
  371. X    (-6,-6)(-5,-4)(-3,-3)(3,-1)(5,0)(6,2) Pen Up
  372. X    (-5,-11)(-6,-9)(-6,-7)(-5,-5)(-3,-4)(3,-2)(6,0)(7,2)(7,5)
  373. X    (6,7)(5,8)(2,9)(-1,9)(-4,8)(-6,6)(-7,3)(-7,9)(-6,6) End Char
  374. X'T': Bounds(-10,10)(-8,-12)(-8,-6) Pen Up
  375. X    (-1,-12)(-1,9) Pen Up
  376. X    (0,-11)(0,8) Pen Up
  377. X    (1,-12)(1,9) Pen Up
  378. X    (8,-12)(8,-6) Pen Up
  379. X    (-8,-12)(8,-12) Pen Up
  380. X    (-4,9)(4,9) Pen Up
  381. X    (-7,-12)(-8,-6) Pen Up
  382. X    (-6,-12)(-8,-9) Pen Up
  383. X    (-5,-12)(-8,-10) Pen Up
  384. X    (-3,-12)(-8,-11) Pen Up
  385. X    (3,-12)(8,-11) Pen Up
  386. X    (5,-12)(8,-10) Pen Up
  387. X    (6,-12)(8,-9) Pen Up
  388. X    (7,-12)(8,-6) Pen Up
  389. X    (-1,8)(-3,9) Pen Up
  390. X    (-1,7)(-2,9) Pen Up
  391. X    (1,7)(2,9) Pen Up
  392. X    (1,8)(3,9) End Char
  393. X'U': Bounds(-12,12)(-7,-12)(-7,3)(-6,6)(-4,8)(-1,9)(1,9)(4,8)(6,6)
  394. X    (7,3)(7,-11) Pen Up
  395. X    (-6,-11)(-6,4)(-5,6) Pen Up
  396. X    (-5,-12)(-5,4)(-4,7)(-3,8)(-1,9) Pen Up
  397. X    (-10,-12)(-2,-12) Pen Up
  398. X    (4,-12)(10,-12) Pen Up
  399. X    (-9,-12)(-7,-11) Pen Up
  400. X    (-8,-12)(-7,-10) Pen Up
  401. X    (-4,-12)(-5,-10) Pen Up
  402. X    (-3,-12)(-5,-11) Pen Up
  403. X    (5,-12)(7,-11) Pen Up
  404. X    (9,-12)(7,-11) End Char
  405. X'V': Bounds(-10,10)(-7,-12)(0,9) Pen Up
  406. X    (-6,-12)(0,6)(0,9) Pen Up
  407. X    (-5,-12)(1,6) Pen Up
  408. X    (7,-11)(0,9) Pen Up
  409. X    (-9,-12)(-2,-12) Pen Up
  410. X    (3,-12)(9,-12) Pen Up
  411. X    (-8,-12)(-6,-10) Pen Up
  412. X    (-4,-12)(-5,-10) Pen Up
  413. X    (-3,-12)(-5,-11) Pen Up
  414. X    (5,-12)(7,-11) Pen Up
  415. X    (8,-12)(7,-11) End Char
  416. X'W': Bounds(-12,12)(-12,-12)(-6,9) Pen Up    *1
  417. X    (-11,-12)(-6,4)(-6,9) Pen Up        *2 3
  418. X    (-10,-12)(-5,4) Pen Up            *4
  419. X    (0,-12)(-5,4)(-6,9) Pen Up            *5 6
  420. X    (0,-12)(6,9) Pen Up                *7
  421. X    (1,-12)(6,4)(6,9) Pen Up            *8 9
  422. X    (2,-12)(7,4) Pen Up                *A
  423. X    (10,-12)(7,4)(6,9) Pen Up            *B C
  424. X    S(-15,-12)S(-5,-12) Pen Up            *D
  425. X    s(0,-12)s(2,-12) Pen Up            *E
  426. X    S(7,-12)S(15,-12) Pen Up            *F
  427. X    s(-14,-12)s(-11,-11) Pen Up            *G
  428. X    s(-13,-12)s(-11,-10) Pen Up            *H
  429. X    s(-9,-12)s(-10,-10) Pen Up            *I
  430. X    s(-8,-12)s(-10,-11) Pen Up            *J
  431. X    s(10,-12)s(12,-11) Pen Up            *K
  432. X    s(14,-12)s(12,-11) End Char            *L
  433. X'X': Bounds(-10,10)(-7,-12)(5,9) Pen Up
  434. X    (-6,-12)(6,9) Pen Up
  435. X    (-5,-12)(7,9) Pen Up
  436. X    (6,-11)(-6,8) Pen Up
  437. X    (-9,-12)(-2,-12) Pen Up
  438. X    (3,-12)(9,-12) Pen Up
  439. X    (-9,9)(-3,9) Pen Up
  440. X    (2,9)(9,9) Pen Up
  441. X    (-8,-12)(-5,-10) Pen Up
  442. X    (-4,-12)(-5,-10) Pen Up
  443. X    (-3,-12)(-5,-11) Pen Up
  444. X    (4,-12)(6,-11) Pen Up
  445. X    (8,-12)(6,-11) Pen Up
  446. X    (-6,8)(-8,9) Pen Up
  447. X    (-6,8)(-4,9) Pen Up
  448. X    (5,8)(3,9) Pen Up
  449. X    (5,7)(4,9) Pen Up
  450. X    (5,7)(8,9) End Char
  451. X'Y': Bounds(-11,11)(-8,-12)(-1,-1)(-1,9) Pen Up
  452. X    (-7,-12)(0,-1)(0,8) Pen Up
  453. X    (-6,-12)(1,-1)(1,9) Pen Up
  454. X    (7,-11)(1,-1) Pen Up
  455. X    (-10,-12)(-3,-12) Pen Up
  456. X    (4,-12)(10,-12) Pen Up
  457. X    (-4,9)(4,9) Pen Up
  458. X    (-9,-12)(-7,-11) Pen Up
  459. X    (-4,-12)(-6,-11) Pen Up
  460. X    (5,-12)(7,-11) Pen Up
  461. X    (9,-12)(7,-11) Pen Up
  462. X    (-1,8)(-3,9) Pen Up
  463. X    (-1,7)(-2,9) Pen Up
  464. X    (1,7)(2,9) Pen Up
  465. X    (1,8)(3,9) End Char
  466. X'Z': Bounds(-10,10)(7,-12)(-7,-12)(-7,-6) Pen Up
  467. X    (5,-12)(-7,9) Pen Up
  468. X    (6,-12)(-6,9) Pen Up
  469. X    (7,-12)(-5,9) Pen Up
  470. X    (-7,9)(7,9)(7,3) Pen Up
  471. X    (-6,-12)(-7,-6) Pen Up
  472. X    (-5,-12)(-7,-9) Pen Up
  473. X    (-4,-12)(-7,-10) Pen Up
  474. X    (-2,-12)(-7,-11) Pen Up
  475. X    (2,9)(7,8) Pen Up
  476. X    (4,9)(7,7) Pen Up
  477. X    (5,9)(7,6) Pen Up
  478. X    (6,9)(7,3) End Char
  479. X
  480. \Rogue\Monster\
  481. else
  482.   echo "will not over write ./trc.chr"
  483. fi
  484. if [ `wc -c ./trc.chr | awk '{printf $1}'` -ne 12777 ]
  485. then
  486. echo `wc -c ./trc.chr | awk '{print "Got " $1 ", Expected " 12777}'`
  487. fi
  488. if `test ! -s ./trd.chr`
  489. then
  490. echo "writing ./trd.chr"
  491. sed 's/^X//' > ./trd.chr << '\Rogue\Monster\'
  492. X'0': Bounds(-10,10)(-1,-12)(-4,-11)(-6,-8)(-7,-3)(-7,0)(-6,5)(-4,8)(-1,9)
  493. X    (1,9)(4,8)(6,5)(7,0)(7,-3)(6,-8)(4,-11)(1,-12)(-1,-12) Pen Up
  494. X    (-4,-10)(-5,-8)(-6,-4)(-6,1)(-5,5)(-4,7) Pen Up
  495. X    (4,7)(5,5)(6,1)(6,-4)(5,-8)(4,-10) Pen Up
  496. X    (-1,-12)(-3,-11)(-4,-9)(-5,-4)(-5,1)(-4,6)(-3,8)(-1,9) Pen Up
  497. X    (1,9)(3,8)(4,6)(5,1)(5,-4)(4,-9)(3,-11)(1,-12) End Char
  498. X'1': Bounds(-10,10)(-1,-10)(-1,9) Pen Up
  499. X    (0,-10)(0,8) Pen Up
  500. X    (1,-12)(1,9) Pen Up
  501. X    (1,-12)(-2,-9)(-4,-8) Pen Up
  502. X    (-5,9)(5,9) Pen Up
  503. X    (-1,8)(-3,9) Pen Up
  504. X    (-1,7)(-2,9) Pen Up
  505. X    (1,7)(2,9) Pen Up
  506. X    (1,8)(3,9) End Char
  507. X'2': Bounds(-10,10)(-6,-8)(-6,-7)(-5,-7)(-5,-8)(-6,-8) Pen Up
  508. X    (-6,-9)(-5,-9)(-4,-8)(-4,-7)(-5,-6)(-6,-6)(-7,-7)(-7,-8)(-6,-10)
  509. X    (-5,-11)(-2,-12)(2,-12)(5,-11)(6,-10)(7,-8)(7,-6)(6,-4)(3,-2)
  510. X    (-2,0)(-4,1)(-6,3)(-7,6)(-7,9) Pen Up
  511. X    (5,-10)(6,-8)(6,-6)(5,-4) Pen Up
  512. X    (2,-12)(4,-11)(5,-8)(5,-6)(4,-4)(2,-2)(-2,0) Pen Up
  513. X    (-7,7)(-6,6)(-4,6)(1,7)(5,7)(7,6) Pen Up
  514. X    (-4,6)(1,8)(5,8)(6,7) Pen Up
  515. X    (-4,6)(1,9)(5,9)(6,8)(7,6)(7,4) End Char
  516. X'3': Bounds(-10,10)(-6,-8)(-6,-7)(-5,-7)(-5,-8)(-6,-8) Pen Up
  517. X    (-6,-9)(-5,-9)(-4,-8)(-4,-7)(-5,-6)(-6,-6)(-7,-7)(-7,-8)(-6,-10)
  518. X    (-5,-11)(-2,-12)(2,-12)(5,-11)(6,-9)(6,-6)(5,-4)(2,-3) Pen Up
  519. X    (4,-11)(5,-9)(5,-6)(4,-4) Pen Up
  520. X    (1,-12)(3,-11)(4,-9)(4,-6)(3,-4)(1,-3) Pen Up
  521. X    (-1,-3)(2,-3)(4,-2)(6,0)(7,2)(7,5)(6,7)(5,8)(2,9)
  522. X    (-2,9)(-5,8)(-6,7)(-7,5)(-7,4)(-6,3)(-5,3)(-4,4)(-4,5)
  523. X    (-5,6)(-6,6) Pen Up
  524. X    (5,0)(6,2)(6,5)(5,7) Pen Up
  525. X    (1,-3)(3,-2)(4,-1)(5,2)(5,5)(4,8)(2,9) Pen Up
  526. X    (-6,4)(-6,5)(-5,5)(-5,4)(-6,4) End Char
  527. X'4': Bounds(-10,10)(1,-9)(1,9) Pen Up
  528. X    (2,-10)(2,8) Pen Up
  529. X    (3,-12)(3,9) Pen Up
  530. X    (3,-12)(-8,3)(8,3) Pen Up
  531. X    (-2,9)(6,9) Pen Up
  532. X    (1,8)(-1,9) Pen Up
  533. X    (1,7)(0,9) Pen Up
  534. X    (3,7)(4,9) Pen Up
  535. X    (3,8)(5,9) End Char
  536. X'5': Bounds(-10,10)(-5,-12)(-7,-2)(-5,-4)(-2,-5)(1,-5)(4,-4)(6,-2)(7,1)
  537. X    (7,3)(6,6)(4,8)(1,9)(-2,9)(-5,8)(-6,7)(-7,5)(-7,4)
  538. X    (-6,3)(-5,3)(-4,4)(-4,5)(-5,6)(-6,6) Pen Up
  539. X    (5,-2)(6,0)(6,4)(5,6) Pen Up
  540. X    (1,-5)(3,-4)(4,-3)(5,0)(5,4)(4,7)(3,8)(1,9) Pen Up
  541. X    (-6,4)(-6,5)(-5,5)(-5,4)(-6,4) Pen Up
  542. X    (-5,-12)(5,-12) Pen Up
  543. X    (-5,-11)(3,-11) Pen Up
  544. X    (-5,-10)(-1,-10)(3,-11)(5,-12) End Char
  545. X'6': Bounds(-10,10)(4,-9)(4,-8)(5,-8)(5,-9)(4,-9) Pen Up
  546. X    (5,-10)(4,-10)(3,-9)(3,-8)(4,-7)(5,-7)(6,-8)(6,-9)(5,-11)
  547. X    (3,-12)(0,-12)(-3,-11)(-5,-9)(-6,-7)(-7,-3)(-7,3)(-6,6)(-4,8)
  548. X    (-1,9)(1,9)(4,8)(6,6)(7,3)(7,2)(6,-1)(4,-3)(1,-4)
  549. X    (-1,-4)(-3,-3)(-4,-2)(-5,0) Pen Up
  550. X    (-4,-9)(-5,-7)(-6,-3)(-6,3)(-5,6)(-4,7) Pen Up
  551. X    (5,6)(6,4)(6,1)(5,-1) Pen Up
  552. X    (0,-12)(-2,-11)(-3,-10)(-4,-8)(-5,-4)(-5,3)(-4,6)(-3,8)(-1,9) Pen Up
  553. X    (1,9)(3,8)(4,7)(5,4)(5,1)(4,-2)(3,-3)(1,-4) End Char
  554. X'7': Bounds(-10,10)(-7,-12)(-7,-6) Pen Up
  555. X    (7,-12)(7,-9)(6,-6)(2,-1)(1,1)(0,5)(0,9) Pen Up
  556. X    (1,0)(0,2)(-1,5)(-1,9) Pen Up
  557. X    (6,-6)(1,-1)(-1,2)(-2,5)(-2,9)(0,9) Pen Up
  558. X    (-7,-8)(-6,-10)(-4,-12)(-2,-12)(3,-9)(5,-9)(6,-10)(7,-12) Pen Up
  559. X    (-5,-10)(-4,-11)(-2,-11)(0,-10) Pen Up
  560. X    (-7,-8)(-6,-9)(-4,-10)(-2,-10)(3,-9) End Char
  561. X'8': Bounds(-10,10)(-2,-12)(-5,-11)(-6,-9)(-6,-6)(-5,-4)(-2,-3)(2,-3)(5,-4)
  562. X    (6,-6)(6,-9)(5,-11)(2,-12)(-2,-12) Pen Up
  563. X    (-4,-11)(-5,-9)(-5,-6)(-4,-4) Pen Up
  564. X    (4,-4)(5,-6)(5,-9)(4,-11) Pen Up
  565. X    (-2,-12)(-3,-11)(-4,-9)(-4,-6)(-3,-4)(-2,-3) Pen Up
  566. X    (2,-3)(3,-4)(4,-6)(4,-9)(3,-11)(2,-12) Pen Up
  567. X    (-2,-3)(-5,-2)(-6,-1)(-7,1)(-7,5)(-6,7)(-5,8)(-2,9)(2,9)
  568. X    (5,8)(6,7)(7,5)(7,1)(6,-1)(5,-2)(2,-3) Pen Up
  569. X    (-5,-1)(-6,1)(-6,5)(-5,7) Pen Up
  570. X    (5,7)(6,5)(6,1)(5,-1) Pen Up
  571. X    (-2,-3)(-4,-2)(-5,1)(-5,5)(-4,8)(-2,9) Pen Up
  572. X    (2,9)(4,8)(5,5)(5,1)(4,-2)(2,-3) End Char
  573. X'9': Bounds(-10,10)(-5,5)(-5,6)(-4,6)(-4,5)(-5,5) Pen Up
  574. X    (5,-3)(4,-1)(3,0)(1,1)(-1,1)(-4,0)(-6,-2)(-7,-5)(-7,-6)
  575. X    (-6,-9)(-4,-11)(-1,-12)(1,-12)(4,-11)(6,-9)(7,-6)(7,0)(6,4)
  576. X    (5,6)(3,8)(0,9)(-3,9)(-5,8)(-6,6)(-6,5)(-5,4)(-4,4)
  577. X    (-3,5)(-3,6)(-4,7)(-5,7) Pen Up
  578. X    (-5,-2)(-6,-4)(-6,-7)(-5,-9) Pen Up
  579. X    (4,-10)(5,-9)(6,-6)(6,0)(5,4)(4,6) Pen Up
  580. X    (-1,1)(-3,0)(-4,-1)(-5,-4)(-5,-7)(-4,-10)(-3,-11)(-1,-12) Pen Up
  581. X    (1,-12)(3,-11)(4,-9)(5,-6)(5,1)(4,5)(3,7)(2,8)(0,9) End Char
  582. \Rogue\Monster\
  583. else
  584.   echo "will not over write ./trd.chr"
  585. fi
  586. if [ `wc -c ./trd.chr | awk '{printf $1}'` -ne 4143 ]
  587. then
  588. echo `wc -c ./trd.chr | awk '{print "Got " $1 ", Expected " 4143}'`
  589. fi
  590. if `test ! -s ./trp.chr`
  591. then
  592. echo "writing ./trp.chr"
  593. sed 's/^X//' > ./trp.chr << '\Rogue\Monster\'
  594. X
  595. X*21
  596. X'!': Bounds(-5,6)(0,-12)(-1,-11)(-1,-9)(0,-1) Pen Up
  597. X    (0,-12)(0,2)(1,2) Pen Up
  598. X    (0,-12)(1,-12)(1,2) Pen Up
  599. X    (1,-12)(2,-11)(2,-9)(1,-1) Pen Up
  600. X    (0,6)(-1,7)(-1,8)(0,9)(1,9)(2,8)(2,7)(1,6)(0,6) Pen Up
  601. X    (0,7)(0,8)(1,8)(1,7)(0,7) End Char
  602. X*22
  603. X'"': Bounds(-9,9)(-4,-12)(-5,-11)(-5,-5) Pen Up
  604. X    (-4,-11)(-5,-5) Pen Up
  605. X    (-4,-12)(-3,-11)(-5,-5) Pen Up
  606. X    (5,-12)(4,-11)(4,-5) Pen Up
  607. X    (5,-11)(4,-5) Pen Up
  608. X    (5,-12)(6,-11)(4,-5) End Char
  609. X*23    922    #
  610. X'#': Bounds(-10,11)(1,-12)(-6,16) Pen Up
  611. X    (7,-12)(0,16) Pen Up
  612. X    (-6,-1)(8,-1) Pen Up
  613. X    (-7,5)(7,5) End Char
  614. X*24
  615. X'$': Bounds(-10,10)(-2,-12)(-2,9) Pen Up
  616. X    (2,-12)(2,9) Pen Up
  617. X    (6,-6)(6,-6)(5,-6)(5,-5)(7,-5)(7,-6)(6,-8)(5,-9)(2,-10)
  618. X    (-2,-10)(-5,-9)(-7,-7)(-7,-5)(-6,-3)(-3,-2)(3,0)(5,0)(6,2)
  619. X    (6,4)(5,6) Pen Up
  620. X    (-6,-5)(-5,-3)(-3,-3)(3,-1)(5,0)(6,1) Pen Up
  621. X    (-5,-9)(-6,-7)(-6,-6)(-5,-4)(-3,-3)(3,-2)(6,0)(7,1)(7,3)
  622. X    (6,5)(5,6)(2,7)(-2,7)(-5,6)(-6,5)(-7,3)(-7,2)(-5,2)
  623. X    (-5,3)(-6,3)(-6,3) End Char
  624. X*25    918    %
  625. X'%': Bounds(-12,12)(9,-12)(-9,9) Pen Up
  626. X    (-4,-12)(-2,-10)(-2,-8)(-3,-6)(-5,-5)(-7,-5)(-9,-7)(-9,-9)(-8,-11)
  627. X    (-6,-12)(-4,-12)(-2,-11)(1,-10)(4,-10)(7,-11)(9,-12) Pen Up
  628. X    (5,2)(3,3)(2,5)(2,7)(4,9)(6,9)(8,8)(9,6)(9,4)
  629. X    (7,2)(5,2) End Char
  630. X*26
  631. X'&': Bounds(-13,13)(9,-3)(9,-4)(8,-4)(8,-2)(10,-2)(10,-4)(9,-5)(8,-5)
  632. X    (7,-4)(6,-2)(4,3)(2,6)(0,8)(-2,9)(-6,9)(-8,8)(-9,6)
  633. X    (-9,3)(-8,1)(-2,-3)(0,-5)(1,-7)(1,-9)(0,-11)(-2,-12)(-4,-11)
  634. X    (-5,-9)(-5,-6)(-4,-3)(-2,0)(2,5)(5,8)(7,9)(9,9)(10,7)
  635. X    (10,6) Pen Up
  636. X    (-7,8)(-8,6)(-8,3)(-7,1)(-6,0) Pen Up
  637. X    (0,-5)(1,-9) Pen Up
  638. X    (1,-7)(0,-11) Pen Up
  639. X    (-4,-11)(-5,-7) Pen Up
  640. X    (-4,-4)(-2,-1)(2,4)(5,7)(7,8) Pen Up
  641. X    (-4,9)(-6,8)(-7,6)(-7,3)(-6,1)(-2,-3) Pen Up
  642. X    (-5,-9)(-4,-5)(-1,-1)(3,4)(6,7)(8,8)(9,8)(10,7) End Char
  643. X*27
  644. X''': Bounds(-5,6)(2,-10)(1,-9)(0,-9)(-1,-10)(-1,-11)(0,-12)(1,-12)(2,-11)
  645. X    (2,-8)(1,-6)(-1,-5) Pen Up
  646. X    (0,-11)(0,-10)(1,-10)(1,-11)(0,-11) Pen Up
  647. X    (1,-9)(2,-8) Pen Up
  648. X    (2,-10)(1,-6) End Char
  649. X*28
  650. X'(': Bounds(-7,7)(1,-12)(-1,-9)(-3,-5)(-4,0)(-4,4)(-3,9)(-1,13)
  651. X    (1,16) Pen Up
  652. X    (-1,-8)(-2,-5)(-3,-1)(-3,5)(-2,9)(-1,12) Pen Up
  653. X    (1,-12)(0,-10)(-1,-7)(-2,-1)(-2,5)(-1,11)(0,14)(1,16) End Char
  654. X*29
  655. X')': Bounds(-7,7)(-1,-12)(1,-9)(3,-5)(4,0)(4,4)(3,9)(1,13)
  656. X    (-1,16) Pen Up
  657. X    (1,-8)(2,-5)(3,-1)(3,5)(2,9)(1,12) Pen Up
  658. X    (-1,-12)(0,-10)(1,-7)(2,-1)(2,5)(1,11)(0,14)(-1,16) End Char
  659. X*2A
  660. X'*': Bounds(-8,8)(0,-12)(-1,-11)(1,-1)(0,0) Pen Up
  661. X    (0,-12)(0,0) Pen Up
  662. X    (0,-12)(1,-11)(-1,-1)(0,0) Pen Up
  663. X    (-5,-9)(-4,-9)(4,-3)(5,-3) Pen Up
  664. X    (-5,-9)(5,-3) Pen Up
  665. X    (-5,-9)(-5,-8)(5,-4)(5,-3) Pen Up
  666. X    (5,-9)(4,-9)(-4,-3)(-5,-3) Pen Up
  667. X    (5,-9)(-5,-3) Pen Up
  668. X    (5,-9)(5,-8)(-5,-4)(-5,-3) End Char
  669. X*2B
  670. X'+': Bounds(-12,13)(0,-9)(0,8)(1,8) Pen Up
  671. X    (0,-9)(1,-9)(1,8) Pen Up
  672. X    (-8,-1)(9,-1)(9,0) Pen Up
  673. X    (-8,-1)(-8,0)(9,0) End Char
  674. X*2C
  675. X',': Bounds(-5,6)(2,8)(1,9)(0,9)(-1,8)(-1,7)(0,6)(1,6)(2,7)
  676. X    (2,10)(1,12)(-1,13) Pen Up
  677. X    (0,7)(0,8)(1,8)(1,7)(0,7) Pen Up
  678. X    (1,9)(2,10) Pen Up
  679. X    (2,8)(1,12) End Char
  680. X*2D
  681. X'-': Bounds(-12,13)(-4,-1)(5,-1)(5,0) Pen Up
  682. X    (-4,-1)(-4,0)(5,0) End Char
  683. X*2E
  684. X'.': Bounds(-5,6)(0,6)(-1,7)(-1,8)(0,9)(1,9)(2,8)(2,7)(1,6)
  685. X    (0,6) Pen Up
  686. X    (0,7)(0,8)(1,8)(1,7)(0,7) End Char
  687. X*2f
  688. X'/': Bounds(-11,12)(9,-12)(-9,16)(-8,16) Pen Up
  689. X    (9,-12)(10,-12)(-8,16) End Char
  690. X*3A
  691. X':': Bounds(-5,6)(0,-5)(-1,-4)(-1,-3)(0,-2)(1,-2)(2,-3)(2,-4)(1,-5)
  692. X    (0,-5) Pen Up
  693. X    (0,-4)(0,-3)(1,-3)(1,-4)(0,-4) Pen Up
  694. X    (0,6)(-1,7)(-1,8)(0,9)(1,9)(2,8)(2,7)(1,6)(0,6) Pen Up
  695. X    (0,7)(0,8)(1,8)(1,7)(0,7) End Char
  696. X*3B
  697. X';': Bounds(-5,6)(0,-5)(-1,-4)(-1,-3)(0,-2)(1,-2)(2,-3)(2,-4)(1,-5)
  698. X    (0,-5) Pen Up
  699. X    (0,-4)(0,-3)(1,-3)(1,-4)(0,-4) Pen Up
  700. X    (2,8)(1,9)(0,9)(-1,8)(-1,7)(0,6)(1,6)(2,7)(2,10)
  701. X    (1,12)(-1,13) Pen Up
  702. X    (0,7)(0,8)(1,8)(1,7)(0,7) Pen Up
  703. X    (1,9)(2,10) Pen Up
  704. X    (2,8)(1,12) End Char
  705. X*3C    888    <
  706. X'<': Bounds(-12,12)(8,-9)(-8,0)(8,9) End Char
  707. X*3C    big
  708. X*'<': Bounds(-7,7)(3,-16)(-4,0)(3,16) End Char
  709. X*3D
  710. X'=': Bounds(-12,13)(-8,-5)(9,-5)(9,-4) Pen Up
  711. X    (-8,-5)(-8,-4)(9,-4) Pen Up
  712. X    (-8,3)(9,3)(9,4) Pen Up
  713. X    (-8,3)(-8,4)(9,4) End Char
  714. X*3E    889    >
  715. X'>': Bounds(-12,12)(-8,-9)(8,0)(-8,9) End Char
  716. X*3E    big
  717. X*'>': Bounds(-7,7)(-3,-16)(4,0)(-3,16) End Char
  718. X*3F
  719. X'?': Bounds(-9,10)(-5,-7)(-5,-8)(-4,-8)(-4,-6)(-6,-6)(-6,-8)(-5,-10)(-4,-11)
  720. X    (-2,-12)(2,-12)(5,-11)(6,-10)(7,-8)(7,-6)(6,-4)(5,-3)(1,-1) Pen Up
  721. X    (5,-10)(6,-9)(6,-5)(5,-4) Pen Up
  722. X    (2,-12)(4,-11)(5,-9)(5,-5)(4,-3)(3,-2) Pen Up
  723. X    (0,-1)(0,2)(1,2)(1,-1)(0,-1) Pen Up
  724. X    (0,6)(-1,7)(-1,8)(0,9)(1,9)(2,8)(2,7)(1,6)(0,6) Pen Up
  725. X    (0,7)(0,8)(1,8)(1,7)(0,7) End Char
  726. X*40    920    @
  727. X'@': Bounds(-13,14)(5,-4)(4,-6)(2,-7)(-1,-7)(-3,-6)(-4,-5)(-5,-2)(-5,1)
  728. X    (-4,3)(-2,4)(1,4)(3,3)(4,1) Pen Up
  729. X    (-1,-7)(-3,-5)(-4,-2)(-4,1)(-3,3)(-2,4) Pen Up
  730. X    (5,-7)(4,1)(4,3)(6,4)(8,4)(10,2)(11,-1)(11,-3)(10,-6)
  731. X    (9,-8)(7,-10)(5,-11)(2,-12)(-1,-12)(-4,-11)(-6,-10)(-8,-8)(-9,-6)
  732. X    (-10,-3)(-10,0)(-9,3)(-8,5)(-6,7)(-4,8)(-1,9)(2,9)(5,8)
  733. X    (7,7)(8,6) Pen Up
  734. X    (6,-7)(5,1)(5,3)(6,4) End Char
  735. X*5B
  736. X'[': Bounds(-7,7)(-3,-12)(-3,16) Pen Up
  737. X    (-2,-12)(-2,16) Pen Up
  738. X    (-3,-12)(4,-12) Pen Up
  739. X    (-3,16)(4,16) End Char
  740. X*5C
  741. X'\': Bounds(-7,7)(-1,-12)(-3,-11)(-4,-9)(-4,-7)(-3,-5)(-1,-4)(1,-4)(3,-5)
  742. X    (4,-7)(4,-9)(3,-11)(1,-12)(-1,-12) Pen Up
  743. X    (-1,-12)(-4,-9)(-3,-5)(1,-4)(4,-7)(3,-11)(-1,-12) Pen Up
  744. X    (1,-12)(-3,-11)(-4,-7)(-1,-4)(3,-5)(4,-9)(1,-12) End Char
  745. X*5D
  746. X']': Bounds(-7,7)(2,-12)(2,16) Pen Up
  747. X    (3,-12)(3,16) Pen Up
  748. X    (-4,-12)(3,-12) Pen Up
  749. X    (-4,16)(3,16) End Char
  750. X*5E    909    up arrow
  751. X'^': Bounds(-8,8)(-2,-6)(0,-9)(2,-6) Pen Up
  752. X    (-5,-3)(0,-8)(5,-3) Pen Up
  753. X    (0,-8)(0,9) End Char
  754. X*5F
  755. X'_': Bounds(-9,9)(-9,16)(9,16) End Char
  756. X*60
  757. X'`': Bounds(-5,6)(2,-12)(0,-11)(-1,-9)(-1,-6)(0,-5)(1,-5)(2,-6)(2,-7)
  758. X    (1,-8)(0,-8)(-1,-7) Pen Up
  759. X    (0,-7)(0,-6)(1,-6)(1,-7)(0,-7) Pen Up
  760. X    (0,-11)(-1,-7) Pen Up
  761. X    (-1,-9)(0,-8) End Char
  762. X*7B
  763. X'{': Bounds(-7,7)(2,-12)(0,-11)(-1,-10)(-2,-9)(-2,-7)(-1,-6)(0,-5)(1,-3)
  764. X    (1,-1)(-1,1) Pen Up
  765. X    (0,-11)(-1,-9)(-1,-8)(0,-7)(1,-6)(2,-4)(2,-2)(1,0)(-3,2)
  766. X    (1,4)(2,6)(2,8)(1,10)(0,11)(-1,12)(-1,13)(0,15) Pen Up
  767. X    (-1,3)(1,5)(1,7)(0,9)(-1,10)(-2,11)(-2,13)(-1,14)(0,15)
  768. X    (2,16) End Char
  769. X*7C
  770. X'|': Bounds(-4,4)(0,-12)(0,16) End Char
  771. X*7D
  772. X'}': Bounds(-7,7)(-2,-12)(0,-11)(1,-10)(2,-9)(2,-7)(1,-6)(0,-5)(-1,-3)
  773. X    (-1,-1)(1,1) Pen Up
  774. X    (0,-11)(1,-9)(1,-8)(0,-7)(-1,-6)(-2,-4)(-2,-2)(-1,0)(3,2)
  775. X    (-1,4)(-2,6)(-2,8)(-1,10)(0,11)(1,12)(1,13)(0,15) Pen Up
  776. X    (1,3)(-1,5)(-1,7)(0,9)(1,10)(2,11)(2,13)(1,14)(0,15)
  777. X    (-2,16) End Char
  778. X*7E    893    low tilde
  779. X'~': Bounds(-12,12)(-9,3)(-9,1)(-8,-2)(-6,-3)(-4,-3)(-2,-2)(2,1)(4,2)
  780. X    (6,2)(8,1)(9,-1) Pen Up
  781. X    (-9,1)(-8,-1)(-6,-2)(-4,-2)(-2,-1)(2,2)(4,3)(6,3)(8,2)
  782. X    (9,-1)(9,-3) End Char
  783. X
  784. X*FROM SPECIAL
  785. X*894    low circumflex, moved up 9
  786. X^D': Bounds(-11,11)(-8,-8)(0,-12)(8,-8) Pen Up
  787. X    (-8,-8)(0,-11)(8,-8) End Char
  788. X*895    acute
  789. X^C': Bounds(-6,6)(2,-12)(-3,-6) Pen Up
  790. X    (2,-12)(3,-11)(-3,-6) End Char
  791. X*896    grave
  792. X^B': Bounds(-6,6)(-2,-12)(3,-6) Pen Up
  793. X    (-2,-12)(-3,-11)(3,-6) End Char
  794. X*897    short
  795. X^S': Bounds(-10,10)(-7,-12)(-6,-10)(-4,-8)(-1,-7)(1,-7)(4,-8)(6,-10)(7,-12) Pen Up
  796. X    (-7,-12)(-6,-9)(-4,-7)(-1,-6)(1,-6)(4,-7)(6,-9)(7,-12) End Char
  797. X*923    section
  798. X^M': Bounds(-8,8)(3,-9)(2,-8)(3,-7)(4,-8)(4,-9)(3,-11)(1,-12)(-1,-12)
  799. X    (-3,-11)(-4,-9)(-4,-7)(-3,-5)(-1,-3)(4,0) Pen Up
  800. X    (-3,-5)(2,-2)(4,0)(5,2)(5,4)(4,6)(2,8) Pen Up
  801. X    (-2,-4)(-4,-2)(-5,0)(-5,2)(-4,4)(-2,6)(3,9) Pen Up
  802. X    (-4,4)(1,7)(3,9)(4,11)(4,13)(3,15)(1,16)(-1,16)(-3,15)
  803. X    (-4,13)(-4,12)(-3,11)(-2,12)(-3,13) End Char
  804. X*924    dagger
  805. X^K': Bounds(-8,8)(0,-12)(-1,-10)(0,-8)(1,-10)(0,-12) Pen Up
  806. X    (0,-12)(0,16) Pen Up
  807. X    (0,-1)(-1,2)(0,16)(1,2)(0,-1) Pen Up
  808. X    (-6,-5)(-4,-4)(-2,-5)(-4,-6)(-6,-5) Pen Up
  809. X    (-6,-5)(6,-5) Pen Up
  810. X    (2,-5)(4,-4)(6,-5)(4,-6)(2,-5) End Char
  811. X*925    double dagger
  812. X^L': Bounds(-8,8)(0,-12)(-1,-10)(0,-8)(1,-10)(0,-12) Pen Up
  813. X    (0,-12)(0,2) Pen Up
  814. X    (0,-2)(-1,0)(1,4)(0,6)(-1,4)(1,0)(0,-2) Pen Up
  815. X    (0,2)(0,16) Pen Up
  816. X    (0,12)(-1,14)(0,16)(1,14)(0,12) Pen Up
  817. X    (-6,-5)(-4,-4)(-2,-5)(-4,-6)(-6,-5) Pen Up
  818. X    (-6,-5)(6,-5) Pen Up
  819. X    (2,-5)(4,-4)(6,-5)(4,-6)(2,-5) Pen Up
  820. X    (-6,9)(-4,10)(-2,9)(-4,8)(-6,9) Pen Up
  821. X    (-6,9)(6,9) Pen Up
  822. X    (2,9)(4,10)(6,9)(4,8)(2,9) End Char
  823. X
  824. \Rogue\Monster\
  825. else
  826.   echo "will not over write ./trp.chr"
  827. fi
  828. if [ `wc -c ./trp.chr | awk '{printf $1}'` -ne 8218 ]
  829. then
  830. echo `wc -c ./trp.chr | awk '{print "Got " $1 ", Expected " 8218}'`
  831. fi
  832. if `test ! -s ./trs.chr`
  833. then
  834. echo "writing ./trs.chr"
  835. sed 's/^X//' > ./trs.chr << '\Rogue\Monster\'
  836. XBase(9)
  837. XHeight(22)
  838. Xx Height(15)
  839. 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)
  840. X    (2,-5)(4,-4)(5,-3)(6,-1)S(6,6)S(7,8)S(8,9)(6,9) Pen Up
  841. X    (4,-3)(5,-1)(5,6)(6,8) Pen Up
  842. X    (2,-5)(3,-4)(4,-2)(4,6)(5,8)S(8,9)S(9,9) Pen Up
  843. X    (4,0)(3,1)(-2,2)(-5,3)(-6,5)(-6,6)(-5,8)(-2,9)(1,9)
  844. X    (3,8)(4,6) Pen Up
  845. X    (-4,3)(-5,5)(-5,6)(-4,8) Pen Up
  846. X    (3,1)(-1,2)(-3,3)(-4,5)(-4,6)(-3,8)(-2,9) End Char
  847. X'b': Bounds(-11,10)(-6,-12)(-6,7)S(-6,9)(-5,8)(-3,8) Pen Up
  848. X    (-5,-11)(-5,7) Pen Up
  849. X    S(-9,-12)(-4,-12)(-4,8) Pen Up
  850. X    (-4,-2)(-3,-4)(-1,-5)(1,-5)(4,-4)(6,-2)(7,1)(7,3)(6,6)
  851. X    (4,8)(1,9)(-1,9)(-3,8)(-4,6) Pen Up
  852. X    (5,-2)(6,0)(6,4)(5,6) Pen Up
  853. X    (1,-5)(3,-4)(4,-3)(5,0)(5,4)(4,7)(3,8)(1,9) Pen Up
  854. X    S(-8,-12)S(-6,-11) Pen Up
  855. X    s(-7,-12)s(-6,-10) End Char
  856. 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)
  857. X    (-1,-5)(-4,-4)(-6,-2)(-7,1)(-7,3)(-6,6)(-4,8)(-1,9)(1,9)
  858. X    (4,8)(6,6) Pen Up
  859. X    (-5,-2)(-6,0)(-6,4)(-5,6) Pen Up
  860. X    (-1,-5)(-3,-4)(-4,-3)(-5,0)(-5,4)(-4,7)(-3,8)(-1,9) End Char
  861. X'd': Bounds(-10,11)(4,-12)(4,9)S(9,9) Pen Up
  862. X    (5,-11)(5,8) Pen Up
  863. X    S(1,-12)(6,-12)(6,9) Pen Up
  864. X    (4,-2)(3,-4)(1,-5)(-1,-5)(-4,-4)(-6,-2)(-7,1)(-7,3)(-6,6)
  865. X    (-4,8)(-1,9)(1,9)(3,8)(4,6) Pen Up
  866. X    (-5,-2)(-6,0)(-6,4)(-5,6) Pen Up
  867. X    (-1,-5)(-3,-4)(-4,-3)(-5,0)(-5,4)(-4,7)(-3,8)(-1,9) Pen Up
  868. X    S(2,-12)S(4,-11) Pen Up
  869. X    s(3,-12)s(4,-10) Pen Up
  870. X    S(6,7)S(7,9) Pen Up
  871. X    s(6,8)s(8,9) End Char
  872. X'e': Bounds(-10,9)(-5,1)(6,1)(6,-1)(5,-3)(4,-4)(1,-5)(-1,-5)(-4,-4)
  873. X    (-6,-2)(-7,1)(-7,3)(-6,6)(-4,8)(-1,9)(1,9)(4,8)(6,6) Pen Up
  874. X    (5,0)(5,-1)(4,-3) Pen Up
  875. X    (-5,-2)(-6,0)(-6,4)(-5,6) Pen Up
  876. X    (4,1)(4,-2)(3,-4)(1,-5) Pen Up
  877. X    (-1,-5)(-3,-4)(-4,-3)(-5,0)(-5,4)(-4,7)(-3,8)(-1,9) End Char
  878. 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)
  879. X    (0,-11)(-1,-10)(-2,-7)(-2,9) Pen Up
  880. X    (0,-10)(-1,-7)(-1,8) Pen Up
  881. X    (2,-12)(1,-11)(0,-9)(0,9) Pen Up
  882. X    (-5,-5)(4,-5) Pen Up
  883. X    S(-5,9)S(3,9) Pen Up
  884. X    S(-2,8)S(-4,9) Pen Up
  885. X    S(-2,7)S(-3,9) Pen Up
  886. X    S(0,7)S(1,9) Pen Up
  887. X    S(0,8)S(2,9) End Char
  888. 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
  889. X    (-1,-5)(-3,-4)(-4,-3)(-5,-1)(-5,1)(-4,3)(-3,4)(-1,5)(1,5)
  890. X    (3,4)(4,3)(5,1)(5,-1)(4,-3)(3,-4)(1,-5)(-1,-5) Pen Up
  891. X    (-3,-3)(-4,-1)(-4,1)(-3,3) Pen Up
  892. X    (3,3)(4,1)(4,-1)(3,-3) Pen Up
  893. X    (-1,-5)(-2,-4)(-3,-2)(-3,2)(-2,4)(-1,5) Pen Up
  894. X    (1,5)(2,4)(3,2)(3,-2)(2,-4)(1,-5) Pen Up
  895. X    (-4,3)(-5,4)(-6,6)(-6,7)(-5,9)(-4,10)(-1,11)(3,11)(6,12)
  896. X    (7,13) Pen Up
  897. X    (-4,9)(-1,10)(3,10)(6,11) Pen Up
  898. X    (-6,7)(-5,8)(-2,9)(3,9)(6,10)(7,12)(7,13)(6,15)(3,16)
  899. X    (-3,16)(-6,15)(-7,13)(-7,12)(-6,10)(-3,9) Pen Up
  900. X    (-3,16)(-5,15)(-6,13)(-6,12)(-5,10)(-3,9) End Char
  901. X'h': Bounds(-11,12)(-6,-12)(-6,9) Pen Up
  902. X    (-5,-11)(-5,8) Pen Up
  903. X    S(-9,-12)(-4,-12)(-4,9) Pen Up
  904. X    (-4,-1)(-3,-3)(-2,-4)(0,-5)(3,-5)(5,-4)(6,-3)(7,0)(7,9) Pen Up
  905. X    (5,-3)(6,0)(6,8) Pen Up
  906. X    (3,-5)(4,-4)(5,-1)(5,9) Pen Up
  907. X    S(-9,9)S(-1,9) Pen Up
  908. X    S(2,9)S(10,9) Pen Up
  909. X    S(-8,-12)S(-6,-11) Pen Up
  910. X    s(-7,-12)s(-6,-10) Pen Up
  911. X    S(-6,8)S(-8,9) Pen Up
  912. X    s(-6,7)s(-7,9) Pen Up
  913. X    S(-4,7)S(-3,9) Pen Up
  914. X    s(-4,8)s(-2,9) Pen Up
  915. X    S(5,8)S(3,9) Pen Up
  916. X    s(5,7)s(4,9) Pen Up
  917. X    S(7,7)S(8,9) Pen Up
  918. X    s(7,8)s(9,9) End Char
  919. X'i': Bounds(-6,6)(-1,-12)(-1,-10)(1,-10)(1,-12)(-1,-12) Pen Up
  920. X    (0,-12)(0,-10) Pen Up
  921. X    (-1,-11)(1,-11) Pen Up
  922. X    (-1,-5)(-1,9) Pen Up
  923. X    (0,-4)(0,8) Pen Up
  924. X    S(-4,-5)(1,-5)(1,9) Pen Up
  925. X    S(-4,9)S(4,9) Pen Up
  926. X    S(-3,-5)S(-1,-4) Pen Up
  927. X    s(-2,-5)s(-1,-3) Pen Up
  928. X    S(-1,8)S(-3,9) Pen Up
  929. X    s(-1,7)s(-2,9) Pen Up
  930. X    S(1,7)S(2,9) Pen Up
  931. X    s(1,8)s(3,9) End Char
  932. X'j': Bounds(-7,6)(0,-12)(0,-10)(2,-10)(2,-12)(0,-12) Pen Up
  933. X    (1,-12)(1,-10) Pen Up
  934. X    (0,-11)(2,-11) Pen Up
  935. X    (0,-5)(0,12)(-1,15)(-2,16) Pen Up
  936. X    (1,-4)(1,11)(0,14) Pen Up
  937. X    S(-3,-5)(2,-5)(2,11)(1,14)(0,15)(-2,16)(-5,16)(-6,15)(-6,13)
  938. X    (-4,13)(-4,15)(-5,15)(-5,14) Pen Up
  939. X    S(-2,-5)S(0,-4) Pen Up
  940. X    s(-1,-5)s(0,-3) End Char
  941. X'k': Bounds(-11,11)(-6,-12)(-6,9) Pen Up
  942. X    (-5,-11)(-5,8) Pen Up
  943. X    S(-9,-12)(-4,-12)(-4,9) Pen Up
  944. X    (5,-5)(-4,5) Pen Up
  945. X    (0,1)(7,9) Pen Up
  946. X    (0,2)(6,9) Pen Up
  947. X    (-1,2)(5,9) Pen Up
  948. X    S(2,-5)S(9,-5) Pen Up
  949. X    S(-9,9)S(-1,9) Pen Up
  950. X    s(2,9)s(9,9) Pen Up
  951. X    S(-8,-12)S(-6,-11) Pen Up
  952. X    s(-7,-12)s(-6,-10) Pen Up
  953. X    s(3,-5)s(5,-4) Pen Up
  954. X    s(8,-5)s(5,-4) Pen Up
  955. X    S(-6,8)S(-8,9) Pen Up
  956. X    s(-6,7)s(-7,9) Pen Up
  957. X    S(-4,7)S(-3,9) Pen Up
  958. X    s(-4,8)s(-2,9) Pen Up
  959. X    s(5,7)s(3,9) Pen Up
  960. X    s(4,7)s(8,9) End Char
  961. X'l': Bounds(-6,6)(-1,-12)(-1,9) Pen Up
  962. X    (0,-11)(0,8) Pen Up
  963. X    S(-4,-12)(1,-12)(1,9) Pen Up
  964. X    S(-4,9)S(4,9) Pen Up
  965. X    S(-3,-12)S(-1,-11) Pen Up
  966. X    s(-2,-12)s(-1,-10) Pen Up
  967. X    s(-1,8)s(-3,9) Pen Up
  968. X    S(-1,7)S(-2,9) Pen Up
  969. X    S(1,7)S(2,9) Pen Up
  970. X    s(1,8)s(3,9) End Char
  971. X'm': Bounds(-17,17)(-12,-5)(-12,9) Pen Up
  972. X    (-11,-4)(-11,8) Pen Up
  973. X    S(-15,-5)(-10,-5)(-10,9) Pen Up
  974. X    (-10,-1)(-9,-3)(-8,-4)(-6,-5)(-3,-5)(-1,-4)(0,-3)(1,0)(1,9) Pen Up
  975. X    (-1,-3)(0,0)(0,8) Pen Up
  976. X    (-3,-5)(-2,-4)(-1,-1)(-1,9) Pen Up
  977. X    (1,-1)(2,-3)(3,-4)(5,-5)(8,-5)(10,-4)(11,-3)(12,0)(12,9) Pen Up
  978. X    (10,-3)(11,0)(11,8) Pen Up
  979. X    (8,-5)(9,-4)(10,-1)(10,9) Pen Up
  980. X    S(-15,9)S(-7,9) Pen Up
  981. X    S(-4,9)S(4,9) Pen Up
  982. X    S(7,9)S(15,9) Pen Up
  983. X    S(-14,-5)S(-12,-4) Pen Up
  984. X    s(-13,-5)s(-12,-3) Pen Up
  985. X    s(-12,8)s(-14,9) Pen Up        *a
  986. X    S(-12,7)S(-13,9) Pen Up
  987. X    S(-10,7)S(-9,9) Pen Up
  988. X    s(-10,8)s(-8,9) Pen Up
  989. X    s(-1,8)s(-3,9) Pen Up
  990. X    S(-1,7)S(-2,9) Pen Up
  991. X    S(1,7)S(2,9) Pen Up
  992. X    s(1,8)s(3,9) Pen Up
  993. X    s(10,8)s(8,9) Pen Up
  994. X    S(10,7)S(9,9) Pen Up
  995. X    S(12,7)S(13,9) Pen Up
  996. X    s(12,8)s(14,9) End Char
  997. X'n': Bounds(-11,12)(-6,-5)(-6,9) Pen Up
  998. X    (-5,-4)(-5,8) Pen Up
  999. X    S(-9,-5)(-4,-5)(-4,9) Pen Up
  1000. X    (-4,-1)(-3,-3)(-2,-4)(0,-5)(3,-5)(5,-4)(6,-3)(7,0)(7,9) Pen Up
  1001. X    (5,-3)(6,0)(6,8) Pen Up
  1002. X    (3,-5)(4,-4)(5,-1)(5,9) Pen Up
  1003. X    S(-9,9)S(-1,9) Pen Up
  1004. X    S(2,9)S(10,9) Pen Up
  1005. X    S(-8,-5)S(-6,-4) Pen Up
  1006. X    s(-7,-5)s(-6,-3) Pen Up
  1007. X    s(-6,8)s(-8,9) Pen Up
  1008. X    S(-6,7)S(-7,9) Pen Up
  1009. X    S(-4,7)S(-3,9) Pen Up
  1010. X    s(-4,8)s(-2,9) Pen Up
  1011. X    s(5,8)s(3,9) Pen Up
  1012. X    S(5,7)S(4,9) Pen Up
  1013. X    S(7,7)S(8,9) Pen Up
  1014. X    s(7,8)s(9,9) End Char
  1015. X'o': Bounds(-10,10)(-1,-5)(-4,-4)(-6,-2)(-7,1)(-7,3)(-6,6)(-4,8)(-1,9)
  1016. X    (1,9)(4,8)(6,6)(7,3)(7,1)(6,-2)(4,-4)(1,-5)(-1,-5) Pen Up
  1017. X    (-5,-2)(-6,0)(-6,4)(-5,6) Pen Up
  1018. X    (5,6)(6,4)(6,0)(5,-2) Pen Up
  1019. X    (-1,-5)(-3,-4)(-4,-3)(-5,0)(-5,4)(-4,7)(-3,8)(-1,9) Pen Up
  1020. X    (1,9)(3,8)(4,7)(5,4)(5,0)(4,-3)(3,-4)(1,-5) End Char
  1021. X'p': Bounds(-11,10)(-6,-5)(-6,16) Pen Up
  1022. X    (-5,-4)(-5,15) Pen Up
  1023. X    S(-9,-5)(-4,-5)(-4,16) Pen Up
  1024. X    (-4,-2)(-3,-4)(-1,-5)(1,-5)(4,-4)(6,-2)(7,1)(7,3)(6,6)
  1025. X    (4,8)(1,9)(-1,9)(-3,8)(-4,6) Pen Up
  1026. X    (5,-2)(6,0)(6,4)(5,6) Pen Up
  1027. X    (1,-5)(3,-4)(4,-3)(5,0)(5,4)(4,7)(3,8)(1,9) Pen Up
  1028. X    S(-9,16)S(-1,16) Pen Up
  1029. X    S(-8,-5)S(-6,-4) Pen Up
  1030. X    s(-7,-5)s(-6,-3) Pen Up
  1031. X    s(-6,15)s(-8,16) Pen Up
  1032. X    S(-6,14)S(-7,16) Pen Up
  1033. X    S(-4,14)S(-3,16) Pen Up
  1034. X    s(-4,15)s(-2,16) End Char
  1035. X'q': Bounds(-10,10)(4,-4)(4,16) Pen Up
  1036. X    (5,-3)(5,15) Pen Up
  1037. X    (3,-4)(5,-4)(6,-5)(6,16) Pen Up
  1038. X    (4,-2)(3,-4)(1,-5)(-1,-5)(-4,-4)(-6,-2)(-7,1)(-7,3)(-6,6)
  1039. X    (-4,8)(-1,9)(1,9)(3,8)(4,6) Pen Up
  1040. X    (-5,-2)(-6,0)(-6,4)(-5,6) Pen Up
  1041. X    (-1,-5)(-3,-4)(-4,-3)(-5,0)(-5,4)(-4,7)(-3,8)(-1,9) Pen Up
  1042. X    S(1,16)S(9,16) Pen Up
  1043. X    s(4,15)s(2,16) Pen Up
  1044. X    S(4,14)S(3,16) Pen Up
  1045. X    S(6,14)S(7,16) Pen Up
  1046. X    s(6,15)s(8,16) End Char
  1047. X'r': Bounds(-9,8)(-4,-5)(-4,9) Pen Up
  1048. X    (-3,-4)(-3,8) Pen Up
  1049. X    S(-7,-5)(-2,-5)(-2,9) Pen Up
  1050. X    S(5,-3)S(5,-4)S(4,-4)S(4,-2)(6,-2)(6,-4)(5,-5)(3,-5)(1,-4)
  1051. X    (-1,-2)(-2,1) Pen Up
  1052. X    S(-7,9)S(1,9) Pen Up
  1053. X    S(-6,-5)S(-4,-4) Pen Up
  1054. X    s(-5,-5)s(-4,-3) Pen Up
  1055. X    s(-4,8)s(-6,9) Pen Up
  1056. X    S(-4,7)S(-5,9) Pen Up
  1057. X    S(-2,7)S(-1,9) Pen Up
  1058. X    s(-2,8)s(0,9) End Char
  1059. X's': Bounds(-8,9)S(5,-3)S(6,-5)(6,-1)(5,-3)(4,-4)(2,-5)(-2,-5)(-4,-4)
  1060. X    (-5,-3)(-5,-1)(-4,1)(-2,2)(3,3)(5,4)(6,7) Pen Up
  1061. X    (-4,-4)(-5,-1) Pen Up
  1062. X    (-4,0)(-2,1)(3,2)(5,3) Pen Up
  1063. X    (6,4)(5,8) Pen Up
  1064. X    (-5,-3)(-4,-1)(-2,0)(3,1)(5,2)(6,4)(6,7)(5,8)(3,9)
  1065. X    (-1,9)(-3,8)(-4,7)(-5,5)S(-5,9)S(-4,7) End Char
  1066. 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
  1067. X    (-1,-10)(-1,5)(0,7) Pen Up
  1068. X    (-2,-10)(0,-12)(0,5)(1,8)(2,9) Pen Up
  1069. X    (-5,-5)(4,-5) End Char
  1070. X'u': Bounds(-11,12)(-6,-5)(-6,4)(-5,7)(-4,8)(-2,9)(1,9)(3,8)(4,7)
  1071. X    (5,5) Pen Up
  1072. X    (-5,-4)(-5,5)(-4,7) Pen Up
  1073. X    S(-9,-5)(-4,-5)(-4,5)(-3,8)(-2,9) Pen Up
  1074. X    (5,-5)(5,9)S(10,9) Pen Up
  1075. X    (6,-4)(6,8) Pen Up
  1076. X    S(2,-5)(7,-5)(7,9) Pen Up
  1077. X    S(-8,-5)S(-6,-4) Pen Up
  1078. X    s(-7,-5)s(-6,-3) Pen Up
  1079. X    S(7,7)S(8,9) Pen Up
  1080. X    s(7,8)s(9,9) End Char
  1081. X'v': Bounds(-9,9)(-6,-5)(0,9) Pen Up
  1082. X    (-5,-5)(0,7) Pen Up
  1083. X    (-4,-5)(1,7) Pen Up
  1084. X    (6,-5)(1,7)(0,9) Pen Up
  1085. X    S(-8,-5)S(-1,-5) Pen Up
  1086. X    S(2,-5)S(8,-5) Pen Up
  1087. X    s(-7,-5)s(-4,-3) Pen Up
  1088. X    s(-2,-5)s(-4,-4) Pen Up
  1089. X    s(4,-5)s(6,-4) Pen Up
  1090. X    s(7,-5)s(6,-4) End Char
  1091. X'w': Bounds(-12,12)(-10,-5)(-5,9) Pen Up
  1092. X    (-9,-5)(-5,6) Pen Up
  1093. X    (-8,-5)(-4,6) Pen Up
  1094. X    (0,-5)(-5,6)(-5,9) Pen Up
  1095. X    (0,-5)(5,9) Pen Up
  1096. X    (1,-5)(5,6) Pen Up
  1097. X    (0,-5)(2,-5)(6,6) Pen Up
  1098. X    (10,-5)(6,6)(5,9) Pen Up *was (10,-4)...
  1099. X    S(-13,-5)S(-4,-5) Pen Up
  1100. X    S(7,-5)S(13,-5) Pen Up
  1101. X    S(-12,-5)S(-8,-4) Pen Up
  1102. X    S(-5,-5)S(-7,-4) Pen Up
  1103. X    S(7,-5)S(10,-4) Pen Up
  1104. X    S(12,-5)S(10,-4) End Char
  1105. X'x': Bounds(-10,10)(-6,-5)(4,9) Pen Up
  1106. X    (-5,-5)(5,9) Pen Up
  1107. X    (-4,-5)(6,9) Pen Up
  1108. X    (5,-5)(-5,8) Pen Up
  1109. X    S(-8,-5)S(-1,-5) Pen Up
  1110. X    S(2,-5)S(8,-5) Pen Up
  1111. X    S(-8,9)S(-2,9) Pen Up
  1112. X    S(1,9)S(8,9) Pen Up
  1113. X    s(-7,-5)s(-5,-4) Pen Up
  1114. X    s(-2,-5)s(-4,-4) Pen Up
  1115. X    s(3,-5)s(5,-4) Pen Up
  1116. X    s(7,-5)s(5,-4) Pen Up
  1117. X    s(-5,8)s(-7,9) Pen Up
  1118. X    s(-5,8)s(-3,9) Pen Up
  1119. X    s(4,8)s(2,9) Pen Up
  1120. X    s(5,8)s(7,9) End Char
  1121. X'y': Bounds(-10,9)(-6,-5)(0,9) Pen Up
  1122. X    (-5,-5)(0,7) Pen Up
  1123. X    (-4,-5)(1,7) Pen Up
  1124. X    (6,-5)(1,7)(-2,13)(-4,15)(-6,16)(-8,16)s(-9,15)s(-9,13)S(-7,13)
  1125. X    S(-7,15)S(-8,15)S(-8,14) Pen Up
  1126. X    S(-8,-5)S(-1,-5) Pen Up
  1127. X    S(2,-5)S(8,-5) Pen Up
  1128. X    s(-7,-5)s(-4,-3) Pen Up
  1129. X    s(-2,-5)s(-4,-4) Pen Up
  1130. X    s(4,-5)s(6,-4) Pen Up
  1131. X    s(7,-5)s(6,-4) End Char
  1132. X'z': Bounds(-9,9)(4,-5)(-6,9) Pen Up
  1133. X    (5,-5)(-5,9) Pen Up
  1134. X    (6,-5)(-4,9) Pen Up
  1135. X    (6,-5)(-6,-5)S(-6,-1) Pen Up
  1136. X    (-6,9)(6,9)S(6,5) Pen Up
  1137. X    S(-5,-5)S(-6,-1) Pen Up
  1138. X    S(-4,-5)S(-6,-2) Pen Up
  1139. X    S(-3,-5)S(-6,-3) Pen Up
  1140. X    S(-1,-5)S(-6,-4) Pen Up
  1141. X    S(1,9)S(6,8) Pen Up
  1142. X    S(3,9)S(6,7) Pen Up
  1143. X    S(4,9)S(6,6) Pen Up
  1144. X    S(5,9)S(6,5) End Char
  1145. X
  1146. \Rogue\Monster\
  1147. else
  1148.   echo "will not over write ./trs.chr"
  1149. fi
  1150. if [ `wc -c ./trs.chr | awk '{printf $1}'` -ne 10460 ]
  1151. then
  1152. echo `wc -c ./trs.chr | awk '{print "Got " $1 ", Expected " 10460}'`
  1153. fi
  1154. if `test ! -s ./vfont.c`
  1155. then
  1156. echo "writing ./vfont.c"
  1157. sed 's/^X//' > ./vfont.c << '\Rogue\Monster\'
  1158. X/*
  1159. X * This routine was adapted from:
  1160. X *
  1161. X *  hfont - build a vfont raster file from a hershey format vector file
  1162. X *
  1163. X *  Written by William LeFebvre, LCSE, Rice University
  1164. X */
  1165. X
  1166. X# include <vfont.h>
  1167. X
  1168. X# define  MAX_CHARS    256        /* number of chars in a vfont file */
  1169. X# define  Headersize    (sizeof(struct header) + sizeof(struct dispatch) * MAX_CHARS)
  1170. X
  1171. X
  1172. Xvfont()
  1173. X{ int  vfd, filesize, bytecnt, nrows, ncols, colbytes;
  1174. X  struct header v_header;
  1175. X  struct dispatch v_character[256];
  1176. X  struct dispatch *character;
  1177. X
  1178. X    if ((vfd = creat(ftname, 0666)) == -1)
  1179. X    {
  1180. X    perror(ftname);
  1181. X    exit(1);
  1182. X    }
  1183. X    /* leave space for the header, character descriptors, and space bitmap */
  1184. X    lseek(vfd, Headersize + 2, 0);
  1185. X    filesize = 2;
  1186. X
  1187. X    /* translate the characters */
  1188. X
  1189. X    for (letter = 0; letter < 128; letter++)
  1190. X    {
  1191. X
  1192. X    character = &(v_character[letter]);
  1193. X
  1194. X    /* find the character in the Hershey font */
  1195. X
  1196. X    if (letter == 32)
  1197. X    {
  1198. X        /* this is a special width space character */
  1199. X        character->nbytes = 2;
  1200. X        character->addr = 0;
  1201. X        character->up = character->down =
  1202. X        character->left = character->right = 0;
  1203. X        character->width = 12; /* ??? */
  1204. X    }
  1205. X    else if (cindex[letter] || cvflag)
  1206. X    {
  1207. X        /* normal hershey character */
  1208. X
  1209. X    if (cvflag)
  1210. X    {    if (letter == 0 || letter == 127) continue;
  1211. X        currch = letter;
  1212. X        tokeep();
  1213. X        if (!currlen) continue;
  1214. X        ctovkeep();/* showbits();*/
  1215. X    } else
  1216. X        lplot(letter);
  1217. X
  1218. X        nrows = ytop + ybot;
  1219. X        ncols = currlen;
  1220. X        colbytes = (ncols + 7)/8;
  1221. X#ifdef sun
  1222. X        if (colbytes & 1) colbytes += 1;
  1223. X#endif
  1224. X        /* fill in the character descriptor */
  1225. X        character->width  = ncols; /* ADD bearings */
  1226. X        character->down   = ybot; /*down_max - baseline;*/
  1227. X        character->up     = ytop; /*baseline - up_max;*/
  1228. X        character->left   = 0; /*left_ex - left_max;*/
  1229. X        character->right  = ncols; /*right_max - left_ex + 1;*/
  1230. X        character->addr   = filesize;
  1231. X        character->nbytes = bytecnt = colbytes * nrows;
  1232. X        /*((right_max - left_max + 8) >> 3) *
  1233. X                    (down_max - up_max);*/
  1234. X
  1235. X        /* write the raster */
  1236. X        for (i = 0; i < nrows; i++)
  1237. X        write(vfd, vkeep[i], colbytes);
  1238. X
  1239. X        filesize += bytecnt;
  1240. X
  1241. X    }
  1242. X
  1243. X    }
  1244. X
  1245. X    /* write the font header with the real file size */
  1246. X    v_header.size = filesize;
  1247. X    v_header.magic = 0436;
  1248. X    v_header.maxx = v_header.maxy = v_header.xtend = 0;
  1249. X    lseek(vfd, 0, 0);
  1250. X    write(vfd, &v_header, sizeof(v_header));
  1251. X
  1252. X    /* write the character dispatch area */
  1253. X    write(vfd, v_character, sizeof(v_character));
  1254. X
  1255. X    close(vfd);
  1256. X}
  1257. X
  1258. \Rogue\Monster\
  1259. else
  1260.   echo "will not over write ./vfont.c"
  1261. fi
  1262. if [ `wc -c ./vfont.c | awk '{printf $1}'` -ne 2486 ]
  1263. then
  1264. echo `wc -c ./vfont.c | awk '{print "Got " $1 ", Expected " 2486}'`
  1265. fi
  1266. echo "Finished archive 1 of 4"
  1267. # if you want to concatenate archives, remove anything after this line
  1268. exit
  1269.  
  1270.