home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / x / volume5 / xdvi / patch6a next >
Internet Message Format  |  1989-12-05  |  37KB
  1. Path: uunet!island!guinness.ias.edu
  2. From: vojta@guinness.ias.edu (Paul A Vojta)
  3. Newsgroups: comp.sources.x
  4. Subject: v05i035: xdvi, dvi previewer, patch 6, part 1/2
  5. Message-ID: <1230@island.uu.net>
  6. Date: 5 Dec 89 18:42:43 GMT
  7. Sender: argv@island.uu.net
  8. Lines: 1160
  9. Approved: island!argv@sun.com
  10.  
  11. Submitted-by: vojta@guinness.ias.edu (Paul A Vojta)
  12. Posting-number: Volume 5, Issue 35
  13. Archive-name: xdvi/patch6
  14. Patch-To: xdvi: Volume 3, Issue 37-39,46,67
  15. Patch-To: xdvi: Volume 4, Issue 44,96
  16.  
  17. Here is patch 6 for Xdvi.  It incorporates a number of enhancements,
  18. including a more robust font searching algorithm (and note the new
  19. installation instructions), optional command buttons for commonly used
  20. commands, options to change the page size, and I fixed the bug where
  21. void * was tripping up some compilers.
  22.  
  23. For suggestions, bugs, and fixes, I owe thanks to:
  24.     Kevin Gates (kevin@amath.washington.edu)
  25.     Phil Dykstra (phil@BRL.MIL)
  26.     Paul Raveling (raveling@venera.isi.edu)
  27.     Dan Riley (riley@tcgould.tn.cornell.edu)
  28.     Piet Tutelaers (rcpt@eutrc4.urc.tue.nl)
  29.  
  30. --Paul Vojta, vojta@guinness.ias.edu (new address)
  31.  
  32. --- cut here ---
  33. diff -cr old/AUTHOR new/AUTHOR
  34. *** old/AUTHOR    Fri Nov 17 21:22:49 1989
  35. --- new/AUTHOR    Fri Nov 17 21:34:09 1989
  36. ***************
  37. *** 9,16 ****
  38.       Jeffrey Lee, U of Toronto
  39.       Donald Richardson, Clarkson Univ.
  40.   At the present time, the person to send bug reports to is Paul Vojta,
  41.       vojta@math.berkeley.edu.
  42. - This address will be valid at least through August, 1989.
  43.   
  44.   In addition to the various comp.sources.x archives, current versions of this
  45.   program can also be obtained via anonymous ftp from the following locations:
  46. --- 9,16 ----
  47.       Jeffrey Lee, U of Toronto
  48.       Donald Richardson, Clarkson Univ.
  49.   At the present time, the person to send bug reports to is Paul Vojta,
  50. +     vojta@guinness.ias.edu    (temporary; valid through May '90)
  51.       vojta@math.berkeley.edu.
  52.   
  53.   In addition to the various comp.sources.x archives, current versions of this
  54.   program can also be obtained via anonymous ftp from the following locations:
  55. diff -cr old/Imakefile new/Imakefile
  56. *** old/Imakefile    Fri Nov 17 21:22:51 1989
  57. --- new/Imakefile    Fri Nov 17 22:06:15 1989
  58. ***************
  59. *** 1,26 ****
  60. - FONT_PATH=TEXFONTS
  61.   DEFAULT_FONT_PATH=/usr/local/tex/fonts
  62.   FONTFORMATS_C=gf.c pk.c pxl.c
  63.   FONTFORMATS_O=gf.o pk.o pxl.o
  64.   
  65. ! DEFINES=-DMSBITFIRST \
  66. !   -DBMSHORT \
  67. !   -DFONT_PATH=\"$(FONT_PATH)\" \
  68. !   -DDEFAULT_FONT_PATH=\"$(DEFAULT_FONT_PATH)\"
  69. ! SYSLAST_LIBRARIES=-lXaw -lXmu -lXt -lX11 -lm
  70.   SRCS=xdvi.c dvi_init.c dvi_draw.c $(FONTFORMATS_C) pxl_open.c tpic.c
  71.   OBJS=xdvi.o dvi_init.o dvi_draw.o $(FONTFORMATS_O) pxl_open.o tpic.o
  72.   
  73.   ComplexProgramTarget(xdvi)
  74.   
  75. ! xdvi.man:
  76. !     sed -e "s;%%FONT_PATH%%;$(FONT_PATH);g" \
  77. !         -e "s;%%DEFAULT_FONT_PATH%%;$(DEFAULT_FONT_PATH);g" \
  78. !         < xdvi.man.sed \
  79. !         > xdvi.man
  80.   
  81.   clean::
  82. !     $(RM) xdvi.man
  83.   
  84.   lint::
  85. !     lint $(INCLUDES) $(DEFINES) $(SRCS)
  86. --- 1,29 ----
  87.   DEFAULT_FONT_PATH=/usr/local/tex/fonts
  88. + DEFAULT_FONT_SIZES=300:328.6:360:432:518.4:622:746.4
  89. + DEFINES=-DMSBITFIRST \
  90. +   -DBMSHORT
  91. + FONTDEFINES=-DDEFAULT_FONT_PATH=\"$(DEFAULT_FONT_PATH)\" \
  92. +   -DDEFAULT_FONT_SIZES=\"$(DEFAULT_FONT_SIZES)\"
  93.   FONTFORMATS_C=gf.c pk.c pxl.c
  94.   FONTFORMATS_O=gf.o pk.o pxl.o
  95.   
  96. ! LOCAL_LIBRARIES=$(XAWLIB) $(XMULIB) $(XTOOLLIB) $(XLIB) -lm
  97.   SRCS=xdvi.c dvi_init.c dvi_draw.c $(FONTFORMATS_C) pxl_open.c tpic.c
  98.   OBJS=xdvi.o dvi_init.o dvi_draw.o $(FONTFORMATS_O) pxl_open.o tpic.o
  99.   
  100.   ComplexProgramTarget(xdvi)
  101.   
  102. ! pxl_open.o:
  103. !     $(CC) -c $(CFLAGS) $(FONTDEFINES) pxl_open.c
  104.   
  105. + xdvi.man: xdvi.man.sed
  106. +     chmod u+x mksedscript
  107. +     mksedscript $(DEFAULT_FONT_PATH) $(DEFAULT_FONT_SIZES) $(DEFINES) \
  108. +         > sedscript
  109. +     sed -f sedscript < xdvi.man.sed > xdvi.man
  110. + 
  111.   clean::
  112. !     $(RM) sedscript xdvi.man xdvi10.man.s
  113.   
  114.   lint::
  115. !     $(LINT) $(INCLUDES) $(DEFINES) $(FONTDEFINES) $(SRCS)
  116. diff -cr old/Makefile new/Makefile
  117. *** old/Makefile    Fri Nov 17 21:22:52 1989
  118. --- new/Makefile    Fri Nov 17 22:06:09 1989
  119. ***************
  120. *** 4,15 ****
  121.   # $Header: Makefile,v 1.2 87/05/14 14:05:34 eichin Locked $
  122.   # $Source: /u1/uus/vs2/xdvi/RCS/Makefile,v $
  123.   #
  124. - FONT_PATH=TEXFONTS
  125.   DEFAULT_FONT_PATH=/usr/local/tex/fonts
  126.   DEFINES=-DMSBITFIRST \
  127. !   -DBMSHORT \
  128. !   -DFONT_PATH=\"$(FONT_PATH)\" \
  129. !   -DDEFAULT_FONT_PATH=\"$(DEFAULT_FONT_PATH)\"
  130.   FONTFORMATS_C=gf.c pk.c pxl.c
  131.   FONTFORMATS_O=gf.o pk.o pxl.o
  132.   LIBDIR=/usr/custom/x11/lib
  133. --- 4,15 ----
  134.   # $Header: Makefile,v 1.2 87/05/14 14:05:34 eichin Locked $
  135.   # $Source: /u1/uus/vs2/xdvi/RCS/Makefile,v $
  136.   #
  137.   DEFAULT_FONT_PATH=/usr/local/tex/fonts
  138. + DEFAULT_FONT_SIZES=300:328.6:360:432:518.4:622:746.4
  139.   DEFINES=-DMSBITFIRST \
  140. !   -DBMSHORT
  141. ! FONTDEFINES=-DDEFAULT_FONT_PATH=\"$(DEFAULT_FONT_PATH)\" \
  142. !   -DDEFAULT_FONT_SIZES=\"$(DEFAULT_FONT_SIZES)\"
  143.   FONTFORMATS_C=gf.c pk.c pxl.c
  144.   FONTFORMATS_O=gf.o pk.o pxl.o
  145.   LIBDIR=/usr/custom/x11/lib
  146. ***************
  147. *** 18,30 ****
  148.   #INCDIR=/tuna_a/x11r3/include
  149.   XMULIB=
  150.   #XMULIB=-lXmu
  151. ! DESTDIR=
  152. ! BINDIR=/usr/sipb/$$(MACHTYPE)bin
  153.   INCLUDES=-I$(INCDIR)
  154.   CFLAGS=-O $(INCLUDES) $(DEFINES)
  155.   LIBS=-L$(LIBDIR) -lXaw $(XMULIB) -lXt -lX11 -lm
  156. ! SRCS=xdvi.c dvi_init.c dvi_draw.c $(FONTFORMATS_C) pxl_open.c tpic.c \
  157. !   xdvi.h dvi.h xdvi.icon
  158.   OBJS=xdvi.o dvi_init.o dvi_draw.o $(FONTFORMATS_O) pxl_open.o tpic.o
  159.   CC=/tuna_a/gnu/bin/gcc
  160.   RM=rm -f
  161. --- 18,30 ----
  162.   #INCDIR=/tuna_a/x11r3/include
  163.   XMULIB=
  164.   #XMULIB=-lXmu
  165. ! DESTDIR=/usr/local/x11
  166. ! BINDIR=$(DESTDIR)/bin
  167. ! MANDIR=$(DESTDIR)/man
  168.   INCLUDES=-I$(INCDIR)
  169.   CFLAGS=-O $(INCLUDES) $(DEFINES)
  170.   LIBS=-L$(LIBDIR) -lXaw $(XMULIB) -lXt -lX11 -lm
  171. ! SRCS=xdvi.c dvi_init.c dvi_draw.c $(FONTFORMATS_C) pxl_open.c tpic.c
  172.   OBJS=xdvi.o dvi_init.o dvi_draw.o $(FONTFORMATS_O) pxl_open.o tpic.o
  173.   CC=/tuna_a/gnu/bin/gcc
  174.   RM=rm -f
  175. ***************
  176. *** 45,62 ****
  177.   pk.o:    xdvi.h
  178.   pxl.o:    xdvi.h
  179.   
  180.   xdvi.man: xdvi.man.sed
  181. !     sed -e "s;%%FONT_PATH%%;$(FONT_PATH);g" \
  182. !         -e "s;%%DEFAULT_FONT_PATH%%;$(DEFAULT_FONT_PATH);g" \
  183. !         < xdvi.man.sed \
  184. !         > xdvi.man
  185.   
  186. ! install: all
  187. !     install -c -s xdvi $(DESTDIR)$(BINDIR)
  188.   
  189.   clean:
  190. !     $(RM) *.o *.BAK *.CKP xdvi.man xdvi a.out core errs *~
  191.   
  192.   lint:
  193. !     lint $(INCLUDES) $(DEFINES) xdvi.c dvi_init.c dvi_draw.c \
  194. !         $(FONTFORMATS_C) pxl_open.c tpic.c
  195. --- 45,66 ----
  196.   pk.o:    xdvi.h
  197.   pxl.o:    xdvi.h
  198.   
  199. + pxl_open.o:
  200. +     $(CC) -c $(CFLAGS) $(FONTDEFINES) pxl_open.c
  201. + 
  202.   xdvi.man: xdvi.man.sed
  203. !     chmod u+x mksedscript
  204. !     mksedscript $(DEFAULT_FONT_PATH) $(DEFAULT_FONT_SIZES) $(DEFINES) \
  205. !         > sedscript
  206. !     sed -f sedscript < xdvi.man.sed > xdvi.man
  207.   
  208. ! install: xdvi xdvi.man
  209. !     install -c -s -m 755 xdvi $(BINDIR)
  210. !     install -c -m 644 xdvi.man $(MANDIR)/man1/xdvi.1
  211.   
  212.   clean:
  213. !     $(RM) *.o *.BAK *.CKP sedscript xdvi.man xdvi a.out core errs *~
  214. !     $(RM) xdvi10.man.s
  215.   
  216.   lint:
  217. !     lint $(INCLUDES) $(DEFINES) $(FONTDEFINES) $(SRCS)
  218. diff -cr old/Makefile_10 new/Makefile_10
  219. *** old/Makefile_10    Fri Nov 17 21:22:53 1989
  220. --- new/Makefile_10    Fri Nov 17 22:06:22 1989
  221. ***************
  222. *** 4,23 ****
  223.   # $Header: Makefile,v 1.2 87/05/14 14:05:34 eichin Locked $
  224.   # $Source: /u1/uus/vs2/xdvi/RCS/Makefile,v $
  225.   #
  226. - FONT_PATH=TEXFONTS
  227.   DEFAULT_FONT_PATH=/usr/local/tex/fonts
  228. ! DEFINES=-DX10 \
  229. !   -DFONT_PATH=\"$(FONT_PATH)\" \
  230. !   -DDEFAULT_FONT_PATH=\"$(DEFAULT_FONT_PATH)\"
  231.   FONTFORMATS_C=gf.c pk.c pxl.c
  232.   FONTFORMATS_O=gf.o pk.o pxl.o
  233. ! DESTDIR=
  234. ! BINDIR=/usr/sipb/$$(MACHTYPE)bin
  235. ! INCLUDES=-I/usr/include/X
  236. ! CFLAGS=-O $(DEFINES)
  237.   LIBS=-lX -lm
  238. ! SRCS=xdvi.c dvi_init.c dvi_draw.c $(FONTFORMATS_C) pxl_open.c tpic.c \
  239. !   xdvi.h dvi.h xdvi_curs.h xdvi_mask.h
  240.   OBJS=xdvi.o dvi_init.o dvi_draw.o $(FONTFORMATS_O) pxl_open.o tpic.o
  241.   CC=/tuna_a/gnu/bin/gcc
  242.   RM=rm -f
  243. --- 4,23 ----
  244.   # $Header: Makefile,v 1.2 87/05/14 14:05:34 eichin Locked $
  245.   # $Source: /u1/uus/vs2/xdvi/RCS/Makefile,v $
  246.   #
  247.   DEFAULT_FONT_PATH=/usr/local/tex/fonts
  248. ! DEFAULT_FONT_SIZES=300:328.6:360:432:518.4:622:746.4
  249. ! DEFINES=-DX10
  250. ! FONTDEFINES=-DDEFAULT_FONT_PATH=\"$(DEFAULT_FONT_PATH)\" \
  251. !   -DDEFAULT_FONT_SIZES=\"$(DEFAULT_FONT_SIZES)\"
  252.   FONTFORMATS_C=gf.c pk.c pxl.c
  253.   FONTFORMATS_O=gf.o pk.o pxl.o
  254. ! DESTDIR=/usr/local/x10
  255. ! BINDIR=$(DESTDIR)/bin
  256. ! MANDIR=$(DESTDIR)/man
  257. ! #INCLUDES=-I/usr/include/X
  258. ! CFLAGS=-O $(INCLUDES) $(DEFINES)
  259.   LIBS=-lX -lm
  260. ! SRCS=xdvi.c dvi_init.c dvi_draw.c $(FONTFORMATS_C) pxl_open.c tpic.c
  261.   OBJS=xdvi.o dvi_init.o dvi_draw.o $(FONTFORMATS_O) pxl_open.o tpic.o
  262.   CC=/tuna_a/gnu/bin/gcc
  263.   RM=rm -f
  264. ***************
  265. *** 38,55 ****
  266.   pk.o:    xdvi.h
  267.   pxl.o:    xdvi.h
  268.   
  269. ! xdvi.man: xdvi10.man.s
  270. !     sed -e "s;%%FONT_PATH%%;$(FONT_PATH);g" \
  271. !         -e "s;%%DEFAULT_FONT_PATH%%;$(DEFAULT_FONT_PATH);g" \
  272. !         < xdvi10.man.s \
  273. !         > xdvi.man
  274.   
  275. ! install: all
  276. !     install -c -s xdvi $(DESTDIR)$(BINDIR)
  277.   
  278.   clean:
  279. !     $(RM) *.o *.BAK *.CKP xdvi.man xdvi a.out core errs *~
  280.   
  281.   lint:
  282. !     lint $(DEFINES) xdvi.c dvi_init.c dvi_draw.c \
  283. !         $(FONTFORMATS_C) pxl_open.c tpic.c
  284. --- 38,59 ----
  285.   pk.o:    xdvi.h
  286.   pxl.o:    xdvi.h
  287.   
  288. ! pxl_open.o:
  289. !     $(CC) -c $(CFLAGS) $(FONTDEFINES) pxl_open.c
  290.   
  291. ! xdvi.man: xdvi.man.sed
  292. !     chmod u+x mksedscript
  293. !     mksedscript $(DEFAULT_FONT_PATH) $(DEFAULT_FONT_SIZES) $(DEFINES) \
  294. !         > sedscript
  295. !     sed -f sedscript < xdvi.man.sed > xdvi.man
  296.   
  297. + install: xdvi xdvi.man
  298. +     install -c -s -m 755 xdvi $(BINDIR)
  299. +     install -c -m 644 xdvi.man $(MANDIR)/man1/xdvi.1
  300. + 
  301.   clean:
  302. !     $(RM) *.o *.BAK *.CKP sedscript xdvi.man xdvi a.out core errs *~
  303. !     $(RM) xdvi10.man.s
  304.   
  305.   lint:
  306. !     lint $(INCLUDES) $(DEFINES) $(FONTDEFINES) $(SRCS)
  307. diff -cr old/README new/README
  308. *** old/README    Fri Nov 17 21:22:54 1989
  309. --- new/README    Sat Nov  4 20:34:30 1989
  310. ***************
  311. *** 1,33 ****
  312. ! Latest comments are at the end of the file. Add changes there.
  313. ! ===$Header: README,v 1.2 88/07/22 21:00:33 eichin Exp $===
  314. ! ================================================================
  315. ! This directory contains a version of xdvi capable of reading GF, PXL
  316. ! and PK font files. This version of xdvi is based on the source that
  317. ! "came with" X v10r3. Xdvi was modified by Paal Kvamme at the Norwegian
  318. ! Institute of Technology, based on the modifications I had made to
  319. ! dviimp (a dvi to ImPress converter). This code was again more or less
  320. ! directly translated from the web source of PKtoPX.
  321.   
  322. ! If you discover (and fix) any bugs in this code, please notify me, so
  323. ! I can make the corresponding changes myself.
  324.   
  325. ! ---------
  326. ! H}vard Eidnes    (TeXish: H\aa vard Eidnes)
  327. ! Division of Computer Science
  328. ! Norwegian Institute of Technology
  329.   
  330. ! E-Mail: h_eidnes%vax.runit.unit.uninett@nta-vax.arpa
  331. ! ================================================================
  332. ! Also has path search added by Mark Eichin, looks in TEXFONTS
  333. ! ================================================================
  334.   
  335. - Compilation notes:
  336. -     To compile for X10 (non athena, assumes NORMAL X10 system)
  337. -         make -f Makefile_10
  338. -     To compile for X11 (athena environment)
  339. -         make
  340. -             _Mark Eichin
  341. -             <eichin@athena.mit.edu>
  342.   
  343.       The X10 flag only affects xdvi.c and pxl.c (and the flags MSBITFIRST,
  344.       BMSHORT, and BMLONG, see below).
  345. --- 1,25 ----
  346. ! INSTALLATION INSTRUCTIONS
  347. ! 
  348. ! To install, do the following:
  349. !     1.    Read the ENVIRONMENTS section of xdvi.man.sed to determine the correct
  350. !     default values for the XDVIFONTS and XDVISIZES environment variables.
  351. !     Edit the Imakefile or Makefile and change the values of the make
  352. !     variables DEFAULT_FONT_PATH and DEFAULT_FONT_SIZES to these values.
  353.   
  354. !     (Note:  for X10 compilation, use Makefile_10 instead of Makefile.)
  355.   
  356. !     You may also wish to change other compilation options; they are
  357. !     described later in this file.
  358.   
  359. !     2.  make xdvi and try it out.  If the settings in step one are incorrect,
  360. !     you can use the corresponding environment variables to quickly try out
  361. !     different values.  If the values set in step 1 were incorrect,
  362. !     rm pxl_open.o and go back to step 1.
  363. ! 
  364. !     3.  make xdvi.man.
  365. ! 
  366. !     4.  Install xdvi and xdvi.man.
  367.   
  368.   
  369.       The X10 flag only affects xdvi.c and pxl.c (and the flags MSBITFIRST,
  370.       BMSHORT, and BMLONG, see below).
  371. ***************
  372. *** 62,70 ****
  373.               cannot be found.  Can be set to NULL.  By default, it
  374.               is "cmr10".
  375.       NOTOOL        (X11 only; xdvi.c)  Compile using raw X calls.
  376.   
  377. ! All flags should be set in the appropriate Makefile.
  378. ! ================================================================
  379.   Additional notes:
  380.       X11 version now works on the IBM PC/RT as well as VAX.
  381.               [eichin:19880313.1330EST]
  382. --- 54,94 ----
  383.               cannot be found.  Can be set to NULL.  By default, it
  384.               is "cmr10".
  385.       NOTOOL        (X11 only; xdvi.c)  Compile using raw X calls.
  386. +     BUTTONS        (xdvi.c)  Put radio buttons on the right side of the
  387. +             window for commonly used commands.
  388. +     A4        (xdvi.c)  Use European size paper by default.
  389.   
  390. ! All flags should be set in the appropriate Makefile via the variable
  391. ! ``DEFINES''.
  392. ! 
  393. ! ================================================================
  394. ! 
  395. ! Notes of historical nature follow.  Most recent changes are listed at the end
  396. ! of the file.
  397. ! 
  398. ! ================================================================
  399. ! 
  400. ! This directory contains a version of xdvi capable of reading GF, PXL
  401. ! and PK font files. This version of xdvi is based on the source that
  402. ! "came with" X v10r3. Xdvi was modified by Paal Kvamme at the Norwegian
  403. ! Institute of Technology, based on the modifications I had made to
  404. ! dviimp (a dvi to ImPress converter). This code was again more or less
  405. ! directly translated from the web source of PKtoPX.
  406. ! 
  407. ! If you discover (and fix) any bugs in this code, please notify me, so
  408. ! I can make the corresponding changes myself.
  409. ! 
  410. ! ---------
  411. ! H}vard Eidnes    (TeXish: H\aa vard Eidnes)
  412. ! Division of Computer Science
  413. ! Norwegian Institute of Technology
  414. ! 
  415. ! E-Mail: h_eidnes%vax.runit.unit.uninett@nta-vax.arpa
  416. ! ================================================================
  417. ! Also has path search added by Mark Eichin, looks in TEXFONTS
  418. ! ================================================================
  419. ! 
  420. ! ================================================================
  421.   Additional notes:
  422.       X11 version now works on the IBM PC/RT as well as VAX.
  423.               [eichin:19880313.1330EST]
  424. ***************
  425. *** 121,126 ****
  426. --- 145,157 ----
  427.       generating table.h.
  428.   --  Patchlevel 3:  --
  429.      13.  Added -altfont command line option and SYSV compilation option.
  430. + ================================================================================
  431. + 
  432. + 4/1989  Modified for System V boxes. -DSYSV compiler option.
  433. + 
  434. + Donald Richardson, donr@crystal.mie.clarkson.edu
  435. + 
  436. + ================================================================================
  437.   --  Patchlevel 4:  --
  438.      14.  Removed MAXCHARS compilation option.  It's automatic now.  Made X10
  439.       scrolling smoother.  Implemented the moving magnifying glass.
  440. ***************
  441. *** 132,143 ****
  442.       a character def. were not being processed.  Thanks to
  443.       kevin@amath.washington.edu for a bug report and fix.
  444.      17.  Added 'k' keystroke.
  445.   
  446.   Paul Vojta, vojta@math.berkeley.edu
  447. - ================================================================================
  448. - 
  449. - 4/1989  Modified for System V boxes. -DSYSV compiler option.
  450. - 
  451. - Donald Richardson, donr@crystal.mie.clarkson.edu
  452. - 
  453. - ================================================================================
  454. --- 163,172 ----
  455.       a character def. were not being processed.  Thanks to
  456.       kevin@amath.washington.edu for a bug report and fix.
  457.      17.  Added 'k' keystroke.
  458. + --  Patchlevel 6:  --
  459. +    18.  Added buttons on the right side of the window.
  460. +    19.  Added -pagewidth and -pageheight command line options and A4
  461. +     compilation option.
  462. +    20.  Added a yet more robust font finding algorithm.
  463.   
  464.   Paul Vojta, vojta@math.berkeley.edu
  465. diff -cr old/dvi_draw.c new/dvi_draw.c
  466. *** old/dvi_draw.c    Fri Nov 17 21:22:57 1989
  467. --- new/dvi_draw.c    Thu Nov  9 12:26:42 1989
  468. ***************
  469. *** 17,25 ****
  470.    *    SYSV    compile for System V
  471.    *    X10    compile for X10
  472.    *    NOTOOL    compile without toolkit (X11 only)
  473. !  *    MSBITFIRST    store bitmaps internally in with significant bit first
  474.    *    BMSHORT    store bitmaps in shorts instead of bytes
  475.    *    BMLONG    store bitmaps in longs instead of bytes
  476.    */
  477.   
  478.   #include <stdio.h>
  479. --- 17,28 ----
  480.    *    SYSV    compile for System V
  481.    *    X10    compile for X10
  482.    *    NOTOOL    compile without toolkit (X11 only)
  483. !  *    BUTTONS    compile with buttons on the side of the window (needs toolkit)
  484. !  *    MSBITFIRST    store bitmaps internally with most significant bit first
  485.    *    BMSHORT    store bitmaps in shorts instead of bytes
  486.    *    BMLONG    store bitmaps in longs instead of bytes
  487. +  *    ALTFONT    default for -altfont option
  488. +  *    A4    use European size paper
  489.    */
  490.   
  491.   #include <stdio.h>
  492. ***************
  493. *** 152,161 ****
  494.       char *fontname;
  495.       ubyte ch;
  496.   {
  497.       /* width must be multiple of 16 bits for raster_op */
  498.       bitmap->bytes_wide = ROUNDUP(bitmap->w, BITS_PER_BMUNIT) *
  499.           BYTES_PER_BMUNIT;
  500. !     bitmap->bits = malloc((unsigned) bitmap->bytes_wide * bitmap->h);
  501.       if (bitmap->bits == NULL)
  502.           oops("Can't allocate bitmap for character %d of font %s (%d by %d)",
  503.           ch, fontname, bitmap->w, bitmap->h);
  504. --- 155,167 ----
  505.       char *fontname;
  506.       ubyte ch;
  507.   {
  508. +     register unsigned int    size;
  509. + 
  510.       /* width must be multiple of 16 bits for raster_op */
  511.       bitmap->bytes_wide = ROUNDUP(bitmap->w, BITS_PER_BMUNIT) *
  512.           BYTES_PER_BMUNIT;
  513. !     size = bitmap->bytes_wide * bitmap->h;
  514. !     bitmap->bits = malloc(size != 0 ? size : 1);
  515.       if (bitmap->bits == NULL)
  516.           oops("Can't allocate bitmap for character %d of font %s (%d by %d)",
  517.           ch, fontname, bitmap->w, bitmap->h);
  518. ***************
  519. *** 302,317 ****
  520.           open_pxl_file(current_font);
  521.           Fseek(current_font->file, g->addr, 0);
  522.           (*current_font->read_char)(current_font, ch);
  523.           if (debug & DBG_BITMAP) print_char(ch, g);
  524.       }
  525.   
  526.       if (shrink_factor == 1)
  527. !         put_bitmap(&g->bitmap, (PXL_H - g->x), (PXL_V - g->y));
  528.       else {
  529.           if (g->bitmap2.bits == NULL) {
  530.           shrink_glyph(g);
  531.           }
  532. !         put_bitmap(&g->bitmap2, (PXL_H - g->x2), (PXL_V - g->y2));
  533.       }
  534.   }
  535.   
  536. --- 308,324 ----
  537.           open_pxl_file(current_font);
  538.           Fseek(current_font->file, g->addr, 0);
  539.           (*current_font->read_char)(current_font, ch);
  540. +         g->dvi_adv = g->dvi_adv * current_font->factor;
  541.           if (debug & DBG_BITMAP) print_char(ch, g);
  542.       }
  543.   
  544.       if (shrink_factor == 1)
  545. !         put_bitmap(&g->bitmap, PXL_H - g->x, PXL_V - g->y);
  546.       else {
  547.           if (g->bitmap2.bits == NULL) {
  548.           shrink_glyph(g);
  549.           }
  550. !         put_bitmap(&g->bitmap2, PXL_H - g->x2, PXL_V - g->y2);
  551.       }
  552.   }
  553.   
  554. diff -cr old/dvi_init.c new/dvi_init.c
  555. *** old/dvi_init.c    Fri Nov 17 21:22:59 1989
  556. --- new/dvi_init.c    Sat Nov  4 18:13:36 1989
  557. ***************
  558. *** 17,25 ****
  559.    *    SYSV    compile for System V
  560.    *    X10    compile for X10
  561.    *    NOTOOL    compile without toolkit (X11 only)
  562. !  *    MSBITFIRST    store bitmaps internally in with significant bit first
  563.    *    BMSHORT    store bitmaps in shorts instead of bytes
  564.    *    BMLONG    store bitmaps in longs instead of bytes
  565.    */
  566.   
  567.   #include <stdio.h>
  568. --- 17,28 ----
  569.    *    SYSV    compile for System V
  570.    *    X10    compile for X10
  571.    *    NOTOOL    compile without toolkit (X11 only)
  572. !  *    BUTTONS    compile with buttons on the side of the window (needs toolkit)
  573. !  *    MSBITFIRST    store bitmaps internally with most significant bit first
  574.    *    BMSHORT    store bitmaps in shorts instead of bytes
  575.    *    BMLONG    store bitmaps in longs instead of bytes
  576. +  *    ALTFONT    default for -altfont option
  577. +  *    A4    use European size paper
  578.    */
  579.   
  580.   #include <stdio.h>
  581. ***************
  582. *** 30,36 ****
  583.   
  584.   #define    dvi_oops(str)    longjmp(dvi_env, (int) str);
  585.   #define XtOffset(type, field)    ((unsigned int)&(((type)NULL)->field))
  586. - extern char    *alt_font;
  587.   
  588.   static    struct stat fstatbuf;        /* mechanism to see if file was */
  589.   time_t    dvi_time;            /* modified since last usage */
  590. --- 33,38 ----
  591. ***************
  592. *** 73,105 ****
  593.   char    *malloc(), *strcpy();
  594.   FILE    *pxl_open();
  595.   
  596. - static    Boolean
  597. - define_new_font(fontp, fontname)
  598. -     register struct font *fontp;
  599. -     char *fontname;
  600. - {
  601. -     read_font_index_proc read_font_index;
  602. - 
  603. -     if (n_fonts_left == 0)
  604. -         close_a_file();
  605. -     fontp->file = pxl_open(font_path, fontname, fontp->size,
  606. -         (fontp->size + 2) / 5, &fontp->filename, &read_font_index);
  607. -     if (fontp->file == NULL) {
  608. -         Fprintf(stderr, "Font %s at %d dpi [not found]\n", fontname,
  609. -         (fontp->size + 2) / 5);
  610. -         return(False);
  611. -     }
  612. -     (*read_font_index)(fontp);
  613. -     --n_fonts_left;
  614. -     return(True);
  615. - }
  616. - 
  617.   /*
  618.    *      define_font reads the rest of the fntdef command and then reads in
  619.    *      the specified pixel file, adding it to the global linked-list holding
  620.    *      all of the fonts used in the job.
  621.    */
  622. ! static
  623.   define_font(cmnd)
  624.       ubyte cmnd;
  625.   {
  626. --- 75,86 ----
  627.   char    *malloc(), *strcpy();
  628.   FILE    *pxl_open();
  629.   
  630.   /*
  631.    *      define_font reads the rest of the fntdef command and then reads in
  632.    *      the specified pixel file, adding it to the global linked-list holding
  633.    *      all of the fonts used in the job.
  634.    */
  635. ! static    void
  636.   define_font(cmnd)
  637.       ubyte cmnd;
  638.   {
  639. ***************
  640. *** 108,115 ****
  641.       struct font *fontp1;
  642.       int len;
  643.       int design;
  644. -     int unmodsize;
  645. -     float realsize;
  646.       int size;
  647.   
  648.       fontp = (struct font *) malloc((unsigned) sizeof(struct font));
  649. --- 89,94 ----
  650. ***************
  651. *** 126,161 ****
  652.       if(debug & DBG_PK)
  653.         Printf("Define font \"%s\" scale=%d design=%d\n",
  654.           fontp->fontname, fontp->scale, design);
  655. ! /*
  656. !  *    In the actual implementation, scaled-size/design-size hasn't been
  657. !  *    stored with sufficient precision, hence the messing around to find
  658. !  *    its actual value.
  659. !  */
  660. !     realsize = (magnification/1000.)*((float) fontp->scale / design);
  661. !     unmodsize = (realsize * 1000) + 0.5;
  662. !     /* a real hack to correct for rounding in some cases */
  663. !     switch (unmodsize) {
  664. !         case 1095:
  665. !         realsize = 1.095445;    /* stephalf */
  666. !         break;
  667. !         case 1315:
  668. !         realsize = 1.314534;    /* stepihalf */
  669. !         break;
  670. !         case 2074:
  671. !         realsize = 2.0736;    /* stepiv */
  672. !         break;
  673. !         case 2488:
  674. !         realsize = 2.48832;    /* stepv */
  675. !         break;
  676. !         case 2986:
  677. !         realsize = 2.985984;    /* stepiv */
  678. !         break;
  679. !     }
  680. !     /*
  681. !      * the remaining magnification steps are represented
  682. !      * with sufficient accuracy already
  683. !      */
  684. !     fontp->size = size = (realsize * pixels_per_inch * 5) + 0.5;
  685.       fontp->scale = fontp->scale * fraction;
  686.       /*
  687.        * reuse font if possible
  688. --- 105,112 ----
  689.       if(debug & DBG_PK)
  690.         Printf("Define font \"%s\" scale=%d design=%d\n",
  691.           fontp->fontname, fontp->scale, design);
  692. !     fontp->size = size = ((double) fontp->scale / design * magnification
  693. !         * pixels_per_inch * 0.005) + 0.5;
  694.       fontp->scale = fontp->scale * fraction;
  695.       /*
  696.        * reuse font if possible
  697. ***************
  698. *** 163,181 ****
  699.       for (;;) {
  700.           fontp1 = *fontpp;
  701.           if (fontp1 == NULL) {
  702. !         maxchar = 255;
  703. !         if (!define_new_font(fontp, fontp->fontname)) {
  704. !             if (alt_font == NULL || !define_new_font(fontp, alt_font)) {
  705. !             font_not_found = True;
  706. !             return;
  707. !             }
  708.               Fprintf(stderr,
  709. !             "Can't find <%s>, using <%s> instead at %d dpi\n",
  710. !             fontp->fontname, alt_font, (size + 2) / 5);
  711.               free(fontp->fontname);
  712. !             fontp->fontname = malloc((unsigned) strlen(alt_font)+1);
  713. !             (void) strcpy(fontp->fontname, alt_font);
  714.           }
  715.           while (maxchar > 0 && fontp->glyph[maxchar].addr == 0)
  716.               --maxchar;
  717.           if (maxchar < 255)
  718. --- 114,150 ----
  719.       for (;;) {
  720.           fontp1 = *fontpp;
  721.           if (fontp1 == NULL) {
  722. !         read_font_index_proc read_font_index;
  723. !         char    *font_found;
  724. !         int    size_found;
  725. !         int    dpi = (size + 2) / 5;
  726. ! 
  727. !         if (n_fonts_left == 0)
  728. !             close_a_file();
  729. !         fontp->file = pxl_open(fontp->fontname, &font_found,
  730. !             size, &size_found, &fontp->factor, &fontp->filename,
  731. !             &read_font_index);
  732. !         if (fontp->file == NULL) {
  733. !             Fprintf(stderr, "Can't find font %s.\n", fontp->fontname);
  734. !             font_not_found = True;
  735. !             return;
  736. !         }
  737. !         --n_fonts_left;
  738. !         if (font_found != NULL) {
  739.               Fprintf(stderr,
  740. !             "Can't find font %s; using %s instead at %d dpi\n",
  741. !             fontp->fontname, font_found, dpi);
  742.               free(fontp->fontname);
  743. !             fontp->fontname = font_found;
  744.           }
  745. +         else if (25 * size_found > 26 * size ||
  746. +             25 * size > 26 * size_found)
  747. +             Fprintf(stderr,
  748. +             "Can't find font %s at %d dpi; using %d dpi instead.\n",
  749. +             fontp->fontname, dpi, (size_found + 2) / 5);
  750. +         fontp->factor = fontp->factor * size / size_found;
  751. +         maxchar = 255;
  752. +         (*read_font_index)(fontp);
  753.           while (maxchar > 0 && fontp->glyph[maxchar].addr == 0)
  754.               --maxchar;
  755.           if (maxchar < 255)
  756. diff -cr old/mksedscript new/mksedscript
  757. *** old/mksedscript    Fri Nov 17 22:07:36 1989
  758. --- new/mksedscript    Sat Nov  4 16:24:00 1989
  759. ***************
  760. *** 0 ****
  761. --- 1,25 ----
  762. + #! /bin/csh
  763. + unset    x10 buttons a4
  764. + set    noglob
  765. + foreach x ($argv[3-])
  766. +     if ($x == -DX10)    set x10
  767. +     if ($x == -DBUTTONS)    set buttons
  768. +     if ($x == -DA4)        set a4
  769. + end
  770. + if ($?x10) then
  771. +     echo    /^\#ifx11/,/^\#/d
  772. +     echo    s/%%dot%%//
  773. + else
  774. +     echo    /^\#ifx10/,/^\#/d
  775. +     echo    s/%%dot%%/./
  776. + endif
  777. + if (! $?buttons)    echo /^\#ifbuttons/,/^\#/d
  778. + echo    /^\#/d
  779. + if ($?a4) then
  780. +     echo    s/%%defaultpagesize%%/8.3 x 11.7 inches (A4 size)/
  781. + else
  782. +     echo    s/%%defaultpagesize%%/8.5 x 11 inches/
  783. + endif
  784. + echo    s\;%%DEFAULT_FONT_PATH%%\;$1\;
  785. + echo    s/%%DEFAULT_FONT_SIZES%%/$2/
  786. + rm -f xdvi10.man.s
  787. diff -cr old/patchlevel.h new/patchlevel.h
  788. *** old/patchlevel.h    Fri Nov 17 21:23:02 1989
  789. --- new/patchlevel.h    Wed Nov 15 20:31:44 1989
  790. ***************
  791. *** 1 ****
  792. ! #define PATCHLEVEL 5
  793. --- 1 ----
  794. ! #define PATCHLEVEL 6
  795. diff -cr old/pk.c new/pk.c
  796. *** old/pk.c    Fri Nov 17 21:23:04 1989
  797. --- new/pk.c    Thu Nov  9 12:28:38 1989
  798. ***************
  799. *** 240,246 ****
  800.       putchar('\n');
  801.       }
  802.   
  803. -     if (g->bitmap.w == 0) return;
  804.       alloc_bitmap(&g->bitmap, fontp->fontname, ch);
  805.       cp = (BMUNIT *) g->bitmap.bits;
  806.   /*
  807. --- 240,245 ----
  808. diff -cr old/pxl_open.c new/pxl_open.c
  809. *** old/pxl_open.c    Fri Nov 17 21:23:06 1989
  810. --- new/pxl_open.c    Thu Nov  9 12:30:18 1989
  811. ***************
  812. *** 1,23 ****
  813.   /*
  814. !  *    pxl_open.c(path, font, pxlmag, pkmag, name, read_font_index)
  815.    *    Find and open gf, pk, or pxl files in the given path, having the given
  816.    *    name and magnification.  It tries gf files first, followed by pk and pxl
  817. !  *    files..  The path variable should be of the form path1:path2:...:pathn,
  818.    *    and each of the paths will be tried successively.  Strings in pathi of
  819.    *    the form %f, %p, and %d will be replaced by the font name, "gf" or "pk"
  820.    *    or "pxl", and the magnification, respectively.  If no %f appears in a
  821. !  *    path specifier, then the string "/%f.%d%p" is added on the end.  If
  822. !  *    the file is found, then a file pointer is returned, and *name is set to
  823. !  *    a string giving the file name.  If the file is not found, then NULL is
  824. !  *    returned.  This procedure also returns a pointer to the glyph-reading
  825. !  *    procedure associated with the file format.
  826. !  * 
  827.    *    Often there are so many fonts that we need to manage the number of
  828.    *    simultaneously open files.  In that case, the variable n_fonts_left
  829.    *    gives the number of open files that are left, (initially MAXINT, set
  830.    *    dynamically) and when it is necessary to close a file, these routines
  831.    *    call close_a_file() which should free up a file descriptor.
  832. !  * 
  833.    */
  834.   
  835.   #include <stdio.h>
  836. --- 1,35 ----
  837.   /*
  838. !  *    pxl_open.c(font, font_ret, mag, mag_ret, factor, name, read_font_index)
  839.    *    Find and open gf, pk, or pxl files in the given path, having the given
  840.    *    name and magnification.  It tries gf files first, followed by pk and pxl
  841. !  *    files.  The path variable should be of the form path1:path2:...:pathn,
  842.    *    and each of the paths will be tried successively.  Strings in pathi of
  843.    *    the form %f, %p, and %d will be replaced by the font name, "gf" or "pk"
  844.    *    or "pxl", and the magnification, respectively.  If no %f appears in a
  845. !  *    path specifier, then the string "/%f.%d%p" is added on the end.  This
  846. !  *    procedure is repeated for each of the possible magnifications allowed,
  847. !  *    and if it fails then the procedure will try changing the point size
  848. !  *    as well.  If all of the above fails, then alt_font will be tried.
  849. !  *
  850. !  *    If the file is found, then a file pointer is returned, and the following
  851. !  *    values are set:
  852. !  *        *font_ret  a pointer to a string containing the font name (if
  853. !  *            different from the font requested).
  854. !  *        *mag_ret  the actual magnification found.
  855. !  *        *factor    the ratio of the point sizes of the requested font
  856. !  *            and the font actually found (or 1.0 if altfont is used).
  857. !  *        *name    a pointer to a string containing the file name
  858. !  *        *read_font_index  a pointer to the read_index procedure to be
  859. !  *            used for the given font format.
  860. !  *
  861. !  *    If the file is not found, then the return value is NULL.
  862. !  *
  863.    *    Often there are so many fonts that we need to manage the number of
  864.    *    simultaneously open files.  In that case, the variable n_fonts_left
  865.    *    gives the number of open files that are left, (initially MAXINT, set
  866.    *    dynamically) and when it is necessary to close a file, these routines
  867.    *    call close_a_file() which should free up a file descriptor.
  868. !  *
  869.    */
  870.   
  871.   #include <stdio.h>
  872. ***************
  873. *** 24,42 ****
  874.   #include <string.h>
  875.   #include <errno.h>
  876.   
  877. - extern    int    errno;
  878. - 
  879.   #define    PATH_SEP    ':'
  880.   #define    DEFAULT_TAIL    "/%f.%d%p"
  881.   
  882. ! #ifndef    __STDC__
  883.   #define    OPEN_MODE    "r"
  884. ! #else    __STDC__
  885. ! #define    OPEN_MODE    "rb"
  886. ! #endif    __STDC__
  887.   
  888.   extern    int    n_fonts_left;
  889.   
  890.       /* the corresponding read_char procedures are handled in xdvi.h */
  891.   typedef    void (*read_font_index_proc)();
  892.       /* struct font *fontp; */
  893. --- 36,56 ----
  894.   #include <string.h>
  895.   #include <errno.h>
  896.   
  897.   #define    PATH_SEP    ':'
  898.   #define    DEFAULT_TAIL    "/%f.%d%p"
  899.   
  900. ! #ifndef    OPEN_MODE
  901.   #define    OPEN_MODE    "r"
  902. ! #endif    OPEN_MODE
  903.   
  904.   extern    int    n_fonts_left;
  905. + extern    char    *alt_font;
  906.   
  907. + static    char    *font_path;
  908. + static    char    default_font_path[]    = DEFAULT_FONT_PATH;
  909. + static    int    *sizes, *sizend;
  910. + static    char    default_size_list[]    = DEFAULT_FONT_SIZES;
  911. + 
  912.       /* the corresponding read_char procedures are handled in xdvi.h */
  913.   typedef    void (*read_font_index_proc)();
  914.       /* struct font *fontp; */
  915. ***************
  916. *** 46,61 ****
  917.   #ifndef    ANSI_LIB
  918.   char    *sprintf();
  919.   #endif
  920. ! char    *malloc(), *index();
  921.   
  922.   #define    Strcpy    (void) strcpy
  923.   #define    Sprintf    (void) sprintf
  924.   
  925. ! static FILE *formatted_open(path, font, pxl, mag, name)
  926. ! char *path, *font, *pxl;
  927. ! int mag;
  928. ! char **name;
  929.   {
  930.       char    *p = path,
  931.           nm[128],
  932.           *n = nm,
  933. --- 60,136 ----
  934.   #ifndef    ANSI_LIB
  935.   char    *sprintf();
  936.   #endif
  937. ! char    *malloc(), *index(), *getenv();
  938.   
  939. + double    atof();
  940. + 
  941.   #define    Strcpy    (void) strcpy
  942.   #define    Sprintf    (void) sprintf
  943.   
  944. ! static    void
  945. ! get_sizes(size_list, spp)
  946. !     char    *size_list;
  947. !     int    **spp;
  948.   {
  949. +     if (*size_list == PATH_SEP) ++size_list;
  950. +     for (;;) {
  951. +         *(*spp)++ = atof(size_list) * 5 + 0.5;
  952. +         size_list = index(size_list, PATH_SEP);
  953. +         if (size_list == NULL) return;
  954. +         ++size_list;
  955. +     }
  956. + }
  957. + 
  958. + init_pxl_open()
  959. + {
  960. +     char    *size_list;
  961. +     int    *sp, *sp1, *sp2;
  962. +     unsigned int n;
  963. +     char    *p;
  964. + 
  965. +     if ((font_path = getenv("XDVIFONTS")) == NULL)
  966. +         font_path = default_font_path;
  967. +     else if (*font_path == PATH_SEP)
  968. +         /*concatenate default_font_path before font_path */
  969. +         font_path = strcat(strcpy(malloc((unsigned)
  970. +         strlen(default_font_path) + strlen(font_path) + 1),
  971. +         default_font_path), font_path);
  972. + 
  973. +     size_list = getenv("XDVISIZES");
  974. +     n = 1;    /* count number of sizes */
  975. +     if (size_list == NULL || *size_list == PATH_SEP)
  976. +         for (p = default_size_list; (p = index(p, PATH_SEP)) != NULL; ++p)
  977. +         ++n;
  978. +     if (size_list != NULL)
  979. +         for (p = size_list; (p = index(p, PATH_SEP)) != NULL; ++p) ++n;
  980. +     sizes = (int *) malloc(n * sizeof(int));
  981. +     sizend = sizes + n;
  982. +     sp = sizes;    /* get the actual sizes */
  983. +     if (size_list == NULL || *size_list == PATH_SEP)
  984. +         get_sizes(default_size_list, &sp);
  985. +     if (size_list != NULL) get_sizes(size_list, &sp);
  986. + 
  987. +     /* bubble sort the sizes */
  988. +     sp1 = sizend - 1;    /* extent of this pass */
  989. +     do {
  990. +         sp2 = NULL;
  991. +         for (sp = sizes; sp < sp1; ++sp)
  992. +         if (*sp > sp[1]) {
  993. +             int i = *sp;
  994. +             *sp = sp[1];
  995. +             sp[1] = i;
  996. +             sp2 = sp;
  997. +         }
  998. +     }
  999. +     while ((sp1 = sp2) != NULL);
  1000. + }
  1001. + 
  1002. + static    FILE *
  1003. + formatted_open(path, font, pxl, mag, name)
  1004. +     char    *path, *font, *pxl;
  1005. +     int    mag;
  1006. +     char    **name;
  1007. + {
  1008.       char    *p = path,
  1009.           nm[128],
  1010.           *n = nm,
  1011. ***************
  1012. *** 102,137 ****
  1013.           *name = malloc((unsigned) (n - nm + 1));
  1014.           Strcpy(*name, nm);
  1015.       }
  1016. !     return(f);
  1017.   }
  1018.   
  1019. ! FILE *pxl_open(path, font, pxlmag, pkmag, name, read_font_index)
  1020. ! char *path, *font;
  1021. ! int pxlmag, pkmag;
  1022. ! char **name;
  1023. ! read_font_index_proc *read_font_index;
  1024.   {
  1025. !     char    *p = path;
  1026.       FILE    *f;
  1027.   
  1028.       for (;;) {
  1029. !         if (read_GF_index &&
  1030. !         (f=formatted_open(p, font, "gf", pkmag, name)) != NULL) {
  1031. !             *read_font_index = read_GF_index;
  1032. !             return(f);
  1033.           }
  1034. !         if (read_PK_index &&
  1035. !         (f=formatted_open(p, font, "pk", pkmag, name)) != NULL) {
  1036. !             *read_font_index = read_PK_index;
  1037. !             return(f);
  1038.           }
  1039. -         if (read_PXL_index &&
  1040. -         (f=formatted_open(p, font, "pxl", pxlmag, name)) != NULL) {
  1041. -             *read_font_index = read_PXL_index;
  1042. -             return(f);
  1043. -         }
  1044. -         p = index(p, PATH_SEP);
  1045. -         if (p == NULL) return(NULL);
  1046. -         ++p;
  1047.       }
  1048.   }
  1049. --- 177,284 ----
  1050.           *name = malloc((unsigned) (n - nm + 1));
  1051.           Strcpy(*name, nm);
  1052.       }
  1053. !     return f;
  1054.   }
  1055.   
  1056. ! static    FILE *
  1057. ! pre_pxl_open(font, mag, mag_ret, name, read_font_index)
  1058. !     char    *font;
  1059. !     int    mag, *mag_ret;
  1060. !     char    **name;
  1061. !     read_font_index_proc *read_font_index;
  1062.   {
  1063. !     char    *p;
  1064.       FILE    *f;
  1065. +     int    *p1, *p2, pxlmag, pkmag;
  1066.   
  1067. +     /*
  1068. +      * Loop over sizes.  Try closest sizes first.
  1069. +      */
  1070. +     for (p2 = sizes; p2 < sizend; ++p2) if (*p2 >= mag) break;
  1071. +     p1 = p2;
  1072.       for (;;) {
  1073. !         if (p1 <= sizes)
  1074. !         if (p2 >= sizend) return NULL;
  1075. !         else pxlmag = *p2++;
  1076. !         else if (p2 >= sizend || mag * mag <= p1[-1] * *p2) pxlmag = *--p1;
  1077. !         else pxlmag = *p2++;
  1078. !         *mag_ret = pxlmag;
  1079. !         pkmag = (pxlmag + 2) / 5;
  1080. !         /*
  1081. !          * loop over paths
  1082. !          */
  1083. !         for (p = font_path;;) {
  1084. !         if (read_GF_index &&
  1085. !             (f = formatted_open(p, font, "gf", pkmag, name)) != NULL) {
  1086. !             *read_font_index = read_GF_index;
  1087. !             return f;
  1088. !         }
  1089. !         if (read_PK_index &&
  1090. !             (f = formatted_open(p, font, "pk", pkmag, name)) != NULL) {
  1091. !             *read_font_index = read_PK_index;
  1092. !             return f;
  1093. !         }
  1094. !         if (read_PXL_index &&
  1095. !             (f = formatted_open(p, font, "pxl", pxlmag, name)) != NULL)
  1096. !         {
  1097. !             *read_font_index = read_PXL_index;
  1098. !             return f;
  1099. !         }
  1100. !         p = index(p, PATH_SEP);
  1101. !         if (p == NULL) break;
  1102. !         ++p;
  1103.           }
  1104. !     }
  1105. ! }
  1106. ! 
  1107. ! FILE *
  1108. ! pxl_open(font, font_ret, mag, mag_ret, factor, name, read_font_index)
  1109. !     char    *font, **font_ret;
  1110. !     int    mag, *mag_ret;
  1111. !     float    *factor;
  1112. !     char    **name;
  1113. !     read_font_index_proc *read_font_index;
  1114. ! {
  1115. !     FILE    *f;
  1116. !     int    actual_pt, low_pt, high_pt, trial_pt;
  1117. !     char    fn[50], *fnend;
  1118. ! 
  1119. !     *factor = 1.0;
  1120. !     f = pre_pxl_open(font, mag, mag_ret, name, read_font_index);
  1121. !     if (f != NULL) {
  1122. !         *font_ret = NULL;
  1123. !         return f;
  1124. !     }
  1125. !     Strcpy(fn, font);
  1126. !     fnend = fn + strlen(fn);
  1127. !     while (fnend > fn && fnend[-1] >= '0' && fnend[-1] <= '9') --fnend;
  1128. !     actual_pt = low_pt = high_pt = atoi(fnend);
  1129. !     if (actual_pt) {
  1130. !         low_pt = actual_pt - 1;
  1131. !         high_pt = actual_pt + 1;
  1132. !         for (;;) {
  1133. !         if (2 * low_pt >= actual_pt &&
  1134. !             (low_pt * high_pt > actual_pt * actual_pt ||
  1135. !             high_pt > actual_pt + 5))
  1136. !             trial_pt = low_pt--;
  1137. !         else if (high_pt > actual_pt + 5) break;
  1138. !         else trial_pt = high_pt++;
  1139. !         Sprintf(fnend, "%d", trial_pt);
  1140. !         f = pre_pxl_open(fn, mag * actual_pt / trial_pt, mag_ret, name,
  1141. !             read_font_index);
  1142. !         if (f != NULL) {
  1143. !             *font_ret = strcpy(malloc((unsigned) strlen(fn) + 1), fn);
  1144. !             *factor = (float) actual_pt / trial_pt;
  1145. !             return f;
  1146. !         }
  1147.           }
  1148.       }
  1149. +     if (alt_font != NULL) {
  1150. +         *font_ret = alt_font;
  1151. +         f = pre_pxl_open(alt_font, mag, mag_ret, name, read_font_index);
  1152. +         if (f != NULL)
  1153. +         *font_ret = strcpy(malloc((unsigned) strlen(alt_font) + 1),
  1154. +             alt_font);
  1155. +     }
  1156. +     return f;
  1157.   }
  1158. diff -cr old/tpic.c new/tpic.c
  1159. *** old/tpic.c    Fri Nov 17 21:23:08 1989
  1160. --- new/tpic.c    Thu Nov  2 17:13:44 1989
  1161. ***************
  1162. *** 143,148 ****
  1163. --- 143,149 ----
  1164.       dy = y1 - y0;
  1165.       if (dotted) {
  1166.       numdots = sqrt(dx*dx + dy*dy) / milliperdash + 0.5;
  1167. +     if (numdots == 0) numdots = 1;
  1168.       for (i=0; i <= numdots; i++) {
  1169.           a = (float) i / (float) numdots;
  1170.           cx0 = x0 + a*dx + 0.5;
  1171.