%%
%% 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

