home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / unix / volume26 / psroff30 / patch11 < prev    next >
Encoding:
Text File  |  1993-05-01  |  80.3 KB  |  3,103 lines
  1. Newsgroups: comp.sources.unix
  2. From: clewis@ferret.ocunix.on.ca (Chris Lewis)
  3. Subject: v26i202: psroff 3.0, Patch11
  4. Sender: unix-sources-moderator@efficacy.home.vix.com
  5. Approved: WhoAmI@efficacy.home.vix.com
  6.  
  7. Submitted-By: clewis@ferret.ocunix.on.ca (Chris Lewis)
  8. Posting-Number: Volume 26, Issue 202
  9. Archive-Name: psroff3.0/patch11
  10.  
  11. Return-Path: @mail.uunet.ca:clewis@ecicrl
  12. Received: by cognition.pa.dec.com; id AA13413; Sat, 23 May 92 23:36:10 -0700
  13. Received: by inet-gw-2.pa.dec.com; id AA10808; Sat, 23 May 92 23:35:56 -0700
  14. Received: from relay1.UU.NET by rodan.UU.NET with SMTP (5.61/UUNET-mail-drop) id AA06901; Sun, 24 May 92 02:35:50 -0400
  15. Received: from mail.uunet.ca (via uunet.ca) by relay1.UU.NET with SMTP (5.61/UUNET-internet-primary) id AA19773; Sun, 24 May 92 02:35:21 -0400
  16. Received: from ecicrl by mail.uunet.ca with UUCP id <10267>; Sun, 24 May 1992 02:35:14 -0400
  17. Received: by ferret.ocunix.on.ca (smail2.5)id AA23512; 24 May 92 01:48:39 EDT (Sun)
  18. Message-Id: <9205240148.AA23512@ferret.ocunix.on.ca>
  19. Date: Sun, 24 May 1992 01:48:39 -0400
  20. From: clewis@ferret.ocunix.on.ca (Chris Lewis)
  21. To: comp-sources-unix@uunet.UU.NET
  22.  
  23. Archive-name: psroff3.0/patch.11
  24. Submitted-by: clewis@ferret.ocunix.on.ca (Chris Lewis)
  25.  
  26.     This is official patch 11 for Psroff 3.0.
  27.     Please apply it by:
  28.     cd <psroff source directory>
  29.     touch checker.S pkscale.c (some v's of patch need this)
  30.     patch -N -p < <this file>
  31.     
  32.     The base release of psroff3.0 patches 1-4 were in
  33.     comp.sources.unix volume 24, 5-7 in volume 25 and 8-10
  34.     in volume26.
  35.  
  36. Highlights:
  37.     - Many optimization improvements of PostScript output:
  38.         - shortened font change sequences.
  39.         - can optimize horizontal line drawing (LJ3 too)
  40.         - line optimization (as opposed to "word")
  41.         - parameterize "." widths.
  42.         - parameterizable in psrofflib.S
  43.       For some metrics: perl man page: 1.5Mb unoptimized;
  44.       550K optimized; 270K with line optimization (better than
  45.       groff!!! ;-).  Shortened font change stuff saves ~5%.
  46.       Period width saves ~5%.  See troff2ps manual page "-g"
  47.       option for more detail.  Default: same as before - set
  48.       in psrofflib.S file.
  49.     - brand new configuration checker.  Try "make check".
  50.       Much simpler and more accurate.  "audit" is now obsolete.
  51.     - pk2sfp can now scale Laserjet fonts.  Not real well,
  52.       but usable, particularly when you're creating small
  53.       point sizes from big ones.  See manual page.  Eventually,
  54.       pkscale may be automatic in troff2ps, but for now, strictly
  55.       an auxiliary program.
  56.     - PostScript now supports European character set, compatible
  57.       with LJIII and "standard" troff naming conventions.
  58.       This is only available from CAT troff now.  The width
  59.       tables will be fixed for ditroff in next patch.  Note
  60.       "RE" function in ps.lib, and "_" prefixes in ps.fonts.
  61.     - line widths in LJ3 fixed to be consistant with box
  62.       characters and groff.
  63.     - installdit can now handle other ASCII-width-table-needing
  64.       ditroffs (eg: DWB 3.x), and installs groff tables properly.
  65.     - install permission fixing.
  66.     - Can handle font numbers > 9 (nonstandard ditroffs,
  67.       groff and DWB 3)
  68.  
  69. Files affected in this patch:
  70.  
  71.     ./man/pk2sfp.1.S
  72.     ./man/troff2ps.1.S
  73.     ./lib/lj3.fonts
  74.     ./lib/lj3.lib
  75.     ./lib/ps.fonts
  76.     ./lib/ps.lib
  77.     ./lib/psrofflib.S
  78.     ./lib/lj3u.fonts
  79.     ./widths/installdit.S
  80.     ./utils/Makefile
  81.     ./utils/pk2ps.c
  82.     ./utils/pk2sfp.c
  83.     ./utils/psxlate.c
  84.     ./utils/showfont.S
  85.     ./adapters/Makefile
  86.     ./checker.S
  87.     ./utils.c
  88.     ./ps.c
  89.     ./dit.c
  90.     ./README
  91.     ./troff2.c
  92.     ./defs.h
  93.     ./INSTALL
  94.     ./Makefile
  95.     ./opt.c
  96.     ./pkscale.c
  97.     ./pk.c
  98.  
  99. Patchwrapped: 920523223715
  100.  
  101. Index: ./man/pk2sfp.1.S
  102. *** /tmp/PATCHold/./man/pk2sfp.1.S    Sat May 23 22:29:26 1992
  103. --- ./man/pk2sfp.1.S    Sat May 23 22:29:32 1992
  104. ***************
  105. *** 1,4 ****
  106. ! .\"Copyright 1988 by Chris Lewis 91/03/20
  107.   .TH PK2SFP %%MANEXT%% "Psroff %%T2VERSION%%"
  108.   .SH NAME
  109.   pk2sfp,pk2ditwid,pktype,pk2ps \- PK/SFP format font file handling utilities
  110. --- 1,4 ----
  111. ! .\"Copyright 1988 by Chris Lewis 92/05/19
  112.   .TH PK2SFP %%MANEXT%% "Psroff %%T2VERSION%%"
  113.   .SH NAME
  114.   pk2sfp,pk2ditwid,pktype,pk2ps \- PK/SFP format font file handling utilities
  115. ***************
  116. *** 108,113 ****
  117. --- 108,119 ----
  118.   .SH "Additional options for pk2sfp"
  119.   .PP
  120.   The
  121. + .BI "\-o" size
  122. + option will scale the input fonts to the point size specified
  123. + by
  124. + .BR size .
  125. + .PP
  126. + The
  127.   .BI "\-s" na
  128.   option will set the symbol set.
  129.   Eg:
  130. ***************
  131. *** 529,534 ****
  132. --- 535,543 ----
  133.   .B pk2sfp "'s"
  134.   partial downloading feature (by including characters that you don't
  135.   really need - which is harmless).
  136. + .PP
  137. + The \-o option only really works well when you're going *down*
  138. + in size.
  139.   .SH "SEE ALSO"
  140.   troff2ps(%%MANEXT%%), \fIlj.fonts\fP,
  141.   Hewlett Packard's HP Laserjet Reference Manuals.
  142. Index: ./man/troff2ps.1.S
  143. *** /tmp/PATCHold/./man/troff2ps.1.S    Sat May 23 22:29:54 1992
  144. --- ./man/troff2ps.1.S    Sat May 23 22:29:56 1992
  145. ***************
  146. *** 1,4 ****
  147. ! .\"Copyright 1988 by Chris Lewis 2.14 91/11/13
  148.   .TH TROFF2PS %%MANEXT%% "Psroff %%T2VERSION%%"
  149.   .SH NAME
  150.   troff2ps, troff2lj, troff2xx \- convert troff output to Postscript, HP etc.
  151. --- 1,4 ----
  152. ! .\"Copyright 1988 by Chris Lewis 2.16 92/05/23
  153.   .TH TROFF2PS %%MANEXT%% "Psroff %%T2VERSION%%"
  154.   .SH NAME
  155.   troff2ps, troff2lj, troff2xx \- convert troff output to Postscript, HP etc.
  156. ***************
  157. *** 20,25 ****
  158. --- 20,26 ----
  159.   .B "[\-M]"
  160.   .B "[\-S]"
  161.   .BI "[\-G" ss "]"
  162. + .BI "[\-g" opt "]"
  163.   .SH DESCRIPTION
  164.   .I Troff2ps
  165.   takes
  166. ***************
  167. *** 166,172 ****
  168.   else, or the final directory name is different from the
  169.   .B \-T
  170.   value (ie: with ditroff).
  171. - See psrofflib entry "ops" for an example.
  172.   The
  173.   .B \-W
  174.   option is ignored unless
  175. --- 167,172 ----
  176. ***************
  177. *** 173,178 ****
  178. --- 173,219 ----
  179.   .B \-Z
  180.   is specified.
  181.   .PP
  182. + The
  183. + .B \-g
  184. + option is an extended version of
  185. + .BR \-Z .
  186. + .B \-g
  187. + consists of a string containing one or more of the following:
  188. + a period (``.''), or an l (lower case L) or a decimal number.
  189. + The decimal number must be last.
  190. + The period indicates that the width table entries for a period
  191. + are correct.
  192. + Many PostScript printers have slightly different metrics for
  193. + periods.
  194. + To test, run ``showfont | <your printer>'' and examine the
  195. + box containing the period.
  196. + The number second from the bottom on the left side should be 25.
  197. + If it is, you can supply the ``.'' option.
  198. + If not, you will have to regenerate all of your width tables
  199. + using psdtwid before you can safely specify ``.''.
  200. + Turning ``.'' on typically saves about 10-15% in PostScript
  201. + file size.
  202. + .PP
  203. + The ``l'' suboption enables line optimization.
  204. + This causes
  205. + .B troff2ps
  206. + to assemble whole lines worth of
  207. + text into single string emissions rather than breaking on
  208. + inter-word spaces.
  209. + This can save as much as 50% of the file size and transmission
  210. + time, as well as significantly speeding up your printer.
  211. + .PP
  212. + The decimal number tells the optimizer how big a string to
  213. + coalesce.
  214. + The default is 15.
  215. + Setting ``l'' implies 150.
  216. + .PP
  217. + .B \-Z
  218. + is equivalent to
  219. + .BR \-g15 .
  220. + .B \-g.l
  221. + is the highest possible optimization level.
  222. + .PP
  223.   Ditroff output is a special case with respect to optimization.
  224.   The optimal form for emitting characters in ditroff is something
  225.   like ``\f3c\f2CnnCnnCnnC\f3w\f1'',
  226. ***************
  227. *** 187,192 ****
  228. --- 228,235 ----
  229.   .PP
  230.   If
  231.   .B \-Z
  232. + or
  233. + .B \-g
  234.   is specified,
  235.   but
  236.   .B \-n
  237. ***************
  238. *** 195,200 ****
  239. --- 238,245 ----
  240.   with any ditroff backend.
  241.   If both
  242.   .B \-Z
  243. + or
  244. + .B \-g
  245.   and
  246.   .B \-n
  247.   are specified, ``words'' are emitted as ``\f3t\f2CCCCC\f1'', which
  248. Index: ./lib/lj3.fonts
  249. *** /tmp/PATCHold/./lib/lj3.fonts    Sat May 23 22:30:11 1992
  250. --- ./lib/lj3.fonts    Sat May 23 22:30:12 1992
  251. ***************
  252. *** 1,4 ****
  253. ! #@(#)lj3.fonts 2.13 92/03/03
  254.   #    Laserjet III fonts file.
  255.   #    See lj.fonts for more explanation.
  256.   #    The first ten fonts are the built-in scaleable typefaces.
  257. --- 1,4 ----
  258. ! #@(#)lj3.fonts 2.14 92/04/12
  259.   #    Laserjet III fonts file.
  260.   #    See lj.fonts for more explanation.
  261.   #    The first ten fonts are the built-in scaleable typefaces.
  262. ***************
  263. *** 53,59 ****
  264.   co N \033(7J\245\033(8U
  265.   sq N \033(7J\273\033(8U
  266.   symbol
  267. ! br N | -92 0
  268.   eq S =
  269.   ts S \133
  270.   mi S -
  271. --- 53,59 ----
  272.   co N \033(7J\245\033(8U
  273.   sq N \033(7J\273\033(8U
  274.   symbol
  275. ! br N | -80 0
  276.   eq S =
  277.   ts S \133
  278.   mi S -
  279. Index: ./lib/lj3.lib
  280. *** /tmp/PATCHold/./lib/lj3.lib    Sat May 23 22:30:20 1992
  281. --- ./lib/lj3.lib    Sat May 23 22:30:21 1992
  282. ***************
  283. *** 29,41 ****
  284.   %            \xAABB \022 A %hello
  285.   %            Passes the following bytes: 0xAA, 0xBB, 022, and "A"
  286.   %            through to the laserjet.
  287. ! %ident  @(#)lj3.lib: 2.3 Copyright 92/02/10 16:48:46 Chris Lewis"
  288.   \033E\033&k2G            %reset printer, set CR=CR,LF=CRLF,FF=CRFF 
  289.   \033&l6d66p0o0e66f0L        %letter size, portrait, no perf skip
  290.   \0339                %reset side margins
  291.   \033&a0h0V            %move cursor to 0,0
  292.   \033*c6120x7920y0T\033\045 1B    %set HP-GL/2 picture frame, go to HP-GL/2
  293. ! IN;WU0;PW0.36;SP1;        %initialize, pen widths in MM, 0.36MM for pen 1
  294.   LA1,4,2,4;            %set round line caps & joins
  295.   TR0;                %set transparency mode off
  296.   IP0,11176,8636,0;        %set orientation to match PCL
  297. --- 29,41 ----
  298.   %            \xAABB \022 A %hello
  299.   %            Passes the following bytes: 0xAA, 0xBB, 022, and "A"
  300.   %            through to the laserjet.
  301. ! %ident  @(#)lj3.lib: 2.4 Copyright 92/04/12 22:01:19 Chris Lewis"
  302.   \033E\033&k2G            %reset printer, set CR=CR,LF=CRLF,FF=CRFF 
  303.   \033&l6d66p0o0e66f0L        %letter size, portrait, no perf skip
  304.   \0339                %reset side margins
  305.   \033&a0h0V            %move cursor to 0,0
  306.   \033*c6120x7920y0T\033\045 1B    %set HP-GL/2 picture frame, go to HP-GL/2
  307. ! IN;WU0;PW0.2;SP1;        %initialize, pen widths in MM, 0.36MM for pen 1
  308.   LA1,4,2,4;            %set round line caps & joins
  309.   TR0;                %set transparency mode off
  310.   IP0,11176,8636,0;        %set orientation to match PCL
  311. Index: ./lib/ps.fonts
  312. *** /tmp/PATCHold/./lib/ps.fonts    Sat May 23 22:30:29 1992
  313. --- ./lib/ps.fonts    Sat May 23 22:30:30 1992
  314. ***************
  315. *** 1,4 ****
  316. ! #@(#)ps.fonts 2.5 91/08/29
  317.   #    DO NOT CHANGE THE ORDER OF THE FIRST FOUR LINES - THESE ARE
  318.   #    THE DEFAULT TROFF FONTS IN POSITIONS 1-5.  IN PARTICULAR, IF
  319.   #    SYMBOL ISN'T THE FOURTH ENTRY AND BRACKETFONT ISN'T THE FIFTH,
  320. --- 1,4 ----
  321. ! #@(#)ps.fonts 2.6 92/05/21 01:56:49
  322.   #    DO NOT CHANGE THE ORDER OF THE FIRST FOUR LINES - THESE ARE
  323.   #    THE DEFAULT TROFF FONTS IN POSITIONS 1-5.  IN PARTICULAR, IF
  324.   #    SYMBOL ISN'T THE FOURTH ENTRY AND BRACKETFONT ISN'T THE FIFTH,
  325. ***************
  326. *** 7,15 ****
  327.   #    The first token is the CAT name, the second is the postscript
  328.   #    name, and the third (if present) is a file to punt to the
  329.   #    printer when the font is first referenced.
  330. ! R    Times-Roman
  331. ! I    Times-Italic
  332. ! B    Times-Bold
  333.   S    Symbol
  334.   S2    BracketFont
  335.   AB    AvantGarde-Demi
  336. --- 7,17 ----
  337.   #    The first token is the CAT name, the second is the postscript
  338.   #    name, and the third (if present) is a file to punt to the
  339.   #    printer when the font is first referenced.
  340. ! #    If the font name starts with an underscore, the font
  341. ! #    is reencoded to permit access to the European character set.
  342. ! R    _Times-Roman
  343. ! I    _Times-Italic
  344. ! B    _Times-Bold
  345.   S    Symbol
  346.   S2    BracketFont
  347.   AB    AvantGarde-Demi
  348. ***************
  349. *** 47,137 ****
  350.   HW    HaeberliWriting    /usr/lib/troff2/lib/lj/hwfont
  351.   TE    Tymes-Elfin /usr/lib/troff2/lib/lj/tefont
  352.   extensions
  353. ! a^    N    \136
  354. ! a~    N    \176
  355. ! I!    N    \241
  356. ! po    N    \243
  357. ! $J    N    \245
  358. ! lq    N    \252
  359. ! d<    N    \253
  360. ! l<    N    \254
  361. ! r>    N    \255
  362. ! pp    N    \266
  363. ! bq    N    \271
  364. ! rq    N    \272
  365. ! d>    N    \273
  366. ! pm    N    \275
  367. ! I?    N    \277
  368. ! ma    N    \305
  369. ! be    N    \306
  370. ! dt    N    \307
  371. ! ..    N    \310
  372. ! ri    N    \312
  373. ! cd    N    \313
  374. ! ''    N    \315
  375. ! og    N    \316
  376. ! hc    N    \317
  377. ! a:    N    \321
  378. ! o:    N    \322
  379. ! u:    N    \323
  380. ! A:    N    \324
  381. ! O:    N    \325
  382. ! U:    N    \326
  383. ! AE    N    \341
  384. ! PL    N    \350
  385. ! O/    N    \351
  386.   OE    N    \352
  387. - ae    N    \361
  388. - ui    N    \365
  389. - Pl    N    \370
  390. - o/    N    \371
  391.   oe    N    \372
  392. ! ss    N    \373
  393. ! fa    S    \042
  394. ! te    S    \044
  395. ! cm    S    \047
  396. ! =~    S    \100
  397. ! *A    S    \101
  398. ! *B    S    \102
  399. ! *X    S    \103
  400. ! *E    S    \105
  401. ! *Y    S    \110
  402. ! *I    S    \111
  403. ! *K    S    \113
  404. ! *M    S    \115
  405. ! *N    S    \116
  406. ! *O    S    \117
  407. ! *R    S    \122
  408. ! *T    S    \124
  409. ! *Z    S    \132
  410. ! tf    S    \134
  411. ! bt    S    \136
  412. ! mt    S    \242
  413. ! Cc    S    \247
  414. ! Cd    S    \250
  415. ! Ch    S    \251
  416. ! Cs    S    \252
  417. ! <>    S    \253
  418. ! sd    S    \262
  419. ! cr    S    \277
  420. ! al    S    \300
  421. ! ax    S    \304
  422. ! a+    S    \305
  423. ! !s    S    \313
  424. ! !m    S    \317
  425. ! ag    S    \320
  426. ! m.    S    \327
  427. ! an    S    \331
  428. ! lo    S    \332
  429. ! io    S    \333
  430. ! <:    S    \334
  431. ! u=    S    \335
  432. ! :>    S    \336
  433. ! d=    S    \337
  434. ! dm    S    \340
  435. ! L<    S    \341
  436. ! tm    S    \344
  437. ! AL    S    \360
  438. ! R>    S    \361
  439. ! r1    4    \121
  440. ! r2    4    \122
  441. --- 49,118 ----
  442.   HW    HaeberliWriting    /usr/lib/troff2/lib/lj/hwfont
  443.   TE    Tymes-Elfin /usr/lib/troff2/lib/lj/tefont
  444.   extensions
  445. ! r!    N    \241
  446. ! r?    N    \277
  447. ! 'A    N    \001
  448. ! 'a    N    \002
  449. ! ^A    N    \003
  450. ! ^a    N    \004
  451. ! :A    N    \005
  452. ! :a    N    \006
  453. ! `A    N    \007
  454. ! `a    N    \010
  455. ! oA    N    \011
  456. ! oa    N    \012
  457. ! ~A    N    \013
  458. ! ~a    N    \014
  459. ! ,C    N    \015
  460. ! ,c    N    \016
  461. ! 'E    N    \017
  462. ! 'e    N    \020
  463. ! ^E    N    \021
  464. ! ^e    N    \022
  465. ! :E    N    \023
  466. ! :e    N    \024
  467. ! `E    N    \025
  468. ! `e    N    \026
  469. ! 'I    N    \027
  470. ! 'i    N    \030
  471. ! ^I    N    \031
  472. ! ^i    N    \032
  473. ! :I    N    \033
  474. ! :i    N    \034
  475. ! `I    N    \035
  476. ! `i    N    \036
  477. ! ~N    N    \037
  478. ! ~n    N    \200
  479. ! 'O    N    \201
  480. ! 'o    N    \202
  481. ! ^O    N    \203
  482. ! ^o    N    \204
  483. ! :O    N    \205
  484. ! :o    N    \206
  485. ! `O    N    \207
  486. ! `o    N    \210
  487. ! ~O    N    \211
  488. ! ~o    N    \212
  489. ! vS    N    \213
  490. ! vs    N    \214
  491. ! 'U    N    \215
  492. ! 'u    N    \216
  493. ! ^U    N    \217
  494. ! ^u    N    \220
  495. ! :U    N    \221
  496. ! :u    N    \222
  497. ! `U    N    \223
  498. ! `u    N    \224
  499. ! :Y    N    \225
  500. ! :y    N    \226
  501. ! vZ    N    \227
  502. ! vz    N    \230
  503. ! /O    N    \351
  504. ! /o    N    \371
  505.   OE    N    \352
  506.   oe    N    \372
  507. ! ae    N    \361
  508. ! AE    N    \341
  509. ! Ye    N    \245
  510. ! ..    N    \310
  511. ! 
  512. Index: ./lib/ps.lib
  513. *** /tmp/PATCHold/./lib/ps.lib    Sat May 23 22:30:38 1992
  514. --- ./lib/ps.lib    Sat May 23 22:30:40 1992
  515. ***************
  516. *** 9,18 ****
  517.   %    Module:        ps.lib
  518.   %    Author:     Chris Lewis
  519.   %    Specs:        Predefinitions for PostScript
  520. ! %ident  @(#)ps.lib: 2.12 Copyright 92/02/13 01:44:51 Chris Lewis"
  521.   
  522.   /Y { 3 1 roll dup /CurY exch def moveto show } bind def
  523.   /X { exch CurY moveto show } bind def
  524.   /hits 0 def
  525.   /misses 0 def
  526.   /pagecount 0 def
  527. --- 9,27 ----
  528.   %    Module:        ps.lib
  529.   %    Author:     Chris Lewis
  530.   %    Specs:        Predefinitions for PostScript
  531. ! %ident  @(#)ps.lib: 92/05/21 Copyright 92/05/21 01:56:54 Chris Lewis"
  532.   
  533.   /Y { 3 1 roll dup /CurY exch def moveto show } bind def
  534.   /X { exch CurY moveto show } bind def
  535. + % s cx x y W -
  536. + /W {
  537. +     dup        % s cx x y y
  538. +     /CurY exch def    % s cx x y
  539. +     moveto    % s cx
  540. +     0 8#040    % s cx 0 8#040
  541. +     4 -1 roll    % cx 0 8#040 s
  542. +     widthshow    % -
  543. + } bind def
  544.   /hits 0 def
  545.   /misses 0 def
  546.   /pagecount 0 def
  547. ***************
  548. *** 76,82 ****
  549.   %    pages.
  550.   %
  551.   %    Trial font cache - I can't think in Polish... ;-)
  552. ! /SetFont {
  553.       /curPoints exch def
  554.       /curFont exch def
  555.       %    Concatenate the curFont string with the curPoints to create
  556. --- 85,91 ----
  557.   %    pages.
  558.   %
  559.   %    Trial font cache - I can't think in Polish... ;-)
  560. ! /S {
  561.       /curPoints exch def
  562.       /curFont exch def
  563.       %    Concatenate the curFont string with the curPoints to create
  564. ***************
  565. *** 110,116 ****
  566.   
  567.   /metrics {
  568.       /psize 16 def
  569. !     /Times-Roman psize SetFont
  570.       /charcount exch def
  571.       /curpos 720 def
  572.       /xpos 72 def
  573. --- 119,125 ----
  574.   
  575.   /metrics {
  576.       /psize 16 def
  577. !     /Times-Roman psize S
  578.       /charcount exch def
  579.       /curpos 720 def
  580.       /xpos 72 def
  581. ***************
  582. *** 405,411 ****
  583.     40 C.setl  0 -250 moveto  0 1000 rlineto  stroke
  584.   } def
  585.   /Cru {
  586. ! 0 0 -50 -250 1000 0 setcachedevice
  587.     40 C.setl  0 -250 moveto 500 0 rlineto stroke
  588.   } def
  589.   /Crn {
  590. --- 414,420 ----
  591.     40 C.setl  0 -250 moveto  0 1000 rlineto  stroke
  592.   } def
  593.   /Cru {
  594. ! 500 0 -50 -250 1000 0 setcachedevice
  595.     40 C.setl  0 -250 moveto 500 0 rlineto stroke
  596.   } def
  597.   /Crn {
  598. ***************
  599. *** 445,450 ****
  600. --- 454,461 ----
  601.   } def end
  602.   /BracketFont BracketFontDict definefont pop
  603.   
  604. + %Drawing support
  605. + 
  606.   /Ellipse {
  607.       /Yaxis exch 2 div def
  608.       /Xaxis exch 2 div def
  609. ***************
  610. *** 487,492 ****
  611. --- 498,547 ----
  612.   /dost{
  613.       currentlinewidth exch 6 div setlinewidth stroke setlinewidth
  614.   } bind def
  615. + 
  616. + 
  617. + %    Font reencoding support function for European characters.
  618. + %    Requires a leading _ on the ps.fonts files.
  619. + %    Green book, pg 115-117
  620. + %    encmap f1 f2 RE
  621. + %    reencodes f2 to create f1, using map in encmap.
  622. + /RE {
  623. +     findfont begin
  624. +     currentdict dup length dict begin
  625. +     { %forall
  626. +         1 index /FID ne {def} {pop pop} ifelse
  627. +     } forall
  628. +     /FontName exch def dup length 0 ne { %if
  629. +         /Encoding Encoding 256 array copy def
  630. +         0 exch { %forall
  631. +         dup type /nametype eq { %ifelse
  632. +             Encoding 2 index 2 index put
  633. +             pop 1 add
  634. +         }{ %else
  635. +             exch pop
  636. +         } ifelse
  637. +         } forall
  638. +     } if pop
  639. +     currentdict dup end end
  640. +     /FontName get exch definefont pop
  641. + } bind def
  642. + 
  643. + %    Standard encoding for psroff.
  644. + %    places 32 characters starting at 0, then the rest at 128.
  645. + /stdencoding [ 1
  646. + /Aacute /aacute /Acircumflex /acircumflex /Adieresis /adieresis /Agrave /agrave
  647. + /Aring /aring /Atilde /atilde
  648. + /Ccedilla /ccedilla
  649. + /Eacute /eacute /Ecircumflex /ecircumflex /Edieresis /edieresis /Egrave /egrave
  650. + /Iacute /iacute /Icircumflex /icircumflex /Idieresis /idieresis /Igrave /igrave
  651. + /Ntilde
  652. + 128
  653. + /ntilde
  654. + /Oacute /oacute /Ocircumflex /ocircumflex /Odieresis /odieresis /Ograve /ograve
  655. + /Otilde /otilde
  656. + /Scaron /scaron /Uacute /uacute /Ucircumflex /ucircumflex /Udieresis /udieresis
  657. + /Ugrave /ugrave /Ydieresis /ydieresis /Zcaron /zcaron
  658. + ] def
  659.   
  660.   %    This macro is invoked by ShowPage to display the current form.
  661.   %    Usually redefined to point at a form loaded by an include
  662. Index: ./lib/psrofflib.S
  663. *** /tmp/PATCHold/./lib/psrofflib.S    Sat May 23 22:30:54 1992
  664. --- ./lib/psrofflib.S    Sat May 23 22:30:55 1992
  665. ***************
  666. *** 1,4 ****
  667. ! #    2.25 92/02/10
  668.   #    This file controls psroff, you can insert additional printer
  669.   #    types here.  These are eval'd *late* in processing, so that
  670.   #    you can insert $copies etc.
  671. --- 1,4 ----
  672. ! #    2.27 92/05/23
  673.   #    This file controls psroff, you can insert additional printer
  674.   #    types here.  These are eval'd *late* in processing, so that
  675.   #    you can insert $copies etc.
  676. ***************
  677. *** 60,70 ****
  678.   #        -G<sizescale>    If you're driving with groff, and the sizescale
  679.   #                parameter is specified in the DESC file, you
  680.   #                have to supply the sizescale parameter here.
  681. ! #        -Z        optimizer
  682. ! #        -S        Use "stop" to terminate Postscript instead
  683. ! #                of control-D
  684.   #        -W<directory>    location of CAT width tables.  Defaults
  685.   #                to FONTDIR/<type>/ft*
  686.   #
  687.   #    lparg: how to get output to printer.  Note the "-n$copies" and
  688.   #        -d$ptr.  The $ptr is the psroff selected physical printer
  689. --- 60,73 ----
  690.   #        -G<sizescale>    If you're driving with groff, and the sizescale
  691.   #                parameter is specified in the DESC file, you
  692.   #                have to supply the sizescale parameter here.
  693. ! #        -Z        optimizer.  If you are using a version of
  694. ! #                DWB that needs ASCII width tables, set -G1.
  695. ! #        -g[.][l]nnn    Optimizer control.  Leave out initially.
  696. ! #                Consult troff2ps man page for more details.
  697.   #        -W<directory>    location of CAT width tables.  Defaults
  698.   #                to FONTDIR/<type>/ft*
  699. + #        -S        Use "stop" to terminate Postscript instead
  700. + #                of control-D
  701.   #
  702.   #    lparg: how to get output to printer.  Note the "-n$copies" and
  703.   #        -d$ptr.  The $ptr is the psroff selected physical printer
  704. Index: ./lib/lj3u.fonts
  705. *** /tmp/PATCHold/./lib/lj3u.fonts    Sat May 23 22:31:09 1992
  706. --- ./lib/lj3u.fonts    Sat May 23 22:31:10 1992
  707. ***************
  708. *** 1,4 ****
  709. ! #@(#)lj3u.fonts 2.7 92/03/03
  710.   #    Laserjet III fonts file.  Shuffled for Universal as primary typeface.
  711.   #    See lj.fonts for more explanation.
  712.   #    The first ten fonts are the built-in scaleable typefaces.
  713. --- 1,4 ----
  714. ! #@(#)lj3u.fonts 2.8 92/04/12
  715.   #    Laserjet III fonts file.  Shuffled for Universal as primary typeface.
  716.   #    See lj.fonts for more explanation.
  717.   #    The first ten fonts are the built-in scaleable typefaces.
  718. ***************
  719. *** 53,59 ****
  720.   co N \033(7J\245\033(8U
  721.   sq N \033(7J\273\033(8U
  722.   symbol
  723. ! br N | -92 0
  724.   eq S =
  725.   ts S \133
  726.   mi S -
  727. --- 53,59 ----
  728.   co N \033(7J\245\033(8U
  729.   sq N \033(7J\273\033(8U
  730.   symbol
  731. ! br N | -80 0
  732.   eq S =
  733.   ts S \133
  734.   mi S -
  735. Index: ./widths/installdit.S
  736. *** /tmp/PATCHold/./widths/installdit.S    Sat May 23 22:31:21 1992
  737. --- ./widths/installdit.S    Sat May 23 22:31:22 1992
  738. ***************
  739. *** 5,11 ****
  740.   #    See the LICENSE file for a full description of the restrictions
  741.   #    under which this software is provided.
  742.   #
  743. ! #1.7 92/02/21
  744.   MAKEDEV=%%MAKEDEV%%
  745.   if [ ! -f "$MAKEDEV" ]
  746.   then
  747. --- 5,11 ----
  748.   #    See the LICENSE file for a full description of the restrictions
  749.   #    under which this software is provided.
  750.   #
  751. ! #1.8 92/04/12
  752.   MAKEDEV=%%MAKEDEV%%
  753.   if [ ! -f "$MAKEDEV" ]
  754.   then
  755. ***************
  756. *** 96,102 ****
  757.           continue
  758.       fi
  759.       cd $dir
  760. !     list="`find . -name '[A-Z]*' -a ! -name '*.out' -print`"
  761.       if [ -n "$list" ]
  762.       then
  763.           echo "INSTALLING ditroff widths from $dir into $destdir"
  764. --- 96,108 ----
  765.           continue
  766.       fi
  767.       cd $dir
  768. !     if [ -z "$Garg" ]
  769. !     then
  770. !         list="`find . -name '*.out' -print`"
  771. !     else
  772. !         list="`find . -name '[A-Z]*' -a ! -name '*.out' -print`"
  773. !     fi
  774. ! 
  775.       if [ -n "$list" ]
  776.       then
  777.           echo "INSTALLING ditroff widths from $dir into $destdir"
  778. Index: ./utils/Makefile
  779. *** /tmp/PATCHold/./utils/Makefile    Sat May 23 22:31:31 1992
  780. --- ./utils/Makefile    Sat May 23 22:31:32 1992
  781. ***************
  782. *** 4,10 ****
  783.   #    See the LICENSE file for a full description of the restrictions
  784.   #    under which this software is provided.
  785.   #
  786. ! #2.9 91/10/17
  787.   SCRIPTS    = psdtwd showfont mkenctab calcfonts catconv dodps
  788.   PROGRAMS = hpinterp psxlate pk2sfp pk2ditwid pktype dumpft pk2ps lj2ps \
  789.       asc2ps
  790. --- 4,10 ----
  791.   #    See the LICENSE file for a full description of the restrictions
  792.   #    under which this software is provided.
  793.   #
  794. ! #2.11 92/05/19
  795.   SCRIPTS    = psdtwd showfont mkenctab calcfonts catconv dodps
  796.   PROGRAMS = hpinterp psxlate pk2sfp pk2ditwid pktype dumpft pk2ps lj2ps \
  797.       asc2ps
  798. ***************
  799. *** 69,76 ****
  800.       $(CC) $(CFLAGS) -o pk2ditwid pk2ditwid.o ../debug.o ../pk.o ljtab.o \
  801.           $(LIBFLAGS)
  802.   
  803. ! pk2sfp:    ../pk.o ../debug.o pk2sfp.o ljtab.o
  804. !     $(CC) $(CFLAGS) -o pk2sfp pk2sfp.o ../debug.o ../pk.o ljtab.o \
  805.           $(LIBFLAGS)
  806.   
  807.   dumpft:    dumpft.o ../cattab.o
  808. --- 69,76 ----
  809.       $(CC) $(CFLAGS) -o pk2ditwid pk2ditwid.o ../debug.o ../pk.o ljtab.o \
  810.           $(LIBFLAGS)
  811.   
  812. ! pk2sfp:    ../pk.o ../debug.o pk2sfp.o ljtab.o ../pkscale.o
  813. !     $(CC) $(CFLAGS) -o pk2sfp pk2sfp.o ../debug.o ../pk.o ljtab.o ../pkscale.o \
  814.           $(LIBFLAGS)
  815.   
  816.   dumpft:    dumpft.o ../cattab.o
  817. ***************
  818. *** 84,91 ****
  819.   
  820.   install:
  821.       cd $(LIBDIR) ; rm -f $(SCRIPTS)
  822. !     $(IGNORESH) cp $(SCRIPTS) $(LIBDIR)
  823. !     for i in $(PROGRAMS) ; \
  824.       do \
  825.           if [ -f $(LIBDIR)/$$i ] ; \
  826.           then \
  827. --- 84,92 ----
  828.   
  829.   install:
  830.       cd $(LIBDIR) ; rm -f $(SCRIPTS)
  831. !     cp $(SCRIPTS) $(LIBDIR)
  832. !     cd $(LIBDIR) ; chmod 555 $(SCRIPTS)
  833. !     $(IGNORSH) for i in $(PROGRAMS) ; \
  834.       do \
  835.           if [ -f $(LIBDIR)/$$i ] ; \
  836.           then \
  837. ***************
  838. *** 93,98 ****
  839. --- 94,100 ----
  840.           cp $(LIBDIR)/$$i $(LIBDIR)/$$i.old 2> /dev/null ; \
  841.           fi ; \
  842.           cp $$i $(LIBDIR)/$$i ; \
  843. +         chmod 555 $(LIBDIR)/$$i ; \
  844.       done
  845.   
  846.   #    Try to convert a vendor supplied ft into dit2catwid input
  847. Index: ./utils/pk2ps.c
  848. *** /tmp/PATCHold/./utils/pk2ps.c    Sat May 23 22:31:41 1992
  849. --- ./utils/pk2ps.c    Sat May 23 22:31:42 1992
  850. ***************
  851. *** 14,20 ****
  852.   
  853.   #ifndef    lint
  854.   static char SCCSID[] =
  855. !     "@(#)pk2ps.c 2.3 Copyright 91/10/22 03:03:11 Chris Lewis";
  856.   #endif
  857.   #include "defs.h"
  858.   #include "pk.h"
  859. --- 14,20 ----
  860.   
  861.   #ifndef    lint
  862.   static char SCCSID[] =
  863. !     "@(#)pk2ps.c 2.4 Copyright 92/03/12 01:11:48 Chris Lewis";
  864.   #endif
  865.   #include "defs.h"
  866.   #include "pk.h"
  867. ***************
  868. *** 26,31 ****
  869. --- 26,53 ----
  870.   long highest = 0;
  871.   int fontonly = 0;
  872.   
  873. + /* character names in standard Adobe encoding */
  874. + char *adobecharnames[95] =
  875. +     {    "space", "exclam", "quotedbl", "numbersign",
  876. +     "dollar", "percent", "ampersand", "quoteright",
  877. +     "parenleft", "parenright", "asterisk", "plus",
  878. +     "comma", "hyphen", "period", "slash",
  879. +     "zero", "one", "two", "three", "four", "five",
  880. +     "six", "seven", "eight", "nine", "colon", "semicolon",
  881. +     "less", "equal", "greater", "question",
  882. +     "at", "A", "B", "C", "D", "E", "F", "G",
  883. +     "H", "I", "J", "K", "L", "M", "N", "O",
  884. +     "P", "Q", "R", "S", "T", "U", "V", "W",
  885. +     "X", "Y", "Z", "bracketleft",
  886. +     "backslash", "bracketright", "asciicircum", "underscore",
  887. +     "quoteleft", "a", "b", "c", "d", "e", "f", "g",
  888. +     "h", "i", "j", "k", "l", "m", "n", "o",
  889. +     "p", "q", "r", "s", "t", "u", "v", "w",
  890. +     "x", "y", "z", "braceleft", "bar", "braceright", "asciitilde"
  891. +     };
  892. + 
  893. + extern long sfp_hmi;    /* pitch (default HMI) -- width of space */
  894. + 
  895.   /*    Dummied out for pk.c */
  896.   needchar(a, b)
  897.   int a, b; {
  898. ***************
  899. *** 44,52 ****
  900.       struct pkp *pk_read();
  901.       register int i, len;
  902.       int chcount;
  903.   
  904.       progname = argv[0];
  905. !     while((c = getopt(argc, argv, "fD:v")) != EOF)
  906.       switch(c) {
  907.           case 'D':
  908.   #ifdef    DEBUG
  909. --- 66,78 ----
  910.       struct pkp *pk_read();
  911.       register int i, len;
  912.       int chcount;
  913. +     int saw_space;
  914. +     int lx, ly, ux, uy;        /* character bounding box */
  915. +     int flx, fly, fux, fuy;    /* font bounding box */
  916. +     char *fontname = NULL;
  917.   
  918.       progname = argv[0];
  919. !     while((c = getopt(argc, argv, "fD:n:v")) != EOF)
  920.       switch(c) {
  921.           case 'D':
  922.   #ifdef    DEBUG
  923. ***************
  924. *** 57,62 ****
  925. --- 83,91 ----
  926.               progname);
  927.           exit(1);
  928.   #endif
  929. +         case 'n':
  930. +         fontname = optarg;
  931. +         break;
  932.           case 'v':
  933.           verbose = 1;
  934.           break;
  935. ***************
  936. *** 71,80 ****
  937.       char *filebuf = mustmalloc(strlen(argv[optind]) + 10);
  938.       register char *cp;
  939.   
  940. -     printf("%%FILE: %s\n", argv[optind]);
  941. - 
  942.       highest = 0;
  943.   
  944.       cp = strrchr(argv[optind], '/');
  945.   
  946.       if (cp)
  947. --- 100,109 ----
  948.       char *filebuf = mustmalloc(strlen(argv[optind]) + 10);
  949.       register char *cp;
  950.   
  951.       highest = 0;
  952.   
  953. +     saw_space = 0;
  954. + 
  955.       cp = strrchr(argv[optind], '/');
  956.   
  957.       if (cp)
  958. ***************
  959. *** 85,116 ****
  960.       if (cp)
  961.           *cp = '\0';
  962.   
  963.       if (!fontonly) {
  964.           printf("/saveobj save def\n");
  965.       }
  966.   
  967.       printf("10 dict dup begin\n");
  968.       printf("/FontType 3 def\n");
  969. !     printf("/FontMatrix [1 0 0 1 0 0] def\n");
  970. !     printf("/FontBBox [1.28 1.2 -0.16 -.024] def\n");
  971.       printf("/FontInfo 5 dict def\n");
  972.       printf("FontInfo begin\n");
  973.       printf("    /isFixedPitch false def\n");
  974.       printf("end\n");
  975.       printf("/Encoding 256 array def\n");
  976.       printf("0 1 255 {Encoding exch /.notdef put} for\n");
  977. !     printf("Encoding\n");
  978. ! 
  979. !     p = pk_read(argv[optind]);
  980. ! 
  981.       chcount = 0;
  982.       for (pc = p->pkp_chars; pc; pc = pc->pkc_next) {
  983. !         if (pc->pkc_next)
  984.           printf("dup ");
  985. !         printf("%ld /ch%ld put\n", pc->pkc_char, pc->pkc_char);
  986. !         highest = max(highest, pc->pkc_char);
  987.           chcount++;
  988.       }
  989.   
  990.       if (verbose) {
  991.           fprintf(stderr, "Emitting %s, %d codes\n", filebuf, chcount);
  992. --- 114,162 ----
  993.       if (cp)
  994.           *cp = '\0';
  995.   
  996. +     if (fontname != NULL) filebuf = fontname;
  997. + 
  998. +     printf("%%%%BeginFont: %s\n", filebuf);
  999. + 
  1000.       if (!fontonly) {
  1001.           printf("/saveobj save def\n");
  1002.       }
  1003.   
  1004. +     p = pk_read(argv[optind]);
  1005. + 
  1006. +         /* allocate a new dictionary for the font description */
  1007.       printf("10 dict dup begin\n");
  1008. +         /* this is a Type 3 font */
  1009.       printf("/FontType 3 def\n");
  1010. !         /* font translation matrix */
  1011. !     printf("/FontMatrix [.001 0 0 .001 0 0] def\n");
  1012. ! #ifdef NEVER
  1013.       printf("/FontInfo 5 dict def\n");
  1014.       printf("FontInfo begin\n");
  1015.       printf("    /isFixedPitch false def\n");
  1016.       printf("end\n");
  1017. + #endif
  1018. +         /* set up the encoding array */
  1019.       printf("/Encoding 256 array def\n");
  1020.       printf("0 1 255 {Encoding exch /.notdef put} for\n");
  1021. !     printf("Encoding");
  1022.       chcount = 0;
  1023.       for (pc = p->pkp_chars; pc; pc = pc->pkc_next) {
  1024. !         c = pc->pkc_char;
  1025. !         if (c == 32) saw_space++;
  1026. !         printf ((chcount % 3) ? " " : "\n    ");
  1027. !         if (pc->pkc_next || !saw_space)
  1028.           printf("dup ");
  1029. !         if (c >= 32 && c <= 126)
  1030. !          printf("%d /%s put", c, adobecharnames[c-32]);
  1031. !         else printf("%d /ch%d put", c, c);
  1032. !         highest = max(highest, c);
  1033.           chcount++;
  1034.       }
  1035. +     if (!saw_space) {
  1036. +         printf ((chcount % 3) ? " " : "\n    ");
  1037. +         printf ("32 /space put\n");
  1038. +     } else putchar ('\n');
  1039.   
  1040.       if (verbose) {
  1041.           fprintf(stderr, "Emitting %s, %d codes\n", filebuf, chcount);
  1042. ***************
  1043. *** 121,176 ****
  1044.       else
  1045.           highest = 256;
  1046.   
  1047.       printf("/BuildChar\n");
  1048. !     printf("    { 0 begin\n");
  1049.       printf("    /char exch def\n");
  1050.       printf("    /fontdict exch def\n");
  1051.       printf("    /charname fontdict /Encoding get char get def\n");
  1052. !     printf("    /charinfo fontdict /CharData get charname\n");
  1053. !     printf("        get def\n");
  1054.       printf("    /wx charinfo 0 get def\n");
  1055.       printf("    /charbbox charinfo 1 4 getinterval def\n");
  1056.       printf("    wx 0 charbbox aload pop setcachedevice\n");
  1057.       printf("    charinfo 5 get charinfo 6 get true\n");
  1058.       printf("    fontdict /imagemaskmatrix get\n");
  1059.       printf("        dup 4 charinfo 7 get put\n");
  1060.       printf("        dup 5 charinfo 8 get put\n");
  1061.       printf("    charinfo 9 1 getinterval cvx\n");
  1062.       printf("    imagemask\n");
  1063.       printf("    end\n");
  1064. !     printf("} def\n");
  1065.       printf("\n");
  1066.       printf("/BuildChar load 0 6 dict put\n");
  1067.   
  1068. ! #define    DOTS2UNITS(x)    ((x) / ((p->pkp_npts / POINT) * 300))
  1069.   
  1070. !     printf("/imagemaskmatrix [%.2f 0 0 -%.2f 0 0] def\n",
  1071. !         1 / DOTS2UNITS((double) 1),
  1072. !         1 / DOTS2UNITS((double) 1)
  1073.           );
  1074.       printf("/CharData %d dict def\n", chcount+1);
  1075.       printf("CharData begin\n");
  1076. ! 
  1077.       for (pc = p->pkp_chars; pc; pc = pc->pkc_next) {
  1078.           register struct ras *r;
  1079.           r = pkrast(pc);
  1080.           if (!r) {
  1081.           fprintf(stderr, "%0: no raster image for %02x\n",
  1082. !             progname, pc->pkc_char);
  1083.           continue;
  1084.           }
  1085. !         printf(
  1086. !         "    /ch%ld [ %.2f %.2f %.2f %.2f %.2f %ld %ld %.2f %.2f\n\t<",
  1087. !         pc->pkc_char,
  1088. ! 
  1089. !         DOTS2UNITS((double) pc->pkc_dx / pow2(16)),    /* width */
  1090. ! 
  1091. !         DOTS2UNITS((double) -pc->pkc_x_off),        /* bblx */
  1092. !         DOTS2UNITS((double) pc->pkc_y_off -
  1093. !             pc->pkc_height + 1),            /* bbly */
  1094. !         DOTS2UNITS((double) -pc->pkc_x_off + pc->pkc_width),/* bbux */
  1095. !         DOTS2UNITS((double) pc->pkc_height + pc->pkc_y_off),/* bbuy */
  1096. ! 
  1097.           r->ras_width,
  1098.           r->ras_height,
  1099.           (double) pc->pkc_x_off - .5,            /* shift x */
  1100. --- 167,245 ----
  1101.       else
  1102.           highest = 256;
  1103.   
  1104. +         /* define the "BuildChar" routine to generate a character */
  1105.       printf("/BuildChar\n");
  1106. !         /* the "0" will be filled in with a new dictionary below */
  1107. !     printf("{ 0 begin\n");
  1108. !         /* get the "font dictionary" parameter */
  1109.       printf("    /char exch def\n");
  1110. +         /* get the "character number" parameter */
  1111.       printf("    /fontdict exch def\n");
  1112. +         /* translate character number into character name from encoding */
  1113.       printf("    /charname fontdict /Encoding get char get def\n");
  1114. !         /* get character info array */
  1115. !     printf("    /charinfo fontdict /CharData get charname get def\n");
  1116. !         /* get character width from character info array */
  1117.       printf("    /wx charinfo 0 get def\n");
  1118. +         /* get character bounding box from character info array */
  1119.       printf("    /charbbox charinfo 1 4 getinterval def\n");
  1120. +         /* arrange to save the character in the font cache */
  1121.       printf("    wx 0 charbbox aload pop setcachedevice\n");
  1122. +         /* get bit array dimensions for "imagemask".
  1123. +          * "true" means to paint where the 1-bits are */
  1124.       printf("    charinfo 5 get charinfo 6 get true\n");
  1125. +         /* get image mask matrix */
  1126.       printf("    fontdict /imagemaskmatrix get\n");
  1127. +         /* insert character translation info into image mask matrix */
  1128.       printf("        dup 4 charinfo 7 get put\n");
  1129.       printf("        dup 5 charinfo 8 get put\n");
  1130. +         /* get bitmap data for the character */
  1131.       printf("    charinfo 9 1 getinterval cvx\n");
  1132. +         /* generate the character */
  1133.       printf("    imagemask\n");
  1134.       printf("    end\n");
  1135. !     printf("} def %% BuildChar\n");
  1136.       printf("\n");
  1137. +         /* replace the first element (#0) of "BuildChar"
  1138. +          * with a reference to a brand-new, empty dictionary */
  1139.       printf("/BuildChar load 0 6 dict put\n");
  1140.   
  1141. ! #define    KDOTS2UNITS(x)    (double) ((1000*(x)) / ((p->pkp_ds / (pow2(20) * POINT)) * 300))
  1142.   
  1143. !         /* define the image mask matrix */
  1144. !     printf("/imagemaskmatrix [%.4f 0 0 -%.4f 0 0] def\n",
  1145. !         1.0 / KDOTS2UNITS((double) 1),
  1146. !         1.0 / KDOTS2UNITS((double) 1)
  1147.           );
  1148. + 
  1149. +         /* define the character data (bitmaps) */
  1150. +     if (!saw_space) chcount++;
  1151.       printf("/CharData %d dict def\n", chcount+1);
  1152.       printf("CharData begin\n");
  1153. !     flx = fly = fux = fuy = 0;
  1154.       for (pc = p->pkp_chars; pc; pc = pc->pkc_next) {
  1155.           register struct ras *r;
  1156. +         c = pc->pkc_char;
  1157.           r = pkrast(pc);
  1158.           if (!r) {
  1159.           fprintf(stderr, "%0: no raster image for %02x\n",
  1160. !             progname, c);
  1161.           continue;
  1162.           }
  1163. !         lx = KDOTS2UNITS((double) -pc->pkc_x_off) + 0.5;
  1164. !         ly = KDOTS2UNITS((double) pc->pkc_y_off - pc->pkc_height + 1) + 0.5;
  1165. !         ux = KDOTS2UNITS((double) -pc->pkc_x_off + pc->pkc_width) + 0.5;
  1166. !         uy = KDOTS2UNITS((double) pc->pkc_y_off + 1) + 0.5;
  1167. !         if (lx < flx) flx = lx;
  1168. !         if (ly < fly) fly = ly;
  1169. !         if (ux > fux) fux = ux;
  1170. !         if (uy > fuy) fuy = uy;
  1171. !         if (c >= 32 && c <= 126)
  1172. !          printf ("    /%s ", adobecharnames[c-32]);
  1173. !         else printf ("    /ch%d ", c);
  1174. !         printf("[ %d %d %d %d %d %ld %ld %.1f %.1f\n\t<",
  1175. !         (int) (KDOTS2UNITS((double) pc->pkc_dx / pow2(16)) + 0.5),
  1176. !         lx, ly, ux, uy,
  1177.           r->ras_width,
  1178.           r->ras_height,
  1179.           (double) pc->pkc_x_off - .5,            /* shift x */
  1180. ***************
  1181. *** 179,198 ****
  1182.           len = r->ras_height * r->ras_bline;
  1183.           for (i = 0; i < len; i++) {
  1184.           printf("%02x", r->ras_raster[i]);
  1185. !         if (i % 30 == 29)
  1186. !             putchar('\n');
  1187.           }
  1188.           printf(">]\n    def\n");
  1189.           free(r->ras_raster);
  1190.           free(r);
  1191.       }
  1192. !     printf("    /.notdef [ .24 0 0 0 0 1 0 0 0 <>] def\n");
  1193.   
  1194. !     printf("    end\n");
  1195. !     /*    Should be unique enough between Postscript runs    */
  1196. !     printf("    /UniqueID %ld def\n", (long) getpid() + (optind << 16));
  1197.       printf("end\n");
  1198.       printf("/%s exch definefont pop\n", filebuf);
  1199.   
  1200.       /* end of font definition */
  1201.       if (!fontonly) {
  1202. --- 248,279 ----
  1203.           len = r->ras_height * r->ras_bline;
  1204.           for (i = 0; i < len; i++) {
  1205.           printf("%02x", r->ras_raster[i]);
  1206. !         if (i % 30 == 29 && i < len) printf ("\n\t ");
  1207.           }
  1208.           printf(">]\n    def\n");
  1209.           free(r->ras_raster);
  1210.           free(r);
  1211.       }
  1212. !     if (!saw_space)
  1213. !         printf("    /space [ %d 0 0 0 0 1 1 0 0 <>] def\n",
  1214. !            (int) (KDOTS2UNITS((double) sfp_hmi) + 0.5));
  1215. !     printf("    /.notdef [ 0 0 0 0 0 1 0 0 0 <>] def\n");
  1216. !     printf("end %% CharData\n");
  1217. ! 
  1218. !         /* now that we've seen the whole font,
  1219. !          * we know the font bounding box values */
  1220. !     printf("/FontBBox [%d %d %d %d] def\n", flx, fly, fux, fuy);
  1221. ! 
  1222. !         /* set the "unique ID" to a random value.
  1223. !          * Adobe guarantees values from 4,000,000 to 4,999,999
  1224. !          * will never be assigned to a commercial font. */
  1225. !     printf("/UniqueID %ld def\n",
  1226. !         4000000 + ((long) getpid() + (optind << 16)) % 1000000);
  1227.   
  1228. !         /* give the font its name */
  1229.       printf("end\n");
  1230.       printf("/%s exch definefont pop\n", filebuf);
  1231. +     printf("%%%%EndFont: %s\n", filebuf);
  1232.   
  1233.       /* end of font definition */
  1234.       if (!fontonly) {
  1235. Index: ./utils/pk2sfp.c
  1236. *** /tmp/PATCHold/./utils/pk2sfp.c    Sat May 23 22:32:04 1992
  1237. --- ./utils/pk2sfp.c    Sat May 23 22:32:08 1992
  1238. ***************
  1239. *** 10,16 ****
  1240.   
  1241.   #ifndef    lint
  1242.   static char SCCSID[] =
  1243. !     "@(#)pk2sfp.c 2.4 Copyright 91/02/20 09:09:52 Chris Lewis";
  1244.   #endif
  1245.   
  1246.   #include "defs.h"
  1247. --- 10,16 ----
  1248.   
  1249.   #ifndef    lint
  1250.   static char SCCSID[] =
  1251. !     "@(#)pk2sfp.c 2.6 Copyright 92/05/19 23:14:44 Chris Lewis";
  1252.   #endif
  1253.   
  1254.   #include "defs.h"
  1255. ***************
  1256. *** 73,78 ****
  1257. --- 73,80 ----
  1258.   }
  1259.   #endif
  1260.   
  1261. + int outscale = 0;
  1262. + 
  1263.   main(argc, argv)
  1264.   int argc;
  1265.   char **argv; {
  1266. ***************
  1267. *** 87,94 ****
  1268.   
  1269.       progname = argv[0];
  1270.   
  1271. !     while((c = getopt(argc, argv, "D:s:t:w:f:i:vmSpP")) != EOF) {
  1272.       switch(c) {
  1273.           case 'D':
  1274.   #ifdef    DEBUG
  1275.           setdebug(optarg, "diagnostics");
  1276. --- 89,104 ----
  1277.   
  1278.       progname = argv[0];
  1279.   
  1280. !     while((c = getopt(argc, argv, "o:D:s:t:w:f:i:vmSpP")) != EOF) {
  1281.       switch(c) {
  1282. +         case 'o':
  1283. +         outscale = atoi(optarg);
  1284. +         if (outscale <= 0) {
  1285. +             fprintf(stderr, "%s: invalid -o value: %s\n",
  1286. +             progname, optarg);
  1287. +             exit(1);
  1288. +         }
  1289. +         break;
  1290.           case 'D':
  1291.   #ifdef    DEBUG
  1292.           setdebug(optarg, "diagnostics");
  1293. ***************
  1294. *** 164,169 ****
  1295. --- 174,185 ----
  1296.   
  1297.       /* Read the PK file in-core */
  1298.       pk = pk_read(buf);
  1299. +     if (outscale) {
  1300. +         struct pkp *opkp;
  1301. +         opkp = pk;
  1302. +         pk = pkscale(opkp, outscale);
  1303. +         pk_destroy(opkp);
  1304. +     }
  1305.   
  1306.       /* Overrides */
  1307.       if (symset != NOTSET)
  1308. ***************
  1309. *** 267,273 ****
  1310.   
  1311.   /*    similar to strtol */
  1312.   short
  1313. ! cvt(p)
  1314.   register char *p; {
  1315.       register short ret = 0;
  1316.       int base = 10;
  1317. --- 283,289 ----
  1318.   
  1319.   /*    similar to strtol */
  1320.   short
  1321. ! strtl(p)
  1322.   register char *p; {
  1323.       register short ret = 0;
  1324.       int base = 10;
  1325. ***************
  1326. *** 282,292 ****
  1327.       } else
  1328.           base = 8;
  1329.       while(*p)
  1330. !     ret = ret * base + ccvt(*p++);
  1331.       return(ret);
  1332.   }
  1333.   
  1334. ! ccvt(c)
  1335.   int c; {
  1336.       if (isdigit(c))
  1337.       return(c - '0');
  1338. --- 298,308 ----
  1339.       } else
  1340.           base = 8;
  1341.       while(*p)
  1342. !     ret = ret * base + cstrtl(*p++);
  1343.       return(ret);
  1344.   }
  1345.   
  1346. ! cstrtl(c)
  1347.   int c; {
  1348.       if (isdigit(c))
  1349.       return(c - '0');
  1350. ***************
  1351. *** 350,357 ****
  1352.           exit(1);
  1353.       }
  1354.   
  1355. !     flast->from = cvt(from);
  1356. !     flast->to = cvt(to);
  1357.       flast++;
  1358.       } while (fgets(buffer, sizeof(buffer), f));
  1359.       fclose(f);
  1360. --- 366,373 ----
  1361.           exit(1);
  1362.       }
  1363.   
  1364. !     flast->from = strtl(from);
  1365. !     flast->to = strtl(to);
  1366.       flast++;
  1367.       } while (fgets(buffer, sizeof(buffer), f));
  1368.       fclose(f);
  1369. Index: ./utils/psxlate.c
  1370. *** /tmp/PATCHold/./utils/psxlate.c    Sat May 23 22:32:29 1992
  1371. --- ./utils/psxlate.c    Sat May 23 22:32:36 1992
  1372. ***************
  1373. *** 23,29 ****
  1374.    */
  1375.   #ifndef    lint
  1376.   static char SCCSid[] =
  1377. !     "@(#)psxlate.c: 2.19 Copyright 92/01/23 14:22:16 Chris Lewis";
  1378.   #endif
  1379.   
  1380.   #ifdef    ALONE
  1381. --- 23,29 ----
  1382.    */
  1383.   #ifndef    lint
  1384.   static char SCCSid[] =
  1385. !     "@(#)psxlate.c: 2.20 Copyright 92/03/12 01:11:56 Chris Lewis";
  1386.   #endif
  1387.   
  1388.   #ifdef    ALONE
  1389. ***************
  1390. *** 496,502 ****
  1391.       p[i+mid] = pageidx[i * 2 + 1];
  1392.       }
  1393.   
  1394. !     memcpy((char *) pageidx, p, sizeof(struct pagedesc) * pagecnt);
  1395.       free(p);
  1396.   }
  1397.   
  1398. --- 496,502 ----
  1399.       p[i+mid] = pageidx[i * 2 + 1];
  1400.       }
  1401.   
  1402. !     memcpy((char *) pageidx, (char *) p, sizeof(struct pagedesc) * pagecnt);
  1403.       free(p);
  1404.   }
  1405.   
  1406. ***************
  1407. *** 554,560 ****
  1408.       p[i] = pageidx[i - mid + 1];
  1409.       p[i+1] = pageidx[end-1];
  1410.       }
  1411. !     memcpy((char *) pageidx, p, sizeof(struct pagedesc) * pagecnt);
  1412.       free(p);
  1413.   
  1414.   }
  1415. --- 554,560 ----
  1416.       p[i] = pageidx[i - mid + 1];
  1417.       p[i+1] = pageidx[end-1];
  1418.       }
  1419. !     memcpy((char *) pageidx, (char *) p, sizeof(struct pagedesc) * pagecnt);
  1420.       free(p);
  1421.   
  1422.   }
  1423. Index: ./utils/showfont.S
  1424. *** /tmp/PATCHold/./utils/showfont.S    Sat May 23 22:33:02 1992
  1425. --- ./utils/showfont.S    Sat May 23 22:33:04 1992
  1426. ***************
  1427. *** 5,11 ****
  1428.   #    See the LICENSE file for a full description of the restrictions
  1429.   #    under which this software is provided.
  1430.   #
  1431. ! #@(#)showfont 2.2 91/02/20
  1432.   # Shell script to dump postscript fonts with widths into a pretty table
  1433.   # usage: showfont <fontname>
  1434.   # emits postscript to display the font called <fontname> along with
  1435. --- 5,11 ----
  1436.   #    See the LICENSE file for a full description of the restrictions
  1437.   #    under which this software is provided.
  1438.   #
  1439. ! #@(#)showfont 2.3 92/05/21
  1440.   # Shell script to dump postscript fonts with widths into a pretty table
  1441.   # usage: showfont <fontname>
  1442.   # emits postscript to display the font called <fontname> along with
  1443. ***************
  1444. *** 24,34 ****
  1445.   # the Character is displayed at 18 point.
  1446.   
  1447.   copies=1
  1448. - if [ $# = 0 ]
  1449. - then
  1450. -     echo "usage: showfont <fontname>" >&2
  1451. -     exit 1
  1452. - fi
  1453.   (
  1454.   cat << !END!
  1455.   %! PS-Adobe 1.0
  1456. --- 24,29 ----
  1457. ***************
  1458. *** 49,54 ****
  1459. --- 44,52 ----
  1460.   case $font in
  1461.       /*)
  1462.       font=`echo $font | sed -e 's/^.//'`
  1463. +     ;;
  1464. +     '')
  1465. +     font='Times-Roman'
  1466.       ;;
  1467.   esac
  1468.   cat << !ENDTHING!
  1469. Index: ./adapters/Makefile
  1470. *** /tmp/PATCHold/./adapters/Makefile    Sat May 23 22:33:14 1992
  1471. --- ./adapters/Makefile    Sat May 23 22:33:14 1992
  1472. ***************
  1473. *** 1,4 ****
  1474. ! # 2.5 91/03/19
  1475.   ADAPTERS    = cmn.post cmn.pre tmac.an tmac.m tmac.s tmac.e cmn.dit
  1476.   MACROS        = tmac.t2
  1477.   
  1478. --- 1,4 ----
  1479. ! # 2.7 92/04/26
  1480.   ADAPTERS    = cmn.post cmn.pre tmac.an tmac.m tmac.s tmac.e cmn.dit
  1481.   MACROS        = tmac.t2
  1482.   
  1483. ***************
  1484. *** 16,20 ****
  1485. --- 16,22 ----
  1486.   install:
  1487.       cd $(LIBDIR)/adapters ; rm -f $(ADAPTERS)
  1488.       cp $(ADAPTERS) $(LIBDIR)/adapters
  1489. +     cd $(LIBDIR)/adapters ; chmod 444 $(ADAPTERS)
  1490.       cd $(RTMACDIR) ; rm -f $(MACROS)
  1491.       cp $(MACROS) $(T2DIR)
  1492. +     cd $(T2DIR) ; chmod 444 $(MACROS)
  1493. Index: ./checker.S
  1494. *** /tmp/PATCHold/./checker.S    Sat May 23 22:33:21 1992
  1495. --- ./checker.S    Sat May 23 22:33:23 1992
  1496. ***************
  1497. *** 0 ****
  1498. --- 1,238 ----
  1499. + trap "rm -f /tmp/$$.? ; exit 1" 0 1 2 3 15
  1500. + echo "Automatic Psroff configuration tester.  V1.2 92/04/12"
  1501. + type=
  1502. + header=
  1503. + troffnames="gtroff troff otroff cattroff catroff ditroff"
  1504. + AS=undef
  1505. + make=make
  1506. + perl=
  1507. + shell=/bin/sh
  1508. + if [ -f /usr/apollo/bin/coffdump ]
  1509. + then
  1510. +     echo "You're an Apollo!"
  1511. +     type=apollo
  1512. +     shell=/bin/ksh
  1513. + fi
  1514. + if [ -f /ultrixboot ]
  1515. + then
  1516. +     case "`uname -a`" in
  1517. +     *RISC*)
  1518. +         type=rult
  1519. +         echo "You're a RISC/Ultrix machine!"
  1520. +         ;;
  1521. +     esac
  1522. +     shell=/usr/bin/sh5
  1523. +     make=s5make
  1524. + fi
  1525. + if [ -r /usr/lib/font/ftR ]
  1526. + then
  1527. +     header=/usr/lib/font/ftR
  1528. + else
  1529. +     echo "No /usr/lib/font/ftR file:  Can't check it for CAT troff HEADERSIZE."
  1530. +     either=' either'
  1531. + fi
  1532. + cat > /tmp/$$.c <<\!
  1533. + #include <stdio.h>
  1534. + #include <a.out.h>
  1535. + main() {
  1536. +     printf("%d\n", sizeof(struct exec));
  1537. +     exit(0);
  1538. + }
  1539. + !
  1540. + cc -o /tmp/$$.a /tmp/$$.c > /dev/null 2>&1
  1541. + if [ $? = 0 -a -f /tmp/$$.a ]
  1542. + then
  1543. +     t=`/tmp/$$.a`
  1544. +     if [ $? = 0 ]
  1545. +     then
  1546. +     aoutheader=$t
  1547. +     fi
  1548. + fi
  1549. + if [ -z "$aoutheader" ]
  1550. + then
  1551. +     echo "Can't compile a.out.h test: Can't check it for CAT troff HEADERSIZE$either."
  1552. +     echo "(This test only works on V7 or BSDish machines (Ultrix, Sun etc.) anyways.)"
  1553. + fi
  1554. + if [ -n "$header" ]
  1555. + then
  1556. +     case "$type" in
  1557. +     apollo)
  1558. +         set A `/usr/apollo/bin/coffdump -h $header | grep '\.data'`
  1559. +         HS=`echo "16 i $5 p q" | sed -e 's/0x0*//' | dc`
  1560. +         note=' /* Apollo cannot read own width tables - calc from coffdump */'
  1561. +         ;;
  1562. +     rult)
  1563. +         AS=define
  1564. +         HS=0
  1565. +         note=' /* ignored on Risc/Ultrix */'
  1566. +         ;;
  1567. +     *)
  1568. +         set A `ls -l $header`
  1569. +         case $5 in
  1570. +         [0-9]*)
  1571. +             v=$5
  1572. +             ;;
  1573. +         *)
  1574. +             v=$6
  1575. +             ;;
  1576. +         esac
  1577. +         HS=`expr $v - 224`
  1578. +         ;;
  1579. +     esac
  1580. + fi
  1581. + 
  1582. + case $aoutheader.$HS in
  1583. +     [0-9]*.[0-9]*)
  1584. +     if [ $aoutheader -lt $HS ]
  1585. +     then
  1586. +         note=" /* though, might be $HS */"
  1587. +         HS=$aoutheader
  1588. +     elif [ $HS -lt $aoutheader ]
  1589. +     then
  1590. +         note=" /* remotely $aoutheader */"
  1591. +     else
  1592. +         note=" /* a.out.h and .../ftR agree */"
  1593. +     fi
  1594. +     ;;
  1595. +     .)
  1596. +     note=" Nope, can't figure out HEADERSIZE"
  1597. +     ;;
  1598. + esac
  1599. + 
  1600. + paths=`echo $PATH | sed -e 's/:/ /g'`
  1601. + for i in $paths
  1602. + do
  1603. +     for j in $troffnames
  1604. +     do
  1605. +     if [ -f $i/$j ]
  1606. +     then
  1607. +         troffs="$troffs $i/$j"
  1608. +     fi
  1609. +     done
  1610. +     if [ -f $i/lpr ]
  1611. +     then
  1612. +     lpr=1
  1613. +     fi
  1614. +     if [ -f $i/lp ]
  1615. +     then
  1616. +     lp=1
  1617. +     fi
  1618. +     if [ -f $i/hostname -a -z "$uuname" ]
  1619. +     then
  1620. +     uuname=hostname
  1621. +     fi
  1622. +     if [ -f $i/uuname -a -z "$uuname" ]
  1623. +     then
  1624. +     uuname='uuname -l'
  1625. +     fi
  1626. +     if [ -f $i/uname -a -z "$uuname" ]
  1627. +     then
  1628. +     uuname='uname -n'
  1629. +     fi
  1630. +     if [ -f $i/perl -a -z "$perl" ]
  1631. +     then
  1632. +     perl=$i/perl
  1633. +     fi
  1634. + done
  1635. + if [ -z "$perl" ]
  1636. + then
  1637. +     perl="Not found: Won't be able to use catconv or buildljfonts"
  1638. + fi
  1639. + if [ -z "$uuname" ]
  1640. + then
  1641. +     uuname='echo <your node name>'
  1642. + fi
  1643. + 
  1644. + echo "***  Recommended defs.h settings: ***"
  1645. + echo
  1646. + echo "#define HEADERSIZE $HS$note"
  1647. + echo "#$AS ASCIIWIDTHS"
  1648. + echo '#define NODECMD    "'"$uuname"'"'
  1649. + echo
  1650. + echo "*** Recommended Makefile settings: ***"
  1651. + echo
  1652. + echo "MAKE = $make"
  1653. + echo "SHELL = $shell"
  1654. + echo "PERL = $perl"
  1655. + echo
  1656. + echo "*** psrofflib-related stuff: ***"
  1657. + echo
  1658. + if [ -n "$troffs" ]
  1659. + then
  1660. +     for i in $troffs
  1661. +     do
  1662. +     echo "In order to use $i as your troff, you need to set:"
  1663. +     echo hello | $i > /dev/null 2>&1
  1664. +     ditroffokay=$?
  1665. +     echo hello | $i -t > /dev/null 2>&1
  1666. +     cattroffokay=$?
  1667. + 
  1668. +     if [ $ditroffokay = 0 -a $cattroffokay != 0 ]
  1669. +     then
  1670. +         echo "    troff=$i # ditroff: use -N option in t2arg"
  1671. +         ditroff=1
  1672. +         continue
  1673. +     fi
  1674. +     if [ $ditroffokay != 0 -a $cattroffokay = 0 ]
  1675. +     then
  1676. +         echo "    troff=$i # is CAT troff"
  1677. +         cattroff=1
  1678. +         if echo hello | $i -F/usr/lib/font/ftXX -t > /dev/null 2>&1
  1679. +         then
  1680. +         echo "    trofftype='-F%%FONTDIR%%/\$width/ftXX'"
  1681. +         elif echo hello | $i -T. -t > /dev/null 2>&1
  1682. +         then
  1683. +         echo "    trofftype='-T\$width'"
  1684. +         echo "    [ps: FONTDIR MUST be /usr/lib/font]"
  1685. +         else
  1686. +         echo "    trofftype= # Neither -F nor -T seem to work"
  1687. +         fi
  1688. +         continue
  1689. +     fi 
  1690. +     echo "Can't tell what kind of troff $i is"
  1691. +     done
  1692. + else
  1693. +     echo "Couldn't seem to find any versions of troff out there in your PATH"
  1694. +     echo "   (And I looked for $troffnames)"
  1695. +     notroff=1
  1696. + fi
  1697. + echo
  1698. + if [ -n "$lpr" ]
  1699. + then
  1700. +     echo "You have Berkeley style 'lpr'.  The lparg entry will typically"
  1701. +     echo "be something like lparg=| [F |] lpr -P\$ptr -#\$copies'"
  1702. + fi
  1703. + if [ -n "$lp" ]
  1704. + then
  1705. +     echo "You have System V style 'lp'.  The lparg entry will typically"
  1706. +     echo "be something like lparg=| [F |] lp -n\$copies -d\$ptr'"
  1707. + fi
  1708. + if [ -n "$lp" -o -n "$lpr" ]
  1709. + then
  1710. +     echo "Where 'F' is an additional filter, such as psxlate for PostScript"
  1711. + fi
  1712. + 
  1713. + if [ -z "$lp" -a -z "$lpr" ]
  1714. + then
  1715. +     echo "Can't find lp or lpr, so I can't make any suggestions on the lparg"
  1716. +     echo "entry."
  1717. + fi
  1718. + 
  1719. + echo
  1720. + echo "*** Overall automatic configurator error report) ***"
  1721. + if [ -z "$cattroff" -a -z "$ditroff" ]
  1722. + then
  1723. +     echo "- You con't have any kind of troff in your search path."
  1724. +     echo "  Unless you can find one, you can't use psroff."
  1725. + fi
  1726. + if [ -n "$cattroff" -a -z "$HS" ]
  1727. + then
  1728. +     echo "- You have CAT troff, but I couldn't figure out your HEADERSIZE."
  1729. +     echo "  You should probably ask for help."
  1730. + fi
  1731. + if [ -z "$perl" ]
  1732. + then
  1733. +     echo "- Couldn't find perl - just means you can't emulate ditroff in CAT troff"
  1734. + fi
  1735. + trap '' 0
  1736. + exit 0
  1737. Index: ./utils.c
  1738. *** /tmp/PATCHold/./utils.c    Sat May 23 22:33:32 1992
  1739. --- ./utils.c    Sat May 23 22:33:34 1992
  1740. ***************
  1741. *** 12,18 ****
  1742.   
  1743.   #ifndef    lint
  1744.   static char SCCSid[] =
  1745. !     "@(#)utils.c: 2.23 Copyright 92/01/12 03:55:40 Chris Lewis";
  1746.   #endif
  1747.   
  1748.   #ifndef    HEADERSIZE
  1749. --- 12,18 ----
  1750.   
  1751.   #ifndef    lint
  1752.   static char SCCSid[] =
  1753. !     "@(#)utils.c: 2.24 Copyright 92/05/21 02:58:25 Chris Lewis";
  1754.   #endif
  1755.   
  1756.   #ifndef    HEADERSIZE
  1757. ***************
  1758. *** 410,431 ****
  1759.   }
  1760.   
  1761.   FontSel(from, to)
  1762. ! char from, *to; {
  1763.   #ifdef    DEBUG
  1764.       register int i;
  1765.   #endif
  1766.       register struct fonttable *p;
  1767.       int intfont;
  1768. !     DBP((D_SPEC, "FontSel: %c -> %s\n", from, to));
  1769. ! #ifdef    DIT
  1770. !     if (from < (ditroff? '0' : '1') || from > '9') {
  1771. ! #else
  1772. !     if (from < '1' || from > '9') {
  1773. ! #endif
  1774. !     fprintf(stderr, "Bad arguments to FontSel: %c %s\n", from, to);
  1775.       return;
  1776.       }
  1777. !     intfont = from - '1';
  1778.       if (intfont < 0)
  1779.       intfont = INTFONTS - 1;
  1780.       if (strcmp(to, "S") == 0) {
  1781. --- 410,432 ----
  1782.   }
  1783.   
  1784.   FontSel(from, to)
  1785. ! char *from, *to; {
  1786.   #ifdef    DEBUG
  1787.       register int i;
  1788.   #endif
  1789.       register struct fonttable *p;
  1790.       int intfont;
  1791. !     DBP((D_SPEC, "FontSel: %s -> %s\n", from, to));
  1792. ! 
  1793. !     intfont = atoi(from);
  1794. ! 
  1795. !     if (intfont < (ditroff? 0 : 1) || intfont >= INTFONTS) {
  1796. !     fprintf(stderr, "Bad arguments to FontSel: %s %s\n", intfont, to);
  1797.       return;
  1798.       }
  1799. ! 
  1800. !     intfont -= 1;
  1801. ! 
  1802.       if (intfont < 0)
  1803.       intfont = INTFONTS - 1;
  1804.       if (strcmp(to, "S") == 0) {
  1805. ***************
  1806. *** 443,449 ****
  1807.           break;
  1808.       }
  1809.       if (!p->troffName) {
  1810. !     fprintf(stderr, "Could not translate font %c (%s)\n", from, to);
  1811.       }
  1812.   #ifdef    OPT
  1813.       if (p->troffName && !p->widthtable)
  1814. --- 444,450 ----
  1815.           break;
  1816.       }
  1817.       if (!p->troffName) {
  1818. !     fprintf(stderr, "Could not translate font %s (%s)\n", from, to);
  1819.       }
  1820.   #ifdef    OPT
  1821.       if (p->troffName && !p->widthtable)
  1822. Index: ./ps.c
  1823. *** /tmp/PATCHold/./ps.c    Sat May 23 22:33:46 1992
  1824. --- ./ps.c    Sat May 23 22:33:48 1992
  1825. ***************
  1826. *** 15,21 ****
  1827.   
  1828.   #ifndef    lint
  1829.   static char SCCSid[] =
  1830. !     "@(#)ps.c: 2.18 Copyright 92/01/12 03:55:46 Chris Lewis";
  1831.   #endif
  1832.   
  1833.   /*    ps.c will generate some additional "print" commands to cause
  1834. --- 15,21 ----
  1835.   
  1836.   #ifndef    lint
  1837.   static char SCCSid[] =
  1838. !     "@(#)ps.c: 2.19 Copyright 92/05/19 23:11:03 Chris Lewis";
  1839.   #endif
  1840.   
  1841.   /*    ps.c will generate some additional "print" commands to cause
  1842. ***************
  1843. *** 341,358 ****
  1844.       }
  1845.   
  1846.       fp->flags |= USED;
  1847.   #ifdef    FONTMACRO
  1848. !     printf("/%s %d SetFont\n", fp->fontName, points);
  1849.   #else
  1850.       printf("/%s dup /curFont exch def findfont\n",
  1851.           fp->fontName);
  1852.       printf("%d dup /curPoints exch def scalefont setfont\n", points);
  1853.   #endif
  1854.       lastPoints = points;
  1855.       lastFont = font;
  1856.       }
  1857.   }
  1858.   
  1859.   psChar(x, y, font, points, troffChar, sequence)
  1860.   int x, y;
  1861.   int font, points, troffChar;
  1862. --- 341,378 ----
  1863.       }
  1864.   
  1865.       fp->flags |= USED;
  1866. + #define NEW
  1867. + #ifdef NEW
  1868. +     printf("%d F%d\n", points, fp - fonttable);
  1869. + #else
  1870.   #ifdef    FONTMACRO
  1871. !     printf("/%s %d S\n", fp->fontName, points);
  1872.   #else
  1873.       printf("/%s dup /curFont exch def findfont\n",
  1874.           fp->fontName);
  1875.       printf("%d dup /curPoints exch def scalefont setfont\n", points);
  1876.   #endif
  1877. + #endif
  1878.       lastPoints = points;
  1879.       lastFont = font;
  1880.       }
  1881.   }
  1882.   
  1883. + putseq(sequence)
  1884. + register char *sequence; {
  1885. +     putchar('(');
  1886. +     while(*sequence) {
  1887. +     if ((*sequence)&0x80)
  1888. +         printf("\\%03o", (*sequence++)&0xff);
  1889. +     else if (*sequence == '(' || *sequence == ')' ||
  1890. +         *sequence == '\\')
  1891. +         printf("\\%c", *sequence++);
  1892. +     else
  1893. +         putchar(*sequence++);
  1894. +     }
  1895. +     putchar(')');
  1896. + }
  1897. + 
  1898.   psChar(x, y, font, points, troffChar, sequence)
  1899.   int x, y;
  1900.   int font, points, troffChar;
  1901. ***************
  1902. *** 423,428 ****
  1903. --- 443,462 ----
  1904.   
  1905.       DBP((D_BEND,"AFTER (sequence,x,y,font,points) = (%s,%d,%d,%d,%d)\n",
  1906.       sequence, nx, ny, font, points));
  1907. +     
  1908. + #ifdef SPACEOPT
  1909. +     { extern int spcwidth, spccount, spcnom;
  1910. +     if (spcwidth && spcwidth != spcnom) {
  1911. +         putseq(sequence);
  1912. +         lastYPos = ny;
  1913. +         emitnums(TROFF2PSX(spcwidth) - TROFF2PSX(spcnom)); /* accurate enough? */
  1914. +         emitnums(nx);
  1915. +         emitnums(ny);
  1916. +         putnl("W");
  1917. +         return;
  1918. +     }
  1919. +     }
  1920. + #endif
  1921.   
  1922.       if (rp->t2b_font == D) {
  1923.       emitnums(nx);
  1924. ***************
  1925. *** 434,450 ****
  1926.           putchar(' ');
  1927.           emitnum(ny);
  1928.       }
  1929. !     putchar('(');
  1930. !     while(*sequence) {
  1931. !         if ((*sequence)&0x80)
  1932. !         printf("\\%03o", (*sequence++)&0xff);
  1933. !         else if (*sequence == '(' || *sequence == ')' ||
  1934. !         *sequence == '\\')
  1935. !         printf("\\%c", *sequence++);
  1936. !         else
  1937. !         putchar(*sequence++);
  1938. !     }
  1939. !     putchar(')');
  1940.       if (lastYPos != ny) {
  1941.           lastYPos = ny;
  1942.           putchar('Y');
  1943. --- 468,474 ----
  1944.           putchar(' ');
  1945.           emitnum(ny);
  1946.       }
  1947. !     putseq(sequence);
  1948.       if (lastYPos != ny) {
  1949.           lastYPos = ny;
  1950.           putchar('Y');
  1951. ***************
  1952. *** 499,504 ****
  1953. --- 523,529 ----
  1954.       char buffer[30];
  1955.       FILE *library;
  1956.       long curtime;
  1957. +     register struct fonttable *p;
  1958.   
  1959.       currentPage = 0;
  1960.       pagePending = 1;
  1961. ***************
  1962. *** 537,542 ****
  1963. --- 562,575 ----
  1964.   #endif
  1965.       printf("usertime /btime exch def\n");
  1966.       psXlate(library, "lib.ps");
  1967. + 
  1968. +     for (p = fonttable; p->troffName; p++) {
  1969. +     if (p->fontName[0] == '_')
  1970. +         printf("stdencoding /%s /%s RE\n",
  1971. +         p->fontName, p->fontName+1);
  1972. +     printf("/F%d { /%s exch S } bind def\n",
  1973. +         p - fonttable, p->fontName);
  1974. +     }
  1975.       doprologs();
  1976.       printf("%%%%EndProlog\n");
  1977.       fclose(library);
  1978. Index: ./dit.c
  1979. *** /tmp/PATCHold/./dit.c    Sat May 23 22:34:04 1992
  1980. --- ./dit.c    Sat May 23 22:34:06 1992
  1981. ***************
  1982. *** 12,18 ****
  1983.   
  1984.   #ifndef    lint
  1985.   static char SCCSid[] =
  1986. !     "@(#)dit.c: Copyright 92/03/03 02:25:40 Chris Lewis";
  1987.   #endif
  1988.   
  1989.   extern struct cattab tabN[], tabS[], *extidx;
  1990. --- 12,18 ----
  1991.   
  1992.   #ifndef    lint
  1993.   static char SCCSid[] =
  1994. !     "@(#)dit.c: Copyright 92/05/21 02:58:07 Chris Lewis";
  1995.   #endif
  1996.   
  1997.   extern struct cattab tabN[], tabS[], *extidx;
  1998. ***************
  1999. *** 151,158 ****
  2000.       char special[512];
  2001.       fixtab();
  2002.       DBP((D_CAT, "Finished fixtab\n"));
  2003.       while(1) {
  2004. !     switch(cmd = skipwhite()) {
  2005.           case EOF:
  2006.           goto finish;
  2007.           case 's':
  2008. --- 151,170 ----
  2009.       char special[512];
  2010.       fixtab();
  2011.       DBP((D_CAT, "Finished fixtab\n"));
  2012. +     cmd = skipwhite();
  2013. +     if (cmd == 0x40) {
  2014. +     fprintf(stderr, "%s: illegal starting sequence for ditroff.\n",
  2015. +         progname);
  2016. +     fprintf(stderr, "I think this is really CAT troff output.\n");
  2017. +     fprintf(stderr, "Please double check your troff & -N settings.\n");
  2018. +     exit(1);
  2019. +     }
  2020.       while(1) {
  2021. !     switch(cmd) {
  2022. !         default:
  2023. !         fprintf(stderr, "%s: illegal command 0x%02x.\n", progname, cmd);
  2024. !         break;
  2025. !         /*NOTREACHED*/
  2026.           case EOF:
  2027.           goto finish;
  2028.           case 's':
  2029. ***************
  2030. *** 278,284 ****
  2031.               canonflush();
  2032.   #endif
  2033.               /* synchronize special X & Y to current position
  2034. !                (ie: so psfig will work */
  2035.               specXPos = DIT2CAT(xpos);
  2036.               specYPos = DIT2CAT(ypos);
  2037.   
  2038. --- 290,296 ----
  2039.               canonflush();
  2040.   #endif
  2041.               /* synchronize special X & Y to current position
  2042. !                (ie: so psfig will work) */
  2043.               specXPos = DIT2CAT(xpos);
  2044.               specYPos = DIT2CAT(ypos);
  2045.   
  2046. ***************
  2047. *** 307,313 ****
  2048.                   }
  2049.                   sprintf(special, "F%s%s", a1, a2);
  2050.                   DBP((D_CAT, "FONT %s %s\n", a1, a2));
  2051. !                 dospecial(special);
  2052.                   break;
  2053.               case 'r':    /* specify resolution */
  2054.                   if (i != 4) {
  2055. --- 319,328 ----
  2056.                   }
  2057.                   sprintf(special, "F%s%s", a1, a2);
  2058.                   DBP((D_CAT, "FONT %s %s\n", a1, a2));
  2059. ! 
  2060. !                 if (be->befontsel)
  2061. !                 (*be->befontsel)(a1,a2);
  2062. ! 
  2063.                   break;
  2064.               case 'r':    /* specify resolution */
  2065.                   if (i != 4) {
  2066. ***************
  2067. *** 469,474 ****
  2068. --- 484,490 ----
  2069.           }
  2070.           break;
  2071.       }
  2072. +     cmd = skipwhite();
  2073.       }
  2074.       finish: ;
  2075.   }
  2076. Index: ./README
  2077. *** /tmp/PATCHold/./README    Sat May 23 22:34:19 1992
  2078. --- ./README    Sat May 23 22:34:24 1992
  2079. ***************
  2080. *** 1,4 ****
  2081. !         PSROFF RELEASE 3.0 README 2.23 92/01/28
  2082.   
  2083.               Feb 19, 1991
  2084.               Chris Lewis
  2085. --- 1,4 ----
  2086. !         PSROFF RELEASE 3.0 README 2.24 92/05/23
  2087.   
  2088.               Feb 19, 1991
  2089.               Chris Lewis
  2090. ***************
  2091. *** 397,417 ****
  2092.   special commands (eg: the .fp fakeouts) will be converted over to the FSA
  2093.   mechanism.
  2094.   
  2095. - You may have noticed a compile flag called "OPT" which is defined in
  2096. - the distributed version of defs.h.  If enabled (via -Z/W), this enables the
  2097. - optimizer.  It works well with Postscript output, but not with laserjet
  2098. - unless the fonts you use are VERY good.  It's enabled by default for ps.
  2099. - The optimizer does two things: it emits as many characters as it can as one
  2100. - print directive, rather than one CAT code per print.  On postscript and
  2101. - HPLJ's this is a BIG win (printer execution speeds 3 or more times faster),
  2102. - and is essential with ditroff output to psdit and xtroff.  The optimizer
  2103. - requires access to the CAT troff width tables (even when used with ditroff),
  2104. - and if troff2ps can't find them, it will abort.
  2105. - 
  2106.   Hpinterp was borrowed and converted into a general HP LJ to PBM
  2107.   converter.  This permits the output of psroff to be printed on
  2108.   just about ANY printer.  The new version of hpinterp (now called
  2109. ! hp2pbm) will eventually be reintegrated back into psroff.
  2110.   
  2111.   Psroff limitations:
  2112.       - With the use of catconv and CAT troff, psroff supports:
  2113. --- 397,407 ----
  2114.   special commands (eg: the .fp fakeouts) will be converted over to the FSA
  2115.   mechanism.
  2116.   
  2117.   Hpinterp was borrowed and converted into a general HP LJ to PBM
  2118.   converter.  This permits the output of psroff to be printed on
  2119.   just about ANY printer.  The new version of hpinterp (now called
  2120. ! hp2pbm) will eventually be reintegrated back into psroff.  Hp2pbm is
  2121. ! currently available from comp.sources.misc archives.
  2122.   
  2123.   Psroff limitations:
  2124.       - With the use of catconv and CAT troff, psroff supports:
  2125. ***************
  2126. *** 432,440 ****
  2127.       - Psroff only supports CAT troff sizes in HPPCL (some mechanism to relax
  2128.         this for HPLJIII's is easy to implement).  All sizes are available in
  2129.         Postscript and ditroff.
  2130. -     - psroff doesn't implement "w" (word breaks in ditroff output).
  2131. -     - psroff doesn't support "stipple" (I have NO idea what this is -
  2132. -       apparently a Berkeleyism.)
  2133.   
  2134.   CONTACT INFO (note that I've moved):
  2135.   
  2136. --- 422,427 ----
  2137. Index: ./troff2.c
  2138. *** /tmp/PATCHold/./troff2.c    Sat May 23 22:34:41 1992
  2139. --- ./troff2.c    Sat May 23 22:34:43 1992
  2140. ***************
  2141. *** 12,18 ****
  2142.   
  2143.   #ifndef    lint
  2144.   static char SCCSid[] =
  2145. !     "@(#)troff2.c: 2.22 Copyright 91/10/17 11:58:25 Chris Lewis";
  2146.   #endif
  2147.   
  2148.   #define    ESC    0x80
  2149. --- 12,18 ----
  2150.   
  2151.   #ifndef    lint
  2152.   static char SCCSid[] =
  2153. !     "@(#)troff2.c: 2.25 Copyright 92/05/21 02:58:15 Chris Lewis";
  2154.   #endif
  2155.   
  2156.   #define    ESC    0x80
  2157. ***************
  2158. *** 92,98 ****
  2159.   
  2160.   extern char *realloc();
  2161.   
  2162. ! #define    OPTLIST    "d:O:Y:T:VD:l:MR:P::zp:W:ZNnSG:"
  2163.   
  2164.   /*    On 386/ix 1.0.6 profiling has a bug in it that leaves
  2165.       two extra longs on the stack between the stack frame and
  2166. --- 92,98 ----
  2167.   
  2168.   extern char *realloc();
  2169.   
  2170. ! #define    OPTLIST    "d:O:Y:T:VD:l:MR:P::zp:W:ZNnSG:g:"
  2171.   
  2172.   /*    On 386/ix 1.0.6 profiling has a bug in it that leaves
  2173.       two extra longs on the stack between the stack frame and
  2174. ***************
  2175. *** 114,119 ****
  2176. --- 114,120 ----
  2177.       register int nc, c;
  2178.       register int units;
  2179.       register int rail, mag, tilt, half, escape, lead;
  2180. +     char *p;
  2181.   
  2182.       extern int getopt();
  2183.       extern char *optarg;
  2184. ***************
  2185. *** 158,163 ****
  2186. --- 159,181 ----
  2187.           case 'Z':
  2188.               optimize = 1;
  2189.               break;
  2190. +         case 'g':
  2191. +             optimize = 1;
  2192. +             for (p = optarg; *p; p++) {
  2193. +             if (*p == '.')
  2194. +                 fixedperiodwidth = 1;
  2195. +             else if (*p == 'l') {
  2196. +                 spaceopt = 1;
  2197. +                 optrun = OPTSIZ - 5;
  2198. +             } else {
  2199. +                 optrun = atoi(p);
  2200. +                 if (optrun > OPTSIZ - 5)
  2201. +                 optrun = OPTSIZ - 5;
  2202. +                 break;
  2203. +             }
  2204. +             }
  2205. +             break;
  2206. +             
  2207.           case 'W':
  2208.               widthtables = mustmalloc(strlen(optarg) + 10, "widthname");
  2209.               strcpy(widthtables, optarg);
  2210. ***************
  2211. *** 321,326 ****
  2212. --- 339,353 ----
  2213.       }
  2214.   #endif
  2215.   
  2216. +     c = getc(stdin);
  2217. +     if (c != 0x40) {
  2218. +         fprintf(stderr, "%s: first character 0x%02x - not CAT troff output.\n",
  2219. +         progname, c);
  2220. +         fprintf(stderr,
  2221. +         "Probably ditroff.  Did you forget -N in command line or psrofflib?\n");
  2222. +         exit(1);
  2223. +     }
  2224. + 
  2225.       if (be->beprolog)
  2226.           (*be->beprolog)();
  2227.   
  2228. ***************
  2229. *** 338,344 ****
  2230.       tilt = DOWN;
  2231.       calcfont;
  2232.   
  2233. !     while ((c = getc(stdin)) != EOF) {
  2234.           switch(c) {
  2235.           case 0x00:
  2236.               DBP((D_CAT,"NOP\n"));
  2237. --- 365,372 ----
  2238.       tilt = DOWN;
  2239.       calcfont;
  2240.   
  2241. ! 
  2242. !     while (c != EOF) {
  2243.           switch(c) {
  2244.           case 0x00:
  2245.               DBP((D_CAT,"NOP\n"));
  2246. ***************
  2247. *** 610,615 ****
  2248. --- 638,644 ----
  2249.               DBP((D_CAT,"Illegal: %02x\n", c));
  2250.               break;
  2251.           }
  2252. +         c = getc(stdin);
  2253.       }
  2254.   #ifdef    OPT
  2255.       canonflush();
  2256. ***************
  2257. *** 802,809 ****
  2258.           }
  2259.   
  2260.           case 'F':
  2261. !         if (be->befontsel)
  2262. !             (*be->befontsel)(*(string+1), string+2);
  2263.           *string ='\0';
  2264.           return;
  2265.   #ifdef    FORM
  2266. --- 831,842 ----
  2267.           }
  2268.   
  2269.           case 'F':
  2270. !         if (be->befontsel) {
  2271. !             char tmp[2];
  2272. !             tmp[0] = string[1];
  2273. !             tmp[1] = 0;
  2274. !             (*be->befontsel)(tmp, string+2);
  2275. !         }
  2276.           *string ='\0';
  2277.           return;
  2278.   #ifdef    FORM
  2279. Index: ./defs.h
  2280. *** /tmp/PATCHold/./defs.h    Sat May 23 22:34:57 1992
  2281. --- ./defs.h    Sat May 23 22:34:59 1992
  2282. ***************
  2283. *** 9,15 ****
  2284.    */
  2285.   
  2286.   /*    Official Release and Patch level:    */
  2287. ! #define    T2VERSION    "@(#)PSROFF Copyright 92/02/10 Chris Lewis - R3 PL10"
  2288.   
  2289.   /*    Configuration parameters:
  2290.    */
  2291. --- 9,15 ----
  2292.    */
  2293.   
  2294.   /*    Official Release and Patch level:    */
  2295. ! #define    T2VERSION    "@(#)PSROFF Copyright 92/05/21 Chris Lewis - R3 PL11"
  2296.   
  2297.   /*    Configuration parameters:
  2298.    */
  2299. ***************
  2300. *** 121,131 ****
  2301.    */
  2302.   
  2303.   /*    Basic drivers: */
  2304.   #define    PS    /* Postscript */
  2305.   #define    LJ    /* Laserjet - utils programs will not build with this undef'd */
  2306.   #define    LJ3    /* Laserjet 3 - does LJ + HP-GL/2 for PIC */
  2307.   #define    DT    /* ditroff */
  2308. - #define    DIT    /* ditroff *front-end* */
  2309.   
  2310.   /*    Laserjet driver config: */
  2311.   #define    PK    /* enable PK font downloading (needs LJ) */
  2312. --- 121,132 ----
  2313.    */
  2314.   
  2315.   /*    Basic drivers: */
  2316. + #define    DIT    /* ditroff *front-end* */
  2317.   #define    PS    /* Postscript */
  2318. + #ifndef PSONLY
  2319.   #define    LJ    /* Laserjet - utils programs will not build with this undef'd */
  2320.   #define    LJ3    /* Laserjet 3 - does LJ + HP-GL/2 for PIC */
  2321.   #define    DT    /* ditroff */
  2322.   
  2323.   /*    Laserjet driver config: */
  2324.   #define    PK    /* enable PK font downloading (needs LJ) */
  2325. ***************
  2326. *** 137,142 ****
  2327. --- 138,144 ----
  2328.   #define    PARTIAL    /* partial (not incremental) font downloading */
  2329.   
  2330.   #define    INCR    /* enable incremental font downloading (needs PARTIAL) */
  2331. + #endif
  2332.   
  2333.   #define    MDLF    16    /* Max # downloaded fonts permitted by your laserjet
  2334.                  per *page*.  16 is correct for HPLJ+ and most II's.
  2335. ***************
  2336. *** 155,160 ****
  2337. --- 157,164 ----
  2338.                  to have this turned on */
  2339.   
  2340.   #define    OPT        /* CAT code reorder and optimizer */
  2341. + #define SPACEOPT    /* hyperoptimization */
  2342. + #define OPTSIZ 200    /* size of optimizer buffer */
  2343.   
  2344.   #define    DEFPL  11    /* Default page length (11 inches).
  2345.                  DO NOT change unless you absolutely HAVE to.
  2346. ***************
  2347. *** 225,231 ****
  2348.   #include    "Can't define SFP without PK"
  2349.   #endif
  2350.   
  2351. ! #if    !defined(LJ) || !defined(PK)
  2352.   #include    "Sorry, can't compile without LJ and PK (for now)"
  2353.   #endif
  2354.   
  2355. --- 229,235 ----
  2356.   #include    "Can't define SFP without PK"
  2357.   #endif
  2358.   
  2359. ! #if    !defined(PSONLY) && (!defined(LJ) || !defined(PK))
  2360.   #include    "Sorry, can't compile without LJ and PK (for now)"
  2361.   #endif
  2362.   
  2363. ***************
  2364. *** 430,435 ****
  2365. --- 434,441 ----
  2366.   extern char *mustmalloc();
  2367.   
  2368.   extern char *version, *shortversion;
  2369. + 
  2370. + extern int optrun, fixedperiodwidth, spaceopt;
  2371.   
  2372.   #define    MAXPAGE    2000
  2373.   #ifdef    ALONE
  2374. Index: ./INSTALL
  2375. *** /tmp/PATCHold/./INSTALL    Sat May 23 22:35:21 1992
  2376. --- ./INSTALL    Sat May 23 22:35:25 1992
  2377. ***************
  2378. *** 1,5 ****
  2379.           Psroff 3.0 Installation Instructions
  2380. !             2.17 92/01/12
  2381.   
  2382.   Please see the TROUBLE file if you have difficulties.
  2383.   The README file does provide a bit more background on some
  2384. --- 1,5 ----
  2385.           Psroff 3.0 Installation Instructions
  2386. !             2.18 92/05/23
  2387.   
  2388.   Please see the TROUBLE file if you have difficulties.
  2389.   The README file does provide a bit more background on some
  2390. ***************
  2391. *** 89,98 ****
  2392.         see if we can get DEC to put it in as a update]
  2393.   
  2394.         Apollos need the -F trofftype variant.  Their HEADERSIZE
  2395. !       calculation is strange.  If you are SR10.3, set HEADERSIZE
  2396. !       to 304.  On SR10.2 and earlier, set HEADERSIZE to 336.
  2397. !       If this doesn't work out, consult the TROUBLE file
  2398. !       on "HEADERSIZE calculations".
  2399.   
  2400.       - NOTE: during installs as root, the makefiles attempt to be
  2401.         careful about the modes of the files it creates.  HOWEVER,
  2402. --- 89,97 ----
  2403.         see if we can get DEC to put it in as a update]
  2404.   
  2405.         Apollos need the -F trofftype variant.  Their HEADERSIZE
  2406. !       calculation is strange.  It appears that HEADERSIZE should
  2407. !       always be set to 304.  "make check" should give the right
  2408. !       result.
  2409.   
  2410.       - NOTE: during installs as root, the makefiles attempt to be
  2411.         careful about the modes of the files it creates.  HOWEVER,
  2412. ***************
  2413. *** 121,138 ****
  2414.         lib/*.lib) are field-configurable, and it is possible I
  2415.         will patch a few of them later (particularly lj.fonts).
  2416.   
  2417. !     - If you are using the supplied width tables (widths/widthps),
  2418. !       all is fine.  But, if you're going to be driving another
  2419. !       package (eg: jetroff, tpscript, psdit etc.) I suggest
  2420. !       you find the ditroff-format ASCII width tables (DESC, R, I,
  2421. !       S etc.), copy them to the appropriate widths/width<xx> area,
  2422. !       modify psrofflib.S to know how to use these width tables,
  2423. !       and possibly create *.fonts and *.lib files.  psrofflib.S
  2424. !       has copious comments on how to configure psroff.
  2425.   
  2426. !       xtroff is supposedly already set - it should work
  2427. !       "out-of-the-box".  Patch level 10 for xtroff is preferred.
  2428. !       [Contact moraes@cs.toronto.edu for more details]
  2429.   
  2430.         psdit, tpscript, xtroff, Pageview, Display Postscript and
  2431.         xproof work reasonably well using the Postscript widths in
  2432. --- 120,134 ----
  2433.         lib/*.lib) are field-configurable, and it is possible I
  2434.         will patch a few of them later (particularly lj.fonts).
  2435.   
  2436. !     - Any of the configurations mentioned in psrofflib.S should
  2437. !       work fine, given that you make the proper configuration
  2438. !       changes for your system.  In some cases, particularly
  2439. !       when you want to use a different ditroff-2-something converter
  2440. !       from CAT troff, you will have to copy the width tables into
  2441. !       widths/widthxx, and make up your own psrofflib.S entries.
  2442.   
  2443. !       Patch level 10 for xtroff is preferred.  [Contact
  2444. !       moraes@cs.toronto.edu for more details]
  2445.   
  2446.         psdit, tpscript, xtroff, Pageview, Display Postscript and
  2447.         xproof work reasonably well using the Postscript widths in
  2448. Index: ./Makefile
  2449. *** /tmp/PATCHold/./Makefile    Sat May 23 22:35:59 1992
  2450. --- ./Makefile    Sat May 23 22:36:06 1992
  2451. ***************
  2452. *** 7,13 ****
  2453.   #    Function: Upper level makefile; configuration options.
  2454.   #
  2455.   #
  2456. ! #ident  "@(#)Makefile: 2.31 Copyright 92/02/21 09:31:19 Chris Lewis"
  2457.   
  2458.   #    If you're not sure whether you have a System V make, leave
  2459.   #    this alone, and run the make anyways.  If it dies horribly
  2460. --- 7,13 ----
  2461.   #    Function: Upper level makefile; configuration options.
  2462.   #
  2463.   #
  2464. ! #ident  "@(#)Makefile: 2.33 Copyright 92/05/21 02:21:05 Chris Lewis"
  2465.   
  2466.   #    If you're not sure whether you have a System V make, leave
  2467.   #    this alone, and run the make anyways.  If it dies horribly
  2468. ***************
  2469. *** 212,218 ****
  2470.   CFLAGS    = $(DEFINES)
  2471.   
  2472.   all:    troff2ps myuid subst.done makeincl psroff README TROUBLE LASERFONTS \
  2473. !     MISC DITROFF INSTALL LICENSE LJIII zap submakes
  2474.   
  2475.   subst.done:    sedscript
  2476.       rm -f psroff makeincl
  2477. --- 212,218 ----
  2478.   CFLAGS    = $(DEFINES)
  2479.   
  2480.   all:    troff2ps myuid subst.done makeincl psroff README TROUBLE LASERFONTS \
  2481. !     MISC DITROFF INSTALL LICENSE LJIII zap pkscale.o submakes
  2482.   
  2483.   subst.done:    sedscript
  2484.       rm -f psroff makeincl
  2485. ***************
  2486. *** 284,289 ****
  2487. --- 284,290 ----
  2488.       test -d $(LIBDIR) || mkdir $(LIBDIR)
  2489.       test -d $(LIBDIR)/lib || mkdir $(LIBDIR)/lib
  2490.       test -d $(LIBDIR)/lib/lj || mkdir $(LIBDIR)/lib/lj
  2491. +     chmod 755 $(LIBDIR) $(LIBDIR)/lib $(LIBDIR)/lib/lj
  2492.       $(IGNORESH) files=`echo fonts.lj/*.pk` ; \
  2493.       if [ "$$files" != 'fonts.lj/*.pk' ] ; \
  2494.       then \
  2495. ***************
  2496. *** 312,325 ****
  2497.   install:    makeincl myuid
  2498.       test "`./myuid`" = 0 || \
  2499.           ( echo "ERROR: You must be root to install" ; exit 1 )
  2500. !     test -d $(BINDIR) || mkdir $(BINDIR)
  2501.       test -d $(MANDIR) || \
  2502.           echo "No MANDIR directory.  Have you got MANDIR right?"
  2503.       test -d $(LIBDIR) || mkdir $(LIBDIR)
  2504.       test -d $(LIBDIR)/adapters || mkdir $(LIBDIR)/adapters
  2505.       test -d $(LIBDIR)/lib || mkdir $(LIBDIR)/lib
  2506. !     test -d $(RTMACDIR) || mkdir $(RTMACDIR)
  2507. !     test -d $(FONTDIR) || mkdir $(FONTDIR)
  2508.       rm -f $(BINDIR)/psroff.old
  2509.       -cp $(BINDIR)/psroff $(BINDIR)/psroff.old 2> /dev/null
  2510.       cp psroff $(BINDIR)/psroff
  2511. --- 313,327 ----
  2512.   install:    makeincl myuid
  2513.       test "`./myuid`" = 0 || \
  2514.           ( echo "ERROR: You must be root to install" ; exit 1 )
  2515. !     test -d $(BINDIR) || (mkdir $(BINDIR) ; chmod 755 $(BINDIR) )
  2516.       test -d $(MANDIR) || \
  2517.           echo "No MANDIR directory.  Have you got MANDIR right?"
  2518.       test -d $(LIBDIR) || mkdir $(LIBDIR)
  2519.       test -d $(LIBDIR)/adapters || mkdir $(LIBDIR)/adapters
  2520.       test -d $(LIBDIR)/lib || mkdir $(LIBDIR)/lib
  2521. !     test -d $(RTMACDIR) || (mkdir $(RTMACDIR) ; chmod 755 $(RTMACDIR) )
  2522. !     test -d $(FONTDIR) || (mkdir $(FONTDIR) ; chmod 755 $(FONTDIR) )
  2523. !     chmod 755 $(LIBDIR) $(LIBDIR)/adapters $(LIBDIR)/lib
  2524.       rm -f $(BINDIR)/psroff.old
  2525.       -cp $(BINDIR)/psroff $(BINDIR)/psroff.old 2> /dev/null
  2526.       cp psroff $(BINDIR)/psroff
  2527. ***************
  2528. *** 440,452 ****
  2529.   dittest:    DITTEST
  2530.       eqn DITTEST | tbl | PATH=:.:$(LIBDIR):$$PATH psroff -T$(TTYPE) $(TFLAGS)
  2531.   
  2532. ! check:    audit sedscript makeincl
  2533. !     cd lib ; $(MAKE)
  2534. !     ./audit
  2535.   
  2536. ! checkinstall:    audit sedscript makeincl
  2537. !     cd lib ; $(MAKE)
  2538. !     ./audit install
  2539.   
  2540.   #    This is how I build a release - don't even try running this...!
  2541.   buildrelease:    clean unpackljfonts
  2542. --- 442,452 ----
  2543.   dittest:    DITTEST
  2544.       eqn DITTEST | tbl | PATH=:.:$(LIBDIR):$$PATH psroff -T$(TTYPE) $(TFLAGS)
  2545.   
  2546. ! check:    checker.S
  2547. !     sh ./checker.S
  2548.   
  2549. ! checkinstall:
  2550. !     @echo "No longer supported"
  2551.   
  2552.   #    This is how I build a release - don't even try running this...!
  2553.   buildrelease:    clean unpackljfonts
  2554. ***************
  2555. *** 480,482 ****
  2556. --- 480,486 ----
  2557.           ( echo "ERROR: You must be root to fixperms" ; exit 1 )
  2558.       find $(LIBDIR) -type f -exec chmod +r '{}' ';'
  2559.       find $(LIBDIR) $(FONTDIR) -type d -exec chmod +rx '{}' ';'
  2560. + 
  2561. + #    Leaves manual pages and width tables installed.  Oh well.
  2562. + deinstall:
  2563. +     rm  -fr $(LIBDIR) $(RTMACDIR)/tmac.t2 $(BINDIR)/psroff
  2564. Index: ./opt.c
  2565. *** /tmp/PATCHold/./opt.c    Sat May 23 22:36:24 1992
  2566. --- ./opt.c    Sat May 23 22:36:29 1992
  2567. ***************
  2568. *** 10,22 ****
  2569.   
  2570.   #include "defs.h"
  2571.   
  2572.   int specXPos, specYPos;
  2573.   extern struct cattab tabN[], tabS[];
  2574.   
  2575.   #ifdef    OPT
  2576.   #ifndef    lint
  2577.   static char SCCSid[] =
  2578. !     "@(#)opt.c: 2.8 Copyright 92/01/23 14:23:52 Chris Lewis";
  2579.   #endif
  2580.   
  2581.   struct insbuf {
  2582. --- 10,29 ----
  2583.   
  2584.   #include "defs.h"
  2585.   
  2586. + int optrun = 15;
  2587. + int fixedperiodwidth = 0;
  2588. + int spaceopt = 0;
  2589. + 
  2590.   int specXPos, specYPos;
  2591.   extern struct cattab tabN[], tabS[];
  2592. + #ifdef SPACEOPT
  2593. + int spcwidth, spccount, spcnom;
  2594. + #endif
  2595.   
  2596.   #ifdef    OPT
  2597.   #ifndef    lint
  2598.   static char SCCSid[] =
  2599. !     "@(#)opt.c: 2.11 Copyright 92/05/21 02:21:16 Chris Lewis";
  2600.   #endif
  2601.   
  2602.   struct insbuf {
  2603. ***************
  2604. *** 25,31 ****
  2605.   };
  2606.   
  2607.   #define    INSBUFSIZ    200
  2608. - #define    OPTSIZ    100
  2609.   struct insbuf insbuf[INSBUFSIZ];
  2610.   static struct insbuf *insptr = insbuf;
  2611.   static int insypos = -1;
  2612. --- 32,37 ----
  2613. ***************
  2614. *** 181,187 ****
  2615.   }
  2616.   
  2617.   int optxpos, optypos;
  2618. ! int optfont, optpoints, optnc, origxpos;
  2619.   char optbuffer[OPTSIZ];
  2620.   short optloc[OPTSIZ];
  2621.   short *optloci;
  2622. --- 187,193 ----
  2623.   }
  2624.   
  2625.   int optxpos, optypos;
  2626. ! int optfont, optpoints, optnc, origxpos, optsymset, optcnt=0;
  2627.   char optbuffer[OPTSIZ];
  2628.   short optloc[OPTSIZ];
  2629.   short *optloci;
  2630. ***************
  2631. *** 191,196 ****
  2632. --- 197,208 ----
  2633.   
  2634.       if (!optimize)
  2635.       return;
  2636. + #if defined(DEBUG) && defined(SPACEOPT)
  2637. +     if ((debug&D_CHAR) && spcwidth) {
  2638. +     DBP((D_CHAR, "LOPT: x,y,sw,sc,nl,s: %d,%d,%d,%d,%d\n",
  2639. +         origxpos, optypos, spcwidth, spccount, spcnom, optbuffer));
  2640. +     }
  2641. + #endif
  2642.   
  2643.       if (optbuffer[0] && be->beputchar)
  2644.       (*be->beputchar)(origxpos, optypos, optfont, optpoints, optnc,
  2645. ***************
  2646. *** 198,203 ****
  2647. --- 210,219 ----
  2648.       optbuffer[0] = '\0';
  2649.       optp = optbuffer;
  2650.       optloci = optloc;
  2651. +     optcnt = 0;
  2652. + #ifdef SPACEOPT
  2653. +     spccount = spcwidth = 0;
  2654. + #endif
  2655.   }
  2656.   
  2657.   optinsert(xpos, ypos, font, points, nc)
  2658. ***************
  2659. *** 209,215 ****
  2660.       struct cattab *ct;
  2661.       register char *from;
  2662.       int cantcache;
  2663. !     static int ditind = 0;
  2664.   
  2665.       if (!optimize) {
  2666.       if (be->beputchar)
  2667. --- 225,231 ----
  2668.       struct cattab *ct;
  2669.       register char *from;
  2670.       int cantcache;
  2671. !     static int ditind = 0, psind = 0;
  2672.   
  2673.       if (!optimize) {
  2674.       if (be->beputchar)
  2675. ***************
  2676. *** 232,238 ****
  2677.          long multiple-character sequences */
  2678.   
  2679.       if (ypos != optypos || optfont != font || optpoints != points ||
  2680. !     wp != xlatetable[font]->widthtable ||
  2681.       optp > optbuffer + OPTSIZ - 10)
  2682.       optflush();
  2683.   
  2684. --- 248,254 ----
  2685.          long multiple-character sequences */
  2686.   
  2687.       if (ypos != optypos || optfont != font || optpoints != points ||
  2688. !     wp != xlatetable[font]->widthtable || optcnt >= optrun ||
  2689.       optp > optbuffer + OPTSIZ - 10)
  2690.       optflush();
  2691.   
  2692. ***************
  2693. *** 246,266 ****
  2694.       ct = &tabN[nc];
  2695.       }
  2696.   
  2697. !     cantcache = !wp || (int) wp == 1 || (font == symidx ? bp->t2b_font != S:
  2698. !                  bp->t2b_font != N)
  2699. ! #ifndef    FIXEDPERIODWIDTH
  2700. !                  /* period widths are screwed in Postscript */
  2701. !                  || (font != symidx && nc == 35)
  2702. ! #endif
  2703.               ;
  2704.   
  2705. !     if (cantcache || bp->t2b_xc || bp->t2b_yc || bp->t2b_scale)
  2706.       optflush();
  2707.   
  2708.       DBP((D_CAT, "opt: font: %d/%d xpos: %d/%d\n",
  2709.       optfont, font, optxpos, xpos));
  2710.   
  2711. !     if (optxpos != xpos)    /* handle spaces one day... */
  2712.       optflush();
  2713.   
  2714.       if (!optbuffer[0]) {
  2715. --- 262,321 ----
  2716.       ct = &tabN[nc];
  2717.       }
  2718.   
  2719. !     cantcache = !wp || (int) wp == 1 
  2720. !                  || bp->t2b_xc || bp->t2b_yc || bp->t2b_scale
  2721. !                  || bp->t2b_font == D
  2722. !                  /* period widths are screwed in some Postscript
  2723. !                 interpreters */
  2724. !                  || (!fixedperiodwidth && (font != symidx && nc == 35))
  2725.               ;
  2726.   
  2727. !     if (cantcache || 
  2728. !     (optbuffer[0] ? (bp->t2b_font != optsymset) :
  2729. !         (font == symidx ? bp->t2b_font != S : bp->t2b_font != N)))
  2730.       optflush();
  2731.   
  2732.       DBP((D_CAT, "opt: font: %d/%d xpos: %d/%d\n",
  2733.       optfont, font, optxpos, xpos));
  2734.   
  2735. ! #ifdef SPACEOPT
  2736. !     if (!psind)
  2737. !     if (strcmp(be->bename, "ps") == 0)
  2738. !         psind = 1;
  2739. !     else
  2740. !         psind = -1;
  2741. !     if (spaceopt && psind == 1 && optbuffer[0] && optxpos != xpos &&
  2742. !     optcnt < optrun - 5 && bp->t2b_font == N) {
  2743. !     /* possible blank/space optimization */
  2744. ! 
  2745. !     if (!spcwidth) {    /* first space we've seen this line */
  2746. !         spcnom = (wp[0] * points + 3) / 6;    /* *nominal* space width.  CAT
  2747. !                            doesn't read it - hardcoded.
  2748. !                            GRRRR. */
  2749. !         spcwidth = xpos - optxpos;
  2750. !         spccount = 1;
  2751. !         *optloci = optxpos;
  2752. !         optxpos = xpos;
  2753. !         *optp++ = ' ';
  2754. !         *optp = '\0';
  2755. !     } else if ((xpos - optxpos) % spcwidth == 0) {
  2756. !         int sw;
  2757. !         sw = (xpos - optxpos) / spcwidth;
  2758. !         if (sw + optcnt < optrun - 5) {
  2759. !         while(sw--) {
  2760. !             optcnt++;
  2761. !             spccount++;
  2762. !             *optloci++ = optxpos;
  2763. !             *optp++ = ' ';
  2764. !         }
  2765. !         *optp = '\0';
  2766. !         optxpos = xpos;
  2767. !         }
  2768. !     }
  2769. !     }
  2770. ! #endif
  2771. ! 
  2772. !     if (optxpos != xpos)
  2773.       optflush();
  2774.   
  2775.       if (!optbuffer[0]) {
  2776. ***************
  2777. *** 268,273 ****
  2778. --- 323,329 ----
  2779.       optxpos = xpos;
  2780.       origxpos = xpos;
  2781.       optfont = font;
  2782. +     optsymset = bp->t2b_font;
  2783.       optnc = nc;
  2784.       optpoints = points;
  2785.       }
  2786. ***************
  2787. *** 284,301 ****
  2788.   
  2789.       from = bp->t2b_charseq;
  2790.       if (ditind == 1) {
  2791. !     if (*from == '\\')
  2792.           *optp++ = '\\';
  2793. !     else if (*(from+1)) {
  2794.           *optp++ = '\\';
  2795.           *optp++ = '(';
  2796.           *optp++ = *from++;
  2797.       }
  2798.       *optp++ = *from++;
  2799.           
  2800.       } else
  2801. !     for (; *from;)
  2802.           *optp++ = *from++;
  2803.       *optp = '\0';
  2804.   }
  2805.   #endif
  2806. --- 340,362 ----
  2807.   
  2808.       from = bp->t2b_charseq;
  2809.       if (ditind == 1) {
  2810. !     if (*from == '\\') {
  2811.           *optp++ = '\\';
  2812. !         optcnt++;
  2813. !     } else if (*(from+1)) {
  2814.           *optp++ = '\\';
  2815.           *optp++ = '(';
  2816.           *optp++ = *from++;
  2817. +         optcnt += 3;
  2818.       }
  2819.       *optp++ = *from++;
  2820. +     optcnt++;
  2821.           
  2822.       } else
  2823. !     for (; *from;) {
  2824. !         optcnt++;
  2825.           *optp++ = *from++;
  2826. +     }
  2827.       *optp = '\0';
  2828.   }
  2829.   #endif
  2830. Index: ./pkscale.c
  2831. *** /tmp/PATCHold/./pkscale.c    Sat May 23 22:36:40 1992
  2832. --- ./pkscale.c    Sat May 23 22:36:42 1992
  2833. ***************
  2834. *** 0 ****
  2835. --- 1,202 ----
  2836. + /*    Copyright 1992 Chris Lewis
  2837. +         All Rights Reserved
  2838. + 
  2839. +     See the LICENSE file for a full description of restrictions under which
  2840. +     this software is provided.
  2841. + 
  2842. +     Function: PK/SFP font scaling.  Much hackery.  Results so-so.
  2843. +  */
  2844. + 
  2845. + #include "defs.h"
  2846. + 
  2847. + #ifdef    PK
  2848. + 
  2849. + #ifndef lint
  2850. + static char SCCSid[] = "@(#)pkscale.c 1.2 Copyright 92/05/19 23:10:53 Chris Lewis";
  2851. + #endif
  2852. + 
  2853. + #include "pk.h"
  2854. + 
  2855. + long
  2856. + scalenum(sf, num)
  2857. + double sf;
  2858. + long num; {
  2859. +     if (num < 0)
  2860. +     return((long) (sf * num - .5));
  2861. +     else
  2862. +     return((long) (sf * num + .5));
  2863. + }
  2864. + 
  2865. + static short *sl = (short *) NULL;
  2866. + static sln = 0;
  2867. + 
  2868. + struct pkp *
  2869. + pkscale(pkp, target)
  2870. + struct pkp *pkp;
  2871. + int target; {
  2872. +     struct pkp *npkp;
  2873. +     register int i,j;
  2874. +     register struct pkc *pc, *npc;
  2875. +     extern struct ras *pkrast();
  2876. +     double sf;
  2877. + 
  2878. +     if (!target || target == pkp->pkp_npts)
  2879. +     return(pkp);
  2880. + 
  2881. +     if (sl) {
  2882. +     free(sl);
  2883. +     sl = (short *) NULL;
  2884. +     sln = 0;
  2885. +     }
  2886. +     
  2887. +     sf = (double) target / pkp->pkp_npts;
  2888. + 
  2889. +     npkp = (struct pkp *) mustmalloc(sizeof(struct pkp),
  2890. +     "New PK header for scale");
  2891. +     *npkp = *pkp;
  2892. +     npkp->pkp_list = (struct pkc **)
  2893. +     mustmalloc(sizeof(struct pkc *) * pkp->pkp_num,
  2894. +     "New PK sort list for scale");
  2895. + 
  2896. +     npkp->pkp_chars = (struct pkc *) NULL;
  2897. +     npkp->pkp_last = (struct pkc *) NULL;
  2898. + 
  2899. +     npkp->pkp_ds = scalenum(sf, npkp->pkp_ds);
  2900. +     npkp->pkp_npts = scalenum(sf, npkp->pkp_npts);
  2901. +     npkp->pkp_bmax = scalenum(sf, npkp->pkp_bmax);
  2902. +     npkp->pkp_dmax = scalenum(sf, npkp->pkp_dmax);
  2903. +     npkp->pkp_wmax = scalenum(sf, npkp->pkp_wmax);
  2904. +     npkp->pkp_xomax = scalenum(sf, npkp->pkp_xomax);
  2905. +     npkp->pkp_kh = scalenum(sf, npkp->pkp_kh);
  2906. +     npkp->pkp_kl = scalenum(sf, npkp->pkp_kl);
  2907. + 
  2908. +     for (i = 0; i < pkp->pkp_num; i++) {
  2909. +     register struct ras *r;
  2910. +     pc = pkp->pkp_list[i];
  2911. + 
  2912. +     /* create new char descriptor, initialized to old */
  2913. +     npc = (struct pkc *) mustmalloc(sizeof(struct pkc),
  2914. +         "New PK character descriptor");
  2915. +     *npc = *pc;
  2916. +     if (!npkp->pkp_chars)
  2917. +         npkp->pkp_chars = npc;
  2918. +     npkp->pkp_last = npc;
  2919. +     npkp->pkp_list[i] = npc;
  2920. + 
  2921. +     /* get a raster to play with */
  2922. +     pc->pkc_sfpr = pkrast(pc);
  2923. +     if (pc->pkc_pkr)
  2924. +         free((char *) pc->pkc_pkr);
  2925. +     pc->pkc_pkr = (int8 *) NULL;
  2926. + 
  2927. +     npc->pkc_sfpr = r = (struct ras *) mustmalloc(sizeof(struct ras),
  2928. +         "SFP raster header for scale");
  2929. +     
  2930. +     npc->pkc_height = scalenum(sf, npc->pkc_height)+1;
  2931. +     npc->pkc_width = scalenum(sf, npc->pkc_width)+1;
  2932. +     npc->pkc_dx = scalenum(sf, npc->pkc_dx);
  2933. +     npc->pkc_dy = scalenum(sf, npc->pkc_dy);
  2934. +     npc->pkc_x_off = scalenum(sf, npc->pkc_x_off);
  2935. +     npc->pkc_y_off = scalenum(sf, npc->pkc_y_off);
  2936. + 
  2937. +     r->ras_height = npc->pkc_height;
  2938. +     r->ras_width = npc->pkc_width;
  2939. +     r->ras_bline = (npc->pkc_width + 7) / 8;
  2940. +     r->ras_bytes = r->ras_height * r->ras_bline;
  2941. +     r->ras_raster = (int8 *) mustmalloc((int) r->ras_bytes,
  2942. +         "SFP raster for scale");
  2943. +     
  2944. +     rastscale(r, pc->pkc_sfpr, sf);
  2945. + 
  2946. +     }
  2947. +     pk_destroy(pkp);
  2948. +     return(npkp);
  2949. + }
  2950. + 
  2951. + #define seton(x,y,r) r->ras_raster[y * r->ras_bline + (x >> 3)] |= (0x80 >> (x&7))
  2952. + #define biton(x,y,r) r->ras_raster[y * r->ras_bline + (x >> 3)] & (0x80 >> (x&7))
  2953. + 
  2954. + #define BLOT
  2955. + #ifdef BLOT
  2956. + short blot1[] = {-1, 0,
  2957. +          0, 1,
  2958. +          1, 0,
  2959. +          0, -1,
  2960. +          0, 0};
  2961. + short blot2[] = {-2,0,
  2962. +         -1,0,
  2963. +         -1,1,
  2964. +         0,1,
  2965. +         0,2,
  2966. +         1,1,
  2967. +         1,0,
  2968. +         2,0,
  2969. +         1,-1,
  2970. +         0,-1,
  2971. +         0,-2,
  2972. +         -1,-1,
  2973. +         0,0};
  2974. + short *blotlist[] = {blot1, blot2, blot2, blot2, blot2, blot2};
  2975. + #endif
  2976. + 
  2977. + rastscale(to, from, scale)
  2978. + register struct ras *to, *from;
  2979. + double scale; {
  2980. +     register int x, y;
  2981. +     register int ct = scale;
  2982. +     register struct ras *nr;
  2983. + 
  2984. +     /* optimization to avoid floating point */
  2985. +     x = max(from->ras_height, from->ras_width) + 10;
  2986. +     if (x > sln) {
  2987. +     register short *p;
  2988. +     if (sl)
  2989. +         free(sl);
  2990. +     p = sl = (short *)mustmalloc(sizeof(short) * x,
  2991. +         "SFP raster scale array");
  2992. +     sln = x;
  2993. +     for (x = 0, p = sl; x < sln; x++)
  2994. +         *p++ = scale * x + .5;
  2995. +     }
  2996. + 
  2997. +     clrarray(to->ras_raster, to->ras_bytes);
  2998. + 
  2999. +     /* dumb scaling algorithm. */
  3000. +     for (y = 0; y < from->ras_height; y++)
  3001. +     for (x = 0; x < from->ras_width; x++) {
  3002. +         if (biton(x, y, from)) {
  3003. +         register int sy = sl[y], sx = sl[x];
  3004. +         seton(sx, sy, to);
  3005. + 
  3006. +         /* if scale > 1, we centre a ct*ct box on it */
  3007. + #ifdef BLOT
  3008. +         if (ct) {
  3009. +             register int tsx, tsy;
  3010. +             register short *p = blotlist[ct-1];
  3011. + 
  3012. +             while(*p || *(p+1)) {
  3013. +             tsx = sx + *p++;
  3014. +             tsy = sy + *p++;
  3015. +             if (tsx < 0 || tsx >= to->ras_width ||
  3016. +                 tsy < 0 || tsy >= to->ras_height)
  3017. +                 continue;
  3018. +             seton(tsx, tsy, to);
  3019. +             }
  3020. +         }
  3021. + #else
  3022. +         if (ct) {
  3023. +             register int tsy, tsx, limx, limy;
  3024. +             limy = min(sy + ct + 1, to->ras_height);
  3025. +             for (tsy = max(sy-ct,0) ; tsy < limy; tsy++) {
  3026. +             limx = min(sx + ct + 1, to->ras_width);
  3027. +             for (tsx = max(sx-ct, 0); tsx < limx; tsx++) {
  3028. +             }
  3029. +             }
  3030. +         }
  3031. + #endif
  3032. +         }
  3033. +     }
  3034. + 
  3035. + }
  3036. + 
  3037. + #endif
  3038. Index: ./pk.c
  3039. *** /tmp/PATCHold/./pk.c    Sat May 23 22:36:55 1992
  3040. --- ./pk.c    Sat May 23 22:36:57 1992
  3041. ***************
  3042. *** 13,19 ****
  3043.   #ifdef    PK
  3044.   
  3045.   #ifndef lint
  3046. ! static char SCCSid[] = "@(#)pk.c 2.3 Copyright 91/02/20 09:02:17 Chris Lewis";
  3047.   #endif
  3048.   
  3049.   #define    DRAW
  3050. --- 13,19 ----
  3051.   #ifdef    PK
  3052.   
  3053.   #ifndef lint
  3054. ! static char SCCSid[] = "@(#)pk.c 2.4 Copyright 92/03/12 01:11:09 Chris Lewis";
  3055.   #endif
  3056.   
  3057.   #define    DRAW
  3058. ***************
  3059. *** 28,33 ****
  3060. --- 28,35 ----
  3061.   
  3062.   extern char *progname;
  3063.   
  3064. + long sfp_hmi;        /* pitch (default HMI) from SFP font header */
  3065. + 
  3066.   static FILE *fin;
  3067.   static char *filename;    /* name of *current* font being read */
  3068.   extern char *malloc();
  3069. ***************
  3070. *** 668,676 ****
  3071.   
  3072.       p->pkp_symset = get2int();
  3073.   
  3074. !     get2int();        /* pitch - we calculate this from height */
  3075.       c = get2int();    /* retrieved *height* */
  3076. !     p->pkp_npts = c * POINT / (OUTRES*4) + .5;
  3077.   
  3078.       get2int();    /* dummy */
  3079.       get1int();    /* dummy */
  3080. --- 670,681 ----
  3081.   
  3082.       p->pkp_symset = get2int();
  3083.   
  3084. !     c = get2int();    /* pitch (default HMI) */
  3085. !     sfp_hmi = (double) c / 4 + .5;
  3086. ! 
  3087.       c = get2int();    /* retrieved *height* */
  3088. !     p->pkp_ds = (c * POINT * pow2(20)) / (OUTRES*4);
  3089. !     p->pkp_npts = (p->pkp_ds / pow2(20)) + 0.5;
  3090.   
  3091.       get2int();    /* dummy */
  3092.       get1int();    /* dummy */
  3093. ***************
  3094. *** 682,688 ****
  3095.       p->pkp_xomax = 0;
  3096.   
  3097.       /* These are simulated so that the PK handlers can figure the font out */
  3098. -     p->pkp_ds = p->pkp_npts * pow2(20);
  3099.       p->pkp_cs = 0;
  3100.       p->pkp_hppp = OUTRES * pow2(16) / POINT;
  3101.       p->pkp_vppp = OUTRES * pow2(16) / POINT;
  3102. --- 687,692 ----
  3103.