home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume27 / psroff-3.0 / patch17 next >
Encoding:
Text File  |  1994-03-29  |  18.2 KB  |  620 lines
  1. Newsgroups: comp.sources.unix
  2. From: clewis@ferret.ocunix.on.ca (Chris Lewis)
  3. Subject: v27i210: psroff 3.0, Patch17
  4. Sender: unix-sources-moderator@gw.home.vix.com
  5. Approved: vixie@gw.home.vix.com
  6.  
  7. Submitted-By: clewis@ferret.ocunix.on.ca (Chris Lewis)
  8. Posting-Number: Volume 27, Issue 210
  9. Archive-Name: psroff-3.0/patch17
  10.  
  11.     This is official patch 17 for Psroff 3.0.
  12.     Please apply it by:
  13.  
  14.     cd <psroff source directory>
  15.     patch -N -p < <this file>
  16.     
  17.     The base release of psroff3.0 was in comp.sources.unix volume 24.
  18.     Patches 1 through ../t2r2/Patch.16 are in volume 24 and subsequent
  19.     issues.
  20.  
  21.     A set of shars containing psroff patched to patch level 17
  22.     can be retrieved by anonymous FTP from ftp.uunet.ca under
  23.     distrib/chris_lewis/psroff3.0pl17.
  24.  
  25.     Hp2pbm and its patches can also be retrieved from ftp.uunet.ca under
  26.     distrib/chris_lewis/hp2pbm.
  27.  
  28. A bug fix release.  No new features, except for "ljprev" - if you
  29. have X windows, you can preview HP Laserjet II output.  Note that
  30. you also need hp2pbm patch level 3.  Note new "ljp" entry in
  31. psrofflib.S to use this functionality.
  32.  
  33. Summary of changes:
  34.     - psroff -n (copies) option changed to -C to avoid groff
  35.       argument clash.
  36.     - psrofflib.S greatly rearranged to aid configuration.
  37.       This will probably cause many rejects if you've previously
  38.       configured psrofflib.  Ignore them, though you may want
  39.       to consider ensuring that you have the optimizer (-Z)
  40.       on in the entries you're using.
  41.     - lj3draw.c would core dump on out of range fill arguments.
  42.     - ljdraw.c would core dump on out of range raster bit diddling.
  43.       Lines out of vertical or horizontal by one pixel (usually
  44.       round off during a polygon) snapped to vertical or
  45.       horizontal.
  46.     - fix to installdit to make groff postprocessors work.
  47.  
  48. ./man/psroff.1.S
  49. ./lib/psrofflib.S
  50. ./widths/installdit.S
  51. ./utils/ljprev.S
  52. ./defs.h
  53. ./psroff.S
  54. ./ljdraw.c
  55. ./lj3draw.c
  56.  
  57. Patchwrapped: 930624225013
  58.  
  59. Index: ./man/psroff.1.S
  60. *** /tmp/PATCHold/./man/psroff.1.S    Thu Jun 24 22:48:13 1993
  61. --- ./man/psroff.1.S    Thu Jun 24 22:48:15 1993
  62. ***************
  63. *** 1,4 ****
  64. ! .\"Copyright 1988 by Chris Lewis 2.11 93/01/10
  65.   .TH PSROFF %%MANEXT%% "Psroff %%T2VERSION%%"
  66.   .SH NAME
  67.   psroff,ljroff,xxroff,catconv \- troff to PostScript or other printers
  68. --- 1,4 ----
  69. ! .\"Copyright 1988 by Chris Lewis 2.12 93/04/19
  70.   .TH PSROFF %%MANEXT%% "Psroff %%T2VERSION%%"
  71.   .SH NAME
  72.   psroff,ljroff,xxroff,catconv \- troff to PostScript or other printers
  73. ***************
  74. *** 5,10 ****
  75. --- 5,11 ----
  76.   .SH SYNOPSIS
  77.   .IB xx roff
  78.   .BI "[\-T" xx "]"
  79. + .BI "[\-C" nn "]"
  80.   .BI "[\-d" ptr "]"
  81.   .BI "[\-rL" length "]"
  82.   .BI "[\-P" prologs "]"
  83. ***************
  84. *** 157,162 ****
  85. --- 158,165 ----
  86.   With
  87.   .B lp
  88.   you may have to consult the printer interface file under /usr/spool/lp/interface.
  89. + .PP
  90. + The ``\-C'' option allows you to set the number of copies you want.
  91.   .PP
  92.   .I Psroff
  93.   can be made to generate several different printer output formats.
  94. Index: ./lib/psrofflib.S
  95. *** /tmp/PATCHold/./lib/psrofflib.S    Thu Jun 24 22:48:27 1993
  96. --- ./lib/psrofflib.S    Thu Jun 24 22:48:29 1993
  97. ***************
  98. *** 1,4 ****
  99. ! #    2.29 92/12/02
  100.   #    This file controls psroff, you can insert additional printer
  101.   #    types here.  These are eval'd *late* in processing, so that
  102.   #    you can insert $copies etc.
  103. --- 1,4 ----
  104. ! #    2.31 93/06/24
  105.   #    This file controls psroff, you can insert additional printer
  106.   #    types here.  These are eval'd *late* in processing, so that
  107.   #    you can insert $copies etc.
  108. ***************
  109. *** 12,17 ****
  110. --- 12,33 ----
  111.   #    with an english description of the configuration.  Find the one[s]
  112.   #    closest to what you want, and modify as necessary.
  113.   #
  114. + #    The entries are divided into groups depending on which troff
  115. + #    you have.  If you have CAT troff, use the entries under
  116. + #    "CAT TROFF SECTION", if you have ditroff, use the entries
  117. + #    under "DITROFF SECTION", and if you have GROFF, use the
  118. + #    entries under "GROFF SECTION".
  119. + #
  120. + #    If you have DITROFF or GROFF, but you can't find a entry close
  121. + #    to what you need, consult the CAT TROFF section, and copy/rename
  122. + #    one.  Note that you have to add -N/-G options etc.
  123. + #
  124. + #    Near the end of the CAT TROFF section, there is an example
  125. + #    of using psroff to drive Epson 24 pin printers via hp2pbm and
  126. + #    pbm2e24.  This should be used as a model for generating output
  127. + #    for any printer that can be "reached" via PBM.  Ie: TIFF, GIF,
  128. + #    formats etc.
  129. + #
  130.   #    Syntax:
  131.   #
  132.   # troff=<path to troff>
  133. ***************
  134. *** 123,128 ****
  135. --- 139,146 ----
  136.   #    the width parameter, -N and -W (if present) options must be
  137.   #    on the same line.
  138.   
  139. + #    ********************** CAT TROFF SECTION
  140. + 
  141.   troff=''
  142.   trofftype='-T$width'
  143.   #    Uncomment the following if you're a Sun or Ultrix -F troff.
  144. ***************
  145. *** 169,181 ****
  146.   #    Laserjet III (built-in fonts, using supplied widths, Univers base)
  147.   lj3u    width=lj3u t2arg='-Tlj3 -plj3u -W%%FONTDIR%%/lj3u'
  148.   lj3u    lparg='| lp -d$ptr -og -n$copies' ptr=laser
  149. - #    Ditroff:
  150. - dlj3    width=lj3 t2arg='-Tlj3 -plj3 -N -W%%FONTDIR%%/lj3'
  151. - dlj3    lparg='| lp -d$ptr -og -n$copies' ptr=laser
  152. - #    Ditroff:
  153. - dlj3u    width=lj3u t2arg='-Tlj3 -plj3u -N -W%%FONTDIR%%/lj3u'
  154. - dlj3u    lparg='| lp -d$ptr -og -n$copies' ptr=laser
  155. - 
  156.   
  157.   #    Deskjet: Only difference is troff2ps library inclusions for deskjet.
  158.   #    (dt.lib has a slightly different prolog)
  159. --- 187,192 ----
  160. ***************
  161. *** 187,194 ****
  162.   
  163.   dt    width=ps t2arg='-Tdt -ddjet' lparg="| cat"
  164.   
  165. - #    Ditroff configurations:
  166. - 
  167.   #    Tpscript output (ditroff drivers, PS widths, dt libraries)
  168.   
  169.   tp    width=ps t2arg='-Tdt -R720 -dalw'
  170. --- 198,203 ----
  171. ***************
  172. *** 239,251 ****
  173.   
  174.   troff=otroff
  175.   xp    width=ps t2arg='-Tdt -dpsc' lparg='| xproof'
  176. ! #
  177.   
  178.   troff=''
  179.   trofftype='-T$width'
  180.   
  181.   #    Ditroff input driving postscript
  182. ! dtps    width=alw t2arg='-O0 -Tps -N -W%%FONTDIR%%/ps' ptr='gate!AppleLaser'
  183.   dtps    lparg='| $LIBDIR/psxlate -r | rlp -d$ptr -n$copies'
  184.   
  185.   #    Ditroff input driving display postscript (ie: IBM RS/6000)
  186. --- 248,287 ----
  187.   
  188.   troff=otroff
  189.   xp    width=ps t2arg='-Tdt -dpsc' lparg='| xproof'
  190. ! 
  191. ! #    Display postscript (the troff assignment probably needs adjustment)
  192. ! #    See MISC file about modifying dpsexec.
  193. ! troff=/usr/local/bin/otroff
  194. ! cdps    v=1 width=ps t2arg='-Tps -S -Z'
  195. ! cdps    lparg="> /tmp/dps$$; %%LIBDIR%%/dodps /tmp/dps$$; rm /tmp/dps$$'
  196. ! 
  197. ! #    Driving a Epson 24 pin printer with hp2pbm/pbm2e24/CAT troff
  198. ! #    The quoting in lparg is very picky.
  199. ! #    Requires that hp2e24 and pbm2e24 are installed in your path.
  200. ! troff=troff
  201. ! trofftype='-T$width'
  202. ! e24    width=lj t2arg='-Tlj -Z -W%%FONTDIR%%/lj'
  203. ! e24    lparg='| hp2e24 -r"| pbm2e24" | lp -d$ptr -og -n$copies' ptr=laser
  204.   
  205. + #    X windows preview - needs hp2pbm/pbm2Xd (both in hp2pbm package)
  206. + #    and xwud (X utility) in your path.
  207. + ljp    width=lj t2arg='-Tlj -Z -W%%FONTDIR%%/lj' lparg='| %%LIBDIR%%/ljprev'
  208. + 
  209.   troff=''
  210.   trofftype='-T$width'
  211.   
  212. + #    ********************** DITROFF SECTION
  213. + 
  214. + #    Ditroff driving HP Laserjet III/IV:
  215. + dlj3    width=lj3 t2arg='-Tlj3 -plj3 -N -W%%FONTDIR%%/lj3 -Z'
  216. + dlj3    lparg='| lp -d$ptr -og -n$copies' ptr=laser
  217. + 
  218. + #    Ditroff driving HP Laserjet III/IV Univers fonts:
  219. + dlj3u    width=lj3u t2arg='-Tlj3 -plj3u -N -W%%FONTDIR%%/lj3u -Z'
  220. + dlj3u    lparg='| lp -d$ptr -og -n$copies' ptr=laser
  221. + 
  222.   #    Ditroff input driving postscript
  223. ! dtps    width=alw t2arg='-O0 -Tps -N -Z -W%%FONTDIR%%/ps' ptr='gate!AppleLaser'
  224.   dtps    lparg='| $LIBDIR/psxlate -r | rlp -d$ptr -n$copies'
  225.   
  226.   #    Ditroff input driving display postscript (ie: IBM RS/6000)
  227. ***************
  228. *** 254,265 ****
  229.   #    is in the MISC file.
  230.   dps    width=psc t2arg='-O0 -Tps -N -W%%FONTDIR%%/ps -S -Z'
  231.   dps    lparg='> /tmp/dps$$ ; %%LIBDIR%%/dodps /tmp/dps$$; rm /tmp/dps$$'
  232.   #    LJ3 widths generating postscript
  233.   dpslj3    width=lj3 t2arg='-O0 -Tps -N -W%%FONTDIR%%/lj3 -S -Z'
  234.   
  235. ! troff=/usr/local/bin/otroff
  236. ! cdps    v=1 width=ps t2arg='-Tps -S -Z'
  237. ! cdps    lparg="> /tmp/dps$$; %%LIBDIR%%/dodps /tmp/dps$$; rm /tmp/dps$$'
  238.   
  239.   #    Using groff (gtroff actually) and driving LJ3:
  240.   #    "make installwidths" installs the width tables and driver
  241. --- 290,300 ----
  242.   #    is in the MISC file.
  243.   dps    width=psc t2arg='-O0 -Tps -N -W%%FONTDIR%%/ps -S -Z'
  244.   dps    lparg='> /tmp/dps$$ ; %%LIBDIR%%/dodps /tmp/dps$$; rm /tmp/dps$$'
  245. + 
  246.   #    LJ3 widths generating postscript
  247.   dpslj3    width=lj3 t2arg='-O0 -Tps -N -W%%FONTDIR%%/lj3 -S -Z'
  248.   
  249. ! #    ********************** GROFF SECTION
  250.   
  251.   #    Using groff (gtroff actually) and driving LJ3:
  252.   #    "make installwidths" installs the width tables and driver
  253. ***************
  254. *** 266,286 ****
  255.   #    entries so that groff -T{lj3,lj3u,lj} will work as well as
  256.   #    psroff -Tg{lj3,lj3u,lj}
  257.   #
  258. ! #    Assumes "standard" install location
  259.   troff=/usr/local/bin/gtroff
  260.   trofftype='-T$width'
  261.   glj3    width=lj3 t2arg='-Tlj3 -plj3 -N -Z -O0 -W%%FONTDIR%%/lj3 -G1'
  262.   glj3    lparg='| lp -og -d$ptr -n$copies' ptr=laser
  263.   #    Univers base:
  264.   glj3u    width=lj3u t2arg='-Tlj3 -plj3u -N -Z -O0 -W%%FONTDIR%%/lj3u -G1'
  265.   glj3u    lparg='| lp -og -d$ptr -n$copies' ptr=laser
  266. ! #    Groff driving HP Laserjet PCL4
  267.   glj    width=lj t2arg='-Tlj -N -Z -O0 -W%%FONTDIR%%/lj -G1'
  268.   glj    lparg='| lp -og -d$ptr -n$copies' ptr=laser
  269. ! #
  270. ! #    Driving a Epson 24 pin printer with hp2pbm/pbm2e24/CAT troff
  271. ! #    The quoting in lparg is very picky.
  272. ! #    Requires that hp2e24 and pbm2e24 are installed in your path.
  273. ! troff=troff
  274. ! trofftype='-T$width'
  275. ! e24    width=lj t2arg=-Tlj lparg='| hp2e24 -r"| pbm2e24" | lp -d$ptr -og -n$copies' ptr=laser
  276. --- 301,325 ----
  277.   #    entries so that groff -T{lj3,lj3u,lj} will work as well as
  278.   #    psroff -Tg{lj3,lj3u,lj}
  279.   #
  280. ! #    Assumes "standard" groff install locations
  281.   troff=/usr/local/bin/gtroff
  282.   trofftype='-T$width'
  283. + 
  284. + #    Roman base:
  285.   glj3    width=lj3 t2arg='-Tlj3 -plj3 -N -Z -O0 -W%%FONTDIR%%/lj3 -G1'
  286.   glj3    lparg='| lp -og -d$ptr -n$copies' ptr=laser
  287. + 
  288.   #    Univers base:
  289.   glj3u    width=lj3u t2arg='-Tlj3 -plj3u -N -Z -O0 -W%%FONTDIR%%/lj3u -G1'
  290.   glj3u    lparg='| lp -og -d$ptr -n$copies' ptr=laser
  291. ! 
  292. ! #    Groff driving HP Laserjet PCL4 (HPLJ IIs)
  293.   glj    width=lj t2arg='-Tlj -N -Z -O0 -W%%FONTDIR%%/lj -G1'
  294.   glj    lparg='| lp -og -d$ptr -n$copies' ptr=laser
  295. ! 
  296. ! #    Groff driving PostScript (this is really only for testing
  297. ! #    purposes.  If you have groff, you have grops, which you should
  298. ! #    use instead.)
  299. ! gps    width=alw t2arg='-Tps -N -Z -O0 -W%%FONTDIR%%/ps -G1'
  300. ! gps    lparg='| lp -d$ptr -n$copies' ptr=laser
  301. ! 
  302. Index: ./widths/installdit.S
  303. *** /tmp/PATCHold/./widths/installdit.S    Thu Jun 24 22:48:42 1993
  304. --- ./widths/installdit.S    Thu Jun 24 22:48:43 1993
  305. ***************
  306. *** 5,11 ****
  307.   #    See the LICENSE file for a full description of the restrictions
  308.   #    under which this software is provided.
  309.   #
  310. ! #1.10 92/11/26
  311.   MAKEDEV=%%MAKEDEV%%
  312.   LIBDIR=%%LIBDIR%%
  313.   if [ "$1" = "-i" ]
  314. --- 5,11 ----
  315.   #    See the LICENSE file for a full description of the restrictions
  316.   #    under which this software is provided.
  317.   #
  318. ! #1.11 93/03/14
  319.   MAKEDEV=%%MAKEDEV%%
  320.   LIBDIR=%%LIBDIR%%
  321.   if [ "$1" = "-i" ]
  322. ***************
  323. *** 123,129 ****
  324.           chmod 644 $destdir/DESC
  325.           echo "   installing groff postprocessor in $LIBDIR"
  326.           rm -f $groffpostpro
  327. !         echo "$LIBDIR/troff2ps $t2arg" > $groffpostpro
  328.           chmod 755 $groffpostpro
  329.           fi
  330.       fi
  331. --- 123,129 ----
  332.           chmod 644 $destdir/DESC
  333.           echo "   installing groff postprocessor in $LIBDIR"
  334.           rm -f $groffpostpro
  335. !         echo "$LIBDIR/troff2ps $t2arg \$@" > $groffpostpro
  336.           chmod 755 $groffpostpro
  337.           fi
  338.       fi
  339. Index: ./utils/ljprev.S
  340. *** /tmp/PATCHold/./utils/ljprev.S    Thu Jun 24 22:48:51 1993
  341. --- ./utils/ljprev.S    Thu Jun 24 22:48:53 1993
  342. ***************
  343. *** 0 ****
  344. --- 1,27 ----
  345. + %%STARTSHELL%%
  346. + #    Copyright 1985, 1986, 1987, 1988, 1989, 1990, 1991 Chris Lewis
  347. + #        All Rights Reserved
  348. + #
  349. + #    See the LICENSE file for a full description of the restrictions
  350. + #    under which this software is provided.
  351. + #
  352. + #    Function: laserjet to X previewer - just run HPLJ PCL4 into
  353. + #    standard input.  Needs hp2pbm, pbm2Xd and xwud in your path.
  354. + #@(#)ljprev 1.1 93/06/24
  355. + if [ -n "$1" ]
  356. + then
  357. +         file=$1
  358. + else
  359. +         cat - > /tmp/$$
  360. +         file=/tmp/$$
  361. +         delete=$file
  362. + fi
  363. + hp2pbm -r/tmp/$$ -d100 < $file
  364. + for i in /tmp/$$.[0-9]*
  365. + do
  366. +     pbm2Xd < $i > /tmp/$$.R
  367. +     rm $i
  368. +     xwud -in /tmp/$$.R
  369. + done
  370. + rm /tmp/$$.* $delete
  371. + 
  372. Index: ./defs.h
  373. *** /tmp/PATCHold/./defs.h    Thu Jun 24 22:49:02 1993
  374. --- ./defs.h    Thu Jun 24 22:49:04 1993
  375. ***************
  376. *** 9,15 ****
  377.    */
  378.   
  379.   /*    Official Release and Patch level:    */
  380. ! #define    T2VERSION    "@(#)PSROFF Copyright 93/02/21 Chris Lewis - R3 PL16"
  381.   
  382.   /*    Configuration parameters:
  383.    */
  384. --- 9,15 ----
  385.    */
  386.   
  387.   /*    Official Release and Patch level:    */
  388. ! #define    T2VERSION    "@(#)PSROFF Copyright 93/06/18 Chris Lewis - R3 PL17"
  389.   
  390.   /*    Configuration parameters:
  391.    */
  392. Index: ./psroff.S
  393. *** /tmp/PATCHold/./psroff.S    Thu Jun 24 22:49:34 1993
  394. --- ./psroff.S    Thu Jun 24 22:49:35 1993
  395. ***************
  396. *** 7,13 ****
  397.   #
  398.   #    Specs:        troff2ps driver
  399.   #
  400. ! #ident  "@(#)psroff.sh: 2.29 Copyright 93/03/08 19:42:10 Chris Lewis"
  401.   
  402.   LIBDIR="%%LIBDIR%%"
  403.   FONTDIR="%%FONTDIR%%"
  404. --- 7,13 ----
  405.   #
  406.   #    Specs:        troff2ps driver
  407.   #
  408. ! #ident  "@(#)psroff.sh: 2.30 Copyright 93/04/19 08:55:29 Chris Lewis"
  409.   
  410.   LIBDIR="%%LIBDIR%%"
  411.   FONTDIR="%%FONTDIR%%"
  412. ***************
  413. *** 53,59 ****
  414.       -d*)
  415.           sptr=`echo $i | sed -e 's/-d//'`
  416.           ;;
  417. !     -n*)
  418.           copies=`echo $i | sed -e 's/-n//'`
  419.           ;;
  420.       -D* | -M | -R* | -O* | -P* | -Z | -Y* )
  421. --- 53,59 ----
  422.       -d*)
  423.           sptr=`echo $i | sed -e 's/-d//'`
  424.           ;;
  425. !     -C*)
  426.           copies=`echo $i | sed -e 's/-n//'`
  427.           ;;
  428.       -D* | -M | -R* | -O* | -P* | -Z | -Y* )
  429. Index: ./ljdraw.c
  430. *** /tmp/PATCHold/./ljdraw.c    Thu Jun 24 22:49:45 1993
  431. --- ./ljdraw.c    Thu Jun 24 22:49:47 1993
  432. ***************
  433. *** 32,38 ****
  434.   
  435.   #ifndef    lint
  436.   static char SCCSid[] =
  437. !     "@(#)ljdraw.c: 1.7 Copyright 93/01/17 22:36:34 Chris Lewis";
  438.   #endif
  439.   
  440.   static int ljLine(), ljPos(), lineseg();
  441. --- 32,38 ----
  442.   
  443.   #ifndef    lint
  444.   static char SCCSid[] =
  445. !     "@(#)ljdraw.c: 1.10 Copyright 93/06/24 22:26:51 Chris Lewis";
  446.   #endif
  447.   
  448.   static int ljLine(), ljPos(), lineseg();
  449. ***************
  450. *** 99,105 ****
  451.           ctindex = 1;
  452.           if (!require(1, ctindex, "set thick", saves)) {
  453.           curthick = numbers[0] / 2;
  454. !         if (curthick < 1)
  455.               curthick = 1;
  456.           DBP((D_PIC, "THICK: %d\n", curthick));
  457.           }
  458. --- 99,105 ----
  459.           ctindex = 1;
  460.           if (!require(1, ctindex, "set thick", saves)) {
  461.           curthick = numbers[0] / 2;
  462. !         if (curthick < 0)
  463.               curthick = 1;
  464.           DBP((D_PIC, "THICK: %d\n", curthick));
  465.           }
  466. ***************
  467. *** 180,185 ****
  468. --- 180,186 ----
  469.   int curx, cury, ctindex;
  470.   short *numbers; {
  471.       int i;
  472. +     int origx = curx, origy = cury;
  473.   
  474.       DBP((D_PIC, "ljPoly\n"));
  475.   
  476. ***************
  477. *** 188,193 ****
  478. --- 189,196 ----
  479.       curx += numbers[i];
  480.       cury += numbers[i+1];
  481.       }
  482. +     if (origx != curx || origy != cury)
  483. +     ljLine(curx, cury, origx, origy);
  484.   
  485.   }
  486.   
  487. ***************
  488. *** 288,300 ****
  489.       ljCircle (x1, y0, curthick, drawDot, 0);
  490.   }
  491.   
  492.   static
  493.   ljLine(x0, y0, x1, y1)
  494.   register int x0, y0, x1, y1; {
  495. !     DBP((D_PIC, "ljLine: (%d,%d)..(%d,%d), curthick: %d\n", x0, y0, x1, y1, curthick));
  496. !     if (y0 == y1)
  497.       ljHorLine(x0, y0, x1);
  498. !     else if (x0 == x1)
  499.       ljVerLine(x0, y0, y1);
  500.       else
  501.       ljHLine(x0, y0, x1, y1);
  502. --- 291,313 ----
  503.       ljCircle (x1, y0, curthick, drawDot, 0);
  504.   }
  505.   
  506. + /*    if the X or Y delta of the line is less
  507. +     than JAGGYFUDGE (300ths), draw true horizontal
  508. +     or vertical lines.  This is both a space saver,
  509. +     and a eyesweetness improvement on almost vertical
  510. +     or horizontal lines.  Any larger than 1, you'll
  511. +     start seeing gouges in curves.
  512. +  */
  513. + #define JAGGYFUDGE    1
  514. + 
  515.   static
  516.   ljLine(x0, y0, x1, y1)
  517.   register int x0, y0, x1, y1; {
  518. !     DBP((D_PIC, "ljLine: (%d,%d)..(%d,%d), curthick: %d\n",
  519. !     x0, y0, x1, y1, curthick));
  520. !     if (y0 >= y1 - JAGGYFUDGE && y0 <= y1 + JAGGYFUDGE)
  521.       ljHorLine(x0, y0, x1);
  522. !     else if (x0 >= x1 - JAGGYFUDGE && x0 <= x1 + JAGGYFUDGE)
  523.       ljVerLine(x0, y0, y1);
  524.       else
  525.       ljHLine(x0, y0, x1, y1);
  526. ***************
  527. *** 781,786 ****
  528. --- 794,801 ----
  529.   
  530.   setbit(x, y)
  531.   register int x, y; {
  532. +     if (y < 0 || y >= numy || x < 0 || x >= numx)
  533. +     return;
  534.       if (!ljraster[y])
  535.       return;
  536.       ljraster[y][x >> 3] |= (0x80 >> (x & 0x7));
  537. ***************
  538. *** 788,793 ****
  539. --- 803,810 ----
  540.   
  541.   clearbit(x, y)
  542.   register int x, y; {
  543. +     if (y < 0 || y >= numy || x < 0 || x >= numx)
  544. +     return;
  545.       if (!ljraster[y])
  546.       return;
  547.       ljraster[y][x >> 3] &= ~(0x80 >> (x & 0x7));
  548. Index: ./lj3draw.c
  549. *** /tmp/PATCHold/./lj3draw.c    Thu Jun 24 22:50:00 1993
  550. --- ./lj3draw.c    Thu Jun 24 22:50:01 1993
  551. ***************
  552. *** 29,35 ****
  553.   
  554.   #ifndef    lint
  555.   static char SCCSid[] =
  556. !     "@(#)lj3draw.c: 1.5 Copyright 92/12/22 02:16:58 Chris Lewis";
  557.   #endif
  558.   
  559.   #define to_deg(a)    ((180.0/M_PI) * (a))
  560. --- 29,35 ----
  561.   
  562.   #ifndef    lint
  563.   static char SCCSid[] =
  564. !     "@(#)lj3draw.c: 1.6 Copyright 93/06/18 21:56:10 Chris Lewis";
  565.   #endif
  566.   
  567.   #define to_deg(a)    ((180.0/M_PI) * (a))
  568. ***************
  569. *** 99,112 ****
  570.           if (!require(1, ctindex, "set fill", s)) {
  571.               DBP((D_PIC, "lj3Draw: fill: %d\n", numbers[0]));
  572.   
  573. !         if ((numbers[0] < 0) || (numbers[0] > 1000))
  574. !             fprintf(stderr, "%s: fill %d out of range [0,1000]\n",
  575. !             numbers[0]);
  576. !         else {
  577. !             ENTER_HPGL2;
  578. !                 printf("FT10,%d;",(100-(numbers[0]/10)));
  579. !             EXIT_HPGL2;
  580. !         }
  581.           }
  582.           return;
  583.       case 't':
  584. --- 99,115 ----
  585.           if (!require(1, ctindex, "set fill", s)) {
  586.               DBP((D_PIC, "lj3Draw: fill: %d\n", numbers[0]));
  587.   
  588. !                 if ((numbers[0] < 0) || (numbers[0] > 1000)) {
  589. !                     fprintf(stderr, "%s: fill %d out of range [0,1000]\n",
  590. !                         progname, numbers[0]);
  591. !                     if (numbers[0] < 0)
  592. !                         numbers[0] = 0;
  593. !                     else
  594. !                         numbers[0] = 1000;
  595. !                 }
  596. !                 ENTER_HPGL2;
  597. !                 printf("FT10,%d;",(100-(numbers[0]/10)));
  598. !                 EXIT_HPGL2;
  599.           }
  600.           return;
  601.       case 't':
  602. ***************
  603. *** 113,119 ****
  604.           if (ctindex == 2)
  605.           ctindex = 1;
  606.           if (!require(1, ctindex, "set thick", s)) {
  607. !             DBP((D_PIC, "lj3Draw: thich: %d\n", numbers[0]));
  608.           ENTER_HPGL2;
  609.           /* width 1 = 1mm */
  610.               printf("\033%%1BPW%.2f;\033%%0A\n", 
  611. --- 116,123 ----
  612.           if (ctindex == 2)
  613.           ctindex = 1;
  614.           if (!require(1, ctindex, "set thick", s)) {
  615. !         if (numbers[0] < 0) numbers[0] = 1;
  616. !             DBP((D_PIC, "lj3Draw: thick: %d\n", numbers[0]));
  617.           ENTER_HPGL2;
  618.           /* width 1 = 1mm */
  619.               printf("\033%%1BPW%.2f;\033%%0A\n", 
  620.