home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / std_unix / v14 / eth < prev    next >
Internet Message Format  |  1989-01-07  |  10KB
  1. From uucp  Sat Apr 23 18:03:16 1988
  2. Received: by uunet.UU.NET (5.54/1.14) 
  3.     id AA28552; Sat, 23 Apr 88 18:03:16 EDT
  4. From: std-unix@longway.TIC.COM (Moderator, John S. Quarterman)
  5. Newsgroups: comp.std.unix
  6. Subject: Re: Eth and Thorn characters
  7. Keywords: Icelandic, ISO8859/1
  8. Message-Id: <180@longway.TIC.COM>
  9. References: <170@longway.TIC.COM>
  10. Reply-To: uunet!mcvax!rhi.hi.is!magnus (Magnus Gislason)
  11. Organization: University of Iceland
  12. Date: 20 Apr 88 09:40:26 GMT
  13. Apparently-To: std-unix-archive
  14. Status: O
  15.  
  16. From: uunet!mcvax!rhi.hi.is!magnus (Magnus Gislason)
  17.  
  18. In article <170@longway.TIC.COM>
  19. > From: rja@edison.GE.COM (rja)
  20. > 
  21. > A recent posting has inquired about what the Eth and Thorn characters
  22. > look like.
  23. > 
  24. >     [...long description of the Eth and Thorn characters...]
  25. >
  26. Unfortunately 'rja' doesn't seem to be very familiar with Icelandic or
  27. these special Icelandic characters.
  28.  
  29. The only character he (she?) described correctly (at least as I could
  30. understand it) was uppercase Eth.
  31.  
  32. This is what they approximately look like in Icelandic:
  33.  
  34.      ETH           eth                THORN        thorn
  35.  
  36.      ----          \ /                |            |
  37.      |   \          \                 |            |
  38.      |    \        / \                |---         |
  39.     ---   |         _ \               |   >        |---
  40.      |    /        / \|               |---         |   \
  41.      |   /        |   |               |            |   /
  42.      ----          \_/                |            |---
  43.                                                    |
  44.                                                    |
  45.                                                    |
  46.  
  47. For those who don't know which sounds these characters represent, they
  48. both sound like 'th' in English. 'Eth' as in 'this' and 'thorn' as in
  49. 'think'.
  50.  
  51.         Magnus Gislason
  52.         University of Iceland,       Internet:  magnus@rhi.hi.is
  53.         Computing Center (RHI)       Uucp:  ...!mcvax!hafro!rhi!magnus
  54.  
  55. Volume-Number: Volume 14, Number 9
  56.  
  57. From uucp  Tue Apr 26 11:07:51 1988
  58. Received: by uunet.UU.NET (5.54/1.14) 
  59.     id AA03590; Tue, 26 Apr 88 11:07:51 EDT
  60. From: std-unix@longway.TIC.COM (Moderator, John S. Quarterman)
  61. Newsgroups: comp.std.unix
  62. Subject: Re: Eth and Thorn characters
  63. Summary: Not "special Icelandic characters"
  64. Keywords: Icelandic, ISO8859/1
  65. Message-Id: <182@longway.TIC.COM>
  66. References: <170@longway.TIC.COM> <180@longway.TIC.COM>
  67. Reply-To: uunet!ucbvax.Berkeley.EDU!usenix!peter (Peter Salus)
  68. Date: 25 Apr 88 17:13:06 GMT
  69. Apparently-To: std-unix-archive
  70. Status: O
  71.  
  72. From: peter@usenix.org (Peter Salus)
  73.  
  74.  
  75. In article <180@longway.TIC.COM>:
  76. > From: uunet!mcvax!rhi.hi.is!magnus (Magnus Gislason)
  77. > 
  78. >         Magnus Gislason
  79. >         University of Iceland,       Internet:  magnus@rhi.hi.is
  80. >         Computing Center (RHI)       Uucp:  ...!mcvax!hafro!rhi!magnus
  81.  
  82. Despite the statement that edh (which I prefer to eth) and thorn 
  83. are special Icelandic characters, it is worth noting that they 
  84. occur in Old English as well.  For anyone involved in Germanic 
  85. studies or phonetics they are important.  
  86.  
  87. I claim right to input as one who spent a delightful year at the 
  88. University of Iceland a quarter century ago.
  89.  
  90. Peter H. Salus
  91. Executive Director
  92. USENIX Association
  93.  
  94. Volume-Number: Volume 14, Number 11
  95.  
  96. From uucp  Mon May  2 16:11:06 1988
  97. Received: by uunet.UU.NET (5.54/1.14) 
  98.     id AA14540; Mon, 2 May 88 16:11:06 EDT
  99. From: std-unix@longway.TIC.COM (Moderator, John S. Quarterman)
  100. Newsgroups: comp.std.unix
  101. Subject: Postscript def. eth and thorn
  102. Message-Id: <184@longway.TIC.COM>
  103. References: <167@longway.TIC.COM>
  104. Reply-To: uunet!mcvax!rhi.hi.is!marius (Marius Olafsson)
  105. Organization: University of Iceland
  106. Date: 28 Apr 88 09:04:26 GMT
  107. Apparently-To: std-unix-archive
  108. Status: O
  109.  
  110. From: uunet!mcvax!rhi.hi.is!marius (Marius Olafsson)
  111.  
  112. >From article <167@longway.TIC.COM>, by BROOKS@CSSS-A.PRIME.COM (David Brooks):
  113. > From: BROOKS@CSSS-A.PRIME.COM (David Brooks)
  114. > 
  115. > Nobody, but nobody, knows how to design eth and thorn.  If any
  116. > Icelanders(?) would post a bitmap AND a PostScript definition of these
  117. > four glyphs, many of us would be grateful.
  118.  
  119. Following is a small PostScript-program that defines a font
  120. containing only the two ISO8859/1 letters 'eth' and 'thorn', both
  121. in upper and lower case, as they should look like in Times-Roman.
  122. The encoding vector puts them at the their places in the ISO 8859/1
  123. character set. After defining the font the program uses it to print
  124. a few copies of the letters in several sizes.  Note that upper case 
  125. 'Eth' is defined by using 'D' in the built-in Times-Roman font.
  126.  
  127. The letters are not typographically perfect, most notably the lower
  128. case 'eth' (which is a very difficult and often badly designed letter),
  129. but should suffice.
  130.  
  131. All fonts (almost) that Adobe sells, define these letters with the
  132. same names as used below. They are also defined in the built-in fonts
  133. with PostScript 42.2 and later. In that case, all that is needed to use
  134. them is to include them in the 'Encoding'-vector.
  135.  
  136. --
  137. Marius Olafsson        marius@rhi.hi.is
  138. University of Iceland    ..!mcvax!hafro!rhi!marius
  139.  
  140. %%%%%%%%%%%%%%%%%%%%%%%%%% PostScript begins %%%%%%%%%%%%%%%%%%%%%%%%%%
  141.  
  142. /BuildCharDict 10 dict def 
  143.  
  144. /IceFont 7 dict def
  145.  
  146. IceFont begin
  147.  
  148.   /FontType 3 def 
  149.   /FontMatrix [.001 0 0 .001 0 0] def 
  150.   /FontBBox [-103 -191 1042 822 ]def 
  151.  
  152.   /Encoding 256 array def 
  153.   0 1 255 {Encoding exch /.notdef put} for
  154.   Encoding (\320) 0 get /Eth put
  155.   Encoding (\360) 0 get /eth put
  156.   Encoding (\336) 0 get /Thorn put
  157.   Encoding (\376) 0 get /thorn put
  158.  
  159.   /CharacterDefs 5 dict def
  160.   CharacterDefs begin
  161.    /.notdef {} def
  162.    /Eth    % definition for the upper case 'Eth'. It is implemented
  163.            % as a Times-Roman 'D' with a line through its left side.
  164.     { /Times-Roman findfont 1000 scalefont setfont
  165.       /trD (D) def
  166.       0 0 moveto
  167.       gsave
  168.        trD stringwidth
  169.        trD false charpath flattenpath pathbbox
  170.       grestore
  171.       setcachedevice % width should be like on 'D'
  172.  
  173.       newpath
  174.         0 0 moveto
  175.         trD show
  176.  
  177.         13 369 moveto
  178.         313 369 lineto
  179.         313 411 lineto
  180.         13 411 lineto
  181.         13 369 lineto
  182.       fill
  183.     } def
  184.    /eth    % definition for the lower case 'eth'. It should look like
  185.            % an 'o' with a curved ascender from its right side, and
  186.            % a crossline at a 90 degree angle to the ascender. Note that
  187.            % the crossline is not quite right in this case.
  188.     { 522 0 0 -18 540 738 setcachedevice % width should be like on 'o'
  189.       newpath
  190.         0.91 0.91 scale
  191.         261 6 moveto
  192.         50 4 48 445 261 445 curveto
  193.         490 445 490 4 261 4 curveto
  194.         261 -15 moveto
  195.         -44 -15 -44 469 261 469 curveto
  196.         324 469 373 430 403 401 curveto
  197.         420 438 340 563 276 608 curveto
  198.         162 555 lineto
  199.         137.36 582.3 lineto
  200.         248.5 632.3 lineto
  201.         211 666 157 700 110 712 curveto
  202.         130.4 721 lineto
  203.         183.4 710 240.4 681 291.7 651.3 curveto
  204.         404.76 703.3 lineto
  205.         425.4 679 lineto
  206.         323.4 631 lineto
  207.         596 434 543 -15 261 -15 curveto
  208.       eofill
  209.     } def
  210.    /Thorn  % definition for the upper case 'Thorn'. It should look similar
  211.            % to a 'P' but the circle lies lower
  212.     { 594 0 0 0 513 666 setcachedevice % width should be like on 'P'
  213.       newpath
  214.         32 3 moveto
  215.         32 16 lineto
  216.         92 16 129 25 133 65 curveto
  217.         133 600 lineto
  218.         133 639 98 654 32 654 curveto
  219.         32 660 lineto
  220.         307 660 lineto 
  221.         307 654 lineto 
  222.         246 654 211 636 208 600 curveto
  223.         208 540 lineto
  224.         350 540 lineto
  225.         470 537 548 461 548 360 curveto
  226.         548 261 467 175 309 173 curveto
  227.         276 174 242 176 208 180 curveto
  228.         208 65 lineto
  229.         208 34 243 16 307 16 curveto
  230.         307 3 lineto
  231.         31 3 lineto
  232.         208 224 moveto
  233.         208 475 lineto
  234.         208 496 246 501 298 501 curveto
  235.         438 501 478 413 478 351 curveto
  236.         478 264 435 204 285 204 curveto
  237.         258 203 236 217 208 224 curveto
  238.       eofill
  239.     } def
  240.    /thorn  % definition for the lower case 'thorn'. It should look like
  241.            % a 'p' with an ascender as high as the 'l'.
  242.     { 504 0 0 -234 468 702 setcachedevice % width should be like on 'p'
  243.       newpath
  244.         5 -217 moveto
  245.         5 -202 lineto
  246.         57 -202 95 -185 95 -130 curveto
  247.         95 578 lineto
  248.         95 615 55 628 40 628 curveto
  249.         28 628 11 622 5 619 curveto
  250.         5 631 lineto
  251.         158 689 lineto
  252.         158 387 lineto
  253.         213 441 254 466 294 466 curveto
  254.         410 466 470 337 470 237 curveto
  255.         470 135 389 -18 261 -18 curveto
  256.         224 -18 189 -2 158 26 curveto
  257.         158 -136 lineto
  258.         158 -187 182 -204 234 -204 curveto
  259.         234 -217 lineto
  260.         5 -217 lineto
  261.         158 87 moveto
  262.         158 341 lineto
  263.         176 364 216 404 254 404 curveto
  264.         359 404 393 298 393 206 curveto
  265.         393 140 366 24 258 24 curveto
  266.         212 24 178 50 158 87 curveto
  267.       eofill
  268.     } def
  269.   end
  270.  
  271.   /BuildChar
  272.     { BuildCharDict begin
  273.  
  274.         /char exch def
  275.         /fontdict exch def
  276.  
  277.         /charname fontdict /Encoding get
  278.           char get def
  279.  
  280.         /charproc fontdict /CharacterDefs get
  281.           charname get def
  282.  
  283.         gsave charproc grestore
  284.       end
  285.     } def
  286. end
  287.  
  288. /IceTimes-Roman IceFont definefont pop
  289.  
  290.  
  291. /IceTimes-Roman findfont 150 scalefont setfont
  292. 30 700 moveto
  293. <D0F0DEFE> show
  294.  
  295. /IceTimes-Roman findfont 200 scalefont setfont
  296. 30 520 moveto
  297. <D0F0DEFE> show
  298.  
  299. /IceTimes-Roman findfont 250 scalefont setfont
  300. 30 320 moveto
  301. <D0F0> show
  302.  
  303. /IceTimes-Roman findfont 250 scalefont setfont
  304. 30 100 moveto
  305. <DEFE> show
  306.  
  307. showpage
  308.  
  309. %%%%%%%%%%%%%%%%%%%%%%%%%%% PostScript ends %%%%%%%%%%%%%%%%%%%%%%%%%%%
  310.  
  311.  
  312. Volume-Number: Volume 14, Number 12
  313.  
  314.