home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / std_unix / volume.14 / text0010.txt < prev    next >
Encoding:
Internet Message Format  |  1989-01-07  |  5.9 KB
  1. From: uunet!mcvax!rhi.hi.is!marius (Marius Olafsson)
  2.  
  3. >From article <167@longway.TIC.COM>, by BROOKS@CSSS-A.PRIME.COM (David Brooks):
  4. > From: BROOKS@CSSS-A.PRIME.COM (David Brooks)
  5. > 
  6. > Nobody, but nobody, knows how to design eth and thorn.  If any
  7. > Icelanders(?) would post a bitmap AND a PostScript definition of these
  8. > four glyphs, many of us would be grateful.
  9.  
  10. Following is a small PostScript-program that defines a font
  11. containing only the two ISO8859/1 letters 'eth' and 'thorn', both
  12. in upper and lower case, as they should look like in Times-Roman.
  13. The encoding vector puts them at the their places in the ISO 8859/1
  14. character set. After defining the font the program uses it to print
  15. a few copies of the letters in several sizes.  Note that upper case 
  16. 'Eth' is defined by using 'D' in the built-in Times-Roman font.
  17.  
  18. The letters are not typographically perfect, most notably the lower
  19. case 'eth' (which is a very difficult and often badly designed letter),
  20. but should suffice.
  21.  
  22. All fonts (almost) that Adobe sells, define these letters with the
  23. same names as used below. They are also defined in the built-in fonts
  24. with PostScript 42.2 and later. In that case, all that is needed to use
  25. them is to include them in the 'Encoding'-vector.
  26.  
  27. --
  28. Marius Olafsson        marius@rhi.hi.is
  29. University of Iceland    ..!mcvax!hafro!rhi!marius
  30.  
  31. %%%%%%%%%%%%%%%%%%%%%%%%%% PostScript begins %%%%%%%%%%%%%%%%%%%%%%%%%%
  32.  
  33. /BuildCharDict 10 dict def 
  34.  
  35. /IceFont 7 dict def
  36.  
  37. IceFont begin
  38.  
  39.   /FontType 3 def 
  40.   /FontMatrix [.001 0 0 .001 0 0] def 
  41.   /FontBBox [-103 -191 1042 822 ]def 
  42.  
  43.   /Encoding 256 array def 
  44.   0 1 255 {Encoding exch /.notdef put} for
  45.   Encoding (\320) 0 get /Eth put
  46.   Encoding (\360) 0 get /eth put
  47.   Encoding (\336) 0 get /Thorn put
  48.   Encoding (\376) 0 get /thorn put
  49.  
  50.   /CharacterDefs 5 dict def
  51.   CharacterDefs begin
  52.    /.notdef {} def
  53.    /Eth    % definition for the upper case 'Eth'. It is implemented
  54.            % as a Times-Roman 'D' with a line through its left side.
  55.     { /Times-Roman findfont 1000 scalefont setfont
  56.       /trD (D) def
  57.       0 0 moveto
  58.       gsave
  59.        trD stringwidth
  60.        trD false charpath flattenpath pathbbox
  61.       grestore
  62.       setcachedevice % width should be like on 'D'
  63.  
  64.       newpath
  65.         0 0 moveto
  66.         trD show
  67.  
  68.         13 369 moveto
  69.         313 369 lineto
  70.         313 411 lineto
  71.         13 411 lineto
  72.         13 369 lineto
  73.       fill
  74.     } def
  75.    /eth    % definition for the lower case 'eth'. It should look like
  76.            % an 'o' with a curved ascender from its right side, and
  77.            % a crossline at a 90 degree angle to the ascender. Note that
  78.            % the crossline is not quite right in this case.
  79.     { 522 0 0 -18 540 738 setcachedevice % width should be like on 'o'
  80.       newpath
  81.         0.91 0.91 scale
  82.         261 6 moveto
  83.         50 4 48 445 261 445 curveto
  84.         490 445 490 4 261 4 curveto
  85.         261 -15 moveto
  86.         -44 -15 -44 469 261 469 curveto
  87.         324 469 373 430 403 401 curveto
  88.         420 438 340 563 276 608 curveto
  89.         162 555 lineto
  90.         137.36 582.3 lineto
  91.         248.5 632.3 lineto
  92.         211 666 157 700 110 712 curveto
  93.         130.4 721 lineto
  94.         183.4 710 240.4 681 291.7 651.3 curveto
  95.         404.76 703.3 lineto
  96.         425.4 679 lineto
  97.         323.4 631 lineto
  98.         596 434 543 -15 261 -15 curveto
  99.       eofill
  100.     } def
  101.    /Thorn  % definition for the upper case 'Thorn'. It should look similar
  102.            % to a 'P' but the circle lies lower
  103.     { 594 0 0 0 513 666 setcachedevice % width should be like on 'P'
  104.       newpath
  105.         32 3 moveto
  106.         32 16 lineto
  107.         92 16 129 25 133 65 curveto
  108.         133 600 lineto
  109.         133 639 98 654 32 654 curveto
  110.         32 660 lineto
  111.         307 660 lineto 
  112.         307 654 lineto 
  113.         246 654 211 636 208 600 curveto
  114.         208 540 lineto
  115.         350 540 lineto
  116.         470 537 548 461 548 360 curveto
  117.         548 261 467 175 309 173 curveto
  118.         276 174 242 176 208 180 curveto
  119.         208 65 lineto
  120.         208 34 243 16 307 16 curveto
  121.         307 3 lineto
  122.         31 3 lineto
  123.         208 224 moveto
  124.         208 475 lineto
  125.         208 496 246 501 298 501 curveto
  126.         438 501 478 413 478 351 curveto
  127.         478 264 435 204 285 204 curveto
  128.         258 203 236 217 208 224 curveto
  129.       eofill
  130.     } def
  131.    /thorn  % definition for the lower case 'thorn'. It should look like
  132.            % a 'p' with an ascender as high as the 'l'.
  133.     { 504 0 0 -234 468 702 setcachedevice % width should be like on 'p'
  134.       newpath
  135.         5 -217 moveto
  136.         5 -202 lineto
  137.         57 -202 95 -185 95 -130 curveto
  138.         95 578 lineto
  139.         95 615 55 628 40 628 curveto
  140.         28 628 11 622 5 619 curveto
  141.         5 631 lineto
  142.         158 689 lineto
  143.         158 387 lineto
  144.         213 441 254 466 294 466 curveto
  145.         410 466 470 337 470 237 curveto
  146.         470 135 389 -18 261 -18 curveto
  147.         224 -18 189 -2 158 26 curveto
  148.         158 -136 lineto
  149.         158 -187 182 -204 234 -204 curveto
  150.         234 -217 lineto
  151.         5 -217 lineto
  152.         158 87 moveto
  153.         158 341 lineto
  154.         176 364 216 404 254 404 curveto
  155.         359 404 393 298 393 206 curveto
  156.         393 140 366 24 258 24 curveto
  157.         212 24 178 50 158 87 curveto
  158.       eofill
  159.     } def
  160.   end
  161.  
  162.   /BuildChar
  163.     { BuildCharDict begin
  164.  
  165.         /char exch def
  166.         /fontdict exch def
  167.  
  168.         /charname fontdict /Encoding get
  169.           char get def
  170.  
  171.         /charproc fontdict /CharacterDefs get
  172.           charname get def
  173.  
  174.         gsave charproc grestore
  175.       end
  176.     } def
  177. end
  178.  
  179. /IceTimes-Roman IceFont definefont pop
  180.  
  181.  
  182. /IceTimes-Roman findfont 150 scalefont setfont
  183. 30 700 moveto
  184. <D0F0DEFE> show
  185.  
  186. /IceTimes-Roman findfont 200 scalefont setfont
  187. 30 520 moveto
  188. <D0F0DEFE> show
  189.  
  190. /IceTimes-Roman findfont 250 scalefont setfont
  191. 30 320 moveto
  192. <D0F0> show
  193.  
  194. /IceTimes-Roman findfont 250 scalefont setfont
  195. 30 100 moveto
  196. <DEFE> show
  197.  
  198. showpage
  199.  
  200. %%%%%%%%%%%%%%%%%%%%%%%%%%% PostScript ends %%%%%%%%%%%%%%%%%%%%%%%%%%%
  201.  
  202.  
  203. Volume-Number: Volume 14, Number 12
  204.  
  205.