diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/jknappen/ec/expseudo.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/jknappen/ec/expseudo.mf | 94 |
1 files changed, 94 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/jknappen/ec/expseudo.mf b/Master/texmf-dist/fonts/source/jknappen/ec/expseudo.mf new file mode 100644 index 00000000000..a5237224028 --- /dev/null +++ b/Master/texmf-dist/fonts/source/jknappen/ec/expseudo.mf @@ -0,0 +1,94 @@ +% expseudo.mf +% +% (c) Copyright 1995, 1996, 1997 J"org Knappen +% +% This file is part of ecfonts version 1.0 +% +% Please read the files 00readme.txt, 00inst.txt, 00error.txt, and +% copyrite.txt for further information +% +% You find some documentation in ecdoc.tex (needs LaTeX2e) +% +% This file contains pseudoparameters which are not entered in the +% parameter files, but are computed from the initial parameter set. +% There are also ad hoc parameters needed only once, and scratch +% parameters with different values at each occuerence (like |theta|). +% +version_check(1,0); % |version_check| was introduced in dc1.3 + +% Diameters of dots + +numeric idot_diam#,udot_diam#,pdot_diam#; +idot_diam#=max(dot_size#,cap_curve#); % dot of letters `i' and `j' +udot_diam#=max(dot_size#,cap_curve#); % umlaut dots +pdot_diam#=if monospace: 5/4 fi\\ dot_size#; % punctuation dots + + +% The following umlaut dot diameter is used inside |exbase.mf|: +% dot_diam:=max(tiny.breadth,hround(max(dot_size,cap_curve)-2stem_corr)); +% Several symbols just use |dot_size|. + +% |heavy_hair| occurs in italic lowercase `e'. Since there are many +% accented versions of it, it is declared once here + +vardef heavy_hair=hround .2[hair,stem] enddef; + +% |qvair| (quotes vair) for the french quotes + +vardef qvair=max(round(xvair),fine+epsilon) enddef; + +% |limit_dist| is used in |put_accent| and |put_cross| +% (the value of |u| is changed by |mono_adjust|, hence the global setting) + +vardef limit_dist=5/4u enddef; + +% Height of lowercase umlaut, taken from csfonts +% Changed again, since the |lowercase_umlaut| macro works differently + +numeric lc_trema_height#; +% lc_trema_height# = min(cap_height#,9/7x_height#+.5max(dot_size#,cap_curve#)); +lc_trema_height# = min(cap_height#,9/7hi.x_height#+max(dot_size#,cap_curve#)); + + +% More parametrisations for accents from csaccent.mf (csfonts): + +numeric uc_acc_height, uc_acc_height#, + lc_acute_height, lc_acute_height#, + lc_hachek_height, lc_hachek_height#, + accent_u, accent_u#, + accent_thin, + uc_acc_shift, asc_acc_shift; +if unknown circ_weight: circ_weight:=1; fi + +%uc_acc_height# = cap_height#+asc_height#-x_height#; +uc_acc_height# = cap_height#+acc_height#; +lc_acute_height# = asc_height#; +lc_hachek_height# = hi.x_height#+acc_height#; +accent_u# = u#; % unexpanded dimension unit + +vardef accent_thin = if thin_join > crisp: thin_join else: crisp+eps fi enddef; + +vardef uc_acc_shift = cap_height - x_height enddef; +vardef asc_acc_shift = asc_height - x_height enddef; + +numeric cap_accent_height, cap_accent_height#; +%cap_accent_height# = uc_acc_height#; +cap_accent_height# = cap_height# + acc_height#; + +def pseudo_setup = + define_whole_blacker_pixels(idot_diam,udot_diam,pdot_diam); + define_whole_vertical_pixels(lc_trema_height); + define_whole_vertical_pixels(uc_acc_height,lc_acute_height, + lc_hachek_height); + define_pixels(accent_u); + define_whole_vertical_pixels(cap_accent_height); +% LAST MINUTE EXTRA FONT SETUP +%%% define_pixels prepare_pen +if not serifs: fisp#:=1/3[fine#,crisp#]; define_whole_pixels(fisp); + prepare_pen fisp; fi +if known ogonek_pen#: + define_whole_pixels(ogonek_pen); prepare_pen ogonek_pen; +fi +enddef; + +endinput; |