home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / unix / volume26 / psroff30 / patch8 < prev    next >
Encoding:
Text File  |  1992-04-18  |  53.8 KB  |  1,864 lines
  1. Newsgroups: comp.sources.unix
  2. From: clewis@ferret.ocunix.on.ca (Chris Lewis)
  3. Subject: v26i015: psroff 3.0, Patch08
  4. Sender: unix-sources-moderator@pa.dec.com
  5. Approved: vixie@pa.dec.com
  6.  
  7. Submitted-By: clewis@ferret.ocunix.on.ca (Chris Lewis)
  8. Posting-Number: Volume 26, Issue 15
  9. Archive-Name: psroff3.0/patch8
  10.  
  11.     This is official patch 08 for Psroff 3.0.
  12.     Please apply it by:
  13.     cd <psroff source directory>
  14.     touch ljdraw.c lj3draw.c    (not necessary for most versions of
  15.                     patch, but some need it)
  16.     patch -N -p < <this file>
  17.  
  18.     Please read the notes below before recompilation.  This
  19.     is a biggie - graphics support on LJ's, and I thought
  20.     I'd get it out before it got any worse ;-)
  21.     
  22.     The base release of psroff3.0 and previous patches were in
  23.     comp.sources.unix volume 24 and 25.
  24.  
  25.     Major changes:
  26.     1) Support for vertical and horizontal lines (\D) when driving
  27.        HP Laserjets and II's.  Now groff users can use tbl and
  28.        get boxes to work on II's and prior.
  29.     2) Full \D support on HP LJ III's - eg: full pic support on
  30.        III's from ditroff.  This is done by popping into HPGL
  31.        mode.  This has also necessitated adding a lj3 driver
  32.        type into troff2ps.  If you are driving a lj3, make sure
  33.        your psrofflib entry has -Tlj3 instead of -Tlj.
  34.        Thanks to David Wexelblat.
  35.     3) asc2ps/psxlate now compiles and works under VMS - define VMS
  36.        in defs.h first.
  37.     4) Improved documentation in defs.h and Makefile for configuration.
  38.        Read them before rebuilding - ESPECIALLY if Apollo.
  39.     5) Had SHELL assignment in submakes.  Apollos compile better.
  40.        (maybe Sonys too)  Lessening need for zap program.
  41.  
  42. Incidentally, psroff is reaching the limits of the functionality I
  43. think it should have.  I'm starting to contemplate doing a full rerelease
  44. as Psroff 4.0.  This would have a patch independent configuration,
  45. integrated hp2pbm and psnup.  Patch 9 will have a replacement for
  46. "make check" that does a FAR better job at figuring out your configuration
  47. than the current one can.  It will also have the rest of the drawing
  48. functionality for non-III LJ's.  Then we'll just shake the thing out
  49. a bit more and rerelease.
  50.  
  51. If you have trouble configuring psroff before patch 9 comes out, ask me
  52. for a copy of "checker".
  53.  
  54.     clewis@ferret.ocunix.on.ca (Chris Lewis)
  55.  
  56. ./lib/lj3.lib        HPGL mode initialization
  57. ./lib/psrofflib.S    switch lj3 emission over to -Tlj3 to troff2ps
  58.             (you may reject here.  All you need to do is
  59.             change -Tlj to -Tlj3)
  60. ./utils/psxlate.c    VMS support
  61. ./utils/asc2ps.c    VMS support
  62. ./lj.h            graphics stuff
  63. ./utils.c        Commoned "require" routine
  64. ./ps.c            Commoned "require" routine
  65. ./defs.h        PL8, lj3draw support
  66. ./INSTALL        Documentation improvements
  67. ./TROUBLE        Documentation improvements
  68. ./Makefile        Documentation improvements/lj*draw inclusions/SHELL
  69. ./t2conf.c        lj3 driver/draw.
  70. ./opt.c            SVR4 compiler complaints
  71. ./lj.c            graphics
  72. ./makeincl.S        SHELL
  73. ./ljdraw.c        LJ/LJII graphics driver (hor and vert lines only yet)
  74. ./debug.c        SVR4 compiler complaints
  75. ./lj3draw.c        LJIII graphics driver
  76.  
  77. Patchwrapped: 920123145338
  78.  
  79. Index: ./lib/lj3.lib
  80. *** /tmp/PATCHold/./lib/lj3.lib    Thu Jan 23 14:49:43 1992
  81. --- ./lib/lj3.lib    Thu Jan 23 14:49:44 1992
  82. ***************
  83. *** 29,36 ****
  84.   %            \xAABB \022 A %hello
  85.   %            Passes the following bytes: 0xAA, 0xBB, 022, and "A"
  86.   %            through to the laserjet.
  87. ! %ident  @(#)lj3.lib: 2.1 Copyright 90/07/18 16:52:26 Chris Lewis"
  88. ! \033E\033&k2G            %reset printer, set CR=CR,LF=CRLF,FF=CRFF */
  89. ! \033&l6d66p0o0e66f0L        %letter size, portrait, no perf skip */
  90. ! \0339                %reset side margins */
  91. ! \033&a0r0C            %move cursor to 0,0 */
  92. --- 29,43 ----
  93.   %            \xAABB \022 A %hello
  94.   %            Passes the following bytes: 0xAA, 0xBB, 022, and "A"
  95.   %            through to the laserjet.
  96. ! %ident  @(#)lj3.lib: 2.2 Copyright 92/01/23 14:27:59 Chris Lewis"
  97. ! \033E\033&k2G            %reset printer, set CR=CR,LF=CRLF,FF=CRFF 
  98. ! \033&l6d66p0o0e66f0L        %letter size, portrait, no perf skip
  99. ! \0339                %reset side margins
  100. ! \033&a0h0V            %move cursor to 0,0
  101. ! \033*c6120x7920y0T\033\045 1B    %set HP-GL/2 picture frame, go to HP-GL/2
  102. ! IN;WU0;LW0.5;SP1;        %initialize, pen widths in MM, 0.5MM for pen 1
  103. ! LA1,4,2,4;            %set round line caps & joins
  104. ! TR0;                %set transparency mode off
  105. ! IP0,11176,8636,0;        %set orientation to match PCL
  106. ! SC0,2550,0,3300;PU0,0;        %scale HP-GL/2 to 300dpi dots like PCL
  107. ! \033\045 1A            %return to PCL mode
  108. Index: ./lib/psrofflib.S
  109. *** /tmp/PATCHold/./lib/psrofflib.S    Thu Jan 23 14:49:53 1992
  110. --- ./lib/psrofflib.S    Thu Jan 23 14:49:55 1992
  111. ***************
  112. *** 1,4 ****
  113. ! #    2.22 91/12/07
  114.   #    This file controls psroff, you can insert additional printer
  115.   #    types here.  These are eval'd *late* in processing, so that
  116.   #    you can insert $copies etc.
  117. --- 1,4 ----
  118. ! #    2.23 92/01/23
  119.   #    This file controls psroff, you can insert additional printer
  120.   #    types here.  These are eval'd *late* in processing, so that
  121.   #    you can insert $copies etc.
  122. ***************
  123. *** 157,172 ****
  124.   
  125.   #    Laserjet III (built-in fonts, using supplied widths, Times base)
  126.   
  127. ! lj3    width=lj3 t2arg='-Tlj -plj3 -W%%FONTDIR%%/lj3'
  128.   lj3    lparg='| lp -d$ptr -og -n$copies' ptr=laser
  129.   #    Laserjet III (built-in fonts, using supplied widths, Univers base)
  130. ! lj3u    width=lj3u t2arg='-Tlj -plj3u -W%%FONTDIR%%/lj3u'
  131.   lj3u    lparg='| lp -d$ptr -og -n$copies' ptr=laser
  132.   #    Ditroff:
  133. ! dlj3    width=lj3 t2arg='-Tlj -plj3 -N -W%%FONTDIR%%/lj3'
  134.   dlj3    lparg='| lp -d$ptr -og -n$copies' ptr=laser
  135.   #    Ditroff:
  136. ! dlj3u    width=lj3u t2arg='-Tlj -plj3u -N -W%%FONTDIR%%/lj3u'
  137.   dlj3u    lparg='| lp -d$ptr -og -n$copies' ptr=laser
  138.   
  139.   
  140. --- 157,172 ----
  141.   
  142.   #    Laserjet III (built-in fonts, using supplied widths, Times base)
  143.   
  144. ! lj3    width=lj3 t2arg='-Tlj3 -plj3 -W%%FONTDIR%%/lj3'
  145.   lj3    lparg='| lp -d$ptr -og -n$copies' ptr=laser
  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. ***************
  158. *** 259,263 ****
  159.   #    width directories/devlj3 for this to work.
  160.   troff=gtroff
  161.   trofftype='-T$width'
  162. ! glj3    width=lj3 t2args='-Tlj -plj3 -N -Z -O0 -W%%FONTDIR%%/lj3 -G1'
  163.   glj3    lparg='lp -og -d$ptr -n$copies' ptr=laser
  164. --- 259,263 ----
  165.   #    width directories/devlj3 for this to work.
  166.   troff=gtroff
  167.   trofftype='-T$width'
  168. ! glj3    width=lj3 t2args='-Tlj3 -plj3 -N -Z -O0 -W%%FONTDIR%%/lj3 -G1'
  169.   glj3    lparg='lp -og -d$ptr -n$copies' ptr=laser
  170. Index: ./utils/psxlate.c
  171. *** /tmp/PATCHold/./utils/psxlate.c    Thu Jan 23 14:50:09 1992
  172. --- ./utils/psxlate.c    Thu Jan 23 14:50:11 1992
  173. ***************
  174. *** 23,29 ****
  175.    */
  176.   #ifndef    lint
  177.   static char SCCSid[] =
  178. !     "@(#)psxlate.c: 2.18 Copyright 91/12/21 13:13:44 Chris Lewis";
  179.   #endif
  180.   
  181.   #ifdef    ALONE
  182. --- 23,29 ----
  183.    */
  184.   #ifndef    lint
  185.   static char SCCSid[] =
  186. !     "@(#)psxlate.c: 2.19 Copyright 92/01/23 14:22:16 Chris Lewis";
  187.   #endif
  188.   
  189.   #ifdef    ALONE
  190. ***************
  191. *** 66,72 ****
  192. --- 66,76 ----
  193.   
  194.   char shuffle[100];
  195.   
  196. + #ifdef VMS
  197. + char tmp[] = {"SYS$SCRATCH:psxXXXXXX.tmp"};
  198. + #else
  199.   char tmp[] = {"/tmp/psxXXXXXX"};
  200. + #endif /* ifdef VMS */
  201.   
  202.   int pagecnt = 0;
  203.   char *progname;
  204. ***************
  205. *** 74,80 ****
  206. --- 78,88 ----
  207.   char *mygets();
  208.   
  209.   #ifndef    LIBDIR
  210. + #ifdef VMS
  211. + #define    LIBDIR    "PSROFF_POSTSCRIPT"
  212. + #else
  213.   #define    LIBDIR    "/usr/lib/troff2"
  214. + #endif /* ifdef VMS */
  215.   #endif
  216.   
  217.   char    cmdbuffer[BUFFERSIZE];    /* for psnup stuff */
  218. ***************
  219. *** 94,99 ****
  220. --- 102,113 ----
  221.       char *si = shuffle;
  222.       long offset, oldoffset;
  223.   
  224. + #ifdef VMS
  225. +     if(!shell$is_shell())
  226. +       shell_mung(&argc,&argv,0,"n-p-s-");
  227. + #endif /* ifdef VMS */
  228. + 
  229. + 
  230.       progname = argv[0];
  231.   
  232.   
  233. ***************
  234. *** 144,156 ****
  235. --- 158,178 ----
  236.           progname, startspot, pages - 1, pages);
  237.           psnupok = 0;
  238.       }
  239. + #ifdef VMS
  240. +     sprintf(cmdbuffer, "%s:nup.pro", LIBDIR);
  241. + #else
  242.       sprintf(cmdbuffer, "%s/nup.pro", LIBDIR);
  243. + #endif /* ifdef VMS */
  244.       if (access(cmdbuffer, 4) != 0) {
  245.           fprintf(stderr, "%s: can't do n-up (no nup.pro at %s)\n",
  246.           progname, cmdbuffer);
  247.           psnupok = 0;
  248.       }
  249. + #ifdef VMS
  250. +     sprintf(cmdbuffer, "%s:nup.epi", LIBDIR);
  251. + #else
  252.       sprintf(cmdbuffer, "%s/nup.epi", LIBDIR);
  253. + #endif /* ifdef VMS */
  254.       if (access(cmdbuffer, 4) != 0) {
  255.           fprintf(stderr, "%s: can't do n-up (no nup.epi at %s)\n",
  256.           progname, cmdbuffer);
  257. ***************
  258. *** 326,332 ****
  259. --- 348,358 ----
  260.   
  261.   cleanup() {
  262.       if (!debug)
  263. + #ifdef VMS
  264. +         delete(tmp);
  265. + #else
  266.       unlink(tmp);
  267. + #endif /* ifdef VMS */
  268.   }
  269.   
  270.   emit(fname)
  271. ***************
  272. *** 342,348 ****
  273. --- 368,378 ----
  274.       fputs(magicstr, stdout);
  275.   
  276.       if (psnupwanted) {
  277. + #ifdef VMS
  278. +     sprintf(cmdbuffer, "%s:nup.pro", LIBDIR);
  279. + #else
  280.       sprintf(cmdbuffer, "%s/nup.pro", LIBDIR);
  281. + #endif /* ifdef VMS */
  282.       emitnup(cmdbuffer, 1);
  283.       }
  284.   
  285. ***************
  286. *** 362,368 ****
  287. --- 392,402 ----
  288.       emitsect(file, &epilog);
  289.   
  290.       if (psnupwanted) {
  291. + #ifdef VMS
  292. +     sprintf(cmdbuffer, "%s:nup.epi", LIBDIR);
  293. + #else
  294.       sprintf(cmdbuffer, "%s/nup.epi", LIBDIR);
  295. + #endif /* ifdef VMS */
  296.       emitnup(cmdbuffer, 0);
  297.       }
  298.   
  299. Index: ./utils/asc2ps.c
  300. *** /tmp/PATCHold/./utils/asc2ps.c    Thu Jan 23 14:50:23 1992
  301. --- ./utils/asc2ps.c    Thu Jan 23 14:50:25 1992
  302. ***************
  303. *** 14,20 ****
  304.   
  305.   #ifndef    lint
  306.   static char SCCSid[] =
  307. !     "@(#)asc2ps.c: 2.5 Copyright 91/05/25 21:27:18 Chris Lewis";
  308.   #endif
  309.   
  310.   #ifndef    STANDALONE
  311. --- 14,20 ----
  312.   
  313.   #ifndef    lint
  314.   static char SCCSid[] =
  315. !     "@(#)asc2ps.c: 2.6 Copyright 92/01/23 14:22:06 Chris Lewis";
  316.   #endif
  317.   
  318.   #ifndef    STANDALONE
  319. ***************
  320. *** 118,123 ****
  321. --- 118,128 ----
  322.       extern char *optarg;
  323.       char buffer[BUFLEN];
  324.   
  325. + #ifdef VMS
  326. +     if(!shell$is_shell())
  327. +       shell_mung(&argc,&argv,0,"s-");
  328. + #endif /* ifdef VMS */
  329. + 
  330.       progname = argv[0];
  331.   
  332.       while((c = getopt(argc, argv, "plPLis:")) != EOF)
  333. ***************
  334. *** 203,208 ****
  335. --- 208,217 ----
  336.   char nodename[25];
  337.   
  338.   getnodename() {
  339. + 
  340. + #ifdef VMS
  341. +     strcpy(nodename, "<nodename>"); /* ignore getsyi("nodename") */
  342. + #else
  343.       FILE *uuname;
  344.       if ((uuname = popen(NODECMD, "r")) == NULL)
  345.       strcpy(nodename, "<noname>");
  346. ***************
  347. *** 210,220 ****
  348. --- 219,234 ----
  349.       fscanf(uuname, "%s", nodename);
  350.       pclose(uuname);
  351.       }
  352. + #endif /* ifdef VMS */
  353.   }
  354.   
  355.   doprolog() {
  356.       extern char *ctime();
  357. + #ifdef VMS   /* dont worry about getjpi("","username") */ 
  358. + #define getlogin() "<username>"
  359. + #else
  360.       extern char *getlogin();
  361. + #endif /* ifdef VMS */
  362.       extern char *strchr();
  363.       long curtime;
  364.       register char *tp;
  365. Index: ./lj.h
  366. *** /tmp/PATCHold/./lj.h    Thu Jan 23 14:50:35 1992
  367. --- ./lj.h    Thu Jan 23 14:50:36 1992
  368. ***************
  369. *** 8,17 ****
  370.       Function:        Laserjet Driver definitions
  371.    */
  372.   
  373. ! /* 2.2 91/02/20 */
  374.   
  375. ! /*    We're using decipoints */
  376. ! #define    LJRESOLUTION    720
  377.   
  378.   /*    Troff assumes 7.5" paper width, most macro packages print in
  379.       6.5" area within that.  Sooo, we'll center the paperwidth on the
  380. --- 8,17 ----
  381.       Function:        Laserjet Driver definitions
  382.    */
  383.   
  384. ! /* 2.3 92/01/12 */
  385.   
  386. ! /*    We're using dots now */
  387. ! #define    LJRESOLUTION    300
  388.   
  389.   /*    Troff assumes 7.5" paper width, most macro packages print in
  390.       6.5" area within that.  Sooo, we'll center the paperwidth on the
  391. ***************
  392. *** 21,27 ****
  393.   /*    11" paper length */
  394.   #define    TROFF2LJY(y) (((long) (y)+pageyoffset)*LJRESOLUTION/TROFFRESOLUTION)
  395.   
  396. ! extern int ljProlog(), ljEpilog(), ljChar(), ljPage();
  397.   
  398.   extern struct troff2befont ljSymFont[], ljStdFont[];
  399.   
  400. --- 21,27 ----
  401.   /*    11" paper length */
  402.   #define    TROFF2LJY(y) (((long) (y)+pageyoffset)*LJRESOLUTION/TROFFRESOLUTION)
  403.   
  404. ! extern int ljProlog(), ljEpilog(), ljChar(), ljPage(), ljDraw();
  405.   
  406.   extern struct troff2befont ljSymFont[], ljStdFont[];
  407.   
  408. Index: ./utils.c
  409. *** /tmp/PATCHold/./utils.c    Thu Jan 23 14:50:46 1992
  410. --- ./utils.c    Thu Jan 23 14:50:48 1992
  411. ***************
  412. *** 12,18 ****
  413.   
  414.   #ifndef    lint
  415.   static char SCCSid[] =
  416. !     "@(#)utils.c: 2.22 Copyright 91/12/26 17:58:48 Chris Lewis";
  417.   #endif
  418.   
  419.   #ifndef    HEADERSIZE
  420. --- 12,18 ----
  421.   
  422.   #ifndef    lint
  423.   static char SCCSid[] =
  424. !     "@(#)utils.c: 2.23 Copyright 92/01/12 03:55:40 Chris Lewis";
  425.   #endif
  426.   
  427.   #ifndef    HEADERSIZE
  428. ***************
  429. *** 589,591 ****
  430. --- 589,604 ----
  431.       }
  432.       return(opcode);
  433.   }
  434. + 
  435. + #ifdef    INSPECIAL
  436. + require(need, have, cmd, string)
  437. + int need, have;
  438. + char *cmd, *string; {
  439. +     if (need != have) {
  440. +     fprintf(stderr, "%s: need %d argument%s to draw a %s (%s)\n",
  441. +         progname, need, need == 1? "": "s", cmd, string);
  442. +     return(1);
  443. +     } else
  444. +     return(0);
  445. + }
  446. + #endif
  447. Index: ./ps.c
  448. *** /tmp/PATCHold/./ps.c    Thu Jan 23 14:51:01 1992
  449. --- ./ps.c    Thu Jan 23 14:51:06 1992
  450. ***************
  451. *** 15,21 ****
  452.   
  453.   #ifndef    lint
  454.   static char SCCSid[] =
  455. !     "@(#)ps.c: 2.17 Copyright 91/11/22 03:56:10 Chris Lewis";
  456.   #endif
  457.   
  458.   /*    ps.c will generate some additional "print" commands to cause
  459. --- 15,21 ----
  460.   
  461.   #ifndef    lint
  462.   static char SCCSid[] =
  463. !     "@(#)ps.c: 2.18 Copyright 92/01/12 03:55:46 Chris Lewis";
  464.   #endif
  465.   
  466.   /*    ps.c will generate some additional "print" commands to cause
  467. ***************
  468. *** 463,468 ****
  469. --- 463,469 ----
  470.       emitnum(val);
  471.       putchar(' ');
  472.   }
  473. + 
  474.   emitnum(val)
  475.   register int val; {
  476.       register int neg;
  477. ***************
  478. *** 480,485 ****
  479. --- 481,487 ----
  480.       if (val)
  481.       printf(".%d", val);
  482.   }
  483. + 
  484.   putnl(s)
  485.   char *s; {
  486.       fputs(s, stdout);
  487. ***************
  488. *** 595,612 ****
  489.   }
  490.   
  491.   #ifdef    INSPECIAL
  492. - 
  493. - static
  494. - require(need, have, cmd, string)
  495. - int need, have;
  496. - char *cmd, *string; {
  497. -     if (need != have) {
  498. -     fprintf(stderr, "%s: need %d argument%s to draw a %s (%s)\n",
  499. -         progname, need, need == 1? "": "s", cmd, string);
  500. -     return(1);
  501. -     } else
  502. -     return(0);
  503. - }
  504.   
  505.   /*    Do ditroff drawing command in s from origX,origY.
  506.       If opcode 0 just moveto
  507. --- 597,602 ----
  508. Index: ./defs.h
  509. *** /tmp/PATCHold/./defs.h    Thu Jan 23 14:51:26 1992
  510. --- ./defs.h    Thu Jan 23 14:51:28 1992
  511. ***************
  512. *** 9,15 ****
  513.    */
  514.   
  515.   /*    Official Release and Patch level:    */
  516. ! #define    T2VERSION    "@(#)PSROFF Copyright 91/12/26 Chris Lewis - R3 PL7"
  517.   
  518.   /*    Configuration parameters:
  519.    */
  520. --- 9,15 ----
  521.    */
  522.   
  523.   /*    Official Release and Patch level:    */
  524. ! #define    T2VERSION    "@(#)PSROFF Copyright 92/01/23 Chris Lewis - R3 PL8"
  525.   
  526.   /*    Configuration parameters:
  527.    */
  528. ***************
  529. *** 26,32 ****
  530.               /* a bcopy in your library */
  531.   
  532.   #undef    REGSPILL    /* Define if your compiler gives "infinite register
  533. !                spill in utils/psxlate.c (Xenix III) */
  534.       
  535.   
  536.   /*    The name of a routine that can be called thusly:
  537. --- 26,32 ----
  538.               /* a bcopy in your library */
  539.   
  540.   #undef    REGSPILL    /* Define if your compiler gives "infinite register
  541. !                spill" in utils/psxlate.c (Xenix III) */
  542.       
  543.   
  544.   /*    The name of a routine that can be called thusly:
  545. ***************
  546. *** 45,63 ****
  547.   /* If you have the stand-alone pk2sfp distribution, do not touch
  548.      anything from here on */
  549.   
  550. ! /*    Font width file configuration:
  551.   
  552. !     - If HEADERSIZE defined, use that many bytes as a prefix to the
  553. !       compiled font width table.  HEADERSIZE 0 is the correct definition
  554. !       for Xenix and most System V [o]troffs.  HEADERSIZE=32 works for Ultrix
  555. !       (except RISC, see below).  HEADERSIZE=32 works properly for most Suns.
  556. !     - If neither are defined, use a BSD/V7 style a.out.h header, this
  557. !       is appropriate for V7 and BSD troffs
  558. !     - If you are running RISC/Ultrix (Mips box? from DEC) define
  559. !       ASCIIWIDTHS, and the rest of this stuff will be ignored - Mips
  560. !       apparently changed their width table format to an ASCII form,
  561. !       and DEC picked it up.  In this case IGNORE any messages about
  562. !       HEADERSIZE from "make check".
  563.   
  564.       The headers I write will have something in them if HEADERSIZE > 0
  565.       and there's a font file from your original troff distribution in
  566. --- 45,76 ----
  567.   /* If you have the stand-alone pk2sfp distribution, do not touch
  568.      anything from here on */
  569.   
  570. ! /*    Font width file configuration (applicable to CAT troff):
  571.   
  572. !     1) if the /usr/lib/font/ftR file in your original troff
  573. !        installation is 224 bytes long, set HEADERSIZE to 0.
  574. !        Most Xenix.
  575. ! 
  576. !     2) If the size of /usr/lib/font/ftR is > 224, and your system
  577. !        uses a.out.h headers on executable binaries, HEADERSIZE
  578. !        should be the size of the a.out header.  Usually 32.
  579. !        (Ie: SunOS, VAX/Ultrix)
  580. ! 
  581. !     3) If the size of /usr/lib/font/ftR is large (around 1K), chances
  582. !        are that your system uses COFF headers on font files.
  583. !        HEADERSIZE should be set to the offset of the data section
  584. !        within /usr/lib/font/ftR.  Which is a bit tricky to find out.
  585. !        However, Apollo DomainOS is the only system I know that has
  586. !        COFF headers.  SR10.3 needs HEADERSIZE set to 304.  Prior
  587. !        DomainOS versions (eg: SR10.2) appear to need 336.
  588. ! 
  589. !     4) If you are DEC Risc/Ultrix (not VAX/Ultrix) define
  590. !        ASCIIWIDTHS.  HEADERSIZE is irrelevant.
  591. ! 
  592. !     See the description of HEADERSIZE, and the "HEADERSIZE Calculations"
  593. !     section in the TROUBLE document if you have difficulty.  There is
  594. !     extensive instructions on how to determine this parameter.  This
  595. !     parameter is the most common cause of problems.
  596.   
  597.       The headers I write will have something in them if HEADERSIZE > 0
  598.       and there's a font file from your original troff distribution in
  599. ***************
  600. *** 110,115 ****
  601. --- 123,129 ----
  602.   /*    Basic drivers: */
  603.   #define    PS    /* Postscript */
  604.   #define    LJ    /* Laserjet - utils programs will not build with this undef'd */
  605. + #define    LJ3    /* Laserjet 3 - does LJ + HP-GL/2 for PIC */
  606.   #define    DT    /* ditroff */
  607.   #define    DIT    /* ditroff *front-end* */
  608.   
  609. ***************
  610. *** 176,181 ****
  611. --- 190,201 ----
  612.                  you have to do this, please contact me with the
  613.                  particulars of the problem and your configuration */
  614.   
  615. + #undef LJ3_7BIT        /* define to make repeated vector encoding (HP-GL/2
  616. +                PE command) use 7-bit encoding.  Define this only
  617. +                if driver will be used on a 7-bit serial path.
  618. +                This is rarely helpful, because font downloading
  619. +                needs a 8 bit path */
  620. + 
  621.   /*    Edit no more .... */
  622.   
  623.   #define    MAXDLFONTS (MDLF - PRELOAD)    /* # fonts troff2ps can download */
  624. ***************
  625. *** 401,406 ****
  626. --- 421,427 ----
  627.   #define    D_PK    0x20    /* PK font handling */
  628.   #define    D_VERB    0x40    /* very verbose */
  629.   #define    D_FLSH    0x80    /* flush after each fprintf */
  630. + #define D_PIC    0x100    /* show pic commands */
  631.   
  632.   extern int debug;
  633.   
  634. Index: ./INSTALL
  635. *** /tmp/PATCHold/./INSTALL    Thu Jan 23 14:51:39 1992
  636. --- ./INSTALL    Thu Jan 23 14:51:41 1992
  637. ***************
  638. *** 1,5 ****
  639.           Psroff 3.0 Installation Instructions
  640. !             2.16 91/08/29
  641.   
  642.   Please see the TROUBLE file if you have difficulties.
  643.   The README file does provide a bit more background on some
  644. --- 1,5 ----
  645.           Psroff 3.0 Installation Instructions
  646. !             2.17 92/01/12
  647.   
  648.   Please see the TROUBLE file if you have difficulties.
  649.   The README file does provide a bit more background on some
  650. ***************
  651. *** 56,61 ****
  652. --- 56,63 ----
  653.         will abort with "Error n" without any other diagnostic information.
  654.         (Tested on RISC/Ultrix 4.2)
  655.   
  656. +       On Apollo, set SHELL to /bin/ksh.
  657. + 
  658.       - If you're building for ditroff input only, ignore the discussions
  659.         on HEADERSIZE and trofftype.
  660.   
  661. ***************
  662. *** 87,102 ****
  663.         see if we can get DEC to put it in as a update]
  664.   
  665.         Apollos need the -F trofftype variant.  Their HEADERSIZE
  666. !       calculation is strange.  You should set HEADERSIZE
  667. !       to 0, and proceed with these instructions, but do NOT
  668. !       install psroff.  Once you've built psroff, consult
  669. !       the TROUBLE file on how to run "dumpft -gv", which
  670. !       will tell you what your HEADERSIZE should be, then you
  671. !       should rebuild, test and install.
  672. ! 
  673. !       The dumpft -gv trick will actually work on most systems
  674. !       (except RISC/Ultrix), but it requires you to rebuild psroff
  675. !       twice...
  676.   
  677.       - NOTE: during installs as root, the makefiles attempt to be
  678.         careful about the modes of the files it creates.  HOWEVER,
  679. --- 89,98 ----
  680.         see if we can get DEC to put it in as a update]
  681.   
  682.         Apollos need the -F trofftype variant.  Their HEADERSIZE
  683. !       calculation is strange.  If you are SR10.3, set HEADERSIZE
  684. !       to 304.  On SR10.2 and earlier, set HEADERSIZE to 336.
  685. !       If this doesn't work out, consult the TROUBLE file
  686. !       on "HEADERSIZE calculations".
  687.   
  688.       - NOTE: during installs as root, the makefiles attempt to be
  689.         careful about the modes of the files it creates.  HOWEVER,
  690. ***************
  691. *** 146,157 ****
  692.         is copiously documented there.
  693.   
  694.       - edit defs.h and define either BSD or ATT.  A few other options will
  695. !       pertain to you.  Take special note of HEADERSIZE.  Take a look
  696. !       at /usr/lib/font/ftR.  Is it 224 bytes long?  If so, HEADERSIZE
  697. !       should be 0.  Otherwise you will probably have to set it to the
  698. !       size of your a.out.h structure.  VAX Ultrix and Sun appear to always
  699. !       be HEADERSIZE = 32.  See remark about RISC Ultrix above.  If you're
  700. !       Apollo, see remark above, plus info in TROUBLE file about Apollos.
  701.   
  702.         With Laserjet driving:
  703.   
  704. --- 142,148 ----
  705.         is copiously documented there.
  706.   
  707.       - edit defs.h and define either BSD or ATT.  A few other options will
  708. !       pertain to you.  Take special note of HEADERSIZE.
  709.   
  710.         With Laserjet driving:
  711.   
  712. ***************
  713. *** 303,308 ****
  714. --- 294,302 ----
  715.   
  716.         Once you've printed the test sheet, if there seems to be any problems,
  717.         consult the "TEST SHEET ANALYSIS" section of the TROUBLE files.
  718. + 
  719. +       You can also consult the "Last Ditch Defense" section in the
  720. +       TROUBLE file as part of your analysis of what went wrong.
  721.   
  722.       - If you're running Postscript and you want to use n-up printing
  723.         (see psxlate(1)), you should obtain the psnup distribution
  724. Index: ./TROUBLE
  725. *** /tmp/PATCHold/./TROUBLE    Thu Jan 23 14:51:55 1992
  726. --- ./TROUBLE    Thu Jan 23 14:51:58 1992
  727. ***************
  728. *** 1,4 ****
  729. !         Psroff 3.0 Trouble Shooting.... 2.16 91/11/13
  730.   
  731.   (psroff 1.0 users can use this to a certain extent.  This is relatively
  732.   unchanged from Psroff 2.0 except for the ditroff input capability)
  733. --- 1,4 ----
  734. !         Psroff 3.0 Trouble Shooting.... 2.17 92/01/12
  735.   
  736.   (psroff 1.0 users can use this to a certain extent.  This is relatively
  737.   unchanged from Psroff 2.0 except for the ditroff input capability)
  738. ***************
  739. *** 16,21 ****
  740. --- 16,22 ----
  741.   odd to warrant mention here: if your makes blow up without much
  742.   in the way of diagnostics, refer to the INSTALL file regarding
  743.   the setting of SHELL, MAKE and use of "s5make" instead of "make".
  744. + Apollo seems to like SHELL set to /bin/ksh.
  745.   
  746.   Unless specified, the remarks in this file pertain to CAT troff input,
  747.   not ditroff input.
  748. ***************
  749. *** 70,136 ****
  750.           M<string>
  751.         These are back-end directives and they're supposed to be
  752.         there during psroff debug - ignore them.
  753. -     - HEADERSIZE: most troff's need an a.out.h header on the front
  754. -       of the width table files.  HEADERSIZE (defs.h) allows you to
  755. -       specify an arbitrary number of bytes on the front of the table
  756. -       in the width file.  Check /usr/lib/font/ftR (should be part
  757. -       of your original troff installation).  Is ftR 224 bytes long?
  758. -       If so, HEADERSIZE should be zero.  If not (eg: Ultrix,
  759. -       BSD's, some older Xenix, V7), you will have to specify
  760. -       HEADERSIZE.  SunOS, VAX/Ultrix wants 32.  (should be the size
  761. -       of an a.out header structure - od -c may give you some hints).
  762. -       Another way to tell is to run "file" on /usr/lib/font/ftR.
  763. -       Does it say "data"?  Then it probably needs HEADERSIZE 0.
  764. -       If it says "ascii" something, you're probably RISC/Ultrix, and you
  765. -       need ASCIIWIDTHS set.  If it says "executable" or "object" of some
  766. -       kind, you will have to set HEADERSIZE.
  767. - 
  768. -       RISC/Ultrix uses an ASCII format width table.  You can
  769. -       tell this if the following command:
  770. -         echo ".fp 1 R" | troff -t > /dev/null
  771. -       says something about non-ascii /usr/lib/font/ftR.  If
  772. -       it does, define ASCIIWIDTHS.
  773. - 
  774. -       If you're still having problems, use the "dumpft" trick
  775. -       shown below for Apollos.
  776. - 
  777. -       HEADERSIZE can be left as 0 for use with ditroff input.
  778. -       (Eg: it only matters for CAT troff)
  779. - 
  780. - NOTE for PSROFF 1.0 users:
  781. - 
  782. -     psroff 1.0 does not have a psroff.lib file, so changes (eg:
  783. -     width option specifications) have to be made directly to
  784. -     the psroff.sh shell script.  Further, in the library, many of
  785. -     the files names are reversed - eg: lj.lib in release 2.0 is lib.lj
  786. -     in 1.0.
  787.   
  788.   Most initial problems are due to width table installation/specification -
  789.   this varies from system to system and is *very* confusing.  I'm sorry about
  790. ! that, but there's no other way.  As a simple guide: if the /usr/lib/font/ftR
  791. ! file in your original troff installation is not 224 bytes long, you *will*
  792. ! have to set HEADERSIZE to something other than 0.
  793.   
  794.   After successful installation/testing, most problems are due to troff
  795.   errors that you don't get to see.
  796.   
  797. - Two notes on HEADERSIZE/ASCIIWID/etc.:
  798. -     1) Some versions of troff will accept the -T option, but ignore
  799. -        it.  Eg: Apollo and SunOS.  If the widths don't seem right, try the -F
  800. -        option.  make check will usually tell you -F in this case.
  801. -     2) If /usr/lib/font/ftR is substantially larger than 224 bytes,
  802. -        ie, over 500 or 600, you probably have special headers.
  803. -        Eg: Apollos.  What you should do is type the following:
  804. -         cd utils
  805. -         ./dumpft -gv < /usr/lib/font/ftR | grep Guess
  806. -        Which will output a series of lines which contains both
  807. -        a HEADERSIZE guess, plus an error count.  The errorcount
  808. -        will have a minimum value, ideally zero.  Set
  809. -        the HEADERSIZE to the guess with the minimum error
  810. -        count and rebuild and retry everything.  I won't attempt
  811. -        to supply these numbers for each of these systems because
  812. -        the number changes from release to release in some systems.
  813. - 
  814.   Build/Execute gross failures:
  815.   
  816.   Shell scripts die horrible deaths:
  817. --- 71,219 ----
  818.           M<string>
  819.         These are back-end directives and they're supposed to be
  820.         there during psroff debug - ignore them.
  821.   
  822. +     - HEADERSIZE: Most versions of troff use a initialized C
  823. +       array of characters 224 bytes long that is compiled using
  824. +       the C compiler.  Troff reads this file, and skips the
  825. +       various header structures to get at the data section of the
  826. +       compiled binary.  Psroff doesn't go this route of compiling
  827. +       C programs to determine the format of the width tables it
  828. +       needs to construct - you have to determine the size
  829. +       of the various structures, and set HEADERSIZE to this
  830. +       value.
  831. + 
  832. +       Many vendors have fiddled with this, and it's sometimes quite
  833. +       difficult to tell what the correct HEADERSIZE value is.
  834. +       Worse, some vendor supplied versions of troff (Risc Ultrix,
  835. +       Apollo DomainOS SR10.3) cannot even read the width tables
  836. +       that are supplied with them.  Thus, analysing your existing
  837. +       width tables isn't always going to result in the correct
  838. +       answer.
  839. + 
  840. +       See HEADERSIZE Calculations below:
  841. + 
  842. + HEADERSIZE Calculations:
  843. + 
  844.   Most initial problems are due to width table installation/specification -
  845.   this varies from system to system and is *very* confusing.  I'm sorry about
  846. ! that, but there's no other way.  Symptoms are "floating exceptions"
  847. ! from troff, often wild, but sometimes moderately subtle bad character
  848. ! spacing, and sometimes mysterious silent aborts.
  849.   
  850. + Detailed guide:
  851. + 
  852. +     1) if the /usr/lib/font/ftR file in your original troff installation
  853. +        224 bytes, set HEADERSIZE to 0.
  854. + 
  855. +     2) If the size of /usr/lib/font/ftR is > 224, and your system
  856. +        uses a.out.h headers on executable binaries, HEADERSIZE
  857. +        should be the size of the a.out header.  Usually 32.
  858. + 
  859. +     3) If the size of /usr/lib/font/ftR is large (around 1K), chances
  860. +        are that your system uses COFF headers on font files.
  861. +        HEADERSIZE should be set to the offset of the data section
  862. +        within /usr/lib/font/ftR.  Which is a bit tricky to find out.
  863. +        However, Apollo DomainOS is the only system I know that has
  864. +        COFF headers.  SR10.3 needs HEADERSIZE set to 304.  Prior
  865. +        DomainOS versions (eg: SR10.2) appears to need 336.
  866. +        (The dumpft trick below will report 336 for both).
  867. + 
  868. +     4) If you are DEC Risc/Ultrix (not VAX/Ultrix) define
  869. +        ASCIIWIDTHS.  HEADERSIZE is irrelevant.
  870. + 
  871. +     5) You can usually find out the proper HEADERSIZE value by
  872. +        using the "dumpft trick".
  873. + 
  874. + Dumpft Trick:
  875. + 
  876. +     You can try to test for the correct HEADERSIZE by using the
  877. +     "dumpft trick":
  878. + 
  879. +     After building psroff (with any HEADERSIZE), type the following:
  880. + 
  881. +     cd utils
  882. +     ./dumpft -gv < /usr/lib/font/ftR | grep Guess
  883. + 
  884. +     Which will output a series of lines which contains both
  885. +     a HEADERSIZE guess, plus an error count.  The errorcount
  886. +     will have a minimum value, ideally zero.  Set
  887. +     the HEADERSIZE to the guess with the minimum error
  888. +     count and rebuild and retry everything.
  889. + 
  890. +     Note however, some versions of troff can't even read their
  891. +     own width tables (Apollo DomainOS SR10.3), which will
  892. +     throw the dumpft trick's guess off.  And this won't work
  893. +     with RISC/Ultrix either.
  894. + 
  895. + Last ditch defence:
  896. + 
  897. +     If you still have problems that seem to have something to do
  898. +     with width tables, here is a procedure that will both demonstrate
  899. +     to you that psroff *does* work, and give some additional analysis
  900. +     for your problems with constructing width tables.
  901. + 
  902. +     Create a file called "A" containing:
  903. + 
  904. +     .in |1i
  905. +     .sp |1i
  906. +     This is a test of the computer.
  907. + 
  908. +     Create a second file called "B" which is a copy of "A",
  909. +     except that ".fp 1 R" has been prepended before the ".in".
  910. + 
  911. +     Each of the tests below should result in the line of text
  912. +     appearing one inch down, and approximately 1.5" to the right
  913. +     of the left edge of the page.
  914. + 
  915. +     Test 1: Basic troff and troff2ps sanity test:
  916. + 
  917. +     troff -t A | troff2ps -T<lj|ps> | <your print spooler>
  918. + 
  919. +     Pass: troff and troff2ps basic operation okay.
  920. + 
  921. +     Fail: troff or troff2ps broken.  Nothing to do with
  922. +         width tables.
  923. +     
  924. +     This, by the way, is a functioning CAT troff to postscript
  925. +     or laserjet pipeline.  Effectively a thack replacement.
  926. +     However, the widths aren't correct (especially lj), and the
  927. +     results will be suboptimal.
  928. + 
  929. +     Test 2: Vendor-supplied width table test:
  930. + 
  931. +     troff -t B | troff2ps -T<lj|ps> | <your print spooler>
  932. + 
  933. +     Pass: Vendor-supplied width tables are okay.  Dumpft valid.
  934. + 
  935. +     Fail: Vendor-supplied width tables are wrong.  DomainOS SR10.3
  936. +         and RISC/Ultrix fail this test.
  937. + 
  938. +     Note: the output quality won't be any better than test 1.
  939. + 
  940. +     Test 3: Psroff width table test:
  941. + 
  942. +     troff -t <widthoption> B | troff2ps -T<lj|ps> | <spooler>
  943. + 
  944. +     Where <widthoption> is either -T<lj|ps>, or
  945. +     -F/usr/lib/font/<lj|ps>/ftXX.  (trofftype)
  946. + 
  947. +     Output should be perfect.
  948. + 
  949. +     Pass: Psroff supplied width tables work.  Your problems lie
  950. +         elsewhere.  Likely psrofflib or your print spooler.
  951. + 
  952. +     Fail: Psroff supplied width tables don't work.  HEADERSIZE
  953. +         or ASCIIWIDTHS need changing.
  954. + 
  955. + Width table related details:
  956. + 
  957. +     Some versions of troff will accept the -T option, but ignore it.
  958. +     Eg: Apollo and SunOS.  If the widths don't seem right, try the -F
  959. +     option.  make check will usually tell you -F in this case.
  960. + 
  961.   After successful installation/testing, most problems are due to troff
  962.   errors that you don't get to see.
  963.   
  964.   Build/Execute gross failures:
  965.   
  966.   Shell scripts die horrible deaths:
  967. ***************
  968. *** 222,228 ****
  969.       This is because you've not installed or properly configured more fonts
  970.       than came with psroff, and psroff can't find a font close enough
  971.       in size, and is letting the printer guess - and has selected a font
  972. !     that it had previously incrementally downloaded.
  973.   
  974.       Get more fonts and make sure that lj.fonts is up-to-date with
  975.       the font set you have.   LJIII and LASERFONTS discusses font
  976. --- 305,312 ----
  977.       This is because you've not installed or properly configured more fonts
  978.       than came with psroff, and psroff can't find a font close enough
  979.       in size, and is letting the printer guess - and has selected a font
  980. !     that it had previously incrementally downloaded but hasn't had a
  981. !     "6" downloaded yet.
  982.   
  983.       Get more fonts and make sure that lj.fonts is up-to-date with
  984.       the font set you have.   LJIII and LASERFONTS discusses font
  985. Index: ./Makefile
  986. *** /tmp/PATCHold/./Makefile    Thu Jan 23 14:52:18 1992
  987. --- ./Makefile    Thu Jan 23 14:52:20 1992
  988. ***************
  989. *** 7,13 ****
  990.   #    Function: Upper level makefile; configuration options.
  991.   #
  992.   #
  993. ! #ident  "@(#)Makefile: 2.28 Copyright 91/12/07 02:20:15 Chris Lewis"
  994.   
  995.   #    If you're not sure whether you have a System V make, leave
  996.   #    this alone, and run the make anyways.  If it dies horribly
  997. --- 7,13 ----
  998.   #    Function: Upper level makefile; configuration options.
  999.   #
  1000.   #
  1001. ! #ident  "@(#)Makefile: 2.30 Copyright 92/01/23 14:23:19 Chris Lewis"
  1002.   
  1003.   #    If you're not sure whether you have a System V make, leave
  1004.   #    this alone, and run the make anyways.  If it dies horribly
  1005. ***************
  1006. *** 21,26 ****
  1007. --- 21,27 ----
  1008.   #    Only uncomment the following braindamage if your MAKE doesn't
  1009.   #    understand "include".  These are very rare and indicate you don't
  1010.   #    have a System V make - see the "Broken Makes" section in MISC.
  1011. + #    This is necessary for Sony's.
  1012.   #MAKE    = sed -e '/^include/r ../makeincl' -e '/include/d' Makefile | make -f -
  1013.   
  1014.   #    Set to where you want the user-interfaces to go.  /usr/lbin
  1015. ***************
  1016. *** 65,77 ****
  1017.   
  1018.   #    Set this to -lc_s if you have 386/ix style shared libraries and you
  1019.   #    wish to use them.  Don't know about any other system's shared libraries.
  1020. ! LIBFLAGS =
  1021.   
  1022.   #    Bourne shell.  *All* Bourne shells with the exception of extremely
  1023. ! #    braindamaged ones (such as Ultrix or vanilla BSD) will work fine.
  1024. ! #    Ultrix/Dynix may need the ... s5bin/sh one.  ksh and bash
  1025. ! #    *should* work just fine, but I've never tested 'em.  /usr/bin/sh5
  1026. ! #    should be used on Ultrix.
  1027.   #
  1028.   #    This is also here for make, but if you have SHELL defined in your
  1029.   #    *own* environment, you can't trust this to work anyways.
  1030. --- 66,78 ----
  1031.   
  1032.   #    Set this to -lc_s if you have 386/ix style shared libraries and you
  1033.   #    wish to use them.  Don't know about any other system's shared libraries.
  1034. ! #    Math library (usually -lm) needed for lj3draw.
  1035. ! LIBFLAGS = -lm
  1036.   
  1037.   #    Bourne shell.  *All* Bourne shells with the exception of extremely
  1038. ! #    braindamaged ones (such as Ultrix, vanilla BSD, Sony, Apollo) will
  1039. ! #    work fine.  Ultrix: use /usr/bin/sh5.  Korn shell does work here
  1040. ! #    (Apollos and Ultrix)
  1041.   #
  1042.   #    This is also here for make, but if you have SHELL defined in your
  1043.   #    *own* environment, you can't trust this to work anyways.
  1044. ***************
  1045. *** 178,184 ****
  1046.   
  1047.   #    Drivers:
  1048.   
  1049. ! BACKENDS = lj.o pk.o pkc.o ps.o dt.o dit.o
  1050.   
  1051.   DEFINES    = '-DLIBDIR="$(LIBDIR)/lib"' '-DFONTDIR="$(FONTDIR)"'\
  1052.       '-DLJF="$(LJF)"' $(CCFLAGS)
  1053. --- 179,185 ----
  1054.   
  1055.   #    Drivers:
  1056.   
  1057. ! BACKENDS = lj.o pk.o pkc.o ljdraw.o lj3draw.o ps.o dt.o dit.o
  1058.   
  1059.   DEFINES    = '-DLIBDIR="$(LIBDIR)/lib"' '-DFONTDIR="$(FONTDIR)"'\
  1060.       '-DLJF="$(LJF)"' $(CCFLAGS)
  1061. ***************
  1062. *** 188,193 ****
  1063. --- 189,195 ----
  1064.   SEDSCRIPT =    "sed -e 's;%%LIBDIR%%;$(LIBDIR);g' \
  1065.                -e 's;%%LJF%%;$(LJF);g' \
  1066.                -e 's;%%STARTSHELL%%;'\"$(STARTSHELL)\"';g' \
  1067. +              -e 's;%%SHELL%%;'\"$(SHELL)\"';g' \
  1068.                -e 's;%%COMPILE%%;$(COMPILE);g' \
  1069.                -e 's;%%FONTDIR%%;$(FONTDIR);g' \
  1070.                -e 's;%%MANDIR%%;$(MANDIR);g' \
  1071. ***************
  1072. *** 344,349 ****
  1073. --- 346,353 ----
  1074.   ps.o:    defs.h ps.h
  1075.   dt.o:    defs.h dt.h
  1076.   lj.o:    defs.h lj.h pkc.h pk.h
  1077. + ljdraw.o:    defs.h lj.h
  1078. + lj3draw.o:    defs.h lj.h
  1079.   
  1080.   pk.o:    defs.h pk.h pkc.h
  1081.   pkc.o:    defs.h pk.h pkc.h
  1082. Index: ./t2conf.c
  1083. *** /tmp/PATCHold/./t2conf.c    Thu Jan 23 14:52:31 1992
  1084. --- ./t2conf.c    Thu Jan 23 14:52:32 1992
  1085. ***************
  1086. *** 12,18 ****
  1087.   
  1088.   #ifndef    lint
  1089.   static char SCCSid[] =
  1090. !     "@(#)t2conf.c: 2.3 Copyright 91/02/20 09:06:48 Chris Lewis";
  1091.   #endif
  1092.   
  1093.   #ifdef    PS
  1094. --- 12,18 ----
  1095.   
  1096.   #ifndef    lint
  1097.   static char SCCSid[] =
  1098. !     "@(#)t2conf.c: 2.5 Copyright 92/01/23 14:23:44 Chris Lewis";
  1099.   #endif
  1100.   
  1101.   #ifdef    PS
  1102. ***************
  1103. *** 19,25 ****
  1104.   #include "ps.h"
  1105.   #endif
  1106.   
  1107. ! #ifdef    LJ
  1108.   #include "lj.h"
  1109.   #endif
  1110.   
  1111. --- 19,25 ----
  1112.   #include "ps.h"
  1113.   #endif
  1114.   
  1115. ! #if defined(LJ) || defined(LJ3)
  1116.   #include "lj.h"
  1117.   #endif
  1118.   
  1119. ***************
  1120. *** 57,63 ****
  1121.   
  1122.   #ifdef    LJ
  1123.       { "lj",    ljProlog,    ljEpilog,    ljChar,    ljPage,    FontSel,
  1124. !         NULL,        NULL,        NULL, NULL,
  1125.           ljStdFont,    ljSymFont },
  1126.   #endif
  1127.       { NULL }
  1128. --- 57,69 ----
  1129.   
  1130.   #ifdef    LJ
  1131.       { "lj",    ljProlog,    ljEpilog,    ljChar,    ljPage,    FontSel,
  1132. !         NULL,        NULL,        NULL, ljDraw,
  1133. !         ljStdFont,    ljSymFont },
  1134. ! #endif
  1135. ! 
  1136. ! #ifdef    LJ3
  1137. !     { "lj3",    ljProlog,    ljEpilog,    ljChar,    ljPage,    FontSel,
  1138. !         NULL,        NULL,        NULL, lj3Draw,
  1139.           ljStdFont,    ljSymFont },
  1140.   #endif
  1141.       { NULL }
  1142. Index: ./opt.c
  1143. *** /tmp/PATCHold/./opt.c    Thu Jan 23 14:52:39 1992
  1144. --- ./opt.c    Thu Jan 23 14:52:41 1992
  1145. ***************
  1146. *** 16,22 ****
  1147.   #ifdef    OPT
  1148.   #ifndef    lint
  1149.   static char SCCSid[] =
  1150. !     "@(#)opt.c: 2.7 Copyright 92/01/03 11:33:47 Chris Lewis";
  1151.   #endif
  1152.   
  1153.   struct insbuf {
  1154. --- 16,22 ----
  1155.   #ifdef    OPT
  1156.   #ifndef    lint
  1157.   static char SCCSid[] =
  1158. !     "@(#)opt.c: 2.8 Copyright 92/01/23 14:23:52 Chris Lewis";
  1159.   #endif
  1160.   
  1161.   struct insbuf {
  1162. ***************
  1163. *** 157,163 ****
  1164.           p = tabS[nc].ch_name;
  1165.           else
  1166.           p = tabN[nc].ch_name;
  1167. !         if (strlen(p) >= 2) {
  1168.           if (strcmp(p, "hy") == 0 ||
  1169.               strcmp(p, "mi") == 0 ||
  1170.               strcmp(p, "\\-") == 0)
  1171. --- 157,163 ----
  1172.           p = tabS[nc].ch_name;
  1173.           else
  1174.           p = tabN[nc].ch_name;
  1175. !         if ((int)strlen(p) >= 2) {
  1176.           if (strcmp(p, "hy") == 0 ||
  1177.               strcmp(p, "mi") == 0 ||
  1178.               strcmp(p, "\\-") == 0)
  1179. Index: ./lj.c
  1180. *** /tmp/PATCHold/./lj.c    Thu Jan 23 14:52:50 1992
  1181. --- ./lj.c    Thu Jan 23 14:52:52 1992
  1182. ***************
  1183. *** 32,38 ****
  1184.   
  1185.   #ifndef    lint
  1186.   static char SCCSid[] =
  1187. !     "@(#)lj.c: 2.7 Copyright 91/03/10 03:12:47 Chris Lewis";
  1188.   #endif
  1189.   
  1190.   struct troff2befont ljStdFont[108] = {
  1191. --- 32,38 ----
  1192.   
  1193.   #ifndef    lint
  1194.   static char SCCSid[] =
  1195. !     "@(#)lj.c: 2.8 Copyright 92/01/23 14:24:06 Chris Lewis";
  1196.   #endif
  1197.   
  1198.   struct troff2befont ljStdFont[108] = {
  1199. ***************
  1200. *** 319,325 ****
  1201.   putoct(s)
  1202.   char *s; {
  1203.       int d;
  1204. !     if (strlen(s) < 3) {
  1205.       fprintf(stderr, "%s: octal sequence in fonts.l[kj] bad\n", progname);
  1206.       exit(1);
  1207.       }
  1208. --- 319,325 ----
  1209.   putoct(s)
  1210.   char *s; {
  1211.       int d;
  1212. !     if ((int)strlen(s) < 3) {
  1213.       fprintf(stderr, "%s: octal sequence in fonts.l[kj] bad\n", progname);
  1214.       exit(1);
  1215.       }
  1216. ***************
  1217. *** 709,725 ****
  1218.       DBP((D_BEND,"AFTER (sequence,x,y,font,points) = (%s,%d,%d,%d,%d)\n",
  1219.       sequence, nx, ny, font, points));
  1220.   
  1221. - /*    Egads, I discovered that 42% of the time in troff2ps was spent
  1222. -     doing these damn conversions! */
  1223. - 
  1224. - #define    XYS    "\033&a%dh%dV%s"
  1225. - #define    XS    "\033&a%dH%s"
  1226. - 
  1227.       if (lastYPos != ny) {
  1228. !     printf(XYS, nx, ny, sequence);
  1229.       lastYPos = ny;
  1230.       } else
  1231. !     printf(XS, nx, sequence);
  1232.   }
  1233.   
  1234.   ljProlog() {
  1235. --- 709,721 ----
  1236.       DBP((D_BEND,"AFTER (sequence,x,y,font,points) = (%s,%d,%d,%d,%d)\n",
  1237.       sequence, nx, ny, font, points));
  1238.   
  1239.       if (lastYPos != ny) {
  1240. !     printf(XY, nx, ny);
  1241.       lastYPos = ny;
  1242.       } else
  1243. !     printf(X, nx);
  1244. !     
  1245. !     fputs(sequence, stdout);
  1246.   }
  1247.   
  1248.   ljProlog() {
  1249. ***************
  1250. *** 902,905 ****
  1251.       c = getc(library);
  1252.       }
  1253.   }
  1254. ! #endif
  1255. --- 898,902 ----
  1256.       c = getc(library);
  1257.       }
  1258.   }
  1259. ! 
  1260. ! #endif /* LJ */
  1261. Index: ./makeincl.S
  1262. *** /tmp/PATCHold/./makeincl.S    Thu Jan 23 14:53:07 1992
  1263. --- ./makeincl.S    Thu Jan 23 14:53:08 1992
  1264. ***************
  1265. *** 4,10 ****
  1266.   #    See the LICENSE file for a full description of the restrictions
  1267.   #    under which this software is provided.
  1268.   #
  1269. ! #    Makefile overrides 2.6 91/11/22
  1270.   CC    = %%CC%%
  1271.   CFLAGS    = %%CCFLAGS%% -I../
  1272.   FONTDIR = %%FONTDIR%%
  1273. --- 4,10 ----
  1274.   #    See the LICENSE file for a full description of the restrictions
  1275.   #    under which this software is provided.
  1276.   #
  1277. ! #    Makefile overrides 2.7 92/01/12
  1278.   CC    = %%CC%%
  1279.   CFLAGS    = %%CCFLAGS%% -I../
  1280.   FONTDIR = %%FONTDIR%%
  1281. ***************
  1282. *** 21,26 ****
  1283. --- 21,27 ----
  1284.   T2DIR = %%T2DIR%%
  1285.   MAKEDEV = %%MAKEDEV%%
  1286.   PERL = %%PERL%%
  1287. + SHELL = %%SHELL%%
  1288.   
  1289.   #    This override is because apparently a .s suffix on a file will
  1290.   #    cause make to not select a ".S:" rule when the target is .s
  1291. Index: ./ljdraw.c
  1292. *** /tmp/PATCHold/./ljdraw.c    Thu Jan 23 14:53:14 1992
  1293. --- ./ljdraw.c    Thu Jan 23 14:53:16 1992
  1294. ***************
  1295. *** 0 ****
  1296. --- 1,249 ----
  1297. + /*
  1298. +     Copyright 1992 Chris Lewis
  1299. +         All Rights Reserved
  1300. + 
  1301. +     See the LICENSE file for a full description of restrictions under which
  1302. +     this software is provided.
  1303. + 
  1304. +     Function:        LaserJet driver, drawing code.
  1305. + 
  1306. +             Needs LJII or later (rules)
  1307. + 
  1308. + */
  1309. + 
  1310. + #include "defs.h"
  1311. + 
  1312. + #if    defined(LJ) && defined(INSPECIAL)
  1313. + #include "lj.h"
  1314. + 
  1315. + #ifndef    lint
  1316. + static char SCCSid[] =
  1317. +     "@(#)ljdraw.c: 1.1 Copyright 92/01/23 14:26:18 Chris Lewis";
  1318. + #endif
  1319. + 
  1320. + static int ljLine();
  1321. + 
  1322. + /*    Do ditroff drawing command in s from origX,origY.
  1323. +     If opcode 0 just moveto
  1324. + 
  1325. +     This is hardly complete.  Consider it a skeleton
  1326. +     for further work.  Before extending it beyond
  1327. +     horizontal and vertical lines, I'm going to switch
  1328. +     the whole driver over to 300ths from 720ths.
  1329. +     Which should eliminate a little jitter, and removes
  1330. +     a lot of excess work in line drawing.
  1331. +  */
  1332. + ljDraw(origX, origY, opcode, ctindex, numbers, saves)
  1333. + int origX, origY;
  1334. + int opcode;
  1335. + char *saves;
  1336. + int ctindex;
  1337. + short *numbers; {
  1338. + 
  1339. +     int i, fill = 0;
  1340. +     static float curfill = 0;
  1341. +     static int curthick = 1;
  1342. +     static int warned = 0;
  1343. + 
  1344. +     /* map absolute beginning position. */
  1345. +     origX = TROFF2LJX(origX);
  1346. +     origY = TROFF2LJY(origY);
  1347. + 
  1348. +     if (!opcode) {
  1349. +     printf(XY, origX, origY);
  1350. +     lastYPos = origY;
  1351. +     return;
  1352. +     }
  1353. + 
  1354. +     if (opcode != 'l')
  1355. +     if (!warned) {
  1356. +         fprintf(stderr, "%s: only lines are currently supported\n", progname);
  1357. +         warned = 1;
  1358. +         return;
  1359. +     }
  1360. + 
  1361. +     switch (opcode) {
  1362. +     case 'f':
  1363. +         if (ctindex == 2)
  1364. +         ctindex = 1;
  1365. +         if (!require(1, ctindex, "set fill", saves))
  1366. +         curfill = (double) numbers[0] / 1000;
  1367. +         return;
  1368. +     case 't':
  1369. +         if (ctindex == 2)
  1370. +         ctindex = 1;
  1371. +         if (!require(1, ctindex, "set thick", saves))
  1372. +         curthick = numbers[0];
  1373. +         return;
  1374. +     }
  1375. + 
  1376. + 
  1377. +     DBP((D_CAT, "ljDraw: (%d,%d): %s\n", origX, origY, saves));
  1378. + 
  1379. +     switch (opcode) {
  1380. +     case 'C':
  1381. +         if (ctindex == 2)
  1382. +         ctindex = 1;
  1383. +     case 'E':
  1384. +     case 'P':
  1385. +         fill = 1;
  1386. +         if (opcode != 'P')
  1387. +         break;
  1388. +     case 'l':
  1389. +     case 'a':
  1390. +     case 'p':
  1391. +     case '~':
  1392. +         for (i = 0; i < ctindex; i++)
  1393. +         numbers[i] = numbers[i] * LJRESOLUTION / TROFFRESOLUTION;
  1394. +     }
  1395. +     switch(opcode) {
  1396. +     case 'l':
  1397. +         if (require(2, ctindex, "line", saves))
  1398. +         return;
  1399. +         DBP((D_CAT, "drawline: %d, %d\n", numbers[0], numbers[1]));
  1400. +         ljLine(origX, origY, origX + numbers[0], origY + numbers[1]);
  1401. +         break;
  1402. + #if    0
  1403. +     case 'a':
  1404. +         if (require(4, ctindex, "arc", saves))
  1405. +         return;
  1406. +         for (i = 0; i < 4; i++) {
  1407. +         emitnums(numbers[i]);
  1408. +         }
  1409. +         putnl("Arc");
  1410. +         break;
  1411. +     case 'C':
  1412. +     case 'c':
  1413. +         if (require(1, ctindex, "circle", saves))
  1414. +         return;
  1415. +         numbers[1] = numbers[0];
  1416. +         ctindex++;
  1417. +     case 'E':
  1418. +     case 'e':
  1419. +         if (require(2, ctindex, "ellipse", saves))
  1420. +         return;
  1421. +         DBP((D_CAT, "drawellipse: %d, %d\n", numbers[0], numbers[1]));
  1422. +         emitnums((int) numbers[0]);
  1423. +         emitnums((int) numbers[1]);
  1424. +         putnl("Ellipse");
  1425. +         break;
  1426. +     case 'P':
  1427. +     case 'p':
  1428. +         if (ctindex&1) {
  1429. +         fprintf(stderr, "%s: even number of points for polygon: %s\n",
  1430. +             progname, saves);
  1431. +         break;
  1432. +         }
  1433. +         for (i = 0; i < ctindex; i += 2) {
  1434. +         emitnums((int) numbers[i]);
  1435. +         emitnums((int) numbers[i+1]);
  1436. +         putnl("rlineto");
  1437. +         }
  1438. +         putnl(" closepath");
  1439. +         break;
  1440. +     case '~':
  1441. +         if (ctindex < 4) {
  1442. +         fprintf(stderr, "%s: too few points to spline: %s\n",
  1443. +             progname, saves);
  1444. +         break;
  1445. +         }
  1446. +         emitnums(numbers[0]/2);
  1447. +         emitnums(numbers[1]/2);
  1448. +         putnl("rlineto");
  1449. +         /* NUM/DEN should be between 0 and 1; the closer it is to 1
  1450. +         the tighter the curve will be to the guiding lines; 2/3
  1451. +         is the standard value */
  1452. + #define    NUM    2
  1453. + #define    DEN    3
  1454. +         for (i = 0; i < ctindex - 2; i += 2) {
  1455. +         emitnums((numbers[i]*NUM)/(2*DEN));
  1456. +         emitnums((numbers[i + 1]*NUM)/(2*DEN));
  1457. +         emitnums(numbers[i]/2 + (numbers[i + 2]*(DEN - NUM))/(2*DEN));
  1458. +         emitnums(numbers[i + 1]/2 + (numbers[i + 3]*(DEN - NUM))/(2*DEN));
  1459. +         emitnums((numbers[i] - numbers[i]/2) + numbers[i + 2]/2);
  1460. +         emitnums((numbers[i + 1] - numbers[i + 1]/2) + numbers[i + 3]/2);
  1461. +         putnl("rcurveto");
  1462. +         }
  1463. +         emitnums(numbers[ctindex - 2] - numbers[ctindex - 2]/2);
  1464. +         emitnums(numbers[ctindex - 1] - numbers[ctindex - 1]/2);
  1465. +         putnl("rlineto");
  1466. +         break;
  1467. + #endif
  1468. +     default:
  1469. +         fprintf(stderr, "%s: invalid draw code %c (%s)\n", progname, opcode,
  1470. +         saves);
  1471. +         break;
  1472. +     }
  1473. + }
  1474. + 
  1475. + static
  1476. + linwid() {
  1477. +     register int a;
  1478. +     a = lastPoints / 4;
  1479. +     if (!a)
  1480. +     a = 1;
  1481. +     else if (a > 10)
  1482. +     a = 10;
  1483. +     return(a);
  1484. + }
  1485. +     
  1486. + 
  1487. + static ljPos(x, y)
  1488. + register int x, y; {
  1489. +     printf(XY, x, y);
  1490. +     lastYPos = y;
  1491. + }
  1492. + 
  1493. + static
  1494. + ljHLine(x0, y0, x1, y1)
  1495. + int x0, y0, x1, y1; {
  1496. +     static int warning = 0;
  1497. +     if (!warning) {
  1498. +     fprintf(stderr, "%s: contains non-vertical or horizontal lines.  Ignored\n",
  1499. +         progname);
  1500. +     warning = 1;
  1501. +     }
  1502. + }
  1503. + 
  1504. + static
  1505. + ljVerLine(x0, y0, y1)
  1506. + register int x0, y0, y1; {
  1507. +     register int t;
  1508. +     if (y0 > y1) {
  1509. +     t = y0;
  1510. +     y0 = y1;
  1511. +     y1 = t;
  1512. +     }
  1513. +     t = linwid();
  1514. +     ljPos(x0, y0-t+1);
  1515. +     printf("\033*c%da%db0P", t, y1-y0+t);
  1516. + }
  1517. + 
  1518. + static
  1519. + ljHorLine(x0, y0, x1)
  1520. + register int x0, y0, x1; {
  1521. +     register int t = linwid();
  1522. +     if (x0 > x1) {
  1523. +     t = x0;
  1524. +     x0 = x1;
  1525. +     x1 = t;
  1526. +     }
  1527. +     t = linwid();
  1528. +     ljPos(x0, y0-t+1);
  1529. +     printf("\033*c%da%db0P", x1-x0+t, t);
  1530. + }
  1531. + 
  1532. + static
  1533. + ljLine(x0, y0, x1, y1)
  1534. + register int x0, y0, x1, y1; {
  1535. +     if (y0 == y1)
  1536. +     ljHorLine(x0, y0, x1);
  1537. +     else if (x0 == x1)
  1538. +     ljVerLine(x0, y0, y1);
  1539. +     else
  1540. +     ljHLine(x0, y0, x1, y1);
  1541. + 
  1542. + }
  1543. + 
  1544. + 
  1545. + #endif
  1546. Index: ./debug.c
  1547. *** /tmp/PATCHold/./debug.c    Thu Jan 23 14:53:24 1992
  1548. --- ./debug.c    Thu Jan 23 14:53:25 1992
  1549. ***************
  1550. *** 11,17 ****
  1551.   
  1552.   #ifndef    lint
  1553.   static char SCCSid[] =
  1554. !     "@(#)debug.c: 2.6 Copyright 91/02/20 09:00:22 Chris Lewis";
  1555.   #endif
  1556.   
  1557.   #ifdef    DEBUG
  1558. --- 11,17 ----
  1559.   
  1560.   #ifndef    lint
  1561.   static char SCCSid[] =
  1562. !     "@(#)debug.c: 2.7 Copyright 92/01/23 14:24:37 Chris Lewis";
  1563.   #endif
  1564.   
  1565.   #ifdef    DEBUG
  1566. ***************
  1567. *** 30,35 ****
  1568. --- 30,36 ----
  1569.       {'b', D_BEND},
  1570.       {'p', D_PK},
  1571.       {'v', D_VERB},
  1572. +     {'P', D_PIC},
  1573.       {'A', ~0},
  1574.       {0, 0}
  1575.   };
  1576. Index: ./lj3draw.c
  1577. *** /tmp/PATCHold/./lj3draw.c    Thu Jan 23 14:53:30 1992
  1578. --- ./lj3draw.c    Thu Jan 23 14:53:33 1992
  1579. ***************
  1580. *** 0 ****
  1581. --- 1,282 ----
  1582. + /*
  1583. +     Copyright 1992 David E. Wexelblat
  1584. + 
  1585. +     Inspiration for the struction of these functions taken from ps.c
  1586. + 
  1587. +     Copyright tranferred to Chris Lewis on the condition that the
  1588. +     original author's name remain with this code upon any 
  1589. +     subsequent distribution.
  1590. + 
  1591. +     Copyright 1992 Chris Lewis
  1592. +         All Rights Reserved
  1593. + 
  1594. +     See the LICENSE file for a full description of restrictions under which
  1595. +     this software is provided.
  1596. + 
  1597. +     Function:        Provides translation of Ditroff \D commands to
  1598. +             HP-GL/2 for HP Laserjet III series (PCL5) printers.
  1599. + */
  1600. + 
  1601. + #include "defs.h"
  1602. + 
  1603. + #ifdef LJ3
  1604. + #include "lj.h"
  1605. + #include <math.h>
  1606. + 
  1607. + #ifndef    lint
  1608. + static char SCCSid[] =
  1609. +     "@(#)lj3draw.c: 1.1 Copyright 92/01/23 14:26:29 Chris Lewis";
  1610. + #endif
  1611. + 
  1612. + #define to_deg(a)    ((180.0/M_PI) * (a))
  1613. + #define XSCALE         (int)(8.5 * LJRESOLUTION)
  1614. + #define YSCALE        (int)(11 * LJRESOLUTION)
  1615. + #define SPLINE_STEPS     20
  1616. + 
  1617. + #define ENTER_HPGL2    fputs("\033%1B", stdout)
  1618. + #define EXIT_HPGL2    fputs("\033%0A", stdout)
  1619. + 
  1620. + #ifdef LJ3_7BIT
  1621. + # define BASE        32
  1622. + # define END        95
  1623. + #else
  1624. + # define BASE        64
  1625. + # define END        191
  1626. + #endif
  1627. + 
  1628. + typedef struct {
  1629. +     int x, y;
  1630. + } Pt;
  1631. + 
  1632. + encode_coord(x)
  1633. + int x;
  1634. + {
  1635. +     int x1;
  1636. + 
  1637. +     x1 = (x >= 0) ? x << 1 : ((-x) << 1) + 1;
  1638. +     while (x1 >= BASE) {
  1639. +     putchar(63 + (x1 % BASE));
  1640. +     x1 /= BASE;
  1641. +     }
  1642. +     putchar(END + x1);
  1643. + }
  1644. + /*    Do ditroff drawing command in s from origX,origY.
  1645. +     If opcode 0 just moveto
  1646. +  */
  1647. + lj3Draw(origX, origY, opcode, ctindex, numbers, s)
  1648. + int origX, origY;        /* Origin for draw command */
  1649. + int opcode;            /* Draw function */
  1650. + int ctindex;            /* Number of parameters */
  1651. + short *numbers;         /* Parameters */
  1652. + char *s;            /* Draw command */
  1653. + {
  1654. + 
  1655. +     register int i, j;
  1656. +     double a1, a2;
  1657. +     int sweep;
  1658. +     int n, x1, y1, x0, y0;
  1659. +     double w, t1, t2, t3;
  1660. +     char *command;
  1661. +     Pt *p;
  1662. + 
  1663. + 
  1664. +     /* map absolute beginning position */
  1665. +     origX = TROFF2LJX(origX);
  1666. +     origY = TROFF2LJY(origY);
  1667. + 
  1668. +     switch (opcode) {
  1669. +     case 'f':
  1670. +         if (ctindex == 2)
  1671. +         ctindex = 1;
  1672. +         if (!require(1, ctindex, "set fill", s)) {
  1673. +             DBP((D_PIC, "lj3Draw: fill: %d\n", numbers[0]));
  1674. + 
  1675. +         if ((numbers[0] < 0) || (numbers[0] > 1000))
  1676. +             fprintf(stderr, "%s: fill %d out of range [0,1000]\n",
  1677. +             numbers[0]);
  1678. +         else {
  1679. +             ENTER_HPGL2;
  1680. +                 printf("FT10,%d;",(100-(numbers[0]/10)));
  1681. +             EXIT_HPGL2;
  1682. +         }
  1683. +         }
  1684. +         return;
  1685. +     case 't':
  1686. +         if (ctindex == 2)
  1687. +         ctindex = 1;
  1688. +         if (!require(1, ctindex, "set thick", s)) {
  1689. +             DBP((D_PIC, "lj3Draw: thich: %d\n", numbers[0]));
  1690. +         /* width 1 = 1mm, troff resolution = 432 dpi */
  1691. +         ENTER_HPGL2;
  1692. +             printf("\033%%1BLW%.2f;\033%%0A\n", numbers[0]/17.0);
  1693. +         EXIT_HPGL2;
  1694. +         }
  1695. + 
  1696. +         return;
  1697. +     }
  1698. +     printf(XY,origX,origY);
  1699. +     if (!opcode)
  1700. +     return;
  1701. + 
  1702. +     DBP((D_PIC, "lj3Draw: (%d,%d): %s\n", origX, origY, s));
  1703. + 
  1704. +     switch (opcode) {
  1705. +     case 'c':
  1706. +         if (ctindex == 2)
  1707. +         ctindex = 1;
  1708. +         /* FALLTHRU */
  1709. +     case 'e':
  1710. +         command = "CI";
  1711. +         break;
  1712. +     case 'C':
  1713. +         /* FALLTHRU */
  1714. +         if (ctindex == 2)
  1715. +         ctindex = 1;
  1716. +     case 'E':
  1717. +         command = "WG";
  1718. +         break;
  1719. +     case 'p':
  1720. +         command = "EP";
  1721. +         break;
  1722. +     case 'P':
  1723. +         command = "FP";
  1724. +         break;
  1725. +     }
  1726. + 
  1727. +     for (i = 0; i < ctindex; i++)
  1728. +     numbers[i] = numbers[i] * LJRESOLUTION / TROFFRESOLUTION;
  1729. + 
  1730. +     switch (opcode) {
  1731. +     case 'l':
  1732. +         if (require(2, ctindex, "line", s))
  1733. +         break;
  1734. +         DBP((D_PIC, "lj3Draw: line: %d, %d\n", numbers[0], numbers[1]));
  1735. +         ENTER_HPGL2;
  1736. +         printf("PD;PR%d,%d;", numbers[0], numbers[1]);
  1737. +         EXIT_HPGL2;
  1738. +         break;
  1739. +     case 'a':
  1740. +         if (require(4, ctindex, "arc", s))
  1741. +         break;
  1742. +         DBP((D_PIC, "lj3Draw: arc: %d, %d, %d, %d\n",
  1743. +         numbers[0], numbers[1], numbers[2], numbers[3]));
  1744. +         a1 = atan2((double)(-numbers[0]), (double)(-numbers[1]));
  1745. +         a2 = atan2((double)(numbers[2]), (double)(numbers[3]));
  1746. +         sweep = to_deg(a2-a1);
  1747. +         if (sweep < 0)
  1748. +         sweep += 360;
  1749. +         sweep = -sweep;    /* HP-GL/2 wants it in the other direction */
  1750. +         DBP((D_PIC, "lj3Draw: arc a1=%f a2=%f sweep=%d\n", a1, a2, sweep));
  1751. +         ENTER_HPGL2;
  1752. +         printf("PD;AR%d,%d,%d;", numbers[0], numbers[1], sweep);
  1753. +         EXIT_HPGL2;
  1754. +         break;
  1755. +     case 'C':
  1756. +     case 'c':
  1757. +         if (require(1, ctindex, (opcode=='C')?"filled circle":"circle", s))
  1758. +         break;
  1759. +         DBP((D_PIC, "lj3Draw: %scircle: %d\n", 
  1760. +         (opcode == 'C' ? "filled " : ""), numbers[0]));
  1761. +         /* Use 'CI r;' for circle, 'WG r,0,360;' for filled circle */
  1762. +         ENTER_HPGL2;
  1763. +         printf("PU;PR%d,0;%s%d%s;", numbers[0]/2, command, numbers[0]/2,
  1764. +         (opcode == 'C' ? ",0,360" : ""));
  1765. +         EXIT_HPGL2;
  1766. +         break;
  1767. +     case 'e':
  1768. +     case 'E':
  1769. +         if (require(2,ctindex,(opcode=='E')?"filled ellipse":"ellipse",s))
  1770. +         break;
  1771. +         DBP((D_PIC, "lj3Draw: %sellipse: %d, %d\n", 
  1772. +         (opcode == 'E' ? "filled " : ""), numbers[0], numbers[1]));
  1773. +         /* Use 'CI r;' for ellipse, 'WG r,0,360;' for filled ellipse */
  1774. +         ENTER_HPGL2;
  1775. +         printf("PU;PR%d,0;SC0,%d,0,%d;", numbers[0]/2, 
  1776. +         (int)(XSCALE * ((float)numbers[1]/numbers[0])), YSCALE);
  1777. +         printf("%s%d%s;SC0,%d,0,%d", command, numbers[1]/2,
  1778. +         (opcode == 'E' ? ",0,360" : ""), XSCALE, YSCALE);
  1779. +         EXIT_HPGL2;
  1780. +         break;
  1781. +     case 'p':
  1782. +     case 'P':
  1783. +         if (ctindex&1) {
  1784. +         fprintf(stderr, 
  1785. +             "%s: even number of points for %spolygon: %s\n",
  1786. +             progname, (opcode == 'P' ? "filled " : ""), s);
  1787. +         break;
  1788. +         }
  1789. +         DBP((D_PIC, "lj3Draw: %spolygon:",
  1790. +         (opcode == 'P' ? "filled " : "")));
  1791. + #        ifdef DEBUG
  1792. +         for (i=0; i < ctindex; i++)
  1793. +         DBP((D_PIC, " %d", numbers[i]));
  1794. +         DBP((D_PIC, "\n"));
  1795. + #        endif /* DEBUG */
  1796. +         ENTER_HPGL2;
  1797. +         printf("PM0;PD;PR%d,%d",numbers[0],numbers[1]);
  1798. +         for (i = 2; i < ctindex; i+=2)
  1799. +         printf(",%d,%d",numbers[i],numbers[i+1]);
  1800. +         printf(";PM2;%s;", command);
  1801. +         EXIT_HPGL2;
  1802. +         break;
  1803. +     case '~':
  1804. +         if (ctindex < 4) {
  1805. +         fprintf(stderr, "%s: too few points for spline: %s\n",
  1806. +             progname, s);
  1807. +         break;
  1808. +         }
  1809. +         DBP((D_PIC, "lj3Draw: spline:"));
  1810. + #        ifdef DEBUG
  1811. +         for (i=0; i < ctindex; i++)
  1812. +         DBP((D_PIC, " %d", numbers[i]));
  1813. +         DBP((D_PIC, "\n"));
  1814. + #        endif /* DEBUG */
  1815. +         n = ctindex/2 + 3;
  1816. +         p = (Pt *)malloc(sizeof(Pt) * n);
  1817. +         p[1].x = origX;
  1818. +         p[1].y = origY;
  1819. +         for (i = 2; i < n-1; i++) {
  1820. +         p[i].x = numbers[(i-2)*2]+p[i-1].x;
  1821. +         p[i].y = numbers[(i-2)*2+1]+p[i-1].y;
  1822. +         }
  1823. +         p[0] = p[1];
  1824. +         p[n-1] = p[n-2];
  1825. +         for (i = 0; i < n; i++)
  1826. +         DBP((D_PIC, "Pt %d: <%d,%d>\n", i, p[i].x, p[i].y));
  1827. + 
  1828. +         ENTER_HPGL2;
  1829. + #ifdef LJ3_7BIT
  1830. +         fputs("PD;PE7", stdout);
  1831. + #else
  1832. +         fputs("PD;PE", stdout);
  1833. + #endif
  1834. +         x0 = origX;
  1835. +         y0 = origY;
  1836. +         for (i = 0; i < n-2; i++) {
  1837. +         for (j = 0; j < SPLINE_STEPS; j++) {
  1838. +             w = (double)j / SPLINE_STEPS;
  1839. +             t1 = w * w / 2 ;
  1840. +             w = w - 0.5;
  1841. +             t2 = 0.75 - w * w;
  1842. +             w = w - 0.5;
  1843. +             t3 = w * w / 2;
  1844. +             x1 = t1*p[i+2].x + t2*p[i+1].x + t3*p[i].x + 0.5;
  1845. +             y1 = t1*p[i+2].y + t2*p[i+1].y + t3*p[i].y + 0.5;
  1846. +             encode_coord(x1-x0);
  1847. +             encode_coord(y1-y0);
  1848. +             x0 = x1;
  1849. +             y0 = y1;
  1850. +         }
  1851. +         }
  1852. +         putchar(';');
  1853. +         EXIT_HPGL2;
  1854. +         free(p);
  1855. +             break;
  1856. +     default:
  1857. +         fprintf(stderr, "%s: invalid draw code %c (%s)\n",
  1858. +         progname, opcode, s);
  1859. +         break;
  1860. +     }
  1861. + }
  1862. + 
  1863. + #endif /* LJ3 */
  1864.