You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
122 lines
3.5 KiB
122 lines
3.5 KiB
% eccsc.mf
|
|
%
|
|
% (c) Copyright 1995, 1996, 1997 J"org Knappen
|
|
% (c) Copyright 1990, 1992 Norbert Schwarz
|
|
%
|
|
% 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)
|
|
%
|
|
% Content:
|
|
%
|
|
% driver file, called by parameter files for "caps and small caps" fonts
|
|
%
|
|
|
|
%
|
|
% dx r l west
|
|
% i u east
|
|
% : : :
|
|
% : : west '3xx / east '2xx
|
|
% : uppercase/lowercase
|
|
% roman / italic
|
|
|
|
version_check(1,0); % |version_check| was introduced in dc1.3
|
|
|
|
input exaccess; % accessories for polish special letters
|
|
input expseudo; % pseudoparameters
|
|
mode_setup; font_setup; pseudo_setup;
|
|
|
|
input exruwest;
|
|
input exrueast;
|
|
input exrulett; % upper case (majuscules)
|
|
|
|
input exbraces; % ^ ~ cwm ( ) < | > [ ] \ { } _ - (177) space (040)
|
|
input expunct; % < << > >> ! ` ' * + , . / = ; : (spanish !)
|
|
|
|
input exsign; % zero for mille, " # $ % @ pound sign
|
|
%
|
|
input exromp; % (roman punctuation) & ? (spanish ?)
|
|
%
|
|
input exrdigit; % roman digits
|
|
%
|
|
|
|
boolean is_small_cap; is_small_cap:=true;
|
|
%%% fine higher
|
|
% the `higher' values are used while putting accents and attaching ogoneks
|
|
forsuffixes $=u,o,letter_fit,x_height,bar_height,body_height,stem:
|
|
higher.$.#:=$.#; higher.$:=$;
|
|
endfor
|
|
|
|
%%% fine lower
|
|
begingroup
|
|
forsuffixes $= u, width_adj, cap_serif_fit, letter_fit,
|
|
body_height, cap_height, x_height, bar_height, comma_depth,
|
|
flare, dot_size, cap_hair, stem, cap_stem, cap_curve, cap_ess,
|
|
cap_jut, beak_jut, beak, slab, cap_bar, cap_band, cap_notch_cut,
|
|
o, apex_o: save $; $.#:=lower.$.#; endfor
|
|
fudge:=lower.fudge;
|
|
|
|
% optional part:
|
|
forsuffixes $ = depth_corr, left_corr, top_breadth_corr, tip_breadth_corr,
|
|
tip_xcorr, tip_ycorr, pre_angle, post_angle, pre_limit, post_limit,
|
|
pre_lightness, post_lightness, pre_deflexion, post_deflexion, cap_flat,
|
|
ogonek_pen#: if known lower.$: $:=lower.$; fi
|
|
endfor
|
|
|
|
input expseudo; % Recalculate pseudoparameters
|
|
|
|
font_setup; pseudo_setup; % now try again with |lower| settings
|
|
|
|
input excspl; % dotless i,j; letter ligatures FF FI FL FFI FFL D-
|
|
|
|
|
|
extra_endchar:=extra_endchar&"charcode:=charcode+code_offset";
|
|
code_offset:=ASCII"a" - ASCII"A";
|
|
|
|
input exrulett; % upper case (majuscules)
|
|
|
|
suppress_i_dot := true;
|
|
|
|
input exruwest;
|
|
input exrueast;
|
|
|
|
code_offset:=0;
|
|
input txpseudo; % Recalculate pseudoparameters for capital accents
|
|
font_setup; pseudo_setup;
|
|
input txaccent; % Accents for capital letters with small cap parameters
|
|
|
|
endgroup;
|
|
|
|
|
|
% Fontparameter
|
|
%
|
|
font_coding_scheme:="Extended TeX Font Encoding - Latin";
|
|
boundarychar:=oct"027";
|
|
font_slant slant;
|
|
font_x_height x_height#;
|
|
font_cap_height cap_height#;
|
|
font_asc_height asc_height#;
|
|
font_acc_cap_height (cap_height#+acc_height#);
|
|
font_desc_depth desc_depth#;
|
|
font_max_height (max(asc_height#,body_height#,
|
|
cap_height#+acc_height#));
|
|
font_max_depth (max(desc_depth#,paren_depth#,the_ogonek_depth#));
|
|
% font_digit_width % set inside the digits file
|
|
% font_cap_stem % set after the programme of the capital I
|
|
font_baselineskip max(1.2*designsize,body_height#+paren_depth#);
|
|
|
|
if monospace: font_normal_space 9u#; % no stretching or shrinking
|
|
font_quad 18u#;
|
|
font_extra_space 9u#;
|
|
input exmligtb; % do the monospace ligature programs
|
|
else: font_normal_space 6u#+2letter_fit#;
|
|
font_normal_stretch 3u#; font_normal_shrink 2u#;
|
|
font_quad 18u#+4letter_fit#;
|
|
font_extra_space 2u#;
|
|
input excligtb; % do the ligature programs, not for monospaced fonts
|
|
fi
|
|
|
|
bye.
|
|
|