home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / unix / volume26 / psroff30 / patch14 < prev    next >
Encoding:
Text File  |  1993-05-01  |  62.2 KB  |  2,508 lines
  1. Newsgroups: comp.sources.unix
  2. From: clewis@ferret.ocunix.on.ca (Chris Lewis)
  3. Subject: v26i205: psroff 3.0, Patch14
  4. Sender: unix-sources-moderator@efficacy.home.vix.com
  5. Approved: WhoAmI@efficacy.home.vix.com
  6.  
  7. Submitted-By: clewis@ferret.ocunix.on.ca (Chris Lewis)
  8. Posting-Number: Volume 26, Issue 205
  9. Archive-Name: psroff3.0/patch14
  10.  
  11. Path: pa.dec.com!sousa.tay.dec.com!nntpd.lkg.dec.com!news.crl.dec.com!deccrl!enterpoop.mit.edu!spool.mu.edu!uunet!uunet.ca!ecicrl!clewis
  12. From: clewis@ferret.ocunix.on.ca (Chris Lewis)
  13. Newsgroups: comp.sources.bugs,alt.sources
  14. Subject: Official Patch 14 for Psroff 3.0
  15. Message-ID: <4056@ecicrl.ocunix.on.ca>
  16. Date: 2 Dec 92 03:28:21 GMT
  17. Followup-To: comp.sources.bugs
  18. Organization: Elegant Communications Inc., Ottawa, Canada
  19. Lines: 2486
  20. Xref: pa.dec.com comp.sources.bugs:3431 alt.sources:7082
  21.  
  22. Archive-name: psroff3.0/Patch.14
  23. Submitted-by: clewis@ferret.ocunix.on.ca (Chris Lewis)
  24.  
  25. [Repost, previous copy black-holed.]
  26.  
  27.     This is official patch 14 for Psroff 3.0.
  28.     Please apply it by:
  29.     cd <psroff source directory>
  30.     patch -N -p < <this file>
  31.     
  32.     The base release of psroff3.0 and first four patches were in
  33.     comp.sources.unix volume 24.
  34.  
  35.     Psroff 3.0 is maintained in full patched, but shar'd form on
  36.     ftp.uunet.ca.  You will want to pick up files:
  37.  
  38.     /distrib/chris_lewis/psroff3.0/part[00..11].Z
  39.  
  40. Major new features:
  41.     - Laserjet fonts are automatically scaled on the fly,
  42.       so you can use any size of a font.  Previous versions
  43.       required you to obtain fonts from other sources to
  44.       get pointsizes other than 10.  (Note: Laserjet III, PCL5,
  45.       scalable fonts were already supported in the lj3 personalities)
  46.       Of particular interest to hp2pbm users to convert LJ
  47.       to other formats (such as Epson dotmatrix)
  48.     - Full support for laserjet ditroff graphics: lines, arcs,
  49.       circles, ellipses, polygons, splines, with fill and line
  50.       thickness settings.  (Note: Laserjet III, PC5, HPGL/2
  51.       was already supported in the lj3 personalities.  This
  52.       extends it to PCL4 via raster graphics)
  53.       Of particular interest to hp2pbm users to convert LJ
  54.       to other formats (such as Epson dotmatrix)
  55.     - seamless integration into groff: after installation,
  56.       both "psroff -Tg[lj, lj3, lj3u]" and "groff -T[lj, lj3, lj3u]"
  57.       will work.
  58.  
  59. PL15 will be out soon, many minor little extensions planned, eg: german
  60. \(ss character etc.
  61.  
  62. ./man/psxlate.1.S        man page example improvment from vidiot
  63. ./widths/installdit.S        groff fixes
  64. ./utils/Makefile        scaleljfonts
  65. ./utils/catconv.S        fix character extension fakeout for CAT troff
  66. ./utils/pk2ditwid.c        groff compatibility problems
  67. ./dt.c                font switch bug fixed.
  68. ./ps.c                chars < ' ' should be octalized
  69. ./defs.h            PL14
  70. ./Makefile            scaleljfonts, pkscale.o inclusion
  71. ./opt.c                debug statements accidentally deleted.
  72. ./lj.c                font scaling, drawing support
  73. ./ljdraw.c            major changes for drawing support
  74. ./lj3draw.c            Ypos caching botch
  75. ./pkscale.c            header banging botch
  76. ./pk.h                pkscale() decl.
  77.  
  78. Patchwrapped: 921126233632
  79.  
  80. Index: ./man/psxlate.1.S
  81. *** /tmp/PATCHold/./man/psxlate.1.S    Thu Nov 26 23:33:12 1992
  82. --- ./man/psxlate.1.S    Thu Nov 26 23:33:13 1992
  83. ***************
  84. *** 1,4 ****
  85. ! .\"Copyright 1991 by Chris Lewis 2.8 91/07/11
  86.   .TH PSXLATE %%MANEXT%% "Psroff %%T2VERSION%%"
  87.   .SH NAME
  88.   psxlate \- General Postscript page flipper etcetera
  89. --- 1,4 ----
  90. ! .\"Copyright 1991 by Chris Lewis 2.9 92/11/11
  91.   .TH PSXLATE %%MANEXT%% "Psroff %%T2VERSION%%"
  92.   .SH NAME
  93.   psxlate \- General Postscript page flipper etcetera
  94. ***************
  95. *** 16,32 ****
  96.   .BI ">" output file
  97.   .SH DESCRIPTION
  98.   .B Psxlate
  99. ! reads a Postscript file that are conformant with the Adobe Document
  100.   Structuring Convention standard (DSC), shuffles the pages around according
  101.   to the parameters, and outputs the result.
  102. - Further, if you have
  103. - .B psnup
  104. - from comp.sources.misc (volume 16), you can use the postscript files
  105. - that come with it to do n-up printing.
  106.   ``Conformant'' in this context, means files that begin with ``%!PS\-Adobe\-'',
  107.   have pages that are prefixed with ``%%Page:'' comments and have a trailer
  108.   prefixed by ``%%Trailer:''.
  109.   Case is significant.
  110.   .PP
  111.   .B Psxlate
  112.   is ideally used as the filter in your print spooler system.
  113. --- 16,37 ----
  114.   .BI ">" output file
  115.   .SH DESCRIPTION
  116.   .B Psxlate
  117. ! reads a Postscript file that is conformant with the Adobe Document
  118.   Structuring Convention standard (DSC), shuffles the pages around according
  119.   to the parameters, and outputs the result.
  120.   ``Conformant'' in this context, means files that begin with ``%!PS\-Adobe\-'',
  121.   have pages that are prefixed with ``%%Page:'' comments and have a trailer
  122.   prefixed by ``%%Trailer:''.
  123.   Case is significant.
  124. + It also PostScript that contains embedded EPS files provided that they are
  125. + compliant with the DSC and use BeginDocument/EndDocument.
  126. + .PP
  127. + If you have
  128. + .B psnup
  129. + from comp.sources.misc (volume 16),
  130. + .B psxlate
  131. + can be configured to use it to provide n-up printing.
  132. + that come with it to do n-up printing.
  133.   .PP
  134.   .B Psxlate
  135.   is ideally used as the filter in your print spooler system.
  136. ***************
  137. *** 74,88 ****
  138.   characters, some UNIX systems can't send 8-bit characters down
  139.   a serial line without grave difficulty, and it sort of defeats the
  140.   purpose of Postscript in the first place.
  141. - .SH OPTIONS
  142.   .PP
  143. ! The
  144.   .B \-d
  145. ! option enables debugging.
  146. ! .PP
  147. ! The
  148.   .B \-n
  149. ! option permits you to select specific pages for printing.
  150.   You can specify pages or ranges of pages.
  151.   Ie: \-n4,5,20-25
  152.   Selects the fourth, fifth and 20th thru 25th pages for printing.
  153. --- 79,104 ----
  154.   characters, some UNIX systems can't send 8-bit characters down
  155.   a serial line without grave difficulty, and it sort of defeats the
  156.   purpose of Postscript in the first place.
  157.   .PP
  158. ! If, when working with PostScript that contains inclusions of other
  159. ! PostScript (ie: groff PostScript inclusions), you find that Psxlate
  160. ! generates output that has the pages scrambled or PostScript errors,
  161. ! the inclusions were probably done incorrectly.
  162. ! According to the DSC (3, possibly 2 as well), included PostScript
  163. ! should start with "%%BeginDocument:" and end with "%%EndDocument".
  164. ! If these aren't there, any EPS comments inside may confuse
  165. ! .BR psxlate .
  166. ! If this happens, you should either modify the application that
  167. ! includes the PostScript to insert the BeginDocument and EndDocument
  168. ! comments, or manually insert them into the EPS before doing the
  169. ! inclusion.
  170. ! .SH OPTIONS
  171. ! .TP
  172.   .B \-d
  173. ! This option enables debugging.
  174. ! .TP
  175.   .B \-n
  176. ! Permits you to select specific pages for printing.
  177.   You can specify pages or ranges of pages.
  178.   Ie: \-n4,5,20-25
  179.   Selects the fourth, fifth and 20th thru 25th pages for printing.
  180. ***************
  181. *** 93,112 ****
  182.   sees them.
  183.   If the second part of a range is omitted, it means to the end of the document.
  184.   If the first part of a range is omitted, it means from the beginning of the document.
  185. ! .PP
  186.   The other options,
  187.   .BR r ,
  188.   .BR b ,
  189.   .BR 2 ,
  190. ! .B c ,
  191.   plus any others locally implemented, denote different shuffle
  192.   algorithms which will be applied in-turn to the Postscript and
  193.   can be specified more than once.
  194.   Specification of none of these options gives no shuffle at all.
  195. ! .PP
  196. ! The
  197. ! .B r
  198. ! option denotes page reversal - the order of the pages will be
  199.   reversed.
  200.   This is particularly handy for laser printers that stack face up
  201.   (eg: the Canon I Laser engine in older HP Laserjets and Apple Laserwriters)
  202. --- 109,127 ----
  203.   sees them.
  204.   If the second part of a range is omitted, it means to the end of the document.
  205.   If the first part of a range is omitted, it means from the beginning of the document.
  206. ! .sp .65v
  207.   The other options,
  208.   .BR r ,
  209.   .BR b ,
  210.   .BR 2 ,
  211. ! .BR c ,
  212.   plus any others locally implemented, denote different shuffle
  213.   algorithms which will be applied in-turn to the Postscript and
  214.   can be specified more than once.
  215.   Specification of none of these options gives no shuffle at all.
  216. ! .TP
  217. ! .B \-r
  218. ! Denotes page reversal - the order of the pages will be
  219.   reversed.
  220.   This is particularly handy for laser printers that stack face up
  221.   (eg: the Canon I Laser engine in older HP Laserjets and Apple Laserwriters)
  222. ***************
  223. *** 113,129 ****
  224.   and without reversal would require you to do a lot of page shuffling.
  225.   If used in conjunction with the \-p and \-s options, this will
  226.   also generate the n-up pages in the correct order.
  227. ! .PP
  228. ! The
  229. ! .B b
  230. ! option denotes book order:
  231. ! .PP
  232.   1 2 3 4 5 6 7 8 .... n
  233. ! .PP
  234.   is transformed into:
  235. ! .PP
  236.   n 1 n\-2 3 n\-4 5 ... 2 n\-1 4 n\-3 ...
  237. ! .PP
  238.   This is the order that you would output pages for 2-up printing to
  239.   be rebound into a book.
  240.   This can be used in conjunction with the
  241. --- 128,149 ----
  242.   and without reversal would require you to do a lot of page shuffling.
  243.   If used in conjunction with the \-p and \-s options, this will
  244.   also generate the n-up pages in the correct order.
  245. ! Under most circumstances, this option should be placed after a
  246. ! .B \-2B
  247. ! or
  248. ! .BR \-2E .
  249. ! Placing it first may cause the wrong pages to be printed from what is expected.
  250. ! See the notes below for examples.
  251. ! .TP
  252. ! .B \-b
  253. ! Denotes book order:
  254. ! .sp .35v
  255.   1 2 3 4 5 6 7 8 .... n
  256. ! .sp .35v
  257.   is transformed into:
  258. ! .sp .35v
  259.   n 1 n\-2 3 n\-4 5 ... 2 n\-1 4 n\-3 ...
  260. ! .sp .35v
  261.   This is the order that you would output pages for 2-up printing to
  262.   be rebound into a book.
  263.   This can be used in conjunction with the
  264. ***************
  265. *** 137,172 ****
  266.   You should consult your printer manual to find out the proper orientation.
  267.   Up to 3 blank pages are inserted on the end to get a multiple of 4
  268.   pages in total.
  269. ! .PP
  270. ! The
  271.   .B \-c
  272. ! option is the ``couple swap'' option.
  273.   It is similar to reversal, except that it is pairs of pages that
  274.   are swapped.
  275.   As in:
  276. ! .PP
  277.   1 2 3 4 5 6 ... n
  278. ! .PP
  279.   is converted to:
  280. ! .PP
  281.   n\-1 n n\-3 n\-2 ... 1 2
  282. ! .PP
  283.   This is useful for running after the
  284.   .B \-b
  285.   option for printers that need reversal, but since you'll be shuffling
  286.   the pages anyways, it's probably not all that critical.
  287.   A single page may be appended to get the number of pages to be even.
  288. ! .PP
  289. ! The
  290.   .B \-2
  291. ! option transforms:
  292. ! .PP
  293.   1 2 3 4 5 6 7 8
  294. ! .PP
  295.   into:
  296.   1 3 5 7 ... 2 4 6 8
  297. ! .PP
  298.   suitable for portrait two-sided output.
  299.   .SH "NOTES FOR PSNUP (\-p/\-s)"
  300.   The
  301.   .B Psnup
  302. --- 157,207 ----
  303.   You should consult your printer manual to find out the proper orientation.
  304.   Up to 3 blank pages are inserted on the end to get a multiple of 4
  305.   pages in total.
  306. ! .TP
  307.   .B \-c
  308. ! This is the ``couple swap'' option.
  309.   It is similar to reversal, except that it is pairs of pages that
  310.   are swapped.
  311.   As in:
  312. ! .sp .35v
  313.   1 2 3 4 5 6 ... n
  314. ! .sp .35v
  315.   is converted to:
  316. ! .sp .35v
  317.   n\-1 n n\-3 n\-2 ... 1 2
  318. ! .sp .35v
  319.   This is useful for running after the
  320.   .B \-b
  321.   option for printers that need reversal, but since you'll be shuffling
  322.   the pages anyways, it's probably not all that critical.
  323.   A single page may be appended to get the number of pages to be even.
  324. ! .TP
  325.   .B \-2
  326. ! This option transforms:
  327. ! .sp .35v
  328.   1 2 3 4 5 6 7 8
  329. ! .sp .35v
  330.   into:
  331. + .sp .35v
  332.   1 3 5 7 ... 2 4 6 8
  333. ! .sp .35v
  334.   suitable for portrait two-sided output.
  335. + .TP
  336. + .B \-B
  337. + This option prints the first half of the pages.
  338. + It is normally used in conjunction with
  339. + .B \-2
  340. + or
  341. + .BR \-b .
  342. + See the notes below for examples.
  343. + .TP
  344. + .B \-E
  345. + This option prints the last half of the pages.
  346. + It is normally used in conjunction with
  347. + .B \-2
  348. + or
  349. + .BR \-b .
  350. + See the notes below for examples.
  351.   .SH "NOTES FOR PSNUP (\-p/\-s)"
  352.   The
  353.   .B Psnup
  354. ***************
  355. *** 211,225 ****
  356.   can run
  357.   .B psxlate
  358.   on that.
  359. ! To print two sided on a reversing printer, you would type:
  360. ! .sp
  361. ! .nf
  362.   psroff .... \-t files > /tmp/saveit
  363.   psxlate \-2B < /tmp/saveit | <your printer spooler>
  364. ! change paper around
  365. ! psxlate \-r2E < /tmp/saveit | <your printer spooler>
  366.   .fi
  367.   .PP
  368.   On a non-reversing printer, the
  369.   .B \-r
  370.   option wouldn't be necessary.
  371. --- 246,308 ----
  372.   can run
  373.   .B psxlate
  374.   on that.
  375. ! To print two sided, you would type (the Apple LaserWriter/LaserWriterPlus
  376. ! cannot be used for double-sided printing):
  377. ! .PP
  378.   psroff .... \-t files > /tmp/saveit
  379. + .PP
  380. + For the Apple LaserWriter II series of printers, using the top output tray,
  381. + the following would be done:
  382. + .nf
  383. + psxlate \-2Br < /tmp/saveit | <your printer spooler>
  384. + Move the paper from the output tray to the paper tray, white side up:
  385.   psxlate \-2B < /tmp/saveit | <your printer spooler>
  386. ! .fi
  387. ! .PP
  388. ! When using the Apple LaserWriter II series of printers you must remember to
  389. ! turn the paper around 180 degrees, before placing the output stack into the
  390. ! paper tray.
  391. ! Otherwise the second pass will print upside-down.
  392. ! .PP
  393. ! Also note that the Apple LaserWriter IINT printer has a nasty habit of
  394. ! curling the paper bad enough during the first pass that the second pass
  395. ! may jam or wrinkle.
  396. ! .PP
  397. ! If groff is used as the troff processor, then the resulting PostScript file
  398. ! can be edited and made to print upside-down.
  399. ! Then the paper can be moved from the output tray to the paper tray,
  400. ! without turning it around 180 degrees.
  401. ! .PP
  402. ! Place the following lines into an executable file named
  403. ! .BR upsxlate :
  404. ! .PP
  405. ! .nf
  406. ! #!/bin/sh
  407. ! sed -e "/1 -1 scale/s/scale/scale 612 PL translate 180 rotate/" | psxlate $*
  408.   .fi
  409.   .PP
  410. + Using the exact same syntax as
  411. + .BR psxlate ,
  412. + the
  413. + .B
  414. + upsxlate
  415. + script will cause the groff portrait output to print upside down.
  416. + .PP
  417. + If you are printing on a Sun SPARCprinter, the following is used to print
  418. + double-sided:
  419. + .PP
  420. + .nf
  421. + psxlate \-2Er < /tmp/saveit | lpr -Psparc
  422. + move the paper from the output tray to the paper tray (face up):
  423. + psxlate \-2E < /tmp/saveit | lpr -Psparc
  424. + .fi
  425. + .PP
  426. + The first batch printed to the SPARCprinter will contain all of the odd pages,
  427. + in reverse order, placing page one on the top of the output stack.
  428. + When the second batch is printed, all of the even pages will be done in
  429. + ascending order.
  430. + When completed, the output stack will be in the correct order.
  431. + .PP
  432.   On a non-reversing printer, the
  433.   .B \-r
  434.   option wouldn't be necessary.
  435. ***************
  436. *** 256,259 ****
  437.   .B sed
  438.   to delete them.
  439.   .SH AUTHOR
  440. ! Written by Chris Lewis
  441. --- 339,343 ----
  442.   .B sed
  443.   to delete them.
  444.   .SH AUTHOR
  445. ! Written by Chris Lewis.
  446. ! Examples provided by Michael Brown.
  447. Index: ./widths/installdit.S
  448. *** /tmp/PATCHold/./widths/installdit.S    Thu Nov 26 23:33:26 1992
  449. --- ./widths/installdit.S    Thu Nov 26 23:33:27 1992
  450. ***************
  451. *** 5,18 ****
  452.   #    See the LICENSE file for a full description of the restrictions
  453.   #    under which this software is provided.
  454.   #
  455. ! #1.9 92/06/01
  456.   MAKEDEV=%%MAKEDEV%%
  457. ! if [ ! -f "$MAKEDEV" ]
  458. ! then
  459. !     echo "no $MAKEDEV program - don't worry unless you're using psroff"
  460. !     echo "with REAL ditroff instead of C/A/T troff"
  461. !     exit 0
  462. ! fi
  463.   if [ "$1" = "-i" ]
  464.   then
  465.       install=1
  466. --- 5,13 ----
  467.   #    See the LICENSE file for a full description of the restrictions
  468.   #    under which this software is provided.
  469.   #
  470. ! #1.10 92/11/26
  471.   MAKEDEV=%%MAKEDEV%%
  472. ! LIBDIR=%%LIBDIR%%
  473.   if [ "$1" = "-i" ]
  474.   then
  475.       install=1
  476. ***************
  477. *** 37,43 ****
  478.       else
  479.       srcfont=$Targ
  480.       fi
  481. !     echo "PROCESSING $i: width=$width, psroff widths: $srcfont"
  482.       if [ -z "$width" ]
  483.       then
  484.       echo "Something wrong with $i entry, skipping (no width)"
  485. --- 32,38 ----
  486.       else
  487.       srcfont=$Targ
  488.       fi
  489. !     echo "CHECKING $i: width=$width, psroff widths: $srcfont"
  490.       if [ -z "$width" ]
  491.       then
  492.       echo "Something wrong with $i entry, skipping (no width)"
  493. ***************
  494. *** 56,61 ****
  495. --- 51,61 ----
  496.       fi
  497.       if [ -z "$install" ]
  498.       then
  499. +     if [ ! -r $MAKEDEV ]
  500. +     then
  501. +         echo "No MAKEDEV ($MAKEDEV) skipping"
  502. +         continue
  503. +     fi
  504.       if [ -r $dir/ditdone ]
  505.       then
  506.           continue
  507. ***************
  508. *** 67,72 ****
  509. --- 67,73 ----
  510.       $MAKEDEV DESC
  511.       cd ..
  512.       else
  513. +     groffpostpro=''
  514.       if [ -n "$Garg" ]
  515.       then
  516.           if [ ! -d %%GFONTDIR%% ]
  517. ***************
  518. *** 76,81 ****
  519. --- 77,83 ----
  520.           else
  521.           echo "H'm, looks like groff width tables in %%GFONTDIR%%"
  522.           destdir=%%GFONTDIR%%/dev$width
  523. +         groffpostpro=$LIBDIR/troff2ps_$width
  524.           fi
  525.       else
  526.           destdir=%%FONTDIR%%/dev$width
  527. ***************
  528. *** 83,89 ****
  529. --- 85,93 ----
  530.       if [ ! -d $destdir ]
  531.       then
  532.           mkdir $destdir
  533. +         chmod 755 $destdir
  534.           echo "Psroff-built width tables" > $destdir/PSROFF-BUILT
  535. +         chmod 644 $destdir/PSROFF-BUILT
  536.       fi
  537.       if [ ! -w $destdir ]
  538.       then
  539. ***************
  540. *** 109,114 ****
  541. --- 113,131 ----
  542.       then
  543.           echo "INSTALLING ditroff widths from $dir into $destdir"
  544.           cp $list $destdir
  545. +         chmod 644 $destdir/*
  546. +         if [ -n "$groffpostpro" ]
  547. +         then
  548. +         echo "  inserting groff postpro line into $destdir/DESC"
  549. +         sed -e "/font/a\\
  550. + postpro $groffpostpro" $destdir/DESC > /tmp/$$
  551. +         mv /tmp/$$ $destdir/DESC
  552. +         chmod 644 $destdir/DESC
  553. +         echo "   installing groff postprocessor in $LIBDIR"
  554. +         rm -f $groffpostpro
  555. +         echo "$LIBDIR/troff2ps $t2arg" > $groffpostpro
  556. +         chmod 755 $groffpostpro
  557. +         fi
  558.       fi
  559.       cd ../
  560.       fi
  561. Index: ./utils/Makefile
  562. *** /tmp/PATCHold/./utils/Makefile    Thu Nov 26 23:33:37 1992
  563. --- ./utils/Makefile    Thu Nov 26 23:33:38 1992
  564. ***************
  565. *** 4,10 ****
  566.   #    See the LICENSE file for a full description of the restrictions
  567.   #    under which this software is provided.
  568.   #
  569. ! #2.11 92/05/19
  570.   SCRIPTS    = psdtwd showfont mkenctab calcfonts catconv dodps
  571.   PROGRAMS = hpinterp psxlate pk2sfp pk2ditwid pktype dumpft pk2ps lj2ps \
  572.       asc2ps
  573. --- 4,10 ----
  574.   #    See the LICENSE file for a full description of the restrictions
  575.   #    under which this software is provided.
  576.   #
  577. ! #2.12 92/10/30
  578.   SCRIPTS    = psdtwd showfont mkenctab calcfonts catconv dodps
  579.   PROGRAMS = hpinterp psxlate pk2sfp pk2ditwid pktype dumpft pk2ps lj2ps \
  580.       asc2ps
  581. ***************
  582. *** 36,42 ****
  583.       rm -f T
  584.   
  585.   #    This isn't perfect, but close
  586. ! ../debug.o ../pk.o ../cattab.o: ../defs.h ../pk.h
  587.       @echo "Some troff2ps objects are out of date"
  588.       @echo "Make troff2ps at the top level first"
  589.       exit
  590. --- 36,42 ----
  591.       rm -f T
  592.   
  593.   #    This isn't perfect, but close
  594. ! ../debug.o ../pk.o ../cattab.o ../pkscale.o: ../defs.h ../pk.h
  595.       @echo "Some troff2ps objects are out of date"
  596.       @echo "Make troff2ps at the top level first"
  597.       exit
  598. Index: ./utils/catconv.S
  599. *** /tmp/PATCHold/./utils/catconv.S    Thu Nov 26 23:33:48 1992
  600. --- ./utils/catconv.S    Thu Nov 26 23:33:49 1992
  601. ***************
  602. *** 10,16 ****
  603.   #
  604.   #    This does a very simpleminded conversion of ditroff-only-isms
  605.   #    (such as graphics) into something handleable by CAT troff.
  606. ! #    1.11 92/06/02
  607.   $cc{'em'}=1; $cc{'ru'}=1; $cc{'14'}=1; $cc{'12'}=1; $cc{'hy'}=1;
  608.   $cc{'34'}=1; $cc{'fi'}=1; $cc{'fl'}=1; $cc{'ff'}=1; $cc{'ct'}=1;
  609.   $cc{'Fl'}=1; $cc{'Fi'}=1; $cc{'de'}=1; $cc{'dg'}=1; $cc{'rg'}=1;
  610. --- 10,16 ----
  611.   #
  612.   #    This does a very simpleminded conversion of ditroff-only-isms
  613.   #    (such as graphics) into something handleable by CAT troff.
  614. ! #    1.12 92/11/26
  615.   $cc{'em'}=1; $cc{'ru'}=1; $cc{'14'}=1; $cc{'12'}=1; $cc{'hy'}=1;
  616.   $cc{'34'}=1; $cc{'fi'}=1; $cc{'fl'}=1; $cc{'ff'}=1; $cc{'ct'}=1;
  617.   $cc{'Fl'}=1; $cc{'Fi'}=1; $cc{'de'}=1; $cc{'dg'}=1; $cc{'rg'}=1;
  618. ***************
  619. *** 114,120 ****
  620.           } else {
  621.           printf STDERR "Don't know the width of \\($char";
  622.           }
  623. !         $newline .= "\\ka\\o'\\(bs\\(bs'C$char\\(bs\\h'|\\nau+\\w'$w''";
  624.       }
  625.       }
  626.       $newline .= $line;
  627. --- 114,120 ----
  628.           } else {
  629.           printf STDERR "Don't know the width of \\($char";
  630.           }
  631. !         $newline .= "\\ka\\o'\\(bs\\(bs'C$char\\(bs\\h'|\\nau+\\w\"$w\"'";
  632.       }
  633.       }
  634.       $newline .= $line;
  635. Index: ./utils/pk2ditwid.c
  636. *** /tmp/PATCHold/./utils/pk2ditwid.c    Thu Nov 26 23:33:57 1992
  637. --- ./utils/pk2ditwid.c    Thu Nov 26 23:33:58 1992
  638. ***************
  639. *** 10,16 ****
  640.   
  641.   #ifndef    lint
  642.   static char SCCSID[] =
  643. !     "@(#)pk2ditwid.c 2.4 Copyright 91/12/26 17:59:20 Chris Lewis";
  644.   #endif
  645.   
  646.   #include "defs.h"
  647. --- 10,16 ----
  648.   
  649.   #ifndef    lint
  650.   static char SCCSID[] =
  651. !     "@(#)pk2ditwid.c 2.5 Copyright 92/11/26 19:45:39 Chris Lewis";
  652.   #endif
  653.   
  654.   #include "defs.h"
  655. ***************
  656. *** 132,137 ****
  657. --- 132,139 ----
  658.           fprintf(fout, "# %s\n", buf);
  659.           fprintf(fout, "# Generated by pk2ditwid\n");
  660.           fprintf(fout, "name %s\n", buf);
  661. +         if (buf[0] == 'S')
  662. +         fprintf(fout, "special\n");
  663.           fprintf(fout, "spacewidth 22\n");
  664.           fprintf(fout, "charset\n");
  665.       }
  666. ***************
  667. *** 179,185 ****
  668.           fprintf(fout, "%s\t%ld\t%d\t",
  669.               et->e_name, et->e_wid & 0x3f, (et->e_wid>>6)&0x3);
  670.           for (pp = et->e_seq; *pp; pp++)
  671. !             fprintf(fout, "\\%03o", (*pp)&0xff);
  672.           fprintf(fout, "\n");
  673.           }
  674.       }
  675. --- 181,187 ----
  676.           fprintf(fout, "%s\t%ld\t%d\t",
  677.               et->e_name, et->e_wid & 0x3f, (et->e_wid>>6)&0x3);
  678.           for (pp = et->e_seq; *pp; pp++)
  679. !             fprintf(fout, "%04o", (*pp)&0xff);
  680.           fprintf(fout, "\n");
  681.           }
  682.       }
  683. Index: ./dt.c
  684. *** /tmp/PATCHold/./dt.c    Thu Nov 26 23:34:08 1992
  685. --- ./dt.c    Thu Nov 26 23:34:10 1992
  686. ***************
  687. *** 12,18 ****
  688.   
  689.   #ifndef    lint
  690.   static char SCCSid[] =
  691. !     "@(#)dt.c: 2.13 Copyright 91/11/22 03:55:58 Chris Lewis";
  692.   #endif
  693.   
  694.   /*    These two tables are always included so that we have the
  695. --- 12,18 ----
  696.   
  697.   #ifndef    lint
  698.   static char SCCSid[] =
  699. !     "@(#)dt.c: 2.14 Copyright 92/11/26 23:31:01 Chris Lewis";
  700.   #endif
  701.   
  702.   /*    These two tables are always included so that we have the
  703. ***************
  704. *** 420,425 ****
  705. --- 420,428 ----
  706.       return;
  707.       }
  708.   
  709. +     DBP((D_BEND, "font, pfont, flags, seq = %d,%d,%02x,%s\n",
  710. +     font, pfont, fonttable[pfont].flags, sequence));
  711. + 
  712.       /*    We're committed now - the "if" statements avoid floating
  713.       arithmetic on slow machines */
  714.   
  715. ***************
  716. *** 432,438 ****
  717.   #ifdef DTOPT
  718.       checknl();
  719.   #endif /* DTOPT */
  720. !     printf("x font %d %s\n", font+1, fonttable[pfont].troffName);
  721.       fonttable[pfont].flags |= MOUNTED;
  722.       lastFont = 9999;
  723.       }
  724. --- 435,441 ----
  725.   #ifdef DTOPT
  726.       checknl();
  727.   #endif /* DTOPT */
  728. !     printf("x font %d %s\n", pfont+1, fonttable[pfont].troffName);
  729.       fonttable[pfont].flags |= MOUNTED;
  730.       lastFont = 9999;
  731.       }
  732. ***************
  733. *** 444,453 ****
  734.   #endif /* DTOPT */
  735.   
  736.       fonttable[pfont].flags |= USED;
  737. !     printf("f%d\n", font+1);
  738.       printf("s%d\n", points);
  739.       lastPoints = points;
  740. !     lastFont = font;
  741.       }
  742.   
  743.   #ifndef DTOPT
  744. --- 447,456 ----
  745.   #endif /* DTOPT */
  746.   
  747.       fonttable[pfont].flags |= USED;
  748. !     printf("f%d\n", pfont+1);
  749.       printf("s%d\n", points);
  750.       lastPoints = points;
  751. !     lastFont = pfont;
  752.       }
  753.   
  754.   #ifndef DTOPT
  755. ***************
  756. *** 591,596 ****
  757. --- 594,600 ----
  758.   
  759.   dtEpilog() {
  760.   
  761. +     int i;
  762.   #ifdef DTOPT
  763.       checknl();
  764.   #endif /* DTOPT */
  765. ***************
  766. *** 599,604 ****
  767. --- 603,613 ----
  768.       printf("x stop\n");
  769.   #ifndef    NOCHATTER
  770.       printf("#Pages: %d\n", currentPage);
  771. +     printf("#FontsUsed:");
  772. +     for (i = 0; i < MAXFONTS; i++)
  773. +     if (fonttable[i].flags&USED)
  774. +         printf(" %s", fonttable[i].fontName);
  775. +     putchar('\n');
  776.   #endif
  777.   }
  778.   
  779. Index: ./ps.c
  780. *** /tmp/PATCHold/./ps.c    Thu Nov 26 23:34:23 1992
  781. --- ./ps.c    Thu Nov 26 23:34:26 1992
  782. ***************
  783. *** 15,21 ****
  784.   
  785.   #ifndef    lint
  786.   static char SCCSid[] =
  787. !     "@(#)ps.c: 2.20 Copyright 92/06/01 21:18:19 Chris Lewis";
  788.   #endif
  789.   
  790.   /*    ps.c will generate some additional "print" commands to cause
  791. --- 15,21 ----
  792.   
  793.   #ifndef    lint
  794.   static char SCCSid[] =
  795. !     "@(#)ps.c: 2.21 Copyright 92/11/26 19:41:28 Chris Lewis";
  796.   #endif
  797.   
  798.   /*    ps.c will generate some additional "print" commands to cause
  799. ***************
  800. *** 362,368 ****
  801.   register char *sequence; {
  802.       putchar('(');
  803.       while(*sequence) {
  804. !     if ((*sequence)&0x80)
  805.           printf("\\%03o", (*sequence++)&0xff);
  806.       else if (*sequence == '(' || *sequence == ')' ||
  807.           *sequence == '\\')
  808. --- 362,368 ----
  809.   register char *sequence; {
  810.       putchar('(');
  811.       while(*sequence) {
  812. !     if (((*sequence)&0x80) || (*sequence < ' '))
  813.           printf("\\%03o", (*sequence++)&0xff);
  814.       else if (*sequence == '(' || *sequence == ')' ||
  815.           *sequence == '\\')
  816. Index: ./defs.h
  817. *** /tmp/PATCHold/./defs.h    Thu Nov 26 23:34:39 1992
  818. --- ./defs.h    Thu Nov 26 23:34:41 1992
  819. ***************
  820. *** 9,15 ****
  821.    */
  822.   
  823.   /*    Official Release and Patch level:    */
  824. ! #define    T2VERSION    "@(#)PSROFF Copyright 92/07/09 Chris Lewis - R3 PL13"
  825.   
  826.   /*    Configuration parameters:
  827.    */
  828. --- 9,15 ----
  829.    */
  830.   
  831.   /*    Official Release and Patch level:    */
  832. ! #define    T2VERSION    "@(#)PSROFF Copyright 92/10/30 Chris Lewis - R3 PL14"
  833.   
  834.   /*    Configuration parameters:
  835.    */
  836. ***************
  837. *** 133,138 ****
  838. --- 133,140 ----
  839.   #define    DT    /* ditroff */
  840.   
  841.   /*    Laserjet driver config: */
  842. + #define PKSCALE    /* enable lj font built-in scaling.  Needs PK */
  843. + 
  844.   #define    PK    /* enable PK font downloading (needs LJ) */
  845.   
  846.   #define    SFP    /* enable SFP incremental font downloading (needs PK).
  847. ***************
  848. *** 218,223 ****
  849. --- 220,229 ----
  850.   #endif
  851.   
  852.   #if    !defined(LJ) && defined(PK)
  853. + #include    "Pointless to define PK without LJ"
  854. + #endif
  855. + 
  856. + #if    !defined(PK) && defined(PKSCALE)
  857.   #include    "Pointless to define PK without LJ"
  858.   #endif
  859.   
  860. Index: ./Makefile
  861. *** /tmp/PATCHold/./Makefile    Thu Nov 26 23:34:53 1992
  862. --- ./Makefile    Thu Nov 26 23:34:55 1992
  863. ***************
  864. *** 7,13 ****
  865.   #    Function: Upper level makefile; configuration options.
  866.   #
  867.   #
  868. ! #ident  "@(#)Makefile: 2.34 Copyright 92/07/09 23:36:01 Chris Lewis"
  869.   
  870.   #    If you're not sure whether you have a System V make, leave
  871.   #    this alone, and run the make anyways.  If it dies horribly
  872. --- 7,13 ----
  873.   #    Function: Upper level makefile; configuration options.
  874.   #
  875.   #
  876. ! #ident  "@(#)Makefile: 2.35 Copyright 92/10/30 02:28:20 Chris Lewis"
  877.   
  878.   #    If you're not sure whether you have a System V make, leave
  879.   #    this alone, and run the make anyways.  If it dies horribly
  880. ***************
  881. *** 110,116 ****
  882.   
  883.   #    Compile flags needed to compile things on your machine.
  884.   #    Usually just -O.  May need to tell gcc that this isn't
  885. ! #    Posix compliant code.
  886.   #
  887.   CCFLAGS = -O
  888.   
  889. --- 110,116 ----
  890.   
  891.   #    Compile flags needed to compile things on your machine.
  892.   #    Usually just -O.  May need to tell gcc that this isn't
  893. ! #    Posix compliant code.  RISC Ultrix needs "-Olimit 600".
  894.   #
  895.   CCFLAGS = -O
  896.   
  897. ***************
  898. *** 181,187 ****
  899.   
  900.   #    Drivers:
  901.   
  902. ! BACKENDS = lj.o pk.o pkc.o ljdraw.o lj3draw.o ps.o dt.o dit.o
  903.   
  904.   DEFINES    = '-DLIBDIR="$(LIBDIR)/lib"' '-DFONTDIR="$(FONTDIR)"'\
  905.       '-DLJF="$(LJF)"' $(CCFLAGS)
  906. --- 181,187 ----
  907.   
  908.   #    Drivers:
  909.   
  910. ! BACKENDS = lj.o pk.o pkc.o pkscale.o ljdraw.o lj3draw.o ps.o dt.o dit.o
  911.   
  912.   DEFINES    = '-DLIBDIR="$(LIBDIR)/lib"' '-DFONTDIR="$(FONTDIR)"'\
  913.       '-DLJF="$(LJF)"' $(CCFLAGS)
  914. ***************
  915. *** 212,218 ****
  916.   CFLAGS    = $(DEFINES)
  917.   
  918.   all:    troff2ps myuid subst.done makeincl psroff README TROUBLE LASERFONTS \
  919. !     MISC DITROFF INSTALL LICENSE LJIII zap pkscale.o submakes
  920.   
  921.   subst.done:    sedscript
  922.       rm -f psroff makeincl
  923. --- 212,218 ----
  924.   CFLAGS    = $(DEFINES)
  925.   
  926.   all:    troff2ps myuid subst.done makeincl psroff README TROUBLE LASERFONTS \
  927. !     MISC DITROFF INSTALL LICENSE LJIII zap submakes
  928.   
  929.   subst.done:    sedscript
  930.       rm -f psroff makeincl
  931. ***************
  932. *** 300,305 ****
  933. --- 300,323 ----
  934.       @echo "don't panic if the next line dies"
  935.       $(IGNORESH) test -z "$(PKFONTS)" -o ! -d "$(NEWFONTS)" \
  936.           || cp $(NEWFONTS)/* $(LJF)
  937. + 
  938. + scaleljfonts: myuid
  939. +     test "`./myuid`" = 0 || \
  940. +         ( echo "ERROR: You must be root to scale LJ fonts" ; exit 1 )
  941. +     [ -r $(LIBDIR)/lib/lj/R.10.pk ] || \
  942. +         ( echo "ERROR: Laserjet fonts not installed" ; exit 1 )
  943. +     cd $(LIBDIR)/lib/lj ; \
  944. +         for i in *.10.* ; \
  945. +         do \
  946. +         b=`basename $$i .10.sfp` ; \
  947. +         b=`basename $$i .10.pk` ; \
  948. +         for j in 6 7 8 9 11 12 14 16 18 20 22 24 28 36 ; \
  949. +         do \
  950. +             [ -r $$b.$$j.pk ] && continue ; \
  951. +             echo "Making $$b.$$j.sfp" ; \
  952. +             $(LIBDIR)/pk2sfp -o $$j $$i > $$b.$$j.sfp ; \
  953. +         done ; \
  954. +         done
  955.   
  956.   register:
  957.       make troff2ps makeincl
  958. Index: ./opt.c
  959. *** /tmp/PATCHold/./opt.c    Thu Nov 26 23:35:17 1992
  960. --- ./opt.c    Thu Nov 26 23:35:18 1992
  961. ***************
  962. *** 23,29 ****
  963.   #ifdef    OPT
  964.   #ifndef    lint
  965.   static char SCCSid[] =
  966. !     "@(#)opt.c: 2.12 Copyright 92/06/01 21:16:34 Chris Lewis";
  967.   #endif
  968.   
  969.   struct insbuf {
  970. --- 23,29 ----
  971.   #ifdef    OPT
  972.   #ifndef    lint
  973.   static char SCCSid[] =
  974. !     "@(#)opt.c: 2.13 Copyright 92/10/30 02:25:40 Chris Lewis";
  975.   #endif
  976.   
  977.   struct insbuf {
  978. ***************
  979. *** 81,92 ****
  980. --- 81,96 ----
  981.   
  982.       if (insptr->xpos < insbuf[0].xpos) {
  983.       DBP((D_CAT, "canonflush: BACK (%d chars)\n", insptr - insbuf + 1));
  984. + #if defined(DEBUG)
  985.       insdump(insbuf, insptr);
  986. + #endif
  987.       for(ip = insptr;ip >= insbuf; ip--)
  988.           canonchar(ip->xpos, insypos, ip->font, ip->points, ip->nc);
  989.       } else {
  990.       DBP((D_CAT, "canonflush: FORW (%d chars)\n", insptr - insbuf + 1));
  991. + #if defined(DEBUG)
  992.       insdump(insbuf, insptr);
  993. + #endif
  994.       for(ip = insbuf;ip <= insptr; ip++)
  995.           canonchar(ip->xpos, insypos, ip->font, ip->points, ip->nc);
  996.       }
  997. ***************
  998. *** 356,361 ****
  999. --- 360,366 ----
  1000.   }
  1001.   #endif
  1002.   
  1003. + #if defined(DEBUG)
  1004.   insdump(b, p)
  1005.   register struct insbuf *b, *p; {
  1006.       if (!(debug&D_VERB))
  1007. ***************
  1008. *** 364,366 ****
  1009. --- 369,372 ----
  1010.       for(; b <= p; b++)
  1011.       DBP((D_VERB, "%d %d\n", b->xpos, b->nc));
  1012.   }
  1013. + #endif
  1014. Index: ./lj.c
  1015. *** /tmp/PATCHold/./lj.c    Thu Nov 26 23:35:30 1992
  1016. --- ./lj.c    Thu Nov 26 23:35:32 1992
  1017. ***************
  1018. *** 32,38 ****
  1019.   
  1020.   #ifndef    lint
  1021.   static char SCCSid[] =
  1022. !     "@(#)lj.c: 2.11 Copyright 92/01/28 22:50:03 Chris Lewis";
  1023.   #endif
  1024.   
  1025.   struct troff2befont ljStdFont[108] = {
  1026. --- 32,38 ----
  1027.   
  1028.   #ifndef    lint
  1029.   static char SCCSid[] =
  1030. !     "@(#)lj.c: 2.13 Copyright 92/11/26 19:43:30 Chris Lewis";
  1031.   #endif
  1032.   
  1033.   struct troff2befont ljStdFont[108] = {
  1034. ***************
  1035. *** 304,310 ****
  1036.   int fontCount = 0;
  1037.   
  1038.   ljPage() {
  1039. !     printf("\033&l0H");
  1040.       pagePending = 1;
  1041.   }
  1042.   
  1043. --- 304,313 ----
  1044.   int fontCount = 0;
  1045.   
  1046.   ljPage() {
  1047. !     if (!pagePending) {
  1048. !     emitrast();
  1049. !     printf("\033&l0H");
  1050. !     }
  1051.       pagePending = 1;
  1052.   }
  1053.   
  1054. ***************
  1055. *** 385,390 ****
  1056. --- 388,430 ----
  1057.       return (points);
  1058.   }
  1059.   
  1060. + #ifdef PKSCALE
  1061. + static int
  1062. + scalematch(font, points, type)
  1063. + int font, points;
  1064. + char *type; {
  1065. +     register char *p;
  1066. +     register int i, t;
  1067. + 
  1068. +     p = fonttable[font].fontFlags;
  1069. + 
  1070. +     for (i = points; i <= 36; i++)
  1071. +     switch(t = p[ptcvt(i)]) {
  1072. +         case 'S':
  1073. +         case 'P':
  1074. +         t = tolower(t);
  1075. +         case 's':
  1076. +         case 'p':
  1077. +         *type = t;
  1078. +         return(i);
  1079. +     }
  1080. + 
  1081. +     for (i = points; i >= 6; i--)
  1082. +     switch(t = p[ptcvt(i)]) {
  1083. +         case 'S':
  1084. +         case 'P':
  1085. +         t = tolower(t);
  1086. +         case 's':
  1087. +         case 'p':
  1088. +         *type = t;
  1089. +         return(i);
  1090. +     }
  1091. + 
  1092. +     return(-1);
  1093. + }
  1094. + #endif
  1095. + 
  1096. + 
  1097.   #ifdef    INCR
  1098.   dumpseq(font, pointidx, seq)
  1099.   int font, pointidx;
  1100. ***************
  1101. *** 431,436 ****
  1102. --- 471,477 ----
  1103.       extern FILE *popen();
  1104.       register char *pf, *p;
  1105.       register struct pkp *pk;
  1106. +     char resulttype;
  1107.   #if    !defined(INCR) && defined(PK)
  1108.       register struct pkc *pc;
  1109.   #endif
  1110. ***************
  1111. *** 438,443 ****
  1112. --- 479,485 ----
  1113.   #ifndef    PARTIAL
  1114.       FILE *fontfile;
  1115.   #endif
  1116. +     int scalepoints;
  1117.       int count;
  1118.       int ftid;
  1119.   
  1120. ***************
  1121. *** 451,468 ****
  1122.       return;
  1123.   #endif
  1124.   
  1125.       points = bestmatch(font, selpoints);
  1126.       pointidx = ptcvt(points);
  1127.   
  1128.       pf = &fonttable[font].fontFlags[pointidx];
  1129.       ftid = (font << 4) + pointidx;
  1130.   
  1131. ! #ifdef    INCR
  1132.   #ifdef    SFP
  1133. !     if (*pf == 'S' || *pf == 'P') {
  1134. ! #else
  1135. !     if (*pf == 'P') {
  1136.   #endif
  1137.       /* header downloaded, check and download individual characters */
  1138.       dumpseq(font, pointidx, sequence);
  1139.   
  1140. --- 493,517 ----
  1141.       return;
  1142.   #endif
  1143.   
  1144. + #ifdef PKSCALE
  1145. +     points = selpoints;
  1146. + #else
  1147.       points = bestmatch(font, selpoints);
  1148. + #endif
  1149.       pointidx = ptcvt(points);
  1150.   
  1151.       pf = &fonttable[font].fontFlags[pointidx];
  1152.       ftid = (font << 4) + pointidx;
  1153.   
  1154. ! #if defined(INCR) || defined(SFP) || defined(PKSCALE)
  1155. !     if (
  1156. ! #ifdef    PKSCALE
  1157. !     *pf == 'N' ||
  1158. ! #endif
  1159.   #ifdef    SFP
  1160. !     *pf == 'S' ||
  1161.   #endif
  1162. +     *pf == 'P') {
  1163.       /* header downloaded, check and download individual characters */
  1164.       dumpseq(font, pointidx, sequence);
  1165.   
  1166. ***************
  1167. *** 484,490 ****
  1168.       lastPoints = selpoints;
  1169.       lastFont = font;
  1170.   
  1171. !     switch(*pf) {
  1172.   #ifdef    PK
  1173.       case 'p':
  1174.   #ifdef    PARTIAL
  1175. --- 533,549 ----
  1176.       lastPoints = selpoints;
  1177.       lastFont = font;
  1178.   
  1179. !     scalepoints = points;
  1180. ! 
  1181. !     switch(resulttype = *pf) {
  1182. ! #ifdef    PKSCALE
  1183. !     case 'n':
  1184. !         scalepoints = scalematch(font, points, &resulttype);
  1185. !         /* on a successful call, *pf is now either "s" or
  1186. !            "p".  */
  1187. !         DBP((D_FONT,"Scale select %s.%d via '%d' points (%c)\n",
  1188. !         fonttable[font].troffName, points, scalepoints, *pf));
  1189. ! #endif
  1190.   #ifdef    PK
  1191.       case 'p':
  1192.   #ifdef    PARTIAL
  1193. ***************
  1194. *** 491,498 ****
  1195.       case 's':
  1196.   #endif
  1197.           sprintf(buf, "%s/%s.%d.%s", LJF,
  1198. !         fonttable[font].troffName, points,
  1199. !             (*pf == 's') ? "sfp":"pk");
  1200.   
  1201.           fontCount++;
  1202.           if (fontCount >= MAXDLFONTS) {
  1203. --- 550,557 ----
  1204.       case 's':
  1205.   #endif
  1206.           sprintf(buf, "%s/%s.%d.%s", LJF,
  1207. !         fonttable[font].troffName, scalepoints,
  1208. !         (resulttype == 's') ? "sfp":"pk");
  1209.   
  1210.           fontCount++;
  1211.           if (fontCount >= MAXDLFONTS) {
  1212. ***************
  1213. *** 508,514 ****
  1214.           points, buf));
  1215.   
  1216.           /* Read the PK file in-core */
  1217. !         pk = pk_read(buf,fontcode);
  1218.   
  1219.           /* Set the fontid we'll use */
  1220.           printf("\033*c%dd4F", ftid);
  1221. --- 567,582 ----
  1222.           points, buf));
  1223.   
  1224.           /* Read the PK file in-core */
  1225. !         pk = pk_read(buf, fontcode);
  1226. ! 
  1227. ! #ifdef    PKSCALE
  1228. !         if (scalepoints != points) {
  1229. !         DBP((D_FONT, "SCALE %d->%d (font thinks it's %d)\n",
  1230. !             scalepoints, points, pk->pkp_npts));
  1231. !         pk = pkscale(pk, points);    /* destroys old PK */
  1232. !         DBP((D_FONT, "font now thinks it's %d\n", pk->pkp_npts));
  1233. !         }
  1234. ! #endif
  1235.   
  1236.           /* Set the fontid we'll use */
  1237.           printf("\033*c%dd4F", ftid);
  1238. ***************
  1239. *** 597,606 ****
  1240.   #endif
  1241.           /* Fall Thru */
  1242.   
  1243. !     case 'S': case 'P':
  1244.           /* Select primary font by font id */
  1245.       setdownloaded:
  1246. !         DBP((D_FONT, "Selecting font2 %d\n", ftid));
  1247.           printf("\033(%dX", ftid);
  1248.           break;
  1249.   
  1250. --- 665,674 ----
  1251.   #endif
  1252.           /* Fall Thru */
  1253.   
  1254. !     case 'S': case 'P': case 'N':
  1255.           /* Select primary font by font id */
  1256.       setdownloaded:
  1257. !         DBP((D_FONT, "Selecting fontid %d\n", ftid));
  1258.           printf("\033(%dX", ftid);
  1259.           break;
  1260.   
  1261. ***************
  1262. *** 624,635 ****
  1263.   
  1264.   static fixpoints(points)
  1265.   int points; {
  1266. !     static char ptab[30] = {
  1267.        6,  7,  8,  9, 10, 11,
  1268.       12, 12, 14, 14, 16, 16,
  1269.       18, 18, 20, 20, 22, 22,
  1270.       24, 24, 24, 28, 28, 28,
  1271. !     28, 28, 28, 28, 36, 36};
  1272.   
  1273.       if (points < 6)
  1274.       return(6);
  1275. --- 692,704 ----
  1276.   
  1277.   static fixpoints(points)
  1278.   int points; {
  1279. !     static char ptab[31] = {
  1280.        6,  7,  8,  9, 10, 11,
  1281.       12, 12, 14, 14, 16, 16,
  1282.       18, 18, 20, 20, 22, 22,
  1283.       24, 24, 24, 28, 28, 28,
  1284. !     28, 28, 28, 28, 36, 36,
  1285. !     36};
  1286.   
  1287.       if (points < 6)
  1288.       return(6);
  1289. ***************
  1290. *** 748,767 ****
  1291.       for (c = 0; fonttable[c].troffName; c++) {
  1292.       register int i;
  1293.       for (i = 0, p = fonttable[c].fontFlags; *p; p++, i++)
  1294. ! #ifdef    SFP
  1295. !         if (*p == 'p' || *p == 's') {
  1296.   #else
  1297. !         if (*p == 'p') {
  1298.   #endif
  1299. !         DBP((D_FONT, "Allocating font %d, size %d\n",
  1300. !             c, i));
  1301. !         if (!fonttable[c].map) {
  1302. !             fonttable[c].map = (struct downmaps *)
  1303. !             mustmalloc(sizeof(struct downmaps), "downmaps");
  1304. !         }
  1305. !         fonttable[c].map->nm[i] = (ETYP *) mustmalloc(ELEN *
  1306. !             sizeof(ETYP), "Nmaps");
  1307. !         fonttable[c].map->lastpage[i] = 0;
  1308.           }
  1309.       }
  1310.   
  1311. --- 817,842 ----
  1312.       for (c = 0; fonttable[c].troffName; c++) {
  1313.       register int i;
  1314.       for (i = 0, p = fonttable[c].fontFlags; *p; p++, i++)
  1315. !         switch(*p) {
  1316. !         case 'n':
  1317. ! #ifndef PKSCALE    
  1318. !             break;
  1319.   #else
  1320. !             /* FALLTHRU */
  1321.   #endif
  1322. ! #ifdef    SFP
  1323. !         case 's':
  1324. ! #endif
  1325. !         case 'p':
  1326. !             DBP((D_FONT, "Allocating font %d, size %d\n",
  1327. !             c, i));
  1328. !             if (!fonttable[c].map) {
  1329. !             fonttable[c].map = (struct downmaps *)
  1330. !                 mustmalloc(sizeof(struct downmaps), "downmaps");
  1331. !             }
  1332. !             fonttable[c].map->nm[i] = (ETYP *) mustmalloc(ELEN *
  1333. !             sizeof(ETYP), "Nmaps");
  1334. !             fonttable[c].map->lastpage[i] = 0;
  1335.           }
  1336.       }
  1337.   
  1338. Index: ./ljdraw.c
  1339. *** /tmp/PATCHold/./ljdraw.c    Thu Nov 26 23:35:49 1992
  1340. --- ./ljdraw.c    Thu Nov 26 23:35:52 1992
  1341. ***************
  1342. *** 6,13 ****
  1343.       this software is provided.
  1344.   
  1345.       Function:        LaserJet driver, drawing code.
  1346. ! 
  1347. !             Needs LJII or later (rules)
  1348.   
  1349.   */
  1350.   
  1351. --- 6,26 ----
  1352.       this software is provided.
  1353.   
  1354.       Function:        LaserJet driver, drawing code.
  1355. !             Needs LJII (actually PCL4) or later (rules)
  1356. !     
  1357. !     Currently supports:
  1358. !     line thickness set
  1359. !     fill set
  1360. !     circle & ellipse, c&e fill
  1361. !     lines
  1362. !     polygons
  1363. !     splines
  1364. !     
  1365. !     TODO: 
  1366. !     - polyfill.  Polyfill probably never unless somebody
  1367. !       gives me a polygon fill algorithm (hint hint!)
  1368. !     - optimize emitrast some more.  (wastes up to 25 bytes per subsequent
  1369. !       raster line where the start point is within 2/3 inch.)
  1370.   
  1371.   */
  1372.   
  1373. ***************
  1374. *** 15,24 ****
  1375.   
  1376.   #if    defined(LJ) && defined(INSPECIAL)
  1377.   #include "lj.h"
  1378.   
  1379.   #ifndef    lint
  1380.   static char SCCSid[] =
  1381. !     "@(#)ljdraw.c: 1.1 Copyright 92/01/23 14:26:18 Chris Lewis";
  1382.   #endif
  1383.   
  1384.   static int ljLine();
  1385. --- 28,38 ----
  1386.   
  1387.   #if    defined(LJ) && defined(INSPECIAL)
  1388.   #include "lj.h"
  1389. + #include "math.h"
  1390.   
  1391.   #ifndef    lint
  1392.   static char SCCSid[] =
  1393. !     "@(#)ljdraw.c: 1.2 Copyright 92/11/26 19:39:27 Chris Lewis";
  1394.   #endif
  1395.   
  1396.   static int ljLine();
  1397. ***************
  1398. *** 25,38 ****
  1399.   
  1400.   /*    Do ditroff drawing command in s from origX,origY.
  1401.       If opcode 0 just moveto
  1402. - 
  1403. -     This is hardly complete.  Consider it a skeleton
  1404. -     for further work.  Before extending it beyond
  1405. -     horizontal and vertical lines, I'm going to switch
  1406. -     the whole driver over to 300ths from 720ths.
  1407. -     Which should eliminate a little jitter, and removes
  1408. -     a lot of excess work in line drawing.
  1409.    */
  1410.   ljDraw(origX, origY, opcode, ctindex, numbers, saves)
  1411.   int origX, origY;
  1412.   int opcode;
  1413. --- 39,59 ----
  1414.   
  1415.   /*    Do ditroff drawing command in s from origX,origY.
  1416.       If opcode 0 just moveto
  1417.    */
  1418. + 
  1419. + int curthick = 1;    /* half of current thickness */
  1420. + int curfill = 0;    /* solid black 1000 is solid white */
  1421. + 
  1422. + int drawDot();
  1423. + #define sqr(x)    ((x) * (x))
  1424. + 
  1425. + static long    rastcount, total;
  1426. + 
  1427. + #ifndef M_PI
  1428. + #define    M_PI    3.141529
  1429. + #endif
  1430. + #define    RAD_C    (M_PI*2)
  1431. + 
  1432.   ljDraw(origX, origY, opcode, ctindex, numbers, saves)
  1433.   int origX, origY;
  1434.   int opcode;
  1435. ***************
  1436. *** 40,49 ****
  1437.   int ctindex;
  1438.   short *numbers; {
  1439.   
  1440. !     int i, fill = 0;
  1441. !     static float curfill = 0;
  1442. !     static int curthick = 1;
  1443. !     static int warned = 0;
  1444.   
  1445.       /* map absolute beginning position. */
  1446.       origX = TROFF2LJX(origX);
  1447. --- 61,67 ----
  1448.   int ctindex;
  1449.   short *numbers; {
  1450.   
  1451. !     int i;
  1452.   
  1453.       /* map absolute beginning position. */
  1454.       origX = TROFF2LJX(origX);
  1455. ***************
  1456. *** 50,192 ****
  1457.       origY = TROFF2LJY(origY);
  1458.   
  1459.       if (!opcode) {
  1460. !     printf(XY, origX, origY);
  1461. !     lastYPos = origY;
  1462.       return;
  1463.       }
  1464.   
  1465. -     if (opcode != 'l')
  1466. -     if (!warned) {
  1467. -         fprintf(stderr, "%s: only lines are currently supported\n", progname);
  1468. -         warned = 1;
  1469. -         return;
  1470. -     }
  1471. - 
  1472.       switch (opcode) {
  1473.       case 'f':
  1474.           if (ctindex == 2)
  1475.           ctindex = 1;
  1476. !         if (!require(1, ctindex, "set fill", saves))
  1477. !         curfill = (double) numbers[0] / 1000;
  1478.           return;
  1479.       case 't':
  1480.           if (ctindex == 2)
  1481.           ctindex = 1;
  1482. !         if (!require(1, ctindex, "set thick", saves))
  1483. !         curthick = numbers[0];
  1484.           return;
  1485.       }
  1486.   
  1487. - 
  1488.       DBP((D_CAT, "ljDraw: (%d,%d): %s\n", origX, origY, saves));
  1489.   
  1490.       switch (opcode) {
  1491. !     case 'C':
  1492.           if (ctindex == 2)
  1493.           ctindex = 1;
  1494. -     case 'E':
  1495. -     case 'P':
  1496. -         fill = 1;
  1497. -         if (opcode != 'P')
  1498. -         break;
  1499. -     case 'l':
  1500. -     case 'a':
  1501. -     case 'p':
  1502. -     case '~':
  1503. -         for (i = 0; i < ctindex; i++)
  1504. -         numbers[i] = numbers[i] * LJRESOLUTION / TROFFRESOLUTION;
  1505.       }
  1506.       switch(opcode) {
  1507.       case 'l':
  1508.           if (require(2, ctindex, "line", saves))
  1509.           return;
  1510. -         DBP((D_CAT, "drawline: %d, %d\n", numbers[0], numbers[1]));
  1511.           ljLine(origX, origY, origX + numbers[0], origY + numbers[1]);
  1512. !         break;
  1513. ! #if    0
  1514. !     case 'a':
  1515. !         if (require(4, ctindex, "arc", saves))
  1516. !         return;
  1517. !         for (i = 0; i < 4; i++) {
  1518. !         emitnums(numbers[i]);
  1519. !         }
  1520. !         putnl("Arc");
  1521. !         break;
  1522.       case 'C':
  1523.       case 'c':
  1524.           if (require(1, ctindex, "circle", saves))
  1525.           return;
  1526.           numbers[1] = numbers[0];
  1527. !         ctindex++;
  1528.       case 'E':
  1529.       case 'e':
  1530.           if (require(2, ctindex, "ellipse", saves))
  1531.           return;
  1532. !         DBP((D_CAT, "drawellipse: %d, %d\n", numbers[0], numbers[1]));
  1533. !         emitnums((int) numbers[0]);
  1534. !         emitnums((int) numbers[1]);
  1535. !         putnl("Ellipse");
  1536. !         break;
  1537.       case 'P':
  1538.       case 'p':
  1539.           if (ctindex&1) {
  1540. !         fprintf(stderr, "%s: even number of points for polygon: %s\n",
  1541.               progname, saves);
  1542. !         break;
  1543. !         }
  1544. !         for (i = 0; i < ctindex; i += 2) {
  1545. !         emitnums((int) numbers[i]);
  1546. !         emitnums((int) numbers[i+1]);
  1547. !         putnl("rlineto");
  1548.           }
  1549. !         putnl(" closepath");
  1550. !         break;
  1551. !     case '~':
  1552. !         if (ctindex < 4) {
  1553. !         fprintf(stderr, "%s: too few points to spline: %s\n",
  1554.               progname, saves);
  1555. !         break;
  1556. !         }
  1557. !         emitnums(numbers[0]/2);
  1558. !         emitnums(numbers[1]/2);
  1559. !         putnl("rlineto");
  1560. !         /* NUM/DEN should be between 0 and 1; the closer it is to 1
  1561. !         the tighter the curve will be to the guiding lines; 2/3
  1562. !         is the standard value */
  1563. ! #define    NUM    2
  1564. ! #define    DEN    3
  1565. !         for (i = 0; i < ctindex - 2; i += 2) {
  1566. !         emitnums((numbers[i]*NUM)/(2*DEN));
  1567. !         emitnums((numbers[i + 1]*NUM)/(2*DEN));
  1568. !         emitnums(numbers[i]/2 + (numbers[i + 2]*(DEN - NUM))/(2*DEN));
  1569. !         emitnums(numbers[i + 1]/2 + (numbers[i + 3]*(DEN - NUM))/(2*DEN));
  1570. !         emitnums((numbers[i] - numbers[i]/2) + numbers[i + 2]/2);
  1571. !         emitnums((numbers[i + 1] - numbers[i + 1]/2) + numbers[i + 3]/2);
  1572. !         putnl("rcurveto");
  1573.           }
  1574. !         emitnums(numbers[ctindex - 2] - numbers[ctindex - 2]/2);
  1575. !         emitnums(numbers[ctindex - 1] - numbers[ctindex - 1]/2);
  1576. !         putnl("rlineto");
  1577. !         break;
  1578. ! #endif
  1579.       default:
  1580.           fprintf(stderr, "%s: invalid draw code %c (%s)\n", progname, opcode,
  1581.           saves);
  1582. !         break;
  1583.       }
  1584.   }
  1585.   
  1586. ! static
  1587. ! linwid() {
  1588. !     register int a;
  1589. !     a = lastPoints / 4;
  1590. !     if (!a)
  1591. !     a = 1;
  1592. !     else if (a > 10)
  1593. !     a = 10;
  1594. !     return(a);
  1595.   }
  1596. !     
  1597.   
  1598.   static ljPos(x, y)
  1599.   register int x, y; {
  1600. --- 68,246 ----
  1601.       origY = TROFF2LJY(origY);
  1602.   
  1603.       if (!opcode) {
  1604. !     ljPos(origX, origY);
  1605.       return;
  1606.       }
  1607.   
  1608.       switch (opcode) {
  1609.       case 'f':
  1610.           if (ctindex == 2)
  1611.           ctindex = 1;
  1612. !         if (!require(1, ctindex, "set fill", saves)) {
  1613. !         curfill = numbers[0];
  1614. !         if (curfill < 0)
  1615. !             curfill = 0;
  1616. !         if (curfill > 1000)
  1617. !             curfill = 1000;
  1618. !         DBP((D_PIC, "FILL: %d\n", curfill));
  1619. !         }
  1620.           return;
  1621.       case 't':
  1622.           if (ctindex == 2)
  1623.           ctindex = 1;
  1624. !         if (!require(1, ctindex, "set thick", saves)) {
  1625. !         curthick = numbers[0] / 2;
  1626. !         if (curthick < 1)
  1627. !             curthick = 1;
  1628. !         DBP((D_PIC, "THICK: %d\n", curthick));
  1629. !         }
  1630.           return;
  1631.       }
  1632.   
  1633.       DBP((D_CAT, "ljDraw: (%d,%d): %s\n", origX, origY, saves));
  1634.   
  1635.       switch (opcode) {
  1636. !     case 'C': case 'c':
  1637.           if (ctindex == 2)
  1638.           ctindex = 1;
  1639.       }
  1640. + 
  1641. +     for (i = 0; i < ctindex; i++)
  1642. +     numbers[i] = numbers[i] * LJRESOLUTION / TROFFRESOLUTION;
  1643. + 
  1644.       switch(opcode) {
  1645.       case 'l':
  1646.           if (require(2, ctindex, "line", saves))
  1647.           return;
  1648.           ljLine(origX, origY, origX + numbers[0], origY + numbers[1]);
  1649. !         return;
  1650. ! 
  1651.       case 'C':
  1652.       case 'c':
  1653.           if (require(1, ctindex, "circle", saves))
  1654.           return;
  1655.           numbers[1] = numbers[0];
  1656. !         ljCircle(origX + numbers[0] / 2, origY, numbers[0] / 2,
  1657. !         drawDot, opcode == 'C' ? curfill: -1);
  1658. !         return;
  1659. ! 
  1660.       case 'E':
  1661.       case 'e':
  1662.           if (require(2, ctindex, "ellipse", saves))
  1663.           return;
  1664. !         ljEllipse(origX + numbers[0] / 2, origY, numbers[0]/2, numbers[1]/2,
  1665. !         opcode == 'E' ? curfill: -1);
  1666. !         return;
  1667. ! 
  1668.       case 'P':
  1669.       case 'p':
  1670.           if (ctindex&1) {
  1671. !         fprintf(stderr, "%s: need even number of points for polygon: %s\n",
  1672.               progname, saves);
  1673. !         return;
  1674.           }
  1675. !         ljPoly(origX, origY, ctindex, numbers);
  1676. !         return;
  1677. ! 
  1678. !     case 'a':
  1679. !         if (require(4, ctindex, "arc", saves))
  1680. !         return;
  1681. !         ljArc(origX, origY, numbers[0], numbers[1], numbers[2], numbers[3]);
  1682. !         return;
  1683. ! 
  1684. !     case '~': 
  1685. !         if (ctindex < 4 || (ctindex&1)) {
  1686. !         fprintf(stderr, "%s: too few points to spline, or odd point count: %s\n",
  1687.               progname, saves);
  1688. !         return;
  1689.           }
  1690. !         ljSpline(origX, origY, ctindex, numbers);
  1691. !         return;
  1692. !         
  1693.       default:
  1694.           fprintf(stderr, "%s: invalid draw code %c (%s)\n", progname, opcode,
  1695.           saves);
  1696. !         return;
  1697.       }
  1698.   }
  1699.   
  1700. ! /* Can't do polygon fill.  Probably never will - needs far more
  1701. !    advanced techniques than I'm willing to do */
  1702. ! 
  1703. ! ljPoly(curx, cury, ctindex, numbers)
  1704. ! int curx, cury, ctindex;
  1705. ! short *numbers; {
  1706. !     int i;
  1707. ! 
  1708. !     DBP((D_PIC, "ljPoly\n"));
  1709. ! 
  1710. !     for (i = 0; i < ctindex; i += 2) {
  1711. !     ljLine(curx, cury, curx + numbers[i], cury + numbers[i+1]);
  1712. !     curx += numbers[i];
  1713. !     cury += numbers[i+1];
  1714. !     }
  1715. ! 
  1716. ! }
  1717. ! 
  1718. ! int lx, ly;
  1719. ! 
  1720. ! ljSpline(ox, oy, ctindex, numbers)
  1721. ! int ox, oy, ctindex;
  1722. ! short *numbers; {
  1723. ! 
  1724. !     int dx = numbers[0], dy = numbers[1];
  1725. !     int sx = ox, sy = oy, tx = sx + dx, ty = sy + dy;
  1726. !     int i;
  1727. ! 
  1728. !     DBP((D_PIC, "ljSpline\n"));
  1729. ! 
  1730. !     ljLine(sx, sy, lx = (sx + tx) / 2, ly = (sy + ty) / 2);
  1731. ! 
  1732. !     for (i = 2; i < ctindex; i += 2) {
  1733. !     int ux = ox + (dx += numbers[i]);
  1734. !     int uy = oy + (dy += numbers[i+1]);
  1735. ! 
  1736. !     flatten((sx + tx*5)/6, (sy + ty*5)/6, (tx*5 + ux) / 6,
  1737. !         (ty*5 + uy) / 6, (tx + ux) / 2, (ty + uy) / 2);
  1738. !     sx = tx;
  1739. !     sy = ty;
  1740. !     tx = ux;
  1741. !     ty = uy;
  1742. !     }
  1743. !     ljLine(lx, ly, tx, ty);
  1744.   }
  1745. ! 
  1746. ! #define FLAT 1
  1747. ! flatten(x2, y2, x3, y3, x4, y4)
  1748. ! int x2, y2, x3, y3, x4, y4; {
  1749. ! 
  1750. !     int x1 = lx, y1 = ly, dx, dy, n1, n2, n;
  1751. ! 
  1752. !     dx = x4 - x1;
  1753. !     dy = y4 - y1;
  1754. ! 
  1755. !     n1 = dy*(x2 - x1) - dx*(y2 - y1);
  1756. !     n2 = dy*(x3 - x1) - dx*(y3 - y1);
  1757. ! 
  1758. !     if (n1 < 0)
  1759. !     n1 = -n1;
  1760. !     if (n2 < 0)
  1761. !     n2 = -n2;
  1762. ! 
  1763. !     n = n1 > n2 ? n1 : n2;
  1764. ! 
  1765. !     if (n*n / (dy*dy + dx*dx) <= FLAT*FLAT) {
  1766. !     ljLine(lx, ly, x4, y4);
  1767. !     lx = x4;
  1768. !     ly = y4;
  1769. !     } else {
  1770. !     flatten( (x1 + x2)/2, (y1 + y2)/2,
  1771. !           (x1 + x2*2 + x3)/4, (y1 + y2*2 + y3)/4,
  1772. !           (x1 +3*x2 + 3*x3 + x4)/8, (y1 +3*y2 + 3*y3 + y4)/8);
  1773. !     flatten( (x2 + x3*2 + x4)/4, (y2 + y3*2 + y4)/4,
  1774. !           (x3 + x4)/2, (y3 + y4)/2, x4, y4);
  1775. !     }
  1776. ! }
  1777.   
  1778.   static ljPos(x, y)
  1779.   register int x, y; {
  1780. ***************
  1781. *** 194,241 ****
  1782.       lastYPos = y;
  1783.   }
  1784.   
  1785. - static
  1786. - ljHLine(x0, y0, x1, y1)
  1787. - int x0, y0, x1, y1; {
  1788. -     static int warning = 0;
  1789. -     if (!warning) {
  1790. -     fprintf(stderr, "%s: contains non-vertical or horizontal lines.  Ignored\n",
  1791. -         progname);
  1792. -     warning = 1;
  1793. -     }
  1794. - }
  1795.   
  1796.   static
  1797.   ljVerLine(x0, y0, y1)
  1798.   register int x0, y0, y1; {
  1799. -     register int t;
  1800.       if (y0 > y1) {
  1801.       t = y0;
  1802.       y0 = y1;
  1803.       y1 = t;
  1804.       }
  1805. !     t = linwid();
  1806. !     ljPos(x0, y0-t+1);
  1807. !     printf("\033*c%da%db0P", t, y1-y0+t);
  1808.   }
  1809.   
  1810.   static
  1811.   ljHorLine(x0, y0, x1)
  1812.   register int x0, y0, x1; {
  1813. -     register int t = linwid();
  1814.       if (x0 > x1) {
  1815.       t = x0;
  1816.       x0 = x1;
  1817.       x1 = t;
  1818.       }
  1819. !     t = linwid();
  1820. !     ljPos(x0, y0-t+1);
  1821. !     printf("\033*c%da%db0P", x1-x0+t, t);
  1822.   }
  1823.   
  1824.   static
  1825.   ljLine(x0, y0, x1, y1)
  1826.   register int x0, y0, x1, y1; {
  1827.       if (y0 == y1)
  1828.       ljHorLine(x0, y0, x1);
  1829.       else if (x0 == x1)
  1830. --- 248,288 ----
  1831.       lastYPos = y;
  1832.   }
  1833.   
  1834.   
  1835.   static
  1836.   ljVerLine(x0, y0, y1)
  1837.   register int x0, y0, y1; {
  1838.       if (y0 > y1) {
  1839. +     register int t;
  1840.       t = y0;
  1841.       y0 = y1;
  1842.       y1 = t;
  1843.       }
  1844. !     ljPos(x0-curthick, y0);
  1845. !     printf("\033*c%da%db0P", curthick<<1, y1-y0);
  1846. !     ljCircle (x0, y0, curthick, drawDot, 0);
  1847. !     ljCircle (x0, y1, curthick, drawDot, 0);
  1848.   }
  1849.   
  1850.   static
  1851.   ljHorLine(x0, y0, x1)
  1852.   register int x0, y0, x1; {
  1853.       if (x0 > x1) {
  1854. +     register int t;
  1855.       t = x0;
  1856.       x0 = x1;
  1857.       x1 = t;
  1858.       }
  1859. !     ljPos(x0, y0-curthick);
  1860. !     printf("\033*c%da%db0P", x1-x0, curthick<<1);
  1861. !     ljCircle (x0, y0, curthick, drawDot, 0);
  1862. !     ljCircle (x1, y0, curthick, drawDot, 0);
  1863.   }
  1864.   
  1865.   static
  1866.   ljLine(x0, y0, x1, y1)
  1867.   register int x0, y0, x1, y1; {
  1868. +     DBP((D_PIC, "ljLine: (%d,%d)..(%d,%d), curthick: %d\n", x0, y0, x1, y1, curthick));
  1869.       if (y0 == y1)
  1870.       ljHorLine(x0, y0, x1);
  1871.       else if (x0 == x1)
  1872. ***************
  1873. *** 243,248 ****
  1874. --- 290,786 ----
  1875.       else
  1876.       ljHLine(x0, y0, x1, y1);
  1877.   
  1878. + }
  1879. + 
  1880. + #define    abs(x)    ((x) < 0? -(x): (x))
  1881. + 
  1882. + /*    Breshenham's line drawing algorithm.
  1883. +     Extended to full 4 quadrant line drawing.
  1884. +     Uses only adds/subtracts and <<1.
  1885. +     Should run like the proverbial bat */
  1886. + 
  1887. + ljHLine(x0, y0, x1, y1)
  1888. + int x0, y0, x1, y1; {
  1889. +     extern int rev;
  1890. +     if (abs(y1 - y0) > abs(x1 - x0)) {
  1891. +     rev=1;
  1892. +     lineseg2(y0, x0, y1, x1);
  1893. +     } else {
  1894. +     rev=0;
  1895. +     lineseg2(x0, y0, x1, y1);
  1896. +     }
  1897. +     rev = 0;
  1898. + }
  1899. + 
  1900. + int rev;
  1901. +         
  1902. + /* extend base algorithm to -45..45 & 135..225 */
  1903. + lineseg2(x0, y0, x1, y1)
  1904. + int x0, y0, x1, y1; {
  1905. +     if (x1 < x0)
  1906. +     lineseg(x1, y1, x0, y0);
  1907. +     else
  1908. +     lineseg(x0, y0, x1, y1);
  1909. + }
  1910. + 
  1911. + 
  1912. + static
  1913. + lineseg (x0, y0, x1, y1)
  1914. + int x0, y0, x1, y1; {
  1915. +     register int dx, dy, iE, iNE, d, x, y, ddy;
  1916. + 
  1917. +     /* extend algorithm to -45..45 */
  1918. +     dx = x1 - x0;
  1919. +     dy = y1 - y0;
  1920. +     if (dy < 0) {
  1921. +     ddy = -1;
  1922. +     dy = -dy;
  1923. +     } else
  1924. +     ddy = 1;
  1925. + 
  1926. +     /* Basic algorithm, 0..45 degrees */
  1927. +     d = 2 * dy - dx;
  1928. +     iE = 2 * dy;
  1929. +     iNE = 2 * (dy - dx);
  1930. +     x = x0;
  1931. +     y = y0;
  1932. +     linePoints(x, y);
  1933. +     while (x < x1) {
  1934. +     if (d <= 0) {
  1935. +         d = d + iE;
  1936. +         x = x + 1;
  1937. +     } else {
  1938. +         d = d + iNE;
  1939. +         x = x + 1;
  1940. +         y = y + ddy;
  1941. +     }
  1942. +     linePoints(x, y);
  1943. +     }
  1944. + }
  1945. + 
  1946. + /* This procedure uses second-order partial differences to compute increments
  1947. +    in the decision variable.  Assumes center of circle is at origin.
  1948. +    It actually calculates only one octant, then circlePoints maps
  1949. +    it into the rest of a circle */
  1950. + 
  1951. + ljCircle (origx, origy, radius, dotfcn, fill)
  1952. + int origx, origy, radius, fill;
  1953. + FUNC dotfcn;
  1954. + {
  1955. +     register int x, y, d, deltaE, deltaSE;
  1956. + 
  1957. +     DBP((dotfcn == drawDot ? D_PIC: 0, "ljCircle: (%d,%d),r%d,f%d\n",
  1958. +     origx, origy, radius, fill));
  1959. + 
  1960. +     x = 0;
  1961. +     y = radius;
  1962. +     d = 1 - radius;
  1963. +     deltaE = 3;
  1964. +     deltaSE = -2 * radius + 5;
  1965. +     circlePoints(origx, origy, x, y, dotfcn, fill);
  1966. + 
  1967. +     while (y > x) {
  1968. +     if (d < 0) { /* select E */
  1969. +         d += deltaE;
  1970. +         deltaE += 2;
  1971. +         deltaSE += 2;
  1972. +         x++;
  1973. +     } else {    /* select SE */
  1974. +         d += deltaSE;
  1975. +         deltaE += 2;
  1976. +         deltaSE += 4;
  1977. +         x++;
  1978. +         y--;
  1979. +     }
  1980. +     circlePoints(origx, origy, x, y, dotfcn, fill);
  1981. +     }
  1982. + }
  1983. + 
  1984. + circlePoints(ox, oy, x, y, dotfcn, fill)
  1985. + int ox, oy, x, y, fill;
  1986. + FUNC dotfcn; {
  1987. +     if (fill != -1) {
  1988. +     dofill(ox, x, oy+y, fill);
  1989. +     dofill(ox, x, oy-y, fill);
  1990. +     dofill(ox, y, oy+x, fill);
  1991. +     dofill(ox, y, oy-x, fill);
  1992. +     } else {
  1993. +     dotfcn(ox+x, oy+y, dotfcn);
  1994. +     dotfcn(ox+x, oy-y, dotfcn);
  1995. +     dotfcn(ox-x, oy+y, dotfcn);
  1996. +     dotfcn(ox-x, oy-y, dotfcn);
  1997. +     dotfcn(ox+y, oy+x, dotfcn);
  1998. +     dotfcn(ox+y, oy-x, dotfcn);
  1999. +     dotfcn(ox-y, oy+x, dotfcn);
  2000. +     dotfcn(ox-y, oy-x, dotfcn);
  2001. +     }
  2002. + }
  2003. + 
  2004. + /*    Describes octants, counterclockwise from 0.
  2005. +     0: off
  2006. +     1: on
  2007. +     2: calculate
  2008. +  */
  2009. + static int    arcOctant[8], invert;
  2010. + static double arcStart, arcEnd;
  2011. + 
  2012. + /* roughly the same as ljCircle, except octant selector gunge */
  2013. + ljArc (x0, y0, xc, yc, x1, y1)
  2014. + int x0, y0, xc, yc, x1, y1;
  2015. + {
  2016. +     register int x, y, d, deltaE, deltaSE, radius;
  2017. +     double t, c;
  2018. + 
  2019. +     DBP((D_PIC, "ljArc: %d, %d, %d, %d, %d, %d\n",
  2020. +     x0, y0, xc, yc, x1, y1));
  2021. +     {
  2022. +     int inttmp;
  2023. + 
  2024. +     inttmp = x0 + xc;
  2025. +     x0 = xc;
  2026. +     xc = inttmp;
  2027. + 
  2028. +     inttmp = y0 + yc;
  2029. +     y0 = yc;
  2030. +     yc = inttmp;
  2031. +     }
  2032. + 
  2033. +     radius = sqrt((double) sqr(x0) + (double) sqr(y0)) + .5;
  2034. +     arcStart = atan2((double) y0, (double) -x0);
  2035. +     arcEnd = atan2((double) -y1, (double) x1);
  2036. + 
  2037. +     if (arcStart < 0)
  2038. +     arcStart += RAD_C;
  2039. +     if (arcEnd < 0)
  2040. +     arcEnd += RAD_C;
  2041. + 
  2042. +     if (arcStart > arcEnd) {
  2043. +     invert = 1;
  2044. +     t = arcStart;
  2045. +     arcStart = arcEnd;
  2046. +     arcEnd = t;
  2047. +     } else {
  2048. +     invert = 0;
  2049. +     }
  2050. + 
  2051. +     DBP((D_PIC, "ljArc: (%d,%d),r%d,inv:%d, (%f,%f)\n",
  2052. +     xc, yc, radius, invert, arcStart, arcEnd));
  2053. + 
  2054. +     for (x = 0; x < 8; x++)
  2055. +     arcOctant[x] = invert;
  2056. + 
  2057. +     x = 8 * arcStart / (2*M_PI);
  2058. +     y = 8 * arcEnd / (2*M_PI);
  2059. + 
  2060. +     arcOctant[x] = 2;
  2061. +     arcOctant[y] = 2;
  2062. +     for (d = x+1; d < y; d++)
  2063. +     arcOctant[d] = !invert;
  2064. + 
  2065. +     t = 2*M_PI / 8;
  2066. +     for (x = 0; x < 8; x++) {
  2067. +     c = x*t;
  2068. +     DBP((D_PIC, "%d: %f:%f (%f:%f) %d (%d)\n", x, c, c+t, arcStart, arcEnd,
  2069. +         arcOctant[x], invert));
  2070. +     }
  2071. + 
  2072. +     x = 0;
  2073. +     y = radius;
  2074. +     d = 1 - radius;
  2075. +     deltaE = 3;
  2076. +     deltaSE = -2 * radius + 5;
  2077. +     arcPoints(xc, yc, x, y);
  2078. + 
  2079. +     while (y > x) {
  2080. +     if (d < 0) { /* select E */
  2081. +         d += deltaE;
  2082. +         deltaE += 2;
  2083. +         deltaSE += 2;
  2084. +         x++;
  2085. +     } else {    /* select SE */
  2086. +         d += deltaSE;
  2087. +         deltaE += 2;
  2088. +         deltaSE += 4;
  2089. +         x++;
  2090. +         y--;
  2091. +     }
  2092. +     arcPoints(xc, yc, x, y);
  2093. +     }
  2094. + }
  2095. + 
  2096. + /* if (octant on) ||
  2097. +       (endpoints in this octant && calculation shows point should be here)
  2098. +    put a dot
  2099. +  */
  2100. + 
  2101. + #define arcDot(q, a, b, c, d) if (arcOctant[q] == 1 || \
  2102. +     (arcOctant[q] == 2 && \
  2103. +     ((t = atan2((double) -b,(double) a)),t = (t<0?t+RAD_C:t),\
  2104. +     invert ^ (t >= arcStart && t <= arcEnd)))) \
  2105. +     drawDot(c,d)
  2106. + 
  2107. + 
  2108. + arcPoints(ox, oy, x, y)
  2109. + int ox, oy, x, y; {
  2110. +     double t;
  2111. + 
  2112. +     arcDot(0, y, -x, ox+y, oy-x);
  2113. +     arcDot(1, x, -y, ox+x, oy-y);
  2114. +     arcDot(2, -x, -y, ox-x, oy-y);
  2115. +     arcDot(3, -y, -x, ox-y, oy-x);
  2116. +     arcDot(4, -y, x, ox-y, oy+x);
  2117. +     arcDot(5, -x, y, ox-x, oy+y);
  2118. +     arcDot(6, x, y, ox+x, oy+y);
  2119. +     arcDot(7, y, x, ox+y, oy+x);
  2120. + }
  2121. + 
  2122. + /*    the fill range 0..1000 selects one of these 8
  2123. +     rows.  Each row describes a 8x8 fill pattern.
  2124. +  */
  2125. + static char fillpat[9][8] = {
  2126. +     { 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff },
  2127. +     { 0xc3, 0xa5, 0x24, 0xe9, 0xe9, 0x24, 0xa5, 0xc3 },
  2128. +     { 0xe7, 0xc3, 0x24, 0x3c, 0x3c, 0x24, 0xc3, 0xe7 },
  2129. +     { 0xc3, 0x81, 0x00, 0x18, 0x18, 0x00, 0x81, 0xc3 },
  2130. +     { 0x81, 0x42, 0x24, 0x18, 0x18, 0x24, 0x42, 0x81 },
  2131. +     { 0x81, 0x00, 0x00, 0x18, 0x18, 0x00, 0x00, 0x81 },
  2132. +     { 0x00, 0x42, 0x00, 0x18, 0x18, 0x00, 0x42, 0x00 },
  2133. +     { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 },
  2134. +     { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }
  2135. + };
  2136. + 
  2137. + /* fill from (x-dx,y) to (x+dx, y) with the fill pattern.
  2138. + 
  2139. +     fill pattern is aligned on byte boundaries in raster,
  2140. +     so theoretically, we could convert this to 0..7
  2141. +     of bit-dinks, a multi-byte memset, and 0..7 more
  2142. +     bit-dinks.  Profiling doesn't seem to show this as significant.
  2143. +  */
  2144. + 
  2145. + dofill(x, dx, y, fill)
  2146. + register int x, dx, y, fill; {
  2147. +     register int t, td;
  2148. +     static int lastind = -1;
  2149. +     register int ind = fill/125;
  2150. +     register char fp = fillpat[ind][y&7];
  2151. + 
  2152. + #ifdef DEBUG
  2153. +     if (lastind != ind) {
  2154. +     DBP((D_PIC, "dofill: (%d+-%d,%d) %d->%d, fp:%02x\n", x, dx, y, fill, ind, fp));
  2155. +     lastind = ind;
  2156. +     }
  2157. + #endif
  2158. + 
  2159. +     asetbit(x, y);    /* make sure row is allocated */
  2160. + 
  2161. +     td = x + dx;
  2162. + 
  2163. +     for (t = x - dx; t < td; t++)
  2164. +     if ((0x80 >> (t&7)) & fp)
  2165. +         setbit(t, y);
  2166. +     else
  2167. +         clearbit(t, y);
  2168. + }
  2169. + 
  2170. + EllipsePoints (ox, oy, x, y, fill)
  2171. + int ox, oy, x, y, fill; {
  2172. +     if (fill != -1) {
  2173. +     dofill(ox, x, oy+y, fill);
  2174. +     dofill(ox, x, oy-y, fill);
  2175. +     } else {
  2176. +     drawDot(ox + x, oy + y);
  2177. +     drawDot(ox + x, oy - y);
  2178. +     drawDot(ox - x, oy + y);
  2179. +     drawDot(ox - x, oy - y);
  2180. +     }
  2181. + }
  2182. + 
  2183. + 
  2184. + ljEllipse(ox, oy, a, b, fill)
  2185. + int ox, oy, a, b, fill; {
  2186. +     int x, y;
  2187. +     double d1, d2;
  2188. +     int sqra = a*a,
  2189. +     sqrb = b*b;
  2190. +     DBP((D_PIC, "ljEllipse: (%d,%d),xr%d,yr%d,f%d\n",
  2191. +     ox, oy, a, b, fill));
  2192. + 
  2193. +     x = 0;
  2194. +     y = b;
  2195. +     d1 = sqrb - sqra * b + (double) sqra / 4;
  2196. +     EllipsePoints(ox, oy, x, y, fill);
  2197. + 
  2198. +     while (sqra * (y - .5) > sqrb * (x + 1)) {
  2199. +     if (d1 < 0) {
  2200. +         d1 = d1 + sqrb * (2 * x + 3);
  2201. +         x++;
  2202. +     } else {
  2203. +         d1 = d1 + sqrb * (2 * x + 3) + sqra * (-2 * y + 2);
  2204. +         x++;
  2205. +         y--;
  2206. +     }
  2207. +     EllipsePoints(ox, oy, x, y, fill);
  2208. +     }
  2209. + 
  2210. +     d2 = sqrb * sqr(x + .5) + sqra * sqr(y - 1) - sqra * sqrb;
  2211. +     while (y > 0) {
  2212. +     if (d2 < 0) {
  2213. +         d2 = d2 + sqrb * (2 * x + 2) + sqra * (-2 * y + 3);
  2214. +         x++;
  2215. +         y--;
  2216. +     } else {
  2217. +         d2 = d2 + sqra * (-2 * y + 3);
  2218. +         y--;
  2219. +     }
  2220. +     EllipsePoints(ox, oy, x, y, fill);
  2221. +     }
  2222. + }
  2223. + 
  2224. + linePoints(x, y)
  2225. + int x, y; {
  2226. +     if (rev)
  2227. +     drawDot(y,x);
  2228. +     else
  2229. +     drawDot(x,y);
  2230. + }
  2231. + 
  2232. + /* General point drawing routine.  The idea is to draw a filled circle
  2233. +    at each pixel with radius 1/2 the desired thickness.  Doing a filled
  2234. +    circle is a lot of bit-dinking, so we optimize by drawing unfilled
  2235. +    circles with minimum line-width, and rely on adjacent circles to fill
  2236. +    in the hole.  Means that lines shorter than the line thickness
  2237. +    may have some hollow bits.
  2238. +  */
  2239. + drawDot(x, y)
  2240. + int x, y; {
  2241. +     if (curthick <= 1) {
  2242. +     asetbit(x, y);
  2243. +     asetbit(x+1, y);
  2244. +     asetbit(x, y+1);
  2245. +     asetbit(x+1, y+1);
  2246. +     } else
  2247. +     ljCircle(x, y, curthick, asetbit, -1);
  2248. + }
  2249. + 
  2250. + /*    RASTER ENGINE */
  2251. + 
  2252. + char **ljraster = NULL;
  2253. + int thispage = 0;
  2254. + 
  2255. + /* only supports drawing resolution of 300 at the moment. */
  2256. + #define DRAWRES    300
  2257. + #define BYTESPERLINE (8 * DRAWRES) / 8
  2258. + #define RESMULT (LJRESOLUTION / DRAWRES)
  2259. + #define ESCLEN 25
  2260. + 
  2261. + 
  2262. + int
  2263. + nullscan(start, end)
  2264. + register char *start, *end; {
  2265. +     register char *cur;
  2266. +     for (cur = start; cur < end && !*cur; cur++);
  2267. +     return(cur - start);
  2268. + }
  2269. + 
  2270. + int
  2271. + pixblock(start, end)
  2272. + register char *start, *end; {
  2273. +     register char *cur;
  2274. +     register int numnulls;
  2275. +     if (end - start <= ESCLEN * 2)    /* no point optimizing */
  2276. +     return(end - start);
  2277. +     cur = start;
  2278. + 
  2279. +     while(cur < end) {
  2280. + 
  2281. +     for(; *cur && cur < end; cur++);
  2282. + 
  2283. +     numnulls = nullscan(cur, end);
  2284. + 
  2285. +     if (numnulls > ESCLEN)
  2286. +         return(cur - start);
  2287. +     else
  2288. +         cur += numnulls;
  2289. +     }
  2290. +     return(end - start);
  2291. + }
  2292. + 
  2293. + emitrast()
  2294. + {
  2295. +     int bperline;
  2296. +     int numx = BYTESPERLINE * 8;
  2297. +     int numy = pagelength;
  2298. +     register char *ip, *lineanch, *nip;
  2299. +     register currow, bcount;
  2300. +     int linecount = 0;
  2301. + 
  2302. +     bperline = ((numx + 7) / 8);
  2303. + 
  2304. +     if (!thispage)
  2305. +     return;
  2306. + 
  2307. +     printf("\033*t%dR", DRAWRES);
  2308. + 
  2309. +     for(currow = 0; currow < numy; currow++) {
  2310. +     linecount++;
  2311. +     if (!ljraster[currow])
  2312. +         continue;
  2313. +     lineanch = ip = ljraster[currow];
  2314. +     nip = ip + bperline;
  2315. +     while (ip < nip && !*ip) ip++;
  2316. +     if (ip >= nip)
  2317. +         continue;    /* line has no pixels */
  2318. +     while (!*(nip - 1)) nip--;    /* truncate trailing nulls */
  2319. +     while (ip < nip) {    /* inv: !*ip && !*nip */
  2320. +         bcount = pixblock(ip, nip);
  2321. +         printf("\033*p%dx%dY\033*r1A\033*b%dW",
  2322. +         (ip - lineanch) * 8 * RESMULT, currow * RESMULT, bcount);
  2323. +         rastcount += bcount;
  2324. +         total += (bcount + ESCLEN);
  2325. +         fwrite(ip, 1, bcount, stdout);
  2326. +         fputs("\033*rB", stdout);
  2327. +         for(ip += bcount; ip < nip && !*ip; ip++);
  2328. +     }
  2329. +     free(ljraster[currow]);
  2330. +     ljraster[currow] = (char *) NULL;
  2331. +     }
  2332. +     DBP((D_PIC, "emit raster: %d lines, %d rastbytes, total %d bytes\n",
  2333. +     linecount, rastcount, total));
  2334. +     rastcount = total = 0;
  2335. +     thispage = 0;
  2336. + }
  2337. + 
  2338. + asetbit(x, y)
  2339. + register int x, y; {
  2340. +     thispage = 1;
  2341. +     if (y < 0 || y > pagelength) {
  2342. +     /*fprintf(stderr, "y (%d) too big or small (0..%d)\n", y, pagelength);*/
  2343. +     return;
  2344. +     }
  2345. +     if (x < 0 || x > BYTESPERLINE * 8) {
  2346. +     /*fprintf(stderr, "x (%d) too big or small (0..%d)\n", x, BYTESPERLINE*8);*/
  2347. +     return;
  2348. +     }
  2349. +     if (!ljraster) {
  2350. +     ljraster = (char **) mustmalloc(pagelength * sizeof(char *),
  2351. +         "ljraster pointers");
  2352. +     clrarray(ljraster, pagelength * sizeof(char *));
  2353. +     }
  2354. +     if (!ljraster[y]) {
  2355. +     ljraster[y] = (char *) mustmalloc(BYTESPERLINE, "ljraster line");
  2356. +     clrarray(ljraster[y], BYTESPERLINE);
  2357. +     }
  2358. +     ljraster[y][x >> 3] |= (0x80 >> (x & 0x7));
  2359. + }
  2360. + 
  2361. + setbit(x, y)
  2362. + register int x, y; {
  2363. +     ljraster[y][x >> 3] |= (0x80 >> (x & 0x7));
  2364. + }
  2365. + 
  2366. + clearbit(x, y)
  2367. + register int x, y; {
  2368. +     ljraster[y][x >> 3] &= ~(0x80 >> (x & 0x7));
  2369.   }
  2370.   
  2371.   
  2372. Index: ./lj3draw.c
  2373. *** /tmp/PATCHold/./lj3draw.c    Thu Nov 26 23:36:08 1992
  2374. --- ./lj3draw.c    Thu Nov 26 23:36:09 1992
  2375. ***************
  2376. *** 29,35 ****
  2377.   
  2378.   #ifndef    lint
  2379.   static char SCCSid[] =
  2380. !     "@(#)lj3draw.c: 1.2 Copyright 92/02/10 16:49:48 Chris Lewis";
  2381.   #endif
  2382.   
  2383.   #define to_deg(a)    ((180.0/M_PI) * (a))
  2384. --- 29,35 ----
  2385.   
  2386.   #ifndef    lint
  2387.   static char SCCSid[] =
  2388. !     "@(#)lj3draw.c: 1.3 Copyright 92/11/26 19:42:32 Chris Lewis";
  2389.   #endif
  2390.   
  2391.   #define to_deg(a)    ((180.0/M_PI) * (a))
  2392. ***************
  2393. *** 120,125 ****
  2394. --- 120,126 ----
  2395.           return;
  2396.       }
  2397.       printf(XY,origX,origY);
  2398. +     lastYPos = -1;
  2399.       if (!opcode)
  2400.       return;
  2401.   
  2402. Index: ./pkscale.c
  2403. *** /tmp/PATCHold/./pkscale.c    Thu Nov 26 23:36:17 1992
  2404. --- ./pkscale.c    Thu Nov 26 23:36:18 1992
  2405. ***************
  2406. *** 12,18 ****
  2407.   #ifdef    PK
  2408.   
  2409.   #ifndef lint
  2410. ! static char SCCSid[] = "@(#)pkscale.c 1.2 Copyright 92/05/19 23:10:53 Chris Lewis";
  2411.   #endif
  2412.   
  2413.   #include "pk.h"
  2414. --- 12,18 ----
  2415.   #ifdef    PK
  2416.   
  2417.   #ifndef lint
  2418. ! static char SCCSid[] = "@(#)pkscale.c 1.3 Copyright 92/10/30 02:27:04 Chris Lewis";
  2419.   #endif
  2420.   
  2421.   #include "pk.h"
  2422. ***************
  2423. *** 70,79 ****
  2424. --- 70,84 ----
  2425.       npkp->pkp_kh = scalenum(sf, npkp->pkp_kh);
  2426.       npkp->pkp_kl = scalenum(sf, npkp->pkp_kl);
  2427.   
  2428. +     DBP((D_FONT,"To scale %d characters\n", pkp->pkp_num));
  2429.       for (i = 0; i < pkp->pkp_num; i++) {
  2430.       register struct ras *r;
  2431. + 
  2432.       pc = pkp->pkp_list[i];
  2433.   
  2434. +     DBP((D_FONT,"Scale char %ld (%c) to %d (%f)\n", pc->pkc_char,
  2435. +         pc->pkc_char, target, sf));
  2436. + 
  2437.       /* create new char descriptor, initialized to old */
  2438.       npc = (struct pkc *) mustmalloc(sizeof(struct pkc),
  2439.           "New PK character descriptor");
  2440. ***************
  2441. *** 80,88 ****
  2442. --- 85,97 ----
  2443.       *npc = *pc;
  2444.       if (!npkp->pkp_chars)
  2445.           npkp->pkp_chars = npc;
  2446. +     else
  2447. +         npkp->pkp_list[i-1]->pkc_next = npc;
  2448. + 
  2449.       npkp->pkp_last = npc;
  2450.       npkp->pkp_list[i] = npc;
  2451.   
  2452. + 
  2453.       /* get a raster to play with */
  2454.       pc->pkc_sfpr = pkrast(pc);
  2455.       if (pc->pkc_pkr)
  2456. ***************
  2457. *** 158,163 ****
  2458. --- 167,176 ----
  2459.       for (x = 0, p = sl; x < sln; x++)
  2460.           *p++ = scale * x + .5;
  2461.       }
  2462. + 
  2463. +     DBP((D_FONT, "rast %d:%d (%d) -> %d:%d (%d) (%f)\n",
  2464. +     from->ras_width, from->ras_height, from->ras_bytes,
  2465. +     to->ras_width, to->ras_height, to->ras_bytes, scale));
  2466.   
  2467.       clrarray(to->ras_raster, to->ras_bytes);
  2468.   
  2469. Index: ./pk.h
  2470. *** /tmp/PATCHold/./pk.h    Thu Nov 26 23:36:26 1992
  2471. --- ./pk.h    Thu Nov 26 23:36:27 1992
  2472. ***************
  2473. *** 8,14 ****
  2474.       Function:        PK format font file description
  2475.    */
  2476.   
  2477. ! /* 2.2 91/02/20 */
  2478.   
  2479.   #ifdef    PK
  2480.   
  2481. --- 8,14 ----
  2482.       Function:        PK format font file description
  2483.    */
  2484.   
  2485. ! /* 2.3 92/10/30 */
  2486.   
  2487.   #ifdef    PK
  2488.   
  2489. ***************
  2490. *** 51,56 ****
  2491. --- 51,59 ----
  2492.   };
  2493.   
  2494.   struct pkp *pk_read();
  2495. + #ifdef PKSCALE
  2496. + struct pkp *pkscale();
  2497. + #endif
  2498.   
  2499.   struct pkc {
  2500.       long pkc_flag;    /* flag byte */
  2501.  
  2502.  
  2503.  
  2504. -- 
  2505. Chris Lewis; clewis@ferret.ocunix.on.ca; Phone: Canada 613 832-0541
  2506. Psroff 3.0 info: psroff-request@ferret.ocunix.on.ca
  2507. Ferret list: ferret-request@ferret.ocunix.on.ca
  2508.