summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/jknappen/fc/fcitligt.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/jknappen/fc/fcitligt.mf')
-rw-r--r--Master/texmf-dist/fonts/source/jknappen/fc/fcitligt.mf167
1 files changed, 167 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/jknappen/fc/fcitligt.mf b/Master/texmf-dist/fonts/source/jknappen/fc/fcitligt.mf
new file mode 100644
index 00000000000..22b09273663
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/jknappen/fc/fcitligt.mf
@@ -0,0 +1,167 @@
+% This is FCITLIGT.MF
+% Version 1.3a
+% Date 25-NOV-1994
+%
+% (c) 1992, 1994 by J"org Knappen
+% This file is part of the fc-package
+% See fc.rme for more information
+%
+% J"org Knappen
+% Institut f"ur Kernphysik
+% Postfach 39 80
+% D-W 55099 Mainz
+% knappen@vkpmzd.kph.uni-mainz.de
+
+%
+% Ligature Table for fc italic fonts
+%
+
+ligtable ">":">" =: oct"023"; % Guillemets
+ligtable "<":"<" =: oct"024";
+ligtable "`":"`" =: oct"020"; % Quotation marks
+ligtable "'":"'" =: oct"021";
+ligtable ",":"," =: oct"022";
+ligtable "!":"`" =: spanish_shriek; % Spanish punctuation
+ligtable "?":"`" =: spanish_query;
+ligtable "-":"-" =: oct"025", % n-dash
+ 127 =: 127; % "-" "hyphenchar" -> "hyphenchar"
+ligtable oct"025":"-" =: oct"026"; % m-dash
+
+% Ligatures fl, fi, ff etc not yet implemented
+
+numeric itc#; itc#=(asc_height#-x_height#)*slant+1/4u#;
+
+ligtable "f": "i"=:oct"034",
+ "f"=:oct"033",
+ "l"=:oct"035",
+ "j"=:fj_lig,
+long_f: esh: t_esh_lig:
+ "'" kern itc#, "?" kern itc#, "!" kern itc#,
+ ")" kern itc#, "]" kern itc#;
+
+ligtable oct"033": % ff
+ "i"=:oct"036",
+ "l"=:oct"037",
+ "'" kern itc#,
+ "?" kern itc#,
+ "!" kern itc#,
+ ")" kern itc#,
+ "]" kern itc#;
+
+
+def lig_o_table (expr k) =
+ "o" kern k, open_o kern k, open_o_tilde kern k,
+ o_grave kern k, o_dot kern k, o_hat kern k,
+ o_tilde kern k, o_umlaut kern k, oe_lig kern k,
+ crossed_o kern k, o_dotu kern k, o_uline kern k,
+ o_bar kern k, o_hachek kern k
+enddef;
+%
+def lig_a_table (expr k) =
+ "a" kern k, a_tilde kern k, ae_lig kern k
+enddef;
+%
+def lig_i_table (expr k) =
+ "i" kern k, oct"031" kern k, i_tilde kern k, latin_iota kern k,
+ i_dotu kern k
+enddef;
+def lig_e_table (expr k)=
+ "e" kern k, e_hachek kern k, e_dot kern k, open_e kern k,
+ reversed_e kern k, e_dotu kern k, open_e_tilde kern k,
+ e_grave kern k, e_acute kern k, e_hat kern k,
+ e_umlaut kern k, e_uline kern k, e_bar kern k,
+ e_tilde kern k
+enddef;
+%
+def lig_u_table (expr k)=
+ "u" kern k, u_dotu kern k, u_tilde kern k, var_u kern k
+enddef;
+%
+def lig_O_table (expr k) =
+ "O" kern k, open_o kern k, open_O_tilde kern k,
+ O_grave kern k, O_dot kern k, O_hat kern k,
+ O_tilde kern k, O_umlaut kern k, OE_lig kern k,
+ crossed_O kern k, O_dotu kern k, O_uline kern k,
+ O_bar kern k, O_hachek kern k
+enddef;
+%
+%
+%
+k#:=-.5u#; kk#:=-1.5u#; kkk#:=-2u#; % three degrees of kerning
+
+
+ligtable "F": long_F: "V": "W": "T": hooktop_T: "Y":
+ "a" kern kk#, "e" kern kk#, open_e kern kk#,
+ reversed_e kern kk#, oct"031" kern kk#, latin_iota kern kk#,
+ "o" kern kk#, open_o kern kk#, "u" kern kk#, var_u kern kk#,
+ ae_lig kern kk#, oe_lig kern kk#, "r" kern kk#,
+ "y" kern kk#,
+ "A" kern kk#, "." kern kk#,
+ "," kern kk#;
+
+ligtable "P": hooktop_P:
+ "A" kern kk#, "." kern kk#,
+ "," kern kk#;
+
+
+ligtable "K": "X": ipa_Gamma:
+ lig_O_table(k#), "C" kern k#, "G" kern k#, "Q" kern k#,
+ hooktop_C kern k#, C_cedilla kern k#;
+
+ligtable "O": "D": Edh: hooktop_D: open_O: open_O_tilde: O_grave: O_dot:
+ O_hat: O_tilde: O_umlaut: crossed_O: O_dotu: O_bar: O_hachek:
+ "X" kern k#, ipa_Gamma kern k#, "W" kern k#, "V" kern k#,
+ "Y" kern k#, hooktop_Y kern k#, "A" kern k#, A_tilde kern k#,
+ AE_lig kern k#;
+
+ligtable "A": A_tilde: "R": latin_Iota:
+ "t" kern k#, sami_t kern k#, hooktop_t kern k#,
+ "n" kern k#, "m" kern k#, enj kern k#, eng kern k#,
+ n_tilde kern k#, n_acute kern k#, n_dot kern k#,
+ n_uline kern k#, m_acute kern k#,
+ "l" kern k#, "r" kern k#, lig_u_table(k#), lig_i_table(k#),
+ "h" kern k#, crossed_h kern k#, "b" kern k#,
+ hooktop_b kern k#, "k" kern k#, hooktop_k kern k#,
+ "v" kern k#, "w" kern k#,
+ lig_e_table(-u#), lig_a_table(-u#), lig_o_table(-u#),
+ "d" kern -u#, hooktop_d kern -u#, crossed_d kern -u#,
+ tailed_d kern -u#, "c" kern -u#, hooktop_c kern -u#,
+ c_cedilla kern -u#, "g" kern -u#, "q" kern -u#,
+ "C" kern k#,
+ hooktop_C kern k#, C_cedilla kern k#, "G" kern k#,
+ lig_O_table(k#), "Q" kern k#, "U" kern k#, var_U kern k#,
+ "T" kern kk#, long_T kern kk#, "Y" kern kk#,
+ hooktop_Y kern kk#, "V" kern kkk#, "W" kern kkk#;
+
+ligtable "L": lig_e_table(-u#), lig_a_table(-u#), lig_o_table(-u#),
+ "d" kern -u#, hooktop_d kern -u#, crossed_d kern -u#,
+ tailed_d kern -u#, "c" kern -u#, hooktop_c kern -u#,
+ c_cedilla kern -u#, "g" kern -u#, "q" kern -u#,
+ "T" kern kk#, long_T kern kk#, "Y" kern kk#,
+ hooktop_Y kern kk#, "V" kern kkk#, "W" kern kkk#;
+
+ligtable "l": "l" kern u#;
+
+ligtable "b": hooktop_b: "c": hooktop_c: c_cedilla:
+ "e": e_hachek: e_dot: open_e: reversed_e: e_dotu: open_e_tilde:
+ e_grave: e_acute: e_hat: e_umlaut: e_uline: e_bar: e_tilde:
+ "o": open_o: open_o_tilde: o_grave: o_dot: o_hat:
+ o_tilde: o_umlaut: oe_lig: crossed_o: o_dotu: o_uline:
+ o_bar: o_hachek: "p": hooktop_p: "r":
+ lig_e_table(-u#), lig_a_table(-u#), lig_o_table(-u#),
+ "d" kern -u#, hooktop_d kern -u#, crossed_d kern -u#,
+ tailed_d kern -u#, "c" kern -u#, hooktop_c kern -u#,
+ c_cedilla kern -u#, "g" kern -u#, "q" kern -u#;
+ligtable "n": "'" kern kkk#;
+
+ligtable hooktop_d: % t_esh_lig:
+ "a" kern k#, "e" kern k#, latin_iota kern k#,
+ oct"031" kern k#, open_e kern k#, reversed_e kern k#,
+ "o" kern k#, open_o kern k#, "u" kern k#, var_u kern k#,
+ ae_lig kern k#, oe_lig kern k#,
+ "." kern kk#, "," kern kk#;
+
+ligtable tailed_d: lig_a_table(k#), lig_e_table(k#), lig_i_table(k#),
+ lig_o_table(k#), lig_u_table(k#), "." kern kk#;
+
+endinput;