1 files changed, 90 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/tgothr7.mf b/Master/texmf-dist/fonts/source/public/bookhands/tgothr7.mf
new file mode 100644
index 00000000000..9c4b47891d1
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/bookhands/tgothr7.mf
@@ -0,0 +1,90 @@
+%%
+%% This is file `tgothr7.mf',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% tgothic.dtx  (with options: `base7')
+%% 
+%%  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
+%% 
+%%% TGOTH7.MF    Gothic Textura Quadrata at 7 point design size.
+if unknown cmbase: input cmbase fi
+
+font_identifier:="TGOTH"; font_size 7pt#;
+
+ jutstretch:=1.19;
+ stemstretch:=1.50;
+ caprat:=7/5;          % ratio of capital height to minuscule height
+ cap_jutstretch:=1.3;
+ cap_stemstretch:=1.45;
+ bfudge:=1.0;
+ szfudge:=1.18;
+ hstretch:=szfudge*bfudge;
+ carol_height#:=108.5/36pt#;
+ vstretch:=1.3;
+
+ x_height#:=vstretch*carol_height#;
+ u#:=15.5/36pt#;
+ width_adj#:=0pt#;         % width adjustment for certain characters
+ serif_fit#:=0pt#;         % extra sidebar near lowercase serifs
+ cap_serif_fit#:=3.5/36pt#;  % extra sidebar near uppercase serifs
+ letter_fit#:=0pt#;        % extra space added to all sidebars
+ sb#:=1/4u#;                   % unit for side bearings
+
+ cap_sb#:=2sb#;           % unit for uppercase side bearings
+
+ cap_height#:=172.2/36pt#;        % height of caps
+ thickfudge:=1/5;
+thinfudge:=1/6;
+thick#:=stemstretch*thickfudge*x_height#;    % max pen breadth
+thin#:=thinfudge*thick#;
+pangle:=45;                  % pen angle
+stem_width#:= thick#*(cosd pangle);
+perpdec#:= 3thin#;
+angdec#:= perpdec#/(cosd pangle);
+  ascratio:=5/4;
+  asc_height#:=ascratio*x_height#;
+  descratio:=2/4;
+  desc_depth#:=descratio*x_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#:=.34pt#;
+
+%%%jutfudge:= 3/4;
+jutfudge:= 1/2;
+jut#:=jutstretch*jutfudge*thick#;
+srad:=0.8;   % was 0.5
+trijut#:=0.75jutstretch*thick#;
+clubjutfudge:=1/2;
+clubjut#:=jutstretch*clubjutfudge*thick#;
+wided:= 0.75;
+widedmin := 1.05 - wided;
+narrowd:= 0.5;
+narrowdmin := 0.7 - narrowd;
+diawd := 1.0;
+diang := 30;
+  fig_height#:=(0.5[1,caprat])*x_height#;
+  fig_width#:=hstretch*(4+wided+widedmin)*stem_width#;
+ o#:=5/36pt#;
+
+slant:=0;      % tilt ratio $(\Delta x/\Delta y)$
+%%%%%%slant:= sind 10/cosd 10;  %% 10 degree slant
+
+monospace:=false;    % should all characters have the same width?
+
+dot_size#:=5thin#;   % size of dots
+comma_width#:=5/4dot_size#;
+
+generate tgothtitle      %% switch to the driver file
+