summaryrefslogtreecommitdiff
path: root/usergrps/uktug/baskervi/5_5/txpseudo.mf
blob: e4a2d3d3b0ef9978966b89aa3bf89cb926604437 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
% txpseudo.mf
% 
%
% (c) Copyright 1995 J"org Knappen
%
% This file is part of dcfonts version 1.2
%
% Please read the files 00readme.txt, 00inst.txt, 00error.txt, and
% copyrite.txt for further information
%
% You find some documentation in dcdoc.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|).
%
% 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
define_whole_blacker_pixels(idot_diam,udot_diam,pdot_diam);

% |limit_dist| is used in |put_cross|
% (the value of |u| is changed by |mono_adjust|, hence the global setting)

numeric limit_dist; limit_dist=5/4u;

% 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#,
        lc_circle_height, lc_circle_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#;
lc_acute_height# = asc_height#;
lc_hachek_height# = lc_acute_height#;
lc_circle_height# = lc_acute_height#;
accent_u# = u#;   % unexpanded dimension unit

accent_thin = if thin_join > crisp: thin_join else: crisp+eps fi;
define_whole_vertical_pixels(uc_acc_height,lc_acute_height,
    lc_hachek_height,lc_circle_height);
define_pixels(accent_u);

uc_acc_shift = cap_height - x_height;
asc_acc_shift = asc_height - x_height;

% Height of floating accents for capitals (note, that TeX raises them 
% by |uc_acc_shift|)

numeric cap_accent_height, cap_accent_height#;
cap_accent_height# = acc_height# + x_height#;
define_whole_vertical_pixels(cap_accent_height);

endinput;