trunk/Master/texmf-dist/fonts/source

git-svn-id: svn://tug.org/texlive/trunk@101 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 90 insertions, 0 deletions

diff --git a/Master/texmf-dist/fonts/source/public/bookhands/pgoth10.mf b/Master/texmf-dist/fonts/source/public/bookhands/pgoth10.mf
new file mode 100644
index 00000000000..76f399e74ce
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/bookhands/pgoth10.mf
@@ -0,0 +1,90 @@
+%%
+%% This is file `pgoth10.mf',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% pgothic.dtx  (with options: `base10')
+%% 
+%%  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
+%% 
+%%% PGOTH10.MF  Gothic Textura Prescius at 10 point design size.
+if unknown cmbase: input cmbase fi
+
+font_identifier:="PGOTH"; font_size 10pt#;
+
+ jutstretch:=1.152;
+ stemstretch:=1.31;
+ caprat:=7/5;          % ratio of capital height to minuscule height
+ cap_jutstretch:=1.2;
+ cap_stemstretch:=1.31;
+ bfudge:=1.0;
+ szfudge:=1.0;
+ hstretch:=szfudge*bfudge;
+ carol_height#:=155/36pt#;
+ vstretch:=1.3;
+
+ x_height#:=vstretch*carol_height#;
+ u#:=20/36pt#;
+ width_adj#:=0pt#;         % width adjustment for certain characters
+ serif_fit#:=0pt#;         % extra sidebar near lowercase serifs
+ cap_serif_fit#:=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#:=246/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#:=.4pt#;
+
+%%%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#:=8/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
+