%% %% This is file `pgothb7.mf', %% generated with the docstrip utility. %% %% The original source files were: %% %% pgothic.dtx (with options: `base7b') %% %% 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 %% %%% PGOTHB7.MF Gothic Textura Prescius Bold at 7 point design size. if unknown cmbase: input cmbase fi font_identifier:="PGOTHB"; 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; %% normally 1.2 szfudge:=1.18; hstretch:=szfudge*bfudge; carol_height#:=108.5/36pt#; vstretch:=1.3; x_height#:=vstretch*carol_height#; u#:=17.9/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/4; 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 pgothtitle %% switch to the driver file