home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / unixtex-6.1b-bin2.lha / lib / texmf / fonts / ams / cyrillic / src / cyrital.mf < prev    next >
Text File  |  1996-10-12  |  5KB  |  130 lines
  1. %% @metafontfile{
  2. %%     filename="cyrital.mf",
  3. %%     version="2.1",
  4. %%     date="30-MAY-1991",
  5. %%     filetype="Metafont: driver",
  6. %%     copyright="Copyright (C) Humanities and Arts Computing Center,
  7. %%            University of Washington;
  8. %%            all rights reserved.  Copying of this file is
  9. %%            authorized only if either:
  10. %%            (1) you make absolutely no changes to your copy
  11. %%                including name; OR
  12. %%            (2) if you do make changes, you first rename it to some
  13. %%                other name.",
  14. %%     author="American Mathematical Society",
  15. %%     address="American Mathematical Society,
  16. %%            Technical Support Department,
  17. %%            P. O. Box 6248,
  18. %%            Providence, RI 02940,
  19. %%            USA",
  20. %%     telephone="401-455-4080 or (in the USA) 800-321-4AMS",
  21. %%     email="Internet: Tech-Support@Math.AMS.org",
  22. %%     codetable="ISO/ASCII",
  23. %%     checksumtype="line count",
  24. %%     checksum="130",
  25. %%     keywords="amsfonts, tex, metafont , cyrillic ",
  26. %%     abstract="This is the driver file for use with 
  27. %%            the italic cyrillic fonts in AMSFonts 2.1."
  28. %%     }
  29. %
  30. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  31. % This is CYRITAL.MF in text format, as of May 5, 1986.
  32. % The Cyrillic Modern Text Italic family
  33. % (by T.B. RIDGEWAY, borrowing heavily from D. E. Knuth, 1979--1985)
  34. % Intellectual Property Rights owned by Humanities and Arts Computing Center,
  35. % University of Washington
  36.  
  37. mode_setup; font_setup;
  38. font_coding_scheme:="TeX text without f-ligatures";
  39.  
  40. def cyrspread = 1.125dot_size enddef;
  41. numeric cyrflwd; cyrflwd=1.5hair;
  42. numeric cyrflht; cyrflht=3slab;
  43.  
  44. input cyrmax;
  45. altaccent:=true;
  46. input cyrilu; % input common shapes
  47. input serb; % serbian & other chars
  48. input cyrspu; % and special uppercase forms
  49. input cyrpunc; % and puctuation etc.
  50. input serbspu;
  51. def cyrspread = 1.125dot_size enddef;
  52. input cyrti;  % lower case (minuscules)
  53.  
  54.  
  55. font_slant slant; font_x_height x_height#;
  56. if monospace: font_normal_space 9u#; % no stretching or shrinking
  57.  font_quad 18u#;
  58.  font_extra_space 9u#;
  59.  letter_fit#:=letter_fit:=0;
  60. else: font_normal_space 6u#+2letter_fit#;
  61.  font_normal_stretch 3u#; font_normal_shrink 2u#;
  62.  font_quad 18u#+4letter_fit#;
  63.  font_extra_space 2u#; fi
  64.  
  65.  k#:=-.5u#; kk#:=-1.5u#; kkk#:=-2.5u#; % three degrees of kerning
  66. ligtable "K": "H"=:"H", "h"=:"H",
  67.           oct"021": "H": oct"005" kern k#, oct"025" kern k#,
  68.          "F" kern k#, "O" kern k#, "S" kern k#;
  69. ligtable "T":  "S"=:"C", "s"=:"C",
  70.           oct"024": "G": "U": "A" kern kkk#, 
  71.          "D" kern kkk#, "L" kern kk#, "C" kern kk#, "a" kern kk#,
  72.          "d" kern kk#, "e" kern kk#, "f" kern kk#, "o" kern kk#,
  73.          oct"005" kern kk#, oct"015" kern kk#, oct"025" kern kk#,
  74.          oct"035" kern kk#, "." kern kk#, "," kern kk#, ";" kern kk#;
  75. ligtable "'": "'"=:oct"042";
  76. ligtable "-": "-"=:oct"173";
  77. ligtable oct"173": "-"=:oct"174";
  78. ligtable "6": "h"=:"W", "H"=:"W";
  79. ligtable "7": "h"=:"w";
  80. ligtable "A": oct"000": oct"001": oct"136": oct"137": oct"024" kern kk#,
  81.           oct"006" kern kk#, oct"007" kern kk#, "Q" kern kk#, oct"137" kern kk#;
  82. ligtable "C": "1"=:oct"007", "H"=:"Q", "h"=:"Q";
  83. ligtable "D": "1"=:oct"006", "2"=:oct"002", "3"=:oct"026",
  84.               "J"=:oct"006", "j"=:oct"006";
  85. ligtable "E": "0"=:oct"023", "1"=:oct"003", "2"=:oct"005";
  86. ligtable "I": "0"=:oct"022", "1"=:oct"004";
  87. ligtable "J": "1"=:oct"027", "2"=:oct"020";
  88. ligtable "L": "1"=:oct"001", "J"=:oct"001", "j"=:oct"001";
  89. ligtable "N": "0"=:oct"175", "1"=:oct"000", "J"=:oct"000", "j"=:oct"000";
  90. ligtable "O": oct"003": "F": "O" kern -k#, "F" kern -k#, oct"005" kern -k#,
  91.           oct"025": "H" kern k#, "A" kern k#, "U" kern k#, oct"024" kern k#,
  92.           "T" kern k#;
  93. ligtable "P": "1"=:oct"136", "2"=:oct"137";
  94. ligtable "t": "s"=:"c",
  95.          "R":  oct"005" kern k#, oct"025" kern k#,
  96.       oct"034": "g": "u": oct"035" kern k#,
  97.           "a" kern k#, "d" kern k#, "e" kern k#, "f" kern k#,
  98.           "l" kern k#, "o" kern k#, "s" kern k#, oct"015" kern k#,
  99.           oct"035" kern k#, "." kern kk#, "," kern kk#, ";" kern kk#;
  100.           
  101. ligtable "S": "H"=:"X", "h"=:"X";
  102. ligtable "X": "Q"=:"W", "q"=:"W", "C"=:"6", "c"=:"6";
  103. ligtable "Y": "A"=:oct"027", "a"=:oct"027", "U"=:oct"020", "u"=:oct"020";
  104. ligtable "Z": "1"=:oct"021", "H"=:oct"021", "h"=:oct"021";
  105. ligtable "[": "["=:oct"074";
  106. ligtable "]": "]"=:oct"076";
  107. ligtable "`": "`"=:oct"134";
  108. ligtable "e": "0"=:oct"032", "1"=:oct"013", "2"=:oct"015",
  109.          "b": "o": "r": "f": "o" kern -k#, "f" kern -k#, "e" kern -k#,
  110.           "c" kern -k#, "h" kern k#;
  111. ligtable "c": "1"=:oct"017", "h"=:"q";
  112. ligtable "d": "1"=:oct"016", "2"=:oct"012", "3"=:oct"036", "j"=:oct"016";
  113. ligtable "i": "0"=:oct"033", "1"=:oct"014";
  114. ligtable "j": "1"=:oct"037", "2"=:oct"030";
  115. ligtable "k": "h"=:"h";
  116. ligtable "l": "1"=:oct"011", "j"=:oct"011";
  117. ligtable "n": "1"=:oct"010", "j"=:oct"010";
  118. ligtable "p": "1"=:oct"176", "2"=:oct"177";
  119. ligtable "x": "q"=:"w", "c"=:"7";
  120. ligtable "y": "a"=:oct"037", "u"=:oct"030";
  121. ligtable "z": "1"=:oct"031", "h"=:oct"031";
  122. ligtable "s": "h"=:"x",
  123.               "m": "w": oct"012" kern -k#, oct"032" kern -k#, "c" kern -k#,
  124.               "g" kern -k#, "i" kern -k#, "k" kern -k#, "m" kern -k#,
  125.               "n" kern -k#, "p" kern -k#, "r" kern -k#, "v" kern -k#, "w" kern -k#,
  126.               "x" kern -k#, "y" kern -k#, oct"176" kern -k#, oct"177" kern -k#;
  127.  
  128.  
  129. bye.
  130.