summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/bookhands/unclb17.mf
blob: 587a897e6508b0eef78e1c0100ddd3f41df6bb37 (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
64
65
66
67
68
69
70
71
%%
%% This is file `unclb17.mf',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% uncial.dtx  (with options: `base17b')
%% 
%%  Copyright 1999 Peter R. Wilson
%% 
%%  This program is provided under the terms of the
%%  LaTeX Project Public License distributed from CTAN
%%  archives in directory macros/latex/base/lppl.txt.
%% 
%% Author: Peter Wilson (CUA)
%%         now at: peter.r.wilson@boeing.com
%% 
%%% UNCLB17.MF  Computer Uncial Bold at 17 point design size.
if unknown cmbase: input cmbase fi

font_identifier:="UNCLB"; font_size 17.28pt#;

 jutstretch:=1.0;
 stemstretch:=1.0;
 caprat:=1.25;          % ratio of capital height to minuscule height
 cap_jutstretch:=1.0;
 cap_stemstretch:=1.0;
 bfudge:=1.15;
 szfudge:=1.0;
 hstretch:=szfudge*bfudge;
 carol_height#:=268/36pt#;
 vstretch:=1.37;

 x_height#:=vstretch*carol_height#;
 u#:=37/36pt#;
 width_adj#:=0pt#;         % width adjustment for certain characters
 serif_fit#:=0pt#;         % extra sidebar near lowercase serifs
 cap_serif_fit#:=8/36pt#;  % extra sidebar near uppercase serifs
 letter_fit#:=-0.1pt#;        % extra space added to all sidebars

 cap_height#:=425/36pt#;        % height of caps
 thickfudge:=1/4;
thinfudge:=1/6;
thick#:=stemstretch*thickfudge*x_height#;    % max pen breadth
thin#:=thinfudge*thick#;
pangle:=30;                  % pen angle
  asc_height#:=2x_height#;
  desc_depth#:=x_height#;
  fig_height#:=(0.5[1,caprat])*x_height#;
  fig_width#:=hstretch*(9/10x_height#);
 body_height#:=caprat*asc_height#;
 body_depth#:=caprat*desc_depth#;
 half_height#:=1/2x_height#;    % half the height of x height letters

side#:=x_height#;
 rule_thickness#:=.6pt#;

jutfudge:= 3/4;
jut#:=jutstretch*jutfudge*thick#;
srad:=0.5;
 o#:=10/36pt#;

slant:=0;      % tilt ratio $(\Delta x/\Delta y)$

monospace:=false;    % should all characters have the same width?

dot_size#:=5thin#;   % size of dots
comma_width#:=2.5dot_size#;

generate uncltitle      %% switch to the driver file