summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-04-08 16:43:45 +0000
committerKarl Berry <karl@freefriends.org>2011-04-08 16:43:45 +0000
commit9631a619eb83ca16233a8c5a5d22b2549de79f6d (patch)
treeb0c7a8f2567433f0a39084446ebcd214fd89d4c5 /Master/texmf-dist/fonts/source/public
parent07f021d3cb17d27409f0a57a18e06f7ceb4fba39 (diff)
bookhands update (delayed from years ago)
git-svn-id: svn://tug.org/texlive/trunk@22023 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts/source/public')
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/hmin10.mf20
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/hmin17.mf20
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/hmin7.mf20
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/hminb10.mf20
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/hminb17.mf20
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/hminb7.mf20
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/hmindig.mf20
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/hminl.mf20
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/hminlig.mf128
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/hminpunct.mf20
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/hmintitle.mf20
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/hminu.mf20
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/sqrc10.mf81
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/sqrc17.mf81
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/sqrc7.mf81
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/sqrcb10.mf81
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/sqrcb17.mf81
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/sqrcb7.mf81
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/sqrcdig.mf251
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/sqrcl.mf836
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/sqrclig.mf142
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/sqrcpunct.mf121
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/sqrctitle.mf710
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/sqrcu.mf836
24 files changed, 276 insertions, 3454 deletions
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/hmin10.mf b/Master/texmf-dist/fonts/source/public/bookhands/hmin10.mf
index cb133dab348..4404ecd47a8 100644
--- a/Master/texmf-dist/fonts/source/public/bookhands/hmin10.mf
+++ b/Master/texmf-dist/fonts/source/public/bookhands/hmin10.mf
@@ -6,14 +6,22 @@
%%
%% humanist.dtx (with options: `base10')
%%
-%% Copyright 1999 Peter R. Wilson
+%% Author: Peter Wilson (CUA) now at peter.r.wilson@boeing.com
+%% (or pandgwilson@earthlink.net)
+%% Copyright 2002, 2003 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.
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either
+%% version 1.3 of this license or (at your option) any
+%% later version.
+%% The latest version of the license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of
+%% LaTeX version 2003/06/01 or later.
%%
-%% Author: Peter Wilson (CUA)
-%% now at: peter.r.wilson@boeing.com
+%% This work has the LPPL maintenance status "author-maintained".
+%%
+%% This work consists of the files listed in the README file.
%%
%%% HMIN10.MF Humanist Miniscule at 10 point design size.
if unknown cmbase: input cmbase fi
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/hmin17.mf b/Master/texmf-dist/fonts/source/public/bookhands/hmin17.mf
index bdff7bc0f15..6adc5a9030d 100644
--- a/Master/texmf-dist/fonts/source/public/bookhands/hmin17.mf
+++ b/Master/texmf-dist/fonts/source/public/bookhands/hmin17.mf
@@ -6,14 +6,22 @@
%%
%% humanist.dtx (with options: `base17')
%%
-%% Copyright 1999 Peter R. Wilson
+%% Author: Peter Wilson (CUA) now at peter.r.wilson@boeing.com
+%% (or pandgwilson@earthlink.net)
+%% Copyright 2002, 2003 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.
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either
+%% version 1.3 of this license or (at your option) any
+%% later version.
+%% The latest version of the license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of
+%% LaTeX version 2003/06/01 or later.
%%
-%% Author: Peter Wilson (CUA)
-%% now at: peter.r.wilson@boeing.com
+%% This work has the LPPL maintenance status "author-maintained".
+%%
+%% This work consists of the files listed in the README file.
%%
%%% HMIN17.MF Humanist Miniscule at 17 point design size.
if unknown cmbase: input cmbase fi
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/hmin7.mf b/Master/texmf-dist/fonts/source/public/bookhands/hmin7.mf
index ab72e6094d5..e4701cdb468 100644
--- a/Master/texmf-dist/fonts/source/public/bookhands/hmin7.mf
+++ b/Master/texmf-dist/fonts/source/public/bookhands/hmin7.mf
@@ -6,14 +6,22 @@
%%
%% humanist.dtx (with options: `base7')
%%
-%% Copyright 1999 Peter R. Wilson
+%% Author: Peter Wilson (CUA) now at peter.r.wilson@boeing.com
+%% (or pandgwilson@earthlink.net)
+%% Copyright 2002, 2003 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.
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either
+%% version 1.3 of this license or (at your option) any
+%% later version.
+%% The latest version of the license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of
+%% LaTeX version 2003/06/01 or later.
%%
-%% Author: Peter Wilson (CUA)
-%% now at: peter.r.wilson@boeing.com
+%% This work has the LPPL maintenance status "author-maintained".
+%%
+%% This work consists of the files listed in the README file.
%%
%%% HMIN7.MF Humanist Miniscule at 7 point design size.
if unknown cmbase: input cmbase fi
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/hminb10.mf b/Master/texmf-dist/fonts/source/public/bookhands/hminb10.mf
index e4f0ae89b33..59cd451b2e2 100644
--- a/Master/texmf-dist/fonts/source/public/bookhands/hminb10.mf
+++ b/Master/texmf-dist/fonts/source/public/bookhands/hminb10.mf
@@ -6,14 +6,22 @@
%%
%% humanist.dtx (with options: `base10b')
%%
-%% Copyright 1999 Peter R. Wilson
+%% Author: Peter Wilson (CUA) now at peter.r.wilson@boeing.com
+%% (or pandgwilson@earthlink.net)
+%% Copyright 2002, 2003 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.
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either
+%% version 1.3 of this license or (at your option) any
+%% later version.
+%% The latest version of the license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of
+%% LaTeX version 2003/06/01 or later.
%%
-%% Author: Peter Wilson (CUA)
-%% now at: peter.r.wilson@boeing.com
+%% This work has the LPPL maintenance status "author-maintained".
+%%
+%% This work consists of the files listed in the README file.
%%
%%% HMINB10.MF Humanist Miniscule Bold at 10 point design size.
if unknown cmbase: input cmbase fi
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/hminb17.mf b/Master/texmf-dist/fonts/source/public/bookhands/hminb17.mf
index 3f0bdd12541..fe979a7a853 100644
--- a/Master/texmf-dist/fonts/source/public/bookhands/hminb17.mf
+++ b/Master/texmf-dist/fonts/source/public/bookhands/hminb17.mf
@@ -6,14 +6,22 @@
%%
%% humanist.dtx (with options: `base17b')
%%
-%% Copyright 1999 Peter R. Wilson
+%% Author: Peter Wilson (CUA) now at peter.r.wilson@boeing.com
+%% (or pandgwilson@earthlink.net)
+%% Copyright 2002, 2003 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.
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either
+%% version 1.3 of this license or (at your option) any
+%% later version.
+%% The latest version of the license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of
+%% LaTeX version 2003/06/01 or later.
%%
-%% Author: Peter Wilson (CUA)
-%% now at: peter.r.wilson@boeing.com
+%% This work has the LPPL maintenance status "author-maintained".
+%%
+%% This work consists of the files listed in the README file.
%%
%%% HMINB17.MF Humanist Miniscule Bold at 17 point design size.
if unknown cmbase: input cmbase fi
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/hminb7.mf b/Master/texmf-dist/fonts/source/public/bookhands/hminb7.mf
index f26b9d8ba96..0ed2783185b 100644
--- a/Master/texmf-dist/fonts/source/public/bookhands/hminb7.mf
+++ b/Master/texmf-dist/fonts/source/public/bookhands/hminb7.mf
@@ -6,14 +6,22 @@
%%
%% humanist.dtx (with options: `base7b')
%%
-%% Copyright 1999 Peter R. Wilson
+%% Author: Peter Wilson (CUA) now at peter.r.wilson@boeing.com
+%% (or pandgwilson@earthlink.net)
+%% Copyright 2002, 2003 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.
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either
+%% version 1.3 of this license or (at your option) any
+%% later version.
+%% The latest version of the license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of
+%% LaTeX version 2003/06/01 or later.
%%
-%% Author: Peter Wilson (CUA)
-%% now at: peter.r.wilson@boeing.com
+%% This work has the LPPL maintenance status "author-maintained".
+%%
+%% This work consists of the files listed in the README file.
%%
%%% HMINB7.MF Humanist Miniscule Bold at 7 point design size.
if unknown cmbase: input cmbase fi
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/hmindig.mf b/Master/texmf-dist/fonts/source/public/bookhands/hmindig.mf
index b1b9c4dd257..fa76e9678bc 100644
--- a/Master/texmf-dist/fonts/source/public/bookhands/hmindig.mf
+++ b/Master/texmf-dist/fonts/source/public/bookhands/hmindig.mf
@@ -6,14 +6,22 @@
%%
%% humanist.dtx (with options: `dig')
%%
-%% Copyright 1999 Peter R. Wilson
+%% Author: Peter Wilson (CUA) now at peter.r.wilson@boeing.com
+%% (or pandgwilson@earthlink.net)
+%% Copyright 2002, 2003 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.
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either
+%% version 1.3 of this license or (at your option) any
+%% later version.
+%% The latest version of the license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of
+%% LaTeX version 2003/06/01 or later.
%%
-%% Author: Peter Wilson (CUA)
-%% now at: peter.r.wilson@boeing.com
+%% This work has the LPPL maintenance status "author-maintained".
+%%
+%% This work consists of the files listed in the README file.
%%
cmchar "Uncial digit 1";
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/hminl.mf b/Master/texmf-dist/fonts/source/public/bookhands/hminl.mf
index caf09f4498e..e36f23adcc7 100644
--- a/Master/texmf-dist/fonts/source/public/bookhands/hminl.mf
+++ b/Master/texmf-dist/fonts/source/public/bookhands/hminl.mf
@@ -6,14 +6,22 @@
%%
%% humanist.dtx (with options: `min')
%%
-%% Copyright 1999 Peter R. Wilson
+%% Author: Peter Wilson (CUA) now at peter.r.wilson@boeing.com
+%% (or pandgwilson@earthlink.net)
+%% Copyright 2002, 2003 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.
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either
+%% version 1.3 of this license or (at your option) any
+%% later version.
+%% The latest version of the license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of
+%% LaTeX version 2003/06/01 or later.
%%
-%% Author: Peter Wilson (CUA)
-%% now at: peter.r.wilson@boeing.com
+%% This work has the LPPL maintenance status "author-maintained".
+%%
+%% This work consists of the files listed in the README file.
%%
cmchar "HMIN letter a";
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/hminlig.mf b/Master/texmf-dist/fonts/source/public/bookhands/hminlig.mf
index 5c9b142b31c..8917cf498ca 100644
--- a/Master/texmf-dist/fonts/source/public/bookhands/hminlig.mf
+++ b/Master/texmf-dist/fonts/source/public/bookhands/hminlig.mf
@@ -6,14 +6,22 @@
%%
%% humanist.dtx (with options: `lig')
%%
-%% Copyright 1999 Peter R. Wilson
+%% Author: Peter Wilson (CUA) now at peter.r.wilson@boeing.com
+%% (or pandgwilson@earthlink.net)
+%% Copyright 2002, 2003 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.
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either
+%% version 1.3 of this license or (at your option) any
+%% later version.
+%% The latest version of the license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of
+%% LaTeX version 2003/06/01 or later.
%%
-%% Author: Peter Wilson (CUA)
-%% now at: peter.r.wilson@boeing.com
+%% This work has the LPPL maintenance status "author-maintained".
+%%
+%% This work consists of the files listed in the README file.
%%
@@ -26,6 +34,114 @@ ligtable oct"173": "-"=:oct"174";
ligtable "c": "t"=:oct"014";
ligtable "s": "t"=:oct"015";
+cmchar "HMIN ae conjunction";
+beginchar(oct "032",
+ 2sb#+hstretch*(18/11x_height#),
+ x_height#, 0);
+adjust_fit(0,0);
+pcshiftx := sb;
+numeric n[];
+path pth[];
+pair pr[];
+numeric rta, lfte; % right and left limits of a & e respectively
+pickup quill;
+
+z999=(0,0); n999 = rt x999 - lft x999; % width of vertical stroke
+rta := 1/2w + n999 + pcshiftx;
+
+%%% The "a"
+n1 := rta - 2pcshiftx -jut; % effective letter width
+%% "stem"
+rt x1 = rta - pcshiftx-jut; top y1=h;
+x2 = x1; bot y2=0;
+z16 = 1/6[z2,z1];
+rt x6 = x16; y6=y16;
+lft x4 = pcshiftx; y4 = 1/2h;
+%% stem path
+pth1 := z1{down}..z2;
+pr1 := direction 1 of pth1;
+z20 = z2 shifted -10pr1;
+
+z11 = point 3/13 of pth1; z15 = point 11/13 of pth1;
+lft x13 = pcshiftx; y13=1/4h;
+
+%%% The "e"
+
+lfte = lft x11 - pcshiftx;
+
+n51 := w-pcshiftx - lfte; % actual letter width
+n52 := 7/8n51; % width of bowl
+x51 = lfte + pcshiftx + 5/8n52; top y51=h;
+lft x52 = lfte + pcshiftx; y52 = 1/2h;
+x53 = lfte + pcshiftx + 1/2n52; bot y53 = 0;
+rt x54 = lfte + pcshiftx + n52; y54 = 1/4h;
+z98=(lfte,5/8h); z99=(2w,y98);
+pth51 := z98--z99;
+pth52 := z51{left}..z52{down}..z53{right};
+z57 = pth51 intersectionpoint pth52;
+rt x67 = w; y67=y57;
+rt x58 =lfte + pcshiftx+n52; y58=y52;
+pth53 := z51{right}..z58{down}..z53{left};
+z59 = pth51 intersectionpoint pth53;
+
+%%ductus:=true;
+if ductus:
+ pickup stylus;
+else:
+ % draw the a stem
+ draw pth1;
+ draw_roundserif(1,2,srad);
+%% draw_roundserif(2,20,srad);
+ % draw the a bowl
+ draw z15{-pdir}..z13{up}..z57{right};
+ % draw the e
+ draw z59{up}..z51{left}..z52{down}..z53{right}..z54{pdir};
+ draw z57--z67;
+fi
+ductus:=false;
+penlabels(1,2,3,4,5,6,7,8,11,12,13,14,15,100);
+penlabels(51,52,53,54,55,56,57,58,59,67,70,98,99,100);
+endchar; % end "ae"
+
+cmchar "HMIN AE conjunction";
+beginchar(oct "035",
+%% sb#+caprat*hstretch*(14/18x_height#),
+ sb#+caprat*hstretch*(22/18x_height#),
+ caprat*x_height#, 0);
+adjust_fit(0,0);
+pcshiftx := sb;
+numeric pcshifte;
+numeric n[];
+path pth[];
+pickup quill;
+x100 = 0;
+n1 = rt x100 - lft x100;
+
+%% the E
+%% stem
+pcshifte = 7/16w;
+lft x1 = pcshifte+n1; top y1 = h;
+x2 = x1; bot y2=0;
+%% bars
+lft x3 = pcshifte; y3 = y1; rt x4 = w-pcshiftx; y4=y3;
+x5=x1; y5 = 1/2[y1,y2]; x6 = x4; y6 = y5;
+x7 = x3; y7 = y2; x8 = x4; y8=y7;
+
+%% bottom left A leg
+lft x52 = pcshiftx; bot y52=0;
+z62 = whatever[z52,z1]; y62=y5;
+
+%%ductus:=true;
+if ductus:
+ pickup stylus;
+fi
+draw z1--z2; % stem
+draw z3--z4; draw z5--z6; draw z7--z8;
+draw z52--z1; draw z62--z5; % the A
+ductus:=false;
+penlabels(1,2,3,4,5,6,7,8,9,17,70,100);
+endchar; % end "AE"
+
cmchar "The ct ligature";
beginchar(oct"014", 2sb#+hstretch*(20/11x_height#),
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/hminpunct.mf b/Master/texmf-dist/fonts/source/public/bookhands/hminpunct.mf
index aad6f0cae47..b5b6d617ae2 100644
--- a/Master/texmf-dist/fonts/source/public/bookhands/hminpunct.mf
+++ b/Master/texmf-dist/fonts/source/public/bookhands/hminpunct.mf
@@ -6,14 +6,22 @@
%%
%% humanist.dtx (with options: `punct')
%%
-%% Copyright 1999 Peter R. Wilson
+%% Author: Peter Wilson (CUA) now at peter.r.wilson@boeing.com
+%% (or pandgwilson@earthlink.net)
+%% Copyright 2002, 2003 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.
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either
+%% version 1.3 of this license or (at your option) any
+%% later version.
+%% The latest version of the license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of
+%% LaTeX version 2003/06/01 or later.
%%
-%% Author: Peter Wilson (CUA)
-%% now at: peter.r.wilson@boeing.com
+%% This work has the LPPL maintenance status "author-maintained".
+%%
+%% This work consists of the files listed in the README file.
%%
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/hmintitle.mf b/Master/texmf-dist/fonts/source/public/bookhands/hmintitle.mf
index 967ff8b8cb2..c1b6e0729cb 100644
--- a/Master/texmf-dist/fonts/source/public/bookhands/hmintitle.mf
+++ b/Master/texmf-dist/fonts/source/public/bookhands/hmintitle.mf
@@ -6,14 +6,22 @@
%%
%% humanist.dtx (with options: `mfd')
%%
-%% Copyright 1999 Peter R. Wilson
+%% Author: Peter Wilson (CUA) now at peter.r.wilson@boeing.com
+%% (or pandgwilson@earthlink.net)
+%% Copyright 2002, 2003 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.
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either
+%% version 1.3 of this license or (at your option) any
+%% later version.
+%% The latest version of the license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of
+%% LaTeX version 2003/06/01 or later.
%%
-%% Author: Peter Wilson (CUA)
-%% now at: peter.r.wilson@boeing.com
+%% This work has the LPPL maintenance status "author-maintained".
+%%
+%% This work consists of the files listed in the README file.
%%
def makebox(text rule) =
for y=0,half_height,cap_height,body_height,x_height,-desc_depth,-body_depth:
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/hminu.mf b/Master/texmf-dist/fonts/source/public/bookhands/hminu.mf
index a519672fe45..4aabc211800 100644
--- a/Master/texmf-dist/fonts/source/public/bookhands/hminu.mf
+++ b/Master/texmf-dist/fonts/source/public/bookhands/hminu.mf
@@ -6,14 +6,22 @@
%%
%% humanist.dtx (with options: `maj')
%%
-%% Copyright 1999 Peter R. Wilson
+%% Author: Peter Wilson (CUA) now at peter.r.wilson@boeing.com
+%% (or pandgwilson@earthlink.net)
+%% Copyright 2002, 2003 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.
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either
+%% version 1.3 of this license or (at your option) any
+%% later version.
+%% The latest version of the license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of
+%% LaTeX version 2003/06/01 or later.
%%
-%% Author: Peter Wilson (CUA)
-%% now at: peter.r.wilson@boeing.com
+%% This work has the LPPL maintenance status "author-maintained".
+%%
+%% This work consists of the files listed in the README file.
%%
cmchar "HMIN letter A";
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/sqrc10.mf b/Master/texmf-dist/fonts/source/public/bookhands/sqrc10.mf
deleted file mode 100644
index 350b7676912..00000000000
--- a/Master/texmf-dist/fonts/source/public/bookhands/sqrc10.mf
+++ /dev/null
@@ -1,81 +0,0 @@
-%%
-%% This is file `sqrc10.mf',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% sqrcaps.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
-%%
-%%% SQRC10.MF Square Capitals at 10 point design size.
-if unknown cmbase: input cmbase fi
-
-font_identifier:="SQRC"; font_size 10pt#;
-
- jutstretch:=1.152;
- stemstretch:=1.31;
- caprat:=1.3; % 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:=5/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/2u#; % unit for 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:=10; % pen angle
- ascratio:=1.0;
- asc_height#:=ascratio*x_height#;
- descratio:=0;
- desc_depth#:=descratio*x_height#;
- fig_height#:=(0.5[1,caprat])*x_height#;
- fig_width#:=hstretch*(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#;
-\sqrcjut# := 2cap_jutstretch*thin#;
-\sqrcjutrat := 2;
-srad:=0.8; % was 0.5
-trijut#:=0.75jutstretch*thick#;
-clubjutfudge:=1/2;
-clubjut#:=jutstretch*clubjutfudge*thick#;
- 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 sqrctitle %% switch to the driver file
-
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/sqrc17.mf b/Master/texmf-dist/fonts/source/public/bookhands/sqrc17.mf
deleted file mode 100644
index 532203686ab..00000000000
--- a/Master/texmf-dist/fonts/source/public/bookhands/sqrc17.mf
+++ /dev/null
@@ -1,81 +0,0 @@
-%%
-%% This is file `sqrc17.mf',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% sqrcaps.dtx (with options: `base17')
-%%
-%% 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
-%%
-%%% SQRC17.MF Square Capitals at 17 point design size.
-if unknown cmbase: input cmbase fi
-
-font_identifier:="SQRC"; font_size 17.28pt#;
-
- jutstretch:=1.0;
- stemstretch:=1.0;
- caprat:=1.3; % ratio of capital height to minuscule height
- cap_jutstretch:=1.0;
- cap_stemstretch:=1.0;
- bfudge:=1.0;
- szfudge:=1.0;
- hstretch:=szfudge*bfudge;
- carol_height#:=268/36pt#;
- vstretch:=5/3;
-
- x_height#:=vstretch*carol_height#;
- u#:=32.5/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
- sb#:=1/2u#; % unit for side bearings
-
- cap_height#:=425/36pt#; % height of caps
- thickfudge:=1/5;
-thinfudge:=1/6;
-thick#:=stemstretch*thickfudge*x_height#; % max pen breadth
-thin#:=thinfudge*thick#;
-pangle:=10; % pen angle
- ascratio:=1.0;
- asc_height#:=ascratio*x_height#;
- descratio:=0;
- desc_depth#:=descratio*x_height#;
- fig_height#:=(0.5[1,caprat])*x_height#;
- fig_width#:=hstretch*(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#:=.6pt#;
-
-%%%jutfudge:= 3/4;
-jutfudge:= 1/2;
-jut#:=jutstretch*jutfudge*thick#;
-\sqrcjut# := 2cap_jutstretch*thin#;
-\sqrcjutrat := 2;
-srad:=0.8; % was 0.5
-trijut#:=0.75jutstretch*thick#;
-clubjutfudge:=1/2;
-clubjut#:=jutstretch*clubjutfudge*thick#;
- o#:=10/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 sqrctitle %% switch to the driver file
-
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/sqrc7.mf b/Master/texmf-dist/fonts/source/public/bookhands/sqrc7.mf
deleted file mode 100644
index e3aec59e542..00000000000
--- a/Master/texmf-dist/fonts/source/public/bookhands/sqrc7.mf
+++ /dev/null
@@ -1,81 +0,0 @@
-%%
-%% This is file `sqrc7.mf',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% sqrcaps.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
-%%
-%%% SQRC7.MF Square Capitals at 7 point design size.
-if unknown cmbase: input cmbase fi
-
-font_identifier:="SQRC"; font_size 7pt#;
-
- jutstretch:=1.19;
- stemstretch:=1.50;
- caprat:=1.3; % 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:=5/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/2u#; % unit for 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:=10; % pen angle
- ascratio:=1.0;
- asc_height#:=ascratio*x_height#;
- descratio:=0;
- desc_depth#:=descratio*x_height#;
- fig_height#:=(0.5[1,caprat])*x_height#;
- fig_width#:=hstretch*(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#;
-\sqrcjut# := 2cap_jutstretch*thin#;
-\sqrcjutrat := 2;
-srad:=0.8; % was 0.5
-trijut#:=0.75jutstretch*thick#;
-clubjutfudge:=1/2;
-clubjut#:=jutstretch*clubjutfudge*thick#;
- 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 sqrctitle %% switch to the driver file
-
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/sqrcb10.mf b/Master/texmf-dist/fonts/source/public/bookhands/sqrcb10.mf
deleted file mode 100644
index 3f68b7376fe..00000000000
--- a/Master/texmf-dist/fonts/source/public/bookhands/sqrcb10.mf
+++ /dev/null
@@ -1,81 +0,0 @@
-%%
-%% This is file `sqrcb10.mf',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% sqrcaps.dtx (with options: `base10b')
-%%
-%% 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
-%%
-%%% SQRCB10.MF Square Capitals Bold at 10 point design size.
-if unknown cmbase: input cmbase fi
-
-font_identifier:="SQRCB"; font_size 10pt#;
-
- jutstretch:=1.152;
- stemstretch:=1.31;
- caprat:=1.3; % ratio of capital height to minuscule height
- cap_jutstretch:=1.2;
- cap_stemstretch:=1.31;
- bfudge:=1.2;
- szfudge:=1.0;
- hstretch:=szfudge*bfudge;
- carol_height#:=155/36pt#;
- vstretch:=5/3;
-
- x_height#:=vstretch*carol_height#;
- u#:=23/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/2u#; % unit for side bearings
-
- cap_height#:=246/36pt#; % height of caps
- thickfudge:=1/4;
-thinfudge:=1/6;
-thick#:=stemstretch*thickfudge*x_height#; % max pen breadth
-thin#:=thinfudge*thick#;
-pangle:=10; % pen angle
- ascratio:=1.0;
- asc_height#:=ascratio*x_height#;
- descratio:=0;
- desc_depth#:=descratio*x_height#;
- fig_height#:=(0.5[1,caprat])*x_height#;
- fig_width#:=hstretch*(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#;
-\sqrcjut# := 2cap_jutstretch*thin#;
-\sqrcjutrat := 2;
-srad:=0.8; % was 0.5
-trijut#:=0.75jutstretch*thick#;
-clubjutfudge:=1/2;
-clubjut#:=jutstretch*clubjutfudge*thick#;
- 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 sqrctitle %% switch to the driver file
-
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/sqrcb17.mf b/Master/texmf-dist/fonts/source/public/bookhands/sqrcb17.mf
deleted file mode 100644
index 6646fe34016..00000000000
--- a/Master/texmf-dist/fonts/source/public/bookhands/sqrcb17.mf
+++ /dev/null
@@ -1,81 +0,0 @@
-%%
-%% This is file `sqrcb17.mf',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% sqrcaps.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
-%%
-%%% SQRCB17.MF Square Capitals Bold at 17 point design size.
-if unknown cmbase: input cmbase fi
-
-font_identifier:="SQRCB"; font_size 17.28pt#;
-
- jutstretch:=1.0;
- stemstretch:=1.0;
- caprat:=1.3; % ratio of capital height to minuscule height
- cap_jutstretch:=1.0;
- cap_stemstretch:=1.0;
- bfudge:=1.2;
- szfudge:=1.0;
- hstretch:=szfudge*bfudge;
- carol_height#:=268/36pt#;
- vstretch:=5/3;
-
- 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
- sb#:=1/2u#; % unit for side bearings
-
- 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:=10; % pen angle
- ascratio:=1.0;
- asc_height#:=ascratio*x_height#;
- descratio:=0;
- desc_depth#:=descratio*x_height#;
- fig_height#:=(0.5[1,caprat])*x_height#;
- fig_width#:=hstretch*(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#:=.6pt#;
-
-%%%jutfudge:= 3/4;
-jutfudge:= 1/2;
-jut#:=jutstretch*jutfudge*thick#;
-\sqrcjut# := 2cap_jutstretch*thin#;
-\sqrcjutrat := 2;
-srad:=0.8; % was 0.5
-trijut#:=0.75jutstretch*thick#;
-clubjutfudge:=1/2;
-clubjut#:=jutstretch*clubjutfudge*thick#;
- o#:=10/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 sqrctitle %% switch to the driver file
-
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/sqrcb7.mf b/Master/texmf-dist/fonts/source/public/bookhands/sqrcb7.mf
deleted file mode 100644
index 4636102d2de..00000000000
--- a/Master/texmf-dist/fonts/source/public/bookhands/sqrcb7.mf
+++ /dev/null
@@ -1,81 +0,0 @@
-%%
-%% This is file `sqrcb7.mf',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% sqrcaps.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
-%%
-%%% SQRCB7.MF Square Capitals Bold at 7 point design size.
-if unknown cmbase: input cmbase fi
-
-font_identifier:="SQRCB"; font_size 7pt#;
-
- jutstretch:=1.19;
- stemstretch:=1.50;
- caprat:=1.3; % ratio of capital height to minuscule height
- cap_jutstretch:=1.3;
- cap_stemstretch:=1.45;
- bfudge:=1.2;
- szfudge:=1.18;
- hstretch:=szfudge*bfudge;
- carol_height#:=108.5/36pt#;
- vstretch:=5/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/2u#; % unit for 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:=10; % pen angle
- ascratio:=1.0;
- asc_height#:=ascratio*x_height#;
- descratio:=0;
- desc_depth#:=descratio*x_height#;
- fig_height#:=(0.5[1,caprat])*x_height#;
- fig_width#:=hstretch*(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#;
-\sqrcjut# := 2cap_jutstretch*thin#;
-\sqrcjutrat := 2;
-srad:=0.8; % was 0.5
-trijut#:=0.75jutstretch*thick#;
-clubjutfudge:=1/2;
-clubjut#:=jutstretch*clubjutfudge*thick#;
- 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 sqrctitle %% switch to the driver file
-
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/sqrcdig.mf b/Master/texmf-dist/fonts/source/public/bookhands/sqrcdig.mf
deleted file mode 100644
index a252ff6bbfb..00000000000
--- a/Master/texmf-dist/fonts/source/public/bookhands/sqrcdig.mf
+++ /dev/null
@@ -1,251 +0,0 @@
-%%
-%% This is file `sqrcdig.mf',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% sqrcaps.dtx (with options: `dig')
-%%
-%% 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
-%%
-
-cmchar "SQRC digit 1";
-beginchar("1", 2u#+fig_width#, fig_height#, 0);
-adjust_fit(0,0);
-pcshiftx := u;
-numeric n[];
-n1 := sqrcjut;
-pickup quill;
-x1=x2=w/2;
-top y1=h; bot y2=0;
-%%ductus:=true;
-draw z1--z2;
-draw (x1-n1,y1)--(x1,y1);
-draw (x2,y2)--(x2+n1,y2);
-ductus:=false;
-penlabels(1,2,100);
-endchar; % end "1"
-
-cmchar "SQRC digit 2";
-beginchar("2", 2u#+fig_width#, fig_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-n1 := sqrcjut;
-n2 := sqrcjutrat*sqrcjut;
-pcshiftx := u;
-pickup quill;
-lft x1=pcshiftx+o; top y1=h-2thin;
-x2=1/2w; top y2= h+o;
-rt x3=w-pcshiftx-o; y3=3/4h;
-lft x5=pcshiftx; bot y5=0;
-rt x6=w-pcshiftx; y6=y5;
-x6a = rt x6; y6a = y6;
-x6b = x6a; y6b = y6a+n2;
-x6c = x6a-n2; y6c=y6a;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1..z2{right}..z3{down}..{-pdir}z5; % curve
-draw z5--z6; % foot
-pickup stylus;
-filldraw z6a--z6b{down}..{left}z6c--cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,6,100);
-endchar; % end "2"
-
-cmchar "SQRC digit 3";
-beginchar("3", 2u#+fig_width#, fig_height#, 0);
-adjust_fit(0,0);
-pcshiftx := u;
-pickup quill;
-lft x3=pcshiftx; x10=x3;
-rt x5=w-pcshiftx; x8=x5-3thin;
-x4=0.5[x3,x5];
-x9=0.5[x10,x8];
-%%lft x6=pcshiftx+3thin; x7=x6;
-x6=1/2[x3,x9]; x7=x6;
-bot y3=thin; top y10=h-2thin;
-y6=0.5[y3,y10]; y7=y6;
-bot y4=-thin; top y9=h+thin;
-y5=0.5[y3,y6];
-y8=11/12[y7,y10];
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-%%draw z3..z4{right}..z5{up}...{-pdir}z6; % bottom bowl
-%%draw z7{pdir}..z8{up}..z9{left}..z10; % top bowl
-draw z3..z4{right}..z5{up}...{left}z6; % bottom bowl
-draw z7{right}..z8{up}..z9{left}..z10; % top bowl
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,10,100);
-endchar; % end "3"
-
-cmchar "SQRC digit 4";
-beginchar("4", 2u#+fig_width#, fig_height#, 0);
-adjust_fit(0,0);
-pcshiftx := u;
-numeric n[];
-n1 := sqrcjut;
-n2 := sqrcjutrat*sqrcjut;
-pickup quill;
-rt x1= rt x2= w-pcshiftx-n1;
-top y1=h; bot y2=0;
-lft x3=pcshiftx; y3=0.33h;
-rt x4=w-pcshiftx; y4=y3;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2; % vertical
-draw (x2,y2)--(x2+n1,y2);
-draw z3--z4; % horizontal
-draw z1--z3; % diagonal
-ductus:=false;
-penlabels(1,2,3,4,100);
-endchar; % end "4"
-
-cmchar "SQRC digit 5";
-beginchar("5", 2u#+fig_width#, fig_height#, 0);
-adjust_fit(0,0);
-pcshiftx := u;
-numeric n[];
-n1 := sqrcjut;
-n2 := sqrcjutrat*sqrcjut;
-pickup quill;
-rt x1=w-pcshiftx; top y1=h;
-lft x2=pcshiftx; y2=y1;
-x3=x2; y3=0.5h+thin;
-x4=0.5[x1,x3]; y4=0.5[y3,y5];
-rt x5=w-pcshiftx; y5=0.3h;
-x6=w/2; bot y6=0;
-lft x7=pcshiftx; bot y7=2thin;
-x1a = rt x1; y1a = y1c = y1;
-x1b = x1a; y1b = y1a-n2;
-x1c = x1a-n2;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2; % horizontal
-draw z2--z3; % vertical
-draw z3{pdir}..z5{down}..z6{left}..z7; % curve
-pickup stylus;
-%%filldraw z1a--z1b{up}..{left}z1c--cycle;
-filldraw z1a--z1c{right}..{down}z1b--cycle;
-ductus:=false;
-penlabels(1,1a,1b,1c,2,3,4,5,6,7,100);
-endchar; % end "5"
-
-cmchar "SQRC digit 6";
-beginchar("6", 2u#+fig_width#, fig_height#, 0);
-adjust_fit(0,0);
-pcshiftx := u;
-pickup quill;
-rt x1=w-pcshiftx; top y1=h-2thin;
-x2=1/2w; top y2= h;
-lft x3=pcshiftx; y3=1/2h;
-x4=x2; bot y4=0;
-rt x5=w-pcshiftx; y5=1/4h;
-lft x6=rt x3; bot y6=y3;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1..z2{left}..z3{down}..z4{right}..z5{up}..{-pdir}z6;
-ductus:=false;
-penlabels(1,2,3,4,5,6,100);
-endchar; % end "6"
-
-cmchar "SQRC digit 7";
-beginchar("7", 2u#+fig_width#, fig_height#, 0);
-adjust_fit(0,0);
-pcshiftx := u;
-numeric n[];
-n1 := sqrcjut;
-n2 := sqrcjutrat*sqrcjut;
-pickup quill;
-lft x1=pcshiftx;
-rt x2=w-pcshiftx;
-top y1=top y2=h;
-x1a = lft x1; y1a = y1c = y1;
-x1b = x1a; y1b = y1a-n2;
-x1c = x1a + n2;
-x4=w/2; bot y4=0;
-x3=0.5[x2,x4]-3thin; y3=0.5[y2,y4];
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2; % top bar
-draw z2..z3..z4;
-pickup stylus;
-filldraw z1a--z1b{up}..{right}z1c--cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,6,100);
-endchar; % end "7"
-
-cmchar "SQRC digit 8";
-beginchar("8", 2u#+fig_width#, fig_height#, 0);
-adjust_fit(0,0);
-pcshiftx := u;
-numeric alpha; alpha:=1;
-pickup quill;
-lft x1=alpha*pcshiftx+o; rt x3=w-alpha*pcshiftx-o; y1=y3=3/4h;
-x2=x4=w/2; top y2=h+o; bot y4=-o;
-x5=x2; y5=h/2+2o;
-lft x11=pcshiftx; rt x13=w-pcshiftx; y11=y13=1/4h;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1..z2..z3..z5..z11..z4..z13..z5..cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,11,13,100);
-endchar; % end "8"
-
-cmchar "SQRC digit 9";
-beginchar("9", 2u#+fig_width#, fig_height#, 0);
-adjust_fit(0,0);
-pcshiftx := u;
-pickup quill;
-lft x1=pcshiftx; bot y1=2thin;
-x2=1/2w; bot y2= 0;
-rt x3=w-pcshiftx; y3=1/2h;
-x4=x2; top y4=h;
-lft x5=pcshiftx; y5=3/4h;
-rt x6=lft x3; top y6=y3;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1..z2{right}..z3{up}..z4{left}..z5{down}..{pdir}z6;
-ductus:=false;
-penlabels(1,2,3,4,5,6,100);
-endchar; % end "9"
-
-cmchar "SQRC digit 0";
-beginchar("0", 2u#+fig_width#, fig_height#, 0);
-adjust_fit(0,0);
-pcshiftx := u;
-y100 = h/2; x100 = pcshiftx+y100; % square center
-pickup quill;
-lft x1=pcshiftx; rt x3=w-pcshiftx; y1=y3=h/2;
-x2=x4=w/2; top y2=h+o; bot y4=-o;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1..z2..z3..z4..cycle;
-ductus:=false;
-penlabels(1,2,3,4,100);
-endchar; % end "0"
-
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/sqrcl.mf b/Master/texmf-dist/fonts/source/public/bookhands/sqrcl.mf
deleted file mode 100644
index 3136ef442eb..00000000000
--- a/Master/texmf-dist/fonts/source/public/bookhands/sqrcl.mf
+++ /dev/null
@@ -1,836 +0,0 @@
-%%
-%% This is file `sqrcl.mf',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% sqrcaps.dtx (with options: `min')
-%%
-%% 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
-%%
-
-cmchar "SQRC letter a";
-beginchar("a", 2sb#+hstretch*(14/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-path pth[];
-pair pr[];
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-n2 := sqrcjutrat*sqrcjut;
-%% legs
-x1 = 6/16w; top y1=h;
-rt x3 = w-pcshiftx - n1; bot y3= 0;
-pickup thinquill;
-lft x2 = pcshiftx; bot y2 = 0;
-x21 = x2 + n2; y21 = y2;
-y22 = y21+n2; z22 = whatever[z2,z1];
-pickup quill;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z3; draw (x1-n1,y1)--(x1,y1); draw (x3,y3)--(x3+n1,y3); %% right leg
-pickup thinquill;
-draw z1--z2; %% left leg
-filldraw z2--z21{left}..{z1-z2}z22--cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,11,12,13,14,15,100);
-endchar; % end "a"
-
-cmchar "SQRC letter b";
-beginchar("b", 2sb#+hstretch*(14/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-path pth[];
-pcshiftx := sb;
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-%% stem
-lft x1 = pcshiftx + n1; top y1 = h;
-x2 = x1; bot y2 = 0;
-z12 = 1/2[z1,z2];
-%% bottom bowl
-lft x21 = pcshiftx; bot y21 = 0;
-z22=z2;
-lft x27 = rt x12; y27 = y12;
-rt x25 = w-pcshiftx; y25 = 1/2[y22,y27];
-pth1 := z21--z22{right}..z25{up}..{left}z27;
-%% top bowl
-z32 = z27; z37 = z1;
-x38 = x21; y38 = y37;
-rt x35 = x25; y35 = 1/2[y32,y37];
-pth2 := z38--z37{right}..z35{down}..{left}z27;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2;
-draw pth1; draw pth2;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,100);
-endchar; % end "b"
-
-cmchar "SQRC letter c";
-beginchar("c", 2sb#+hstretch*(14/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-pcshiftx := sb;
-pickup quill;
-n1:=w-2pcshiftx; % actual letter width
-n2:=6/5w-2pcshiftx; % width of full bowl
-x1=pcshiftx + 1/2n1; top y1 = h;
-lft x2 = pcshiftx; y2 = 1/2h;
-x3 = x1; bot y3 = 0;
-rt x4 = w-pcshiftx; y4 = 1/4h;
-x24 = x4; y24 = 3/4h;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z24..z1{left}..z2{down}..z3{right}..z4{3pdir};
-ductus:=false;
-penlabels(1,2,3,4,5,6,14,16,17,18,100);
-endchar; % end "c"
-
-cmchar "SQRC letter d";
-beginchar("d", 2sb#+hstretch*(14/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-path pth[];
-pcshiftx := sb;
-pickup quill;
-x100 = 0; n1 := rt x100 - lft x100;
-%% stem
-lft x1 = pcshiftx+sqrcjut; top y1=h;
-x2 = x1; bot y2 = 0;
-%% bowl
-lft x3 = pcshiftx; y3 = y1;
-z7 = (x3,y2);
-rt x5 = w-pcshiftx; y5 = 1/2[y3,y7];
-pth1 := z3--z1{right}..{down}z5..{left}z2--z7;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2; %% stem
-draw pth1;
-ductus:=false;
-penlabels(0,1,2,3,4,5,6,7,8,100);
-endchar; % end "d"
-
-cmchar "SQRC letter e";
-beginchar("e", sb#+hstretch*(9/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-path pth[];
-pickup quill;
-x100 = 0;
-n1 = rt x100 - lft x100;
-%% stem
-lft x1 = pcshiftx+sqrcjut; top y1 = h;
-x2 = x1; bot y2=0;
-%% bars
-lft x3 = pcshiftx; y3 = y1; rt x4 = w-pcshiftx; y4=y3;
-x5=x1; y5 = 6/16[y1,y2]; x6 = x4; y6 = y5;
-x7 = x3; y7 = y2; x8 = x4; y8=y7;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2; % stem
-draw z3--z4; draw z5--z6; draw z7--z8;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,17,70,100);
-endchar; % end "e"
-
-cmchar "SQRC letter f";
-beginchar("f", 2sb#+hstretch*(9/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-pcshiftx := sb;
-pickup quill;
-x100 = 0;
-n1 := rt x100 - lft x100;
-%% stem
-lft x1=lft x2=pcshiftx+sqrcjut; bot y1=h; bot y2=0;
-%% bars
-lft x3 = pcshiftx; y3 = y1; rt x4 = w-pcshiftx; y4 = y3;
-x5=x1; y5 = 6/16[y1,y2]; x6 = x4; y6 = y5;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2;
-draw z3--z4; draw z5--z6;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,14,15,16,100);
-endchar; % end "f"
-
-cmchar "SQRC letter g";
-beginchar("g", 2sb#+hstretch*(14/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-path pth[];
-pair vec[];
-numeric n[];
-pcshiftx := sb;
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-%% bar
-rt x52 = w - pcshiftx; y52 = 1/2h;
-x51 = x52 - 2n1; y51 = y52;
-z512 = 1/2[z51,z52];
-x54=x512; bot y54 = 0;
-%% bowl
-lft x2 = pcshiftx; y2 = 1/2h;
-x4 = x512; y4 = 1/4h;
-x3 = x1 = 1/2[x2,x4]; bot y3 = 0; top y1 = h;
-x24 = x512; y24 = 3/4h;
-pth1 := z24..z1{left}..z2{down}..z3{right}..z4;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1;
-%%draw z4--z512; draw z51--z52;
-draw z512--z54; draw (x512-n1,y512)--(x512,y512);
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,11,12,13,24,31,32,33,34,35,36,51,52,512,100);
-endchar; % end "g"
-
-cmchar "SQRC letter h";
-beginchar("h", 2sb#+hstretch*(14/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-pickup quill;
-numeric n[];
-x100 = 0;
-n1 := sqrcjut;
-%% stems
-lft x1=lft x2=pcshiftx+sqrcjut;
-top y1=h; bot y2=0;
-rt x3 = w - pcshiftx - sqrcjut; x4 = x3; y3 = y1; y4 = y2;
-%% bar
-z12 = 7/16[z1,z2]; z34 = 7/16[z3,z4];
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2; draw z3--z4; draw z12--z34;
-%% serifs
-draw (x1-n1,y1)--(x1,y1); draw (x2,y2)--(x2+n1,y2);
-draw (x3-n1,y3)--(x3,y3); draw (x4,y4)--(x4+n1,y4);
-ductus:=false;
-penlabels(1,2,3,4,5,6,100);
-endchar; % end "h"
-
-cmchar "SQRC letter i";
-beginchar("i", 2sb#+hstretch*(thick#+2sqrcjut#),
- x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-pickup quill;
-x100 = 0;
-n1 := rt x100 - lft x100;
-x1 = x2 = 1/2w;
-top y1=h; bot y2=0;
-%% serifs
-lft x111 = pcshiftx; rt x112 = w-pcshiftx;
-x211 = x111; x212 = x112;
-draw z1--z2;
-%% serifs
-draw (x111,y1)--(x112,y1);
-draw (x211,y2)--(x212,y2);
-ductus:=false;
-penlabels(1,2,100);
-endchar; % end "i"
-
-cmchar "SQRC letter j";
-beginchar("j", 2sb#+hstretch*(2thick#+sqrcjut#),
- x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-path pth[];
-numeric n[];
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-%% stem
-rt x1 = w-pcshiftx; top y1 = h;
-x2 = x1; y2 = 1/4h;
-%% hook
-lft x4 = pcshiftx; bot y4 = 0;
-pth1 := z4{pdir}..z2{up};
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2{down}..{-pdir}z4; % stem & hook
-draw (x1-n1,y1)--z1;
-ductus:=false;
-penlabels(1,2,3,100);
-endchar; % end "j"
-
-cmchar "SQRC letter k";
-beginchar("k", 2sb#+hstretch*(16/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-path pth[];
-numeric n[];
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-%% stem
-lft x1 = pcshiftx+n1; top y1 = h;
-x2 = x1; bot y2 = 0;
-z12 = 1/2[z1,z2];
-%% top arm
-x3 = rt x12; y3 = y12;
-x5 = 1/2[w - pcshiftx, x1]; y5 = y1;
-%%pth1 := z3{pdir}..{up}z5;
-pth1 := z3--z5;
-%% lower arm
-z7 = z3;
-rt x9 = w-pcshiftx; bot y9 = 0;
-pth2 := z7{-ppdir}..{right}z9;
-pickup quill;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2; draw pth1; draw pth2;
-draw (x1-n1,y1)--(x1,y1);
-draw (x2-n1,y2)--(x2+n1,y2);
-draw (x5,y5)--(x5+n1,y5);
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,13,14,100);
-endchar; % end "k"
-
-cmchar "SQRC letter l";
-beginchar("l", 2sb#+hstretch*(9/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-lft x1=pcshiftx+n1; bot y1=h;
-x2=x1; bot y2 =0;
-x3 = x2; rt x4 = w-pcshiftx; y3 = y4 = y2;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2; draw z3--z4;
-draw (x1-n1,y1)--(x1,y1);
-ductus:=false;
-penlabels(1,2,3,4,100);
-endchar; % end "l"
-
-cmchar "SQRC letter m";
-beginchar("m", 2sb#+hstretch*(19/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-path pth[];
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-n2 := sqrcjutrat*sqrcjut;
-%% thick stem tops
-lft x1=pcshiftx+n1; top y1=h;
-rt x3 = w - pcshiftx -2n1; y3 = y1;
-%% right stem bottom
-rt x4 = w - pcshiftx - n1; bot y4 = 0;
-%% the V
-x24 = 1/2w; bot y24 = 0;
-%% left stem top and bottom
-x81 = lft x1; y81 = top y1;
-pickup thinquill;
-lft x11 = x81; top y11 = y81;
-lft x2 = pcshiftx; bot y2 = 0;
-x2a = x2+n2; y2a = y2;
-y2b = y2+n2; z2b = whatever[z2,z11];
-pickup quill;
-%% thin middle top and bottom
-x83 = lft x3; y83 = top y3;
-x824 = rt x24; y824 = bot y24;
-pickup thinquill;
-lft x13 = x83; top y13 = y83;
-rt x124 = x824; bot y124 = y824;
-pickup quill;
-pth124 := z1{-ppdir}..z24;
-pth34 := z3{down}..z4;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-%% thick legs
-draw pth124; draw pth34;
-draw (x1-n1,y1)--(x1,y1); draw (x3-n1,y3)--(x3,y3); draw (x4,y4)--(x4+n1,y4);
-%% thin legs
-pickup thinquill;
-draw z11--z2;
-filldraw z2--z2a{left}..{z11-z2}z2b--cycle;
-%%%%pickup quarterquill;
- draw z13--z124;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,13,14,33,34,100);
-endchar; % end "m"
-
-cmchar "SQRC letter n";
-beginchar("n", 2sb#+hstretch*(14/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-path pth[];
-numeric n[];
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-n2 := sqrcjutrat*sqrcjut;
-%% diagonal
-lft x1=pcshiftx+n1; top y1=h;
-rt x4 = w -pcshiftx-n1; bot y4 = 0;
-x101 = lft x1;
-x104 = rt x4;
-pth1 := z1{-ppdir}..z4;
-%% stems
-pickup thinquill;
-lft x21 = x101; top y21 =h;
-x22 = x21; bot y22 = 0;
-x22a = x22+n2; y22a=y22;
-x22b = x22; y22b=y22+n2;
-rt x24 = x104; bot y24 = 0;
-x23 = x24; top y23 = h;
-x23a = x23-n2; x23b = x23+n1; y23a = y23b = y23;
-x23c = x23; y23c = y23-n2;
-pickup quill;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-%% diagonal
-draw pth1; draw (x1-n1,y1)--(x1,y1);
-%% stems
-pickup thinquill;
-draw z21--z22;
-filldraw z22--z22a{left}..{up}z22b--cycle;
-draw z23--z24;
-filldraw z23--z23a{right}..{down}z23c{up}..{right}z23b--cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,6,13,14,23,23a,23b,23c,100);
-endchar; % end "n"
-
-cmchar "SQRC letter o";
-beginchar("o", 2sb#+hstretch*(17/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-pickup quill;
-lft x1=pcshiftx; rt x3=w-pcshiftx; y1=y3=h/2;
-x2=x4=w/2; top y2=h+o; bot y4=-o;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1..z2..z3..z4..cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,100);
-endchar; % end "o"
-
-cmchar "SQRC letter p";
-beginchar("p", 2sb#+hstretch*(13/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-path pth[];
-numeric n[];
-pickup quill;
-x100 = 0;
-n1:= sqrcjut;
-%% stem
-lft x1=lft x2=pcshiftx+n1;
-top y1=h; bot y2=0;
-z12 = 1/2[z1,z2];
-%% bowl
-lft x3 = pcshiftx; y3 = y1;
-x7 = x12; top y7 = y12;
-rt x5 = w-pcshiftx; y5 = 1/2[y3,y7];
-pth1 := z3--z1{right}..z5{down}..{left}z7;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2; draw pth1;
-%%draw (x2-n1,y2)--(x2+n1,y2);
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,100);
-endchar; % end "p"
-
-cmchar "SQRC letter q";
-beginchar("q", 2sb#+hstretch*(17/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-path pth[];
-pickup quill;
-%% bowl
-lft x1=pcshiftx; rt x3=w-pcshiftx; y1=y3=h/2;
-x2=x4=w/2; top y2=h+o; bot y4=-o;
-pth1 := z1..z4..z3..z2..cycle;
-%% tail
-n1 := rt x1 - lft x1;
-pth2 := z1..z2..z3..z4;
-z5 = directionpoint pdir of pth1;
-x7 = x3 + 2n1; top y7 = -n1;
-pth3 := z5{-ppdir}..{pdir}z7;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1;
-draw pth3;
-ductus:=false;
-penlabels(0,1,2,3,4,5,6,7,8,100);
-endchar; % end "q"
-
-cmchar "SQRC letter r";
-beginchar("r", 2sb#+hstretch*(15/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-path pth[];
-pickup quill;
-x100 = 0;
-n1:= sqrcjut;
-n3 := sqrcjutrat*sqrcjut;
-n2 := 11/15; %% P/R width ratio
-%% stem
-pickup thinquill;
-lft x1=lft x2=pcshiftx+n1;
-top y1=h; bot y2=0;
-x2a = x2 + n3; y2a = y2;
-x2b = x2; y2b = y2+n3;
-z12 = 1/2[z1,z2];
-pickup quill;
-%% bowl
-lft x3 = pcshiftx; top y3 = h; x13 = x1; y13 = y3;
-lft x7 = x12; top y7 = y12;
-rt x5 = w*n2 - pcshiftx; y5 = 1/2[y3,y7];
-pth1 := z3--z13{right}..z5{down}..{left}z7;
-%% leg
-z21 = z7;
-rt x23 = w-pcshiftx; bot y23 = 0;
-pth2 := z21{-ppdir}..{right}z23;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1; draw pth2;
-pickup thinquill;
-draw z1--z2;
-filldraw z2--z2a{left}..{up}z2b--cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,100);
-endchar; % end "r"
-
-cmchar "SQRC letter s";
-beginchar("s", 2sb#+hstretch*(15/18x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-path pth[];
-pcshiftx := sb;
-pickup quill;
-x100 = 0;
-n1 := rt x100 - lft x100;
-x1 = x3 = x5 = 1/2w;
-top y1 = h; bot y5 = 0; y3 = 1/2[y1,y5];
-lft x2 = pcshiftx; rt x4 = w-pcshiftx;
-y2 = 1/2[y1,y3]; y4 = 1/2[y3,y5];
-rt x101 = w-pcshiftx; top y101 = y1;
-lft x102 = pcshiftx; bot y102 = y5;
-pth1 := z101..z1..z2..z3..z4..z5..z102;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,11,17,20,26,27,28,100);
-endchar; % end "s"
-
-cmchar "SQRC letter t";
-beginchar("t", 2sb#+hstretch*(10/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-path pth[];
-pickup quill;
-%% bar
-lft x1 = pcshiftx; rt x2=w-pcshiftx;
-top y1 = top y2 = h;
-pth1 := z1{pdir}..{pdir}z2;
-%% stem
-z3 = 1/2[z1,z2];
-x4 = x3; bot y4 = 0;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1; % bar
-draw z3--z4; % stem
-ductus:=false;
-penlabels(1,2,3,4,5,6,11,12,100);
-endchar; % end "t"
-
-cmchar "SQRC letter u";
-beginchar("u", 2sb#+hstretch*(15/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-path pth[];
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-%% left stem
-lft x1 = pcshiftx + n1; top y1 = h;
-lft x13=pcshiftx; y13=1/3h;
-rt x3=w-pcshiftx-n1; y3=y1;
-x4=x3; bot y4=0;
-z33=1/4[z4,z3]; % start of bowl
-x14=1/3[x1,x3]; bot y14=0;
-pth1 := z1..z13{down}..z14{right}..{pdir}z33;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1;
-draw (x1-n1,y1)--(x1,y1);
-draw z3--z4;
-draw (x3-n1,y3)--(x3,y3);
-draw (x4,y4)--(x4+n1,y4);
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,11,13,14,16,33,100);
-endchar; % end "u"
-
-cmchar "SQRC letter v";
-beginchar("v", 2sb#+hstretch*(13/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-path pth[];
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-n2 := sqrcjutrat*sqrcjut;
-%% stem tops
-lft x1 = pcshiftx + n1; top y1 = h;
-pickup thinquill;
-rt x3 = w - pcshiftx; top y3 = h;
-x3a = x3-n2; y3a=y3;
-x3b = x3; y3b = y3-n2;
-pickup quill;
-%% bottom
-x13 = 10/16[x1,x3]; bot y13 = 0;
-x83 = rt x13; y83 = top y13;
-pth1 := z1{down}..z13;
-pth2 := z3{down}..z83;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1;
-draw (x1-n1,y1)--(x1,y1);
-
-pickup thinquill;
-draw pth2;
-filldraw z3--z3a{right}..{down}z3b--cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,11,13,14,23,26,100);
-endchar; % end "v"
-
-cmchar "SQRC letter w";
-beginchar("w", 2sb#+hstretch*(22/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-path pth[];
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-n2 := sqrcjutrat*sqrcjut;
-%% thick leg tops
-lft x1 = pcshiftx + n1; top y1 = h;
-x3 = 1/2w; y3 = y1;
-%% thin leg top
-pickup thinquill;
-rt x5 = w-pcshiftx; top y5 = h;
-x5a = x5-n2; y5a = y5;
-x5b = x5; y5b = y5-n2;
-pickup quill;
-%% V bottoms
-x13 = 1/2[x1,x3]; bot y13 = 0;
-x35 = 1/2[x3,x5]; bot y35 = 0;
-pth113 := z1{down}..z13;
-pth335 := z3{down}..z35;
-x83 = x3; y83 = top y3;
-x813 = rt x13; y813 = bot y13;
-x835 = rt x35; y835 = bot y35;
-%% thin legs
-pickup thinquill;
-rt x113 = x813; bot y113 = y813;
-rt x135 = x835; bot y135 = y835;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-pickup quill;
-draw pth113; draw pth335; draw (x1-n1,y1)--(x1,y1);
-pickup thinquill;
-draw z113..{up}z3; draw z135..{up}z5;
-filldraw z5--z5a{right}..{down}z5b--cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,11,13,14,33,34,53,16,100);
-endchar; % end "w"
-
-cmchar "SQRC letter x";
-beginchar("x", 2sb#+hstretch*(17/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-path pth[];
-numeric n[];
-pcshiftx := sb;
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-n2 := sqrcjutrat*sqrcjut;
-%% diag top left to bottom right
-lft x1=pcshiftx+n1; top y1 = h;
-rt x2 = w - pcshiftx - n1; bot y2 = 0;
-%% diag top right to bottom left
-pickup thinquill;
-rt x3 = w - pcshiftx - n1; top y3 = h;
-lft x4 = pcshiftx; bot y4 = 0;
-x3a = x3-n2; x3b = x3+n1; y3a = y3b = y3;
-y3c = y3-n2; z3c = whatever[z3,z4];
-x4a = x4+n2; y4a = y4;
-y4b = y4+n2; z4b = whatever[z4,z3];
-pickup quill;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2;
-draw (x1-n1,y1)--(x1,y1);
-draw (x2,y2)--(x2+n1,y2);
-pickup thinquill;
-draw z3--z4;
-filldraw z3--z3a{right}..{z4-z3}z3c{z3-z4}..{right}z3b--cycle;
-filldraw z4--z4a{left}..{z3-z4}z4b--cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,10,25,251,252,40,50,150,60,160,100);
-endchar; % end "x"
-
-cmchar "SQRC letter y";
-beginchar("y", 2sb#+hstretch*(13/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-path pth[];
-numeric n[];
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-n2 := sqrcjutrat*sqrcjut;
-%% upright
-x5 = 1/2w; y5 = 1/2h;
-x6 = x5; bot y6 = 0;
-%% left stem top
-lft x1 = pcshiftx + n1; top y1 = h;
-%% right stem
-x85 = rt x5; y85 = top y5;
-pickup thinquill;
-rt x3=w-pcshiftx; top y3 = h;
-x4=x85; y4 = y85;
-x3a=x3-n2; y3a = y3;
-y3b = y3-n2; z3b = whatever[z3,z4];
-pickup quill;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z5--z6; draw (x6-n1,y6)--(x6+n1,y6); % stem
-draw z1--z5; draw (x1-n1,y1)--(x1,y1); % left arm
-pickup thinquill;
-draw z3--z4;
-filldraw z3--z3a{right}..{z4-z3}z3b--cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,10,100);
-endchar; % end "y"
-
-cmchar "SQRC letter z";
-beginchar("z", 2sb#+hstretch*(13/13x_height#),
- x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-n1 := sqrcjutrat*sqrcjut;
-path pth[];
-pcshiftx := sb;
-pickup quill;
-%% top bar ends
-lft x1 = pcshiftx; rt x2 = w -pcshiftx; top y1 = top y2 = h;
-x101 = lft x1; y101 = top y1;
-%% bottom bar ends
-lft x3 = pcshiftx; rt x4 = w -pcshiftx; bot y3 = bot y4 = 0;
-x104 = rt x4; y104 = bot y4;
-pickup stylus;
-lft x11 = x101; top y11 = y101;
-x12 = x11; y12 = y11-n1;
-x13 = x11+n1; y13 = y11;
-rt x14 = x104; bot y14 = y104;
-x15 = x14; y15 = y14 + n1;
-x16 = x14 - n1; y16 = y14;
-pickup quill;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2; draw z3--z4;
-draw z2--z3;
-pickup stylus;
-filldraw z11--z12{up}..{right}z13--cycle;
-filldraw z14--z15{down}..{left}z16--cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,6,10o,10i,14,14,16,20o,20i,100);
-endchar; % end "z"
-
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/sqrclig.mf b/Master/texmf-dist/fonts/source/public/bookhands/sqrclig.mf
deleted file mode 100644
index 8bafa316954..00000000000
--- a/Master/texmf-dist/fonts/source/public/bookhands/sqrclig.mf
+++ /dev/null
@@ -1,142 +0,0 @@
-%%
-%% This is file `sqrclig.mf',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% sqrcaps.dtx (with options: `lig')
-%%
-%% 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
-%%
-
-
-ligtable "`": "`"=:oct"134";
-ligtable "'": "'"=:oct"042"; %% , "?" kern 2u#, "!" kern 2u#;
-
-ligtable "-": "-"=:oct"173";
-ligtable oct"173": "-"=:oct"174";
-
-
-cmchar "Closing quotes";
-beginchar(oct"042",2sb#+hstretch*(comma_width#+3dot_size#),7/8asc_height#,0);
-adjust_fit(0,0);
-pcshiftx:=sb;
-x1=w-pcshiftx-(0.5hstretch*dot_size); y1=y2=h;
-x2=x1-(2hstretch*dot_size);
-draw_pcomma(1,dot_size,comma_width); % right
-draw_pcomma(2,dot_size,comma_width); % left
-penlabels(1,2);
-endchar; % end of "''"
-
-
-cmchar "Opening quotes";
-beginchar(oct"134",2sb#+hstretch*(comma_width#+3dot_size#),7/8asc_height#,0);
-adjust_fit(0,0);
-pcshiftx:=sb;
-x1=pcshiftx+(0.5hstretch*dot_size); y1=y2=h;
-x2=x1+(2hstretch*dot_size);
-draw_plq(1,dot_size,comma_width); % left
-draw_plq(2,dot_size,comma_width); % right
-penlabels(1,2);
-endchar; % end of "``"
-
-
-cmchar "Hyphen";
-beginchar("-",sb#+hstretch*(8/13x_height#),x_height#,0);
-adjust_fit(0,0);
-pcshiftx:=sb/2;
-numeric alpha; alpha:=w/8;
-pickup threequarterquill;
-lft x21=pcshiftx+jut; rt x22=w-pcshiftx-jut; y21=y22=1/2h;
-z31 = z21 shifted (-jut*pdir);
-draw z21--z22;
-draw z31--z21;
-draw_flatserif(22,21,srad);
-penlabels(1,2);
-endchar; % end of "-"
-
-
-cmchar "En dash";
-beginchar(oct"173",sb#+hstretch*(10/13x_height#),x_height#,0);
-adjust_fit(0,0);
-pcshiftx:=sb/2;
-numeric alpha; alpha:=w/8;
-pickup threequarterquill;
-lft x21=pcshiftx+jut; rt x22=w-pcshiftx-jut; y21=y22=1/2h;
-z31 = z21 shifted (-jut*pdir);
-draw z21--z22;
-%%draw_roundserif(21,22,srad);
-draw z31--z21;
-draw_flatserif(22,21,srad);
-penlabels(1,2);
-endchar; % end of "--"
-
-
-cmchar "Em dash";
-beginchar(oct"174",sb#+hstretch*(20/13x_height#),x_height#,0);
-adjust_fit(0,0);
-pcshiftx:=sb/2;
-numeric alpha; alpha:=w/8;
-pickup threequarterquill;
-lft x21=pcshiftx+jut; rt x22=w-pcshiftx-jut; y21=y22=1/2h;
-z31 = z21 shifted (-jut*pdir);
-draw z21--z22;
-%%draw_roundserif(21,22,srad);
-draw z31--z21;
-draw_flatserif(22,21,srad);
-penlabels(1,2);
-endchar; % end of "---"
-
-
-cmchar "SQRC ampersand";
-beginchar("&", sb#+caprat*hstretch*(18/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-path pth[];
-pickup quill;
-x100 = 0;
-n1 = sqrcjut;
-%%%% The E
-%% stem
-lft x1 = pcshiftx+n1; top y1 = h;
-x2 = x1; bot y2=0;
-%% bars
-lft x3 = pcshiftx; y3 = y1; rt x4 = 9/20w-pcshiftx; y4=y3;
-x5=x1; y5 = 6/16[y1,y2]; x6 = x4; y6 = y5;
-x7 = x3; y7 = y2; x8 = x4; y8=y7;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2; % stem
-draw z3--z4; draw z5--z6; draw z7--z8;
-ductus:=false;
-%%%%%%%%% The T
-
-%% bar
-lft x11 = rt x4 + 2pcshiftx; rt x12=w-pcshiftx;
-top y11 = top y12 = h;
-pth1 := z11{pdir}..{pdir}z12;
-%% stem
-z13 = 1/2[z11,z12];
-x14 = x13; bot y14 = 0;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1; % bar
-draw z13--z14; % stem
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,11,12,13,14,17,70,100);
-%%% end T
-endchar; % end "&"
-
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/sqrcpunct.mf b/Master/texmf-dist/fonts/source/public/bookhands/sqrcpunct.mf
deleted file mode 100644
index 5c0faf14534..00000000000
--- a/Master/texmf-dist/fonts/source/public/bookhands/sqrcpunct.mf
+++ /dev/null
@@ -1,121 +0,0 @@
-%%
-%% This is file `sqrcpunct.mf',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% sqrcaps.dtx (with options: `punct')
-%%
-%% 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
-%%
-
-
-cmchar "Exclamation mark";
-beginchar("!", 2sb#+hstretch*(thick#),
- asc_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-pickup quill;
-x1=w/2; top y1 = h;
-z3=(x1, 1/2dot_size);
-z2=(x1, y3+3/2dot_size);
-draw z1--z2;
-draw_pdot(3,dot_size);
-penlabels(1,2,3);
-
-endchar; % end of "!"
-
-
-cmchar "Question mark";
-beginchar("?", 2sb#+hstretch*(13/13x_height#),
- 11/10x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-path pth[];
-pickup quill;
-n1 := w-2pcshiftx; % actual character width
-n2 := 1/3h; % height of top bowl
-n3 := n2; % height of bottom bowl
-z5=(1/2w,1/2dot_size);
-x4 = x5; y4=y5+3/2dot_size;
-lft x1 = pcshiftx; y1 = 3/4h;
-x2 = 1/2w; top y2 = h;
-rt x3 = w-pcshiftx; y3 = 2/3h;
-
-%%ductus:= true;
-if ductus:
- pickup stylus;
-fi
-draw z1..z2{right}..z3{down}..z4{down};
-draw_pdot(5, dot_size);
-penlabels(1,2,3,4,5);
-endchar; % end of "?"
-
-
-cmchar "Comma";
-beginchar(",",2sb#+hstretch*(comma_width#+dot_size#),x_height#,0);
-adjust_fit(0,0);
-pcshiftx:=sb;
-x1=w-pcshiftx-(0.5hstretch*dot_size); y1=1/2dot_size;
-draw_pcomma(1,dot_size,comma_width);
-penlabels(1);
-endchar; % end of ","
-
-
-cmchar "Period";
-beginchar(".",2sb#+hstretch*(dot_size#),x_height#,0);
-pcshiftx:=sb;
-z1=(w/2, 1/2dot_size);
-draw_pdot(1,dot_size);
-penlabels(1);
-endchar; % end of "."
-
-
-cmchar "Colon";
-beginchar(":",2sb#+hstretch*(dot_size#),x_height#,0);
-pcshiftx:=sb;
-x1=x2=w/2; y1=2/3h; y2=1/2dot_size;
-draw_pdot(1,dot_size);
-draw_pdot(2,dot_size);
-penlabels(1,2);
-endchar; % end ":"
-
-
-cmchar "Semicolon";
-beginchar(";",2sb#+hstretch*(comma_width#+dot_size#),x_height#,0);
-adjust_fit(0,0);
-pcshiftx:=sb;
-x1=x2=w-pcshiftx-(0.5hstretch*dot_size); y1=2/3h; y2=1/2dot_size;
-draw_pdot(1,dot_size);
-draw_pcomma(2,dot_size,comma_width);
-penlabels(1,2);
-endchar; % end of ";"
-
-
-cmchar "Apostrophe";
-beginchar("'",2sb#+hstretch*(comma_width#+dot_size#),7/8asc_height#,0);
-adjust_fit(0,0);
-pcshiftx:=sb;
-x1=w-pcshiftx-(0.5hstretch*dot_size); y1=h;
-draw_pcomma(1,dot_size,comma_width);
-penlabels(1);
-endchar; % end of "'"
-
-
-cmchar "Reverse apostrophe";
-beginchar("`",2sb#+hstretch*(comma_width#+dot_size#),7/8asc_height#,0);
-adjust_fit(0,0);
-pcshiftx:=sb;
-x1=pcshiftx+(0.5hstretch*dot_size); y1=h;
-draw_plq(1,dot_size,comma_width);
-penlabels(1);
-endchar; % end of "`"
-
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/sqrctitle.mf b/Master/texmf-dist/fonts/source/public/bookhands/sqrctitle.mf
deleted file mode 100644
index f9563229ad7..00000000000
--- a/Master/texmf-dist/fonts/source/public/bookhands/sqrctitle.mf
+++ /dev/null
@@ -1,710 +0,0 @@
-%%
-%% This is file `sqrctitle.mf',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% sqrcaps.dtx (with options: `mfd')
-%%
-%% 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
-%%
-def makebox(text rule) =
- for y=0,half_height,cap_height,body_height,x_height,-desc_depth,-body_depth:
- rule((l,y)t_,(r,y)t_); endfor % horizontals
- for x=l,r: rule((x,-body_depth)t_,(x,body_height)t_); endfor % verticals
- for x=u*(1+floor(1/u)) step u until r-1:
- rule((x,-body_depth)t_,(x,body_height)t_); endfor % more verticals
- if charic<>0:
- rule((r+charic*pt,h.o_),(r+charic*pt,.5h.o_)); fi % italic correction
-enddef;
-
-
-def proofpcbb(suffix $)(expr xoff, yoff) =
-if proofing > 0:
- x$bl = x$ - xoff; y$bl = y$ - yoff; % Bottom Left Hand Corner
- z$br = (x$bl+side, y$bl); % BRHC
- z$tr = (x$bl+side, y$bl+side); % TRHC
- z$tl = (x$bl, y$bl+side); % TLHC
- z$bc = 1/2[z$bl,z$br]; z$tc = 1/2[z$tl,z$tr]; % horizontal mid points
- pair hc, vc;
- hc = (2u,0); vc = (0,2u);
- pickup pensquare scaled 2;
- for s = z$bl, z$br, z$tr, z$tl, z$bc, z$tc:
- draw s-hc--s+hc;
- draw s-vc--s+vc;
- endfor
-fi
-enddef;
-
-
-def sqrcaps_font_setup= % contains special stuff for sqrcaps fonts
- define_pixels(side,half_height,carol_height,comma_width);
- define_pixels(u,dot_size,letter_size,cap_height,width_adj,serif_fit,
- cap_serif_fit,jut,clubjut,cap_jut,trijut);
- define_pixels(fig_width);
- define_whole_pixels(letter_fit,sb);
- define_whole_vertical_pixels(body_height,asc_height,cap_height,x_height,
- desc_depth,body_depth,fig_height);
- define_corrected_pixels(o);
- define_blacker_pixels(thick,thin);
- define_pixels(sqrcjut);
- let adjust_fit = normal_adjust_fit;
- pickup pencircle scaled thin;
- stylus:=savepen;
- pickup pencircle scaled (1.5thin);
- thickstylus:=savepen;
- pickup pencircle xscaled thick yscaled thin rotated pangle;
- quill:=savepen;
-
- pickup pencircle xscaled 3/4thick yscaled thin rotated pangle;
- threequarterquill := savepen;
-
- pickup pencircle xscaled 1/2thick yscaled thin rotated pangle;
- halfquill := savepen;
-
- pickup pencircle xscaled 1/4thick yscaled thin rotated pangle;
- quarterquill := savepen;
-
- pickup pencircle xscaled 3/8thick yscaled thin rotated pangle; %% 1/4 too small
- thinquill := savepen;
-
- numeric pcshiftx#; % x value of LHS of box wrt origin of char box
- define_pixels(pcshiftx);
- numeric sqxside#; % x size of the square
- numeric sqyside#; % y size of the square
- define_pixels(sqxside,sqyside);
-
-enddef; % end of sqrcaps_font_setup
-
-boolean ductus;
-ductus:=false;
-numeric qhor, qvert;
-qhor:=cosd(pangle); qvert:=sind(pangle);
-pair pdir; pdir=dir(pangle);
-pair ppdir; ppdir=dir(pangle+90);
-
-def draw_serif(suffix $, $$)(expr fr)=
- numeric beta, ajut, bjut;
- beta=1-fr;
- ajut=fr*jut; bjut=beta*jut;
- pair vec[]; vec1=unitvector(z$$-z$);
- vec2=ajut*vec1;
- z$a=z$ shifted vec2;
- z$b=z$a rotatedaround (z$,-90);
- boolean top_serif;
- if y$>y$$:
- top_serif := true;
- z$c=z$b shifted (-bjut*pdir);
- else:
- top_serif:=false;
- z$c=z$b shifted (bjut*pdir);
- fi
- if top_serif:
- draw z$c--z$b{pdir}..{z$$-z$}z$a; % the serif
- else:
- draw z$c--z$b{-pdir}..{z$$-z$}z$a;
- fi
- labels($a,$b,$c);
-enddef; % end of draw_serif
-
-
-def draw_roundserif(suffix $, $$)(expr fr)=
- draw_serif($, $$, fr);
- undraw z$--z$a;
-enddef; % end of draw_roundserif
-
-
-def draw_flatserif(suffix $, $$)(expr fr)=
- numeric beta, ajut, bjut;
- beta=1-fr;
- ajut=fr*jut; bjut=beta*jut;
- pair vec[]; vec1=unitvector(z$$-z$);
- vec2=ajut*vec1;
- z$a=z$ shifted vec2;
-%%% z$b=z$a rotatedaround (z$,-90);
- boolean top_serif;
- if y$>y$$:
- top_serif := true;
- z$c=z$ shifted (-jut*pdir);
- else:
- top_serif:=false;
- z$c=z$ shifted (jut*pdir);
- fi
- z$b = fr[z$,z$c];
- draw z$a--z$;
- if top_serif:
- draw z$c--z$b{pdir}..{z$$-z$}z$a; % the serif
- else:
- draw z$c--z$b{-pdir}..{z$$-z$}z$a;
- fi
- labels($a,$b,$c);
-enddef; % end of draw_flatserif
-
-
-def draw_clubserif(suffix $, $$)(expr fr)=
- numeric beta, ajut, bjut;
-%% beta=1-fr;
- ajut=clubjut; bjut=beta*jut;
- pair vec[]; vec1=unitvector(z$$-z$);
-%% vec2=ajut*vec1;
-%% z$a=z$ shifted vec2;
- boolean top_serif;
- if y$>y$$:
- top_serif := true;
- z$c=z$ shifted (-clubjut*pdir);
- else:
- top_serif:=false;
- z$c=z$ shifted (clubjut*pdir);
- fi
- z$a = fr[z$,z$$];
- draw z$c..z$a{vec1};
- labels($a,$b,$c);
-enddef; % end of draw_clubserif
-
-
-def draw_triserif(suffix $)(expr tj)=
- pen oldpen; oldpen:=currentpen;
- pickup quill;
- x$ts1'=lft x$; y$ts1'=bot y$;
- pickup stylus;
- lft x$ts1=x$ts1'; bot y$ts1=y$ts1';
- x$ts2=x$ts1-tj; z$ts2=whatever[z$,z$ts1];
- x$ts3=x$ts1; y$ts3=y$ts2-tj;
- pickup stylus;
-%% filldraw z$ts1--z$ts2--z$ts3--cycle;
- filldraw z$--z$ts2--z$ts3--cycle;
- pickup oldpen;
- labels($ts1,$ts2,$ts3);
-enddef; % end of draw_triserif
-
-
-def draw_istem(suffix $, $$)(expr fr)=
- draw_serif($, $$, fr); % top serif
- draw_serif($$, $, fr); % bottom serif
- draw z$a--z$$a; % the stem
-enddef; % end of draw_istem
-
-
-def draw_tstem(suffix $, $$)(expr fr)=
-%% draw_serif($$, $, fr); % the serif
-%% draw z$--z$$a; % the stem
- draw z$--z$$;
-enddef; % end of draw_tstem
-
-
-def draw_tlserif(suffix $, $$)(expr fr)=
- draw_serif($, $$, fr); % the serif
- draw z$a--z$$; % the stem
-enddef; % end of draw_tlserif
-
-
-def draw_flick(suffix $)(expr rise, fall, fjut)=
- rt x$b = x1+fjut; top y$b=y$-fall;
- x$a=0.5[x$,x$b]; top y$a=y$+rise;
- draw z$..z$a..z$b;
- labels($a,$b);
-enddef; % end of draw_flick
-
-
-def draw_wave(suffix $,$$)(expr f)=
- x$wl=x$; y$wl=y$-f;
- x$wr=x$$; y$wr=y$$+f;
- z$wc=0.5[z$wl,z$wr];
- draw z$wl{pdir}..z$wc{right}..{pdir}z$wr;
- labels($wl,$wc,$wr);
-enddef; % end of draw_wave
-
-def draw_tail(suffix $)(expr fj)=
- pen oldpen; oldpen:=currentpen;
- pickup quill;
- x$tl' = lft x$; y$tl=bot y$;
- pickup stylus;
- lft x$tl=x$tl';
- x$tb=x$tl-fj; bot y$tb=y$tl-1/2desc_depth;
- filldraw z${down}..{-pdir}z$tb & z$tb{pdir}..{up}z$tl--cycle;
- pickup oldpen;
- labels($tb,$tl);
-enddef; % end of draw_tail
-
-def draw_triangle(suffix $)(expr sz)=
- pen oldpen; oldpen:=currentpen;
- pickup stylus;
- x$t1=x$-sz/2; x$t3=x$+sz/2;
- y$t1=y$t3=y$;
- x$t2=x$; y$t2=y$-0.9sz; % approx sqrt(3)/2
- filldraw z$t1--z$t2--z$t3--cycle;
- pickup oldpen;
- labels($t1,$t2,$t3);
-enddef; % end of draw_triangle
-
-def draw_utriangle(suffix $)(expr sz)=
- pen oldpen; oldpen:=currentpen;
- pickup stylus;
- x$t1=x$-sz/2; x$t3=x$+sz/2;
- y$t1=y$t3=y$;
- x$t2=x$; y$t2=y$+0.9sz; % approx sqrt(3)/2
- filldraw z$t1--z$t2--z$t3--cycle;
- pickup oldpen;
- labels($t1,$t2,$t3);
-enddef; % end of draw_utriangle
-
-def draw_rtriangle(suffix $)(expr sz)=
- pen oldpen; oldpen:=currentpen;
- pickup stylus;
- x$t1=x$-sz; rt x$t3=x$;
- y$t1=y$t3=y$;
- x$t2=x$t3; y$t2=y$-sz;
- filldraw z$t1--z$t2--z$t3--cycle;
- pickup oldpen;
- labels($t1,$t2,$t3);
-enddef; % end of draw_rtriangle
-
-def draw_rutriangle(suffix $)(expr sz)=
- pen oldpen; oldpen:=currentpen;
- pickup stylus;
- x$t1=x$-sz; rt x$t3=x$;
- y$t1=y$t3=y$;
- x$t2=x$t3; y$t2=y$+sz;
- filldraw z$t1--z$t2--z$t3--cycle;
- pickup oldpen;
- labels($t1,$t2,$t3);
-enddef; % end of draw_rutriangle
-
-def draw_fork(suffix $, $$)(expr sz)=
- pen oldpen; oldpen:=currentpen;
- pickup quill;
- x$f1'=lft x$; y$f1'=bot y$;
- x$f3'=rt x$; y$f3'=top y$;
- pickup stylus;
- lft x$f1=x$f1'; bot y$f1=y$f1';
- rt x$f3=x$f3'; y$f3-y$=2*(y$-y$f1);
- rt x$f2=x$$-sz; bot y$f2=y$$;
- rt x$f4= rt x$f5=x$$;
- bot y$f5=y$$-sz; top y$f4=y$$+1/2sz;
- filldraw z$f1--z$f2--z$f3--cycle; % the line
- draw z$f2{right}..z$f4; % upper fork
- draw z$f2{right}..z$f5; % lower fork
- pickup oldpen;
- labels($f1,$f2,$f3,$f4,$f5);
-enddef; % end of draw_fork
-
-def draw_urswish(suffix $, $$)=
- pen oldpen; oldpen:=currentpen;
- pickup quill;
- rt x$$s1=x$$-thick; top y$$s1=y$$;
- rt x$$s2=x$$;
-%% x$$s3=x$$-thick;
- lft x$$s3=x$$s1;
- bot y$$s3=y$$-thick; y$$s2=0.5[y$$s1,y$$s3];
-%% draw z$---z$$s1{right}..z$$s2{down}..{-pdir}z$$s3;
- draw z$..z$$s1{pdir}..z$$s2{down};
- labels($$s1,$$s2,$$s3);
-enddef; % end of draw_urswish
-
-def bowl_stem(suffix $, $$)=
- x$'=0.5[x$,x$$]; y$'=y$; % the mid-point
- z$''=z$' shifted (thick*pdir);
- x$i=x$$; z$i=whatever[z$',z$''];
- labels($',$i);
-enddef; % end of bowl_stem
-
-def draw_clubbase(suffix $, $$)(expr st, lft, rt)=
- z$$l = z$$ shifted (lft*thick*(-pdir));
- z$$r = z$$ shifted (rt*thick*(pdir));
- z$$t = st[z$$,z$];
- draw z$$t{z$$-z$}..z$$l--z$$r..{z$-z$$}z$$t;
- labels($$t,$$l,$$r);
-enddef; % end of draw_clubbase
-
-
-def draw_pdot(suffix $)(expr sz)=
- z$s = z$ shifted (0.5sz*left);
- z$t = z$ shifted (0.5sz*up);
- z$u = z$s shifted (sz*right);
- z$v = z$t shifted (sz*down);
- pickup stylus;
- filldraw z$s--z$t--z$u--z$v--cycle;
- labels($s,$t,$u,$v);
-enddef; % end of draw_pdot
-
-
-def draw_pcomma(suffix $)(expr sz, ar)=
- z$s = z$ shifted (0.5sz*left);
- z$t = z$s shifted (sz*right);
- x$v=x$s-ar; y$v=y$s-2ar;
- z$u = z$v shifted (sz*right);
- z$sv = (x$s, 1/3[y$s,y$v]);
- z$tu = (x$t, y$sv);
- z$uv = 1/3[z$u,z$v];
- z$vu = 1/3[z$v,z$u];
- pickup stylus;
-%% filldraw z$s--z$t--z$u--z$v--cycle;
- filldraw z$s--z$t--z$tu{down}..{left}z$uv--z$vu{right}..{up}z$sv--cycle;
- labels($s,$t,$u,$v);
-enddef; % end of draw_pcomma
-
-
-def draw_plq(suffix $)(expr sz, ar)=
- z$s = z$ shifted (0.5sz*left);
- z$t = z$s shifted (sz*right);
- x$v=x$s+ar; y$v=y$s-2ar;
- z$u = z$v shifted (sz*right);
- z$sv = (x$s, 1/3[y$s,y$v]);
- z$tu = (x$t, y$sv);
- z$uv = 1/3[z$u,z$v];
- z$vu = 1/3[z$v,z$u];
- pickup stylus;
-%% filldraw z$s--z$t--z$u--z$v--cycle;
- filldraw z$s--z$t--z$tu{down}..{right}z$uv--z$vu{left}..{up}z$sv--cycle;
- labels($s,$t,$u,$v);
-enddef; % end of draw_plq
-
-
-path obouter, obinner, obfirst, obsecond;
-def offsetbowl(suffix $)(expr sx, sy, fx, fy)=
- numeric inx, iny, cx, cy;
- pair pt[];
- path pth[];
- inx := 1/2thick*cosd(pangle); iny := 1/2thick*sind(pangle);
- cx := x$+fx*sx; cy := y$+fy*sy;
- z$obc = (cx,cy);
- if pangle = 90:
- z$wt=(x$+1/2thin, cy);
- z$et=(x$+sx-1/2thin, cy);
- else:
- z$wt=(x$+inx, cy);
- z$et=(x$+sx-inx, cy);
- penpos$wt(thick,pangle);
- penpos$et(thick,pangle);
- fi
- if pangle = 0:
- z$nh=(cx, y$+sy-1/2thin);
- z$sh=(cx, y$+1/2thin);
- else:
- z$nh=(cx, y$+sy-iny);
- z$sh=(cx, y$+iny);
- penpos$nh(thick,pangle);
- penpos$sh(thick,pangle);
- fi
- obfirst := z$nh{right}..z$et{down}..z$sh{left}..z$wt{up}..cycle;
- if pangle = 90:
- z$minl = z$wt; z$maxr = z$nh; z$minr = z$et; z$maxl = z$sh;
- else:
- if pangle = 0:
- z$minl = z$nh; z$maxr = z$et; z$minr = z$sh; z$maxl = z$wt;
- else:
- z$minl = directionpoint dir(pangle) of obfirst;
- z$minr = directionpoint -dir(pangle) of obfirst;
- pt1 := z$minr - z$minl; % direction
- pt2 := (- ypart pt1, xpart pt1); % perpendicular
- pt3 := 1/2[z$minl, z$minr];
- pt4 := pt3 shifted pt2;
- pt5 := pt3 shifted -pt2;
- pth1 := pt3--pt4;
- pth2 := pt3--pt5;
- z$maxr = pth1 intersectionpoint obfirst;
- z$maxl = pth2 intersectionpoint obfirst;
- \fi
- \fi
- penpos$minl(thin,pangle+90);
- penpos$maxr(thick,pangle);
- penpos$minr(thin,pangle+90);
- penpos$maxl(thick,pangle);
- obsecond := z$minl..z$maxr..z$minr..z$maxl..cycle;
- z$minlo = z$minl.r; z$maxro = z$maxr.r;
- z$minro = z$minr.l; z$maxlo = z$maxl.l;
- obouter := z$minlo{dir(pangle)}...z$maxro...z$minro{-dir(pangle)}...z$maxlo...cycle;
- z$minli = z$minl.l; z$maxri = z$maxr.l;
- z$minri = z$minr.r; z$maxli = z$maxl.r;
- obinner := z$minli...z$maxri...z$minri...z$maxli...cycle;
- labels($obc, $nh, $et, $sh, $wt);
- labels($minl, $maxr, $minr, $maxl);
- labels($minlo, $maxro, $minro, $maxlo);
- labels($minli, $maxri, $minri, $maxli);
-enddef;
-
-
-def obowl(suffix $)(expr sx, sy)=
- offsetbowl($, sx, sy, 1/2, 1/2);
-enddef;
-
-
-primarydef v scalarprod w =
- (xpart v * ypart w - ypart v * xpart w)
-enddef;
-
-
-def tangentpoint(suffix $)(expr pth)=
- pair vecll, veclr, veclm; % "tangent" line directions
- numeric pl, pr, pm; % path parameter values
- pair vecpl, vecpr, vecpm; % path directions
- pair ptl, ptr, ptm; % path points
- numeric sl, sr, sm; % scalar products of path/line directions
- numeric stpsize; % size of current binary step
- numeric tantol; % tolerance
- boolean wtest; % a boolean
-
- tantol := eps;
- pl:=0; pr:=length pth; pm:=0.5(pl+pr); stpsize:=pr-pl;
- ptl := point pl of pth;
- ptm := point pm of pth;
- ptr := point pr of pth;
- vecll := unitvector (z$-ptl);
- veclm := unitvector (z$-ptm);
- veclr := unitvector (z$-ptr);
- vecpl := unitvector (direction pl of pth);
- vecpm := unitvector (direction pm of pth);
- vecpr := unitvector (direction pr of pth);
- sl := vecll scalarprod vecpl;
- sm := veclm scalarprod vecpm;
- sr := veclr scalarprod vecpr;
- wtest := (stpsize < tantol) or (sl*sr > 0) or
- (abs sl < tantol) or (abs sm < tantol) or (abs sr < tantol);
- if wtest:
- if (stpsize < tantol):
- z$tan=(0,0);
- errmessage("No tangent; path too short");
- else:
- if (sl*sr > 0):
- z$tan=(0,0);
- errmessage("No tangent; end products have the same sign");
- else:
- if (abs sl < tantol):
- z$tan=ptl;
- else:
- if (abs sm < tantol):
- z$tan=ptm;
- else:
- z$tan=ptr;
- fi
- fi
- fi
- fi
- else:
- forever:
- if (sl*sm < 0): % opposite signs, look between pl & pm
- pr:=pm; pm:=0.5(pr+pl);
- vecpr := vecpm; veclr := veclm; sr:=sm;
- else:
- pl:=pm; pm:=0.5(pr+pl);
- vecpl:=vecpm; vecll:=veclm; sl:=sm;
- fi
- stpsize:=pr-pl;
- ptm := point pm of pth;
- veclm := unitvector (z$-ptm);
- vecpm := unitvector (direction pm of pth);
- sm := veclm scalarprod vecpm;
- wtest := (stpsize < tantol) or (abs sm < tantol);
- if wtest:
- if (abs sm < tantol):
- z$tan = ptm;
- else:
- z$tan = ptm;
-%%%%%% errmessage("Warning: tangent approximated");
- fi
- fi
- exitif wtest;
- endfor
- fi
-enddef;
-
-
-font_coding_scheme:="ASCII minuscules and punctuation";
-mode_setup;
-sqrcaps_font_setup;
-
-
-input sqrcl; % lower case
-input sqrcu; % capitals
-input sqrcpunct; % punctuation
-input sqrclig; % the several dashes
-input sqrcdig; % arabic digits
-
-
-font_slant slant; font_x_height x_height#;
-if monospace:
- font_normal_space vstretch*9u#; % no stretching or shrinking
- font_quad vstretch*18u#;
- font_extra_space vstretch*9u#;
-else:
- font_normal_space vstretch*6u#+2letter_fit#;
- font_normal_stretch vstretch*3u#; font_normal_shrink vstretch*2u#;
- font_quad vstretch*18u#+4letter_fit#;
- font_extra_space vstretch*2u#;
-
-
-fi
-
-bye.
-
- k#:=-.5u#; kk#:=-1.5u#; kkk#:=-2u#; % three degrees of kerning
- kks#:=-4u#; kkx#:=-1.5u#; kkj#:=-2u#; kkr#:=-5u#; kkrs#:=-2u#; kkrl#:=-8u#;
- ligtable "s":
- "a" kern kks#, "A" kern kks#,
- "c" kern kks#, "C" kern kks#,
- "d" kern kks#, "D" kern kks#,
- "e" kern kks#, "E" kern kks#,
- "f" kern kks#, "F" kern kks#,
- "g" kern kks#, "G" kern kks#,
- "i" kern kks#, "I" kern kks#,
- "j" kern kks#, "J" kern kks#,
- "k" kern kks#, "K" kern kks#,
- "m" kern kks#, "M" kern kks#,
- "n" kern kks#, "N" kern kks#,
- "o" kern kks#, "O" kern kks#,
- "p" kern kks#, "P" kern kks#,
- "q" kern kks#, "Q" kern kks#,
- "r" kern kks#, "R" kern kks#,
- "t" kern kks#, "T" kern kks#,
- "u" kern kks#, "U" kern kks#,
- "v" kern kks#, "V" kern kks#,
- "w" kern kks#, "W" kern kks#,
- "x" kern kks#, "X" kern kks#,
- "y" kern kks#, "Y" kern kks#,
- "z" kern kks#, "Z" kern kks#;
-
- ligtable "S":
- "a" kern kks#, "A" kern kks#,
- "c" kern kks#, "C" kern kks#,
- "d" kern kks#, "D" kern kks#,
- "e" kern kks#, "E" kern kks#,
- "f" kern kks#, "F" kern kks#,
- "g" kern kks#, "G" kern kks#,
- "i" kern kks#, "I" kern kks#,
- "j" kern kks#, "J" kern kks#,
- "k" kern kks#, "K" kern kks#,
- "m" kern kks#, "M" kern kks#,
- "n" kern kks#, "N" kern kks#,
- "o" kern kks#, "O" kern kks#,
- "p" kern kks#, "P" kern kks#,
- "q" kern kks#, "Q" kern kks#,
- "r" kern kks#, "R" kern kks#,
- "t" kern kks#, "T" kern kks#,
- "u" kern kks#, "U" kern kks#,
- "v" kern kks#, "V" kern kks#,
- "w" kern kks#, "W" kern kks#,
- "x" kern kks#, "X" kern kks#,
- "y" kern kks#, "Y" kern kks#,
- "z" kern kks#, "Z" kern kks#;
-
- ligtable "x":
- "a" kern kkx#, "A" kern kkx#,
- "b" kern kkx#, "B" kern kkx#,
- "c" kern kkx#, "C" kern kkx#,
- "d" kern kkx#, "D" kern kkx#,
- "e" kern kkx#, "E" kern kkx#,
- "g" kern kkx#, "G" kern kkx#,
- "j" kern kkx#, "J" kern kkx#,
- "l" kern kkx#, "L" kern kkx#,
- "o" kern kkx#, "O" kern kkx#,
- "q" kern kkx#, "Q" kern kkx#,
- "t" kern kkx#, "T" kern kkx#,
- "u" kern kkx#, "U" kern kkx#,
- "v" kern kkx#, "V" kern kkx#,
- "w" kern kkx#, "W" kern kkx#,
- "y" kern kkx#, "Y" kern kkx#;
-
- ligtable "X":
- "a" kern kkx#, "A" kern kkx#,
- "b" kern kkx#, "B" kern kkx#,
- "c" kern kkx#, "C" kern kkx#,
- "d" kern kkx#, "D" kern kkx#,
- "e" kern kkx#, "E" kern kkx#,
- "g" kern kkx#, "G" kern kkx#,
- "j" kern kkx#, "J" kern kkx#,
- "l" kern kkx#, "L" kern kkx#,
- "o" kern kkx#, "O" kern kkx#,
- "q" kern kkx#, "Q" kern kkx#,
- "t" kern kkx#, "T" kern kkx#,
- "u" kern kkx#, "U" kern kkx#,
- "v" kern kkx#, "V" kern kkx#,
- "w" kern kkx#, "W" kern kkx#,
- "y" kern kkx#, "Y" kern kkx#;
-
- ligtable "a": "A":
- "b": "B":
- "c": "C":
- "d": "D":
- "e": "E":
- "h": "H":
- "i": "I":
- "k": "K":
- "l": "L":
- "m": "M":
- "n": "N":
- "o": "O":
- "p": "P":
- "t": "T":
- "u": "U":
- "v": "V":
- "w": "W":
- "z": "Z":
- "j" kern kkj#, "J" kern kkj#;
-
- ligtable "r":
- "a" kern kkr#, "A" kern kkr#,
- "b" kern kkr#, "B" kern kkr#,
- "c" kern kkr#, "C" kern kkr#,
- "d" kern kkr#, "D" kern kkr#,
- "e" kern kkr#, "E" kern kkr#,
- "f" kern kkrs#, "F" kern kkrs#,
- "g" kern kkrs#, "G" kern kkrs#,
- "h" kern kkr#, "H" kern kkr#,
- "i" kern kkr#, "I" kern kkr#,
- "j" kern kkj#, "J" kern kkj#,
- "k" kern kkrs#, "K" kern kkrs#,
- "l" kern kkr#, "L" kern kkr#,
- "m" kern kkr#, "M" kern kkr#,
- "n" kern kkrs#, "N" kern kkrs#,
- "o" kern kkr#, "O" kern kkr#,
- "p" kern kkrs#, "P" kern kkrs#,
- "q" kern kkr#, "Q" kern kkr#,
- "r" kern kkrs#, "R" kern kkrs#,
- "s" kern kkr#, "S" kern kkr#,
- "t" kern kkr#, "T" kern kkr#,
- "u" kern kkr#, "U" kern kkr#,
- "v" kern kkr#, "V" kern kkr#,
- "w" kern kkr#, "W" kern kkr#,
- "x" kern kkx#, "X" kern kkx#,
- "y" kern kkr#, "Y" kern kkr#,
- "z" kern kkr#, "Z" kern kkr#;
-
- ligtable "R":
- "a" kern kkr#, "A" kern kkr#,
- "b" kern kkr#, "B" kern kkr#,
- "c" kern kkr#, "C" kern kkr#,
- "d" kern kkr#, "D" kern kkr#,
- "e" kern kkr#, "E" kern kkr#,
- "f" kern kkrs#, "F" kern kkrs#,
- "g" kern kkrs#, "G" kern kkrs#,
- "h" kern kkr#, "H" kern kkr#,
- "i" kern kkr#, "I" kern kkr#,
- "j" kern kkj#, "J" kern kkj#,
- "k" kern kkrs#, "K" kern kkrs#,
- "l" kern kkr#, "L" kern kkr#,
- "m" kern kkr#, "M" kern kkr#,
- "n" kern kkrs#, "N" kern kkrs#,
- "o" kern kkr#, "O" kern kkr#,
- "p" kern kkrs#, "P" kern kkrs#,
- "q" kern kkr#, "Q" kern kkr#,
- "r" kern kkrs#, "R" kern kkrs#,
- "s" kern kkr#, "S" kern kkr#,
- "t" kern kkr#, "T" kern kkr#,
- "u" kern kkr#, "U" kern kkr#,
- "v" kern kkr#, "V" kern kkr#,
- "w" kern kkr#, "W" kern kkr#,
- "x" kern kkx#, "X" kern kkx#,
- "y" kern kkr#, "Y" kern kkr#,
- "z" kern kkr#, "Z" kern kkr#;
-
-fi
-
-bye.
-
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/sqrcu.mf b/Master/texmf-dist/fonts/source/public/bookhands/sqrcu.mf
deleted file mode 100644
index d74aaa40e0f..00000000000
--- a/Master/texmf-dist/fonts/source/public/bookhands/sqrcu.mf
+++ /dev/null
@@ -1,836 +0,0 @@
-%%
-%% This is file `sqrcu.mf',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% sqrcaps.dtx (with options: `maj')
-%%
-%% 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
-%%
-
-cmchar "SQRC letter A";
-beginchar("A", 2sb#+caprat*hstretch*(14/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-path pth[];
-pair pr[];
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-n2 := sqrcjutrat*sqrcjut;
-%% legs
-x1 = 6/16w; top y1=h;
-rt x3 = w-pcshiftx - n1; bot y3= 0;
-pickup thinquill;
-lft x2 = pcshiftx; bot y2 = 0;
-x21 = x2 + n2; y21 = y2;
-y22 = y21+n2; z22 = whatever[z2,z1];
-pickup quill;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z3; draw (x1-n1,y1)--(x1,y1); draw (x3,y3)--(x3+n1,y3); %% right leg
-pickup thinquill;
-draw z1--z2; %% left leg
-filldraw z2--z21{left}..{z1-z2}z22--cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,11,12,13,14,15,100);
-endchar; % end "A"
-
-cmchar "SQRC letter B";
-beginchar("B", 2sb#+caprat*hstretch*(14/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-path pth[];
-pcshiftx := sb;
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-%% stem
-lft x1 = pcshiftx + n1; top y1 = h;
-x2 = x1; bot y2 = 0;
-z12 = 1/2[z1,z2];
-%% bottom bowl
-lft x21 = pcshiftx; bot y21 = 0;
-z22=z2;
-lft x27 = rt x12; y27 = y12;
-rt x25 = w-pcshiftx; y25 = 1/2[y22,y27];
-pth1 := z21--z22{right}..z25{up}..{left}z27;
-%% top bowl
-z32 = z27; z37 = z1;
-x38 = x21; y38 = y37;
-rt x35 = x25; y35 = 1/2[y32,y37];
-pth2 := z38--z37{right}..z35{down}..{left}z27;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2;
-draw pth1; draw pth2;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,100);
-endchar; % end "B"
-
-cmchar "SQRC letter C";
-beginchar("C", 2sb#+caprat*hstretch*(14/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-pcshiftx := sb;
-pickup quill;
-n1:=w-2pcshiftx; % actual letter width
-n2:=6/5w-2pcshiftx; % width of full bowl
-x1=pcshiftx + 1/2n1; top y1 = h;
-lft x2 = pcshiftx; y2 = 1/2h;
-x3 = x1; bot y3 = 0;
-rt x4 = w-pcshiftx; y4 = 1/4h;
-x24 = x4; y24 = 3/4h;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z24..z1{left}..z2{down}..z3{right}..z4{3pdir};
-ductus:=false;
-penlabels(1,2,3,4,5,6,14,16,17,18,100);
-endchar; % end "C"
-
-cmchar "SQRC letter D";
-beginchar("D", 2sb#+caprat*hstretch*(14/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-path pth[];
-pcshiftx := sb;
-pickup quill;
-x100 = 0; n1 := rt x100 - lft x100;
-%% stem
-lft x1 = pcshiftx+sqrcjut; top y1=h;
-x2 = x1; bot y2 = 0;
-%% bowl
-lft x3 = pcshiftx; y3 = y1;
-z7 = (x3,y2);
-rt x5 = w-pcshiftx; y5 = 1/2[y3,y7];
-pth1 := z3--z1{right}..{down}z5..{left}z2--z7;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2; %% stem
-draw pth1;
-ductus:=false;
-penlabels(0,1,2,3,4,5,6,7,8,100);
-endchar; % end "D"
-
-cmchar "SQRC letter E";
-beginchar("E", sb#+caprat*hstretch*(9/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-path pth[];
-pickup quill;
-x100 = 0;
-n1 = rt x100 - lft x100;
-%% stem
-lft x1 = pcshiftx+sqrcjut; top y1 = h;
-x2 = x1; bot y2=0;
-%% bars
-lft x3 = pcshiftx; y3 = y1; rt x4 = w-pcshiftx; y4=y3;
-x5=x1; y5 = 6/16[y1,y2]; x6 = x4; y6 = y5;
-x7 = x3; y7 = y2; x8 = x4; y8=y7;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2; % stem
-draw z3--z4; draw z5--z6; draw z7--z8;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,17,70,100);
-endchar; % end "E"
-
-cmchar "SQRC letter F";
-beginchar("F", 2sb#+caprat*hstretch*(9/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-pcshiftx := sb;
-pickup quill;
-x100 = 0;
-n1 := rt x100 - lft x100;
-%% stem
-lft x1=lft x2=pcshiftx+sqrcjut; bot y1=h; bot y2=0;
-%% bars
-lft x3 = pcshiftx; y3 = y1; rt x4 = w-pcshiftx; y4 = y3;
-x5=x1; y5 = 6/16[y1,y2]; x6 = x4; y6 = y5;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2;
-draw z3--z4; draw z5--z6;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,14,15,16,100);
-endchar; % end "F"
-
-cmchar "SQRC letter G";
-beginchar("G", 2sb#+caprat*hstretch*(14/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-path pth[];
-pair vec[];
-numeric n[];
-pcshiftx := sb;
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-%% bar
-rt x52 = w - pcshiftx; y52 = 1/2h;
-x51 = x52 - 2n1; y51 = y52;
-z512 = 1/2[z51,z52];
-x54=x512; bot y54 = 0;
-%% bowl
-lft x2 = pcshiftx; y2 = 1/2h;
-x4 = x512; y4 = 1/4h;
-x3 = x1 = 1/2[x2,x4]; bot y3 = 0; top y1 = h;
-x24 = x512; y24 = 3/4h;
-pth1 := z24..z1{left}..z2{down}..z3{right}..z4;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1;
-%%draw z4--z512; draw z51--z52;
-draw z512--z54; draw (x512-n1,y512)--(x512,y512);
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,11,12,13,24,31,32,33,34,35,36,51,52,512,100);
-endchar; % end "G"
-
-cmchar "SQRC letter H";
-beginchar("H", 2sb#+caprat*hstretch*(14/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-pickup quill;
-numeric n[];
-x100 = 0;
-n1 := sqrcjut;
-%% stems
-lft x1=lft x2=pcshiftx+sqrcjut;
-top y1=h; bot y2=0;
-rt x3 = w - pcshiftx - sqrcjut; x4 = x3; y3 = y1; y4 = y2;
-%% bar
-z12 = 7/16[z1,z2]; z34 = 7/16[z3,z4];
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2; draw z3--z4; draw z12--z34;
-%% serifs
-draw (x1-n1,y1)--(x1,y1); draw (x2,y2)--(x2+n1,y2);
-draw (x3-n1,y3)--(x3,y3); draw (x4,y4)--(x4+n1,y4);
-ductus:=false;
-penlabels(1,2,3,4,5,6,100);
-endchar; % end "H"
-
-cmchar "SQRC letter I";
-beginchar("I", 2sb#+caprat*hstretch*(thick#+2sqrcjut#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-pickup quill;
-x100 = 0;
-n1 := rt x100 - lft x100;
-x1 = x2 = 1/2w;
-top y1=h; bot y2=0;
-%% serifs
-lft x111 = pcshiftx; rt x112 = w-pcshiftx;
-x211 = x111; x212 = x112;
-draw z1--z2;
-%% serifs
-draw (x111,y1)--(x112,y1);
-draw (x211,y2)--(x212,y2);
-ductus:=false;
-penlabels(1,2,100);
-endchar; % end "I"
-
-cmchar "SQRC letter J";
-beginchar("J", 2sb#+caprat*hstretch*(2thick#+sqrcjut#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-path pth[];
-numeric n[];
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-%% stem
-rt x1 = w-pcshiftx; top y1 = h;
-x2 = x1; y2 = 1/4h;
-%% hook
-lft x4 = pcshiftx; bot y4 = 0;
-pth1 := z4{pdir}..z2{up};
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2{down}..{-pdir}z4; % stem & hook
-draw (x1-n1,y1)--z1;
-ductus:=false;
-penlabels(1,2,3,100);
-endchar; % end "J"
-
-cmchar "SQRC letter K";
-beginchar("K", 2sb#+caprat*hstretch*(16/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-path pth[];
-numeric n[];
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-%% stem
-lft x1 = pcshiftx+n1; top y1 = h;
-x2 = x1; bot y2 = 0;
-z12 = 1/2[z1,z2];
-%% top arm
-x3 = rt x12; y3 = y12;
-x5 = 1/2[w - pcshiftx, x1]; y5 = y1;
-%%pth1 := z3{pdir}..{up}z5;
-pth1 := z3--z5;
-%% lower arm
-z7 = z3;
-rt x9 = w-pcshiftx; bot y9 = 0;
-pth2 := z7{-ppdir}..{right}z9;
-pickup quill;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2; draw pth1; draw pth2;
-draw (x1-n1,y1)--(x1,y1);
-draw (x2-n1,y2)--(x2+n1,y2);
-draw (x5,y5)--(x5+n1,y5);
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,13,14,100);
-endchar; % end "K"
-
-cmchar "SQRC letter L";
-beginchar("L", 2sb#+caprat*hstretch*(9/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-lft x1=pcshiftx+n1; bot y1=h;
-x2=x1; bot y2 =0;
-x3 = x2; rt x4 = w-pcshiftx; y3 = y4 = y2;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2; draw z3--z4;
-draw (x1-n1,y1)--(x1,y1);
-ductus:=false;
-penlabels(1,2,3,4,100);
-endchar; % end "L"
-
-cmchar "SQRC letter M";
-beginchar("M", 2sb#+caprat*hstretch*(19/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-path pth[];
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-n2 := sqrcjutrat*sqrcjut;
-%% thick stem tops
-lft x1=pcshiftx+n1; top y1=h;
-rt x3 = w - pcshiftx -2n1; y3 = y1;
-%% right stem bottom
-rt x4 = w - pcshiftx - n1; bot y4 = 0;
-%% the V
-x24 = 1/2w; bot y24 = 0;
-%% left stem top and bottom
-x81 = lft x1; y81 = top y1;
-pickup thinquill;
-lft x11 = x81; top y11 = y81;
-lft x2 = pcshiftx; bot y2 = 0;
-x2a = x2+n2; y2a = y2;
-y2b = y2+n2; z2b = whatever[z2,z11];
-pickup quill;
-%% thin middle top and bottom
-x83 = lft x3; y83 = top y3;
-x824 = rt x24; y824 = bot y24;
-pickup thinquill;
-lft x13 = x83; top y13 = y83;
-rt x124 = x824; bot y124 = y824;
-pickup quill;
-pth124 := z1{-ppdir}..z24;
-pth34 := z3{down}..z4;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-%% thick legs
-draw pth124; draw pth34;
-draw (x1-n1,y1)--(x1,y1); draw (x3-n1,y3)--(x3,y3); draw (x4,y4)--(x4+n1,y4);
-%% thin legs
-pickup thinquill;
-draw z11--z2;
-filldraw z2--z2a{left}..{z11-z2}z2b--cycle;
-%%%%pickup quarterquill;
- draw z13--z124;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,13,14,33,34,100);
-endchar; % end "M"
-
-cmchar "SQRC letter N";
-beginchar("N", 2sb#+caprat*hstretch*(14/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-path pth[];
-numeric n[];
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-n2 := sqrcjutrat*sqrcjut;
-%% diagonal
-lft x1=pcshiftx+n1; top y1=h;
-rt x4 = w -pcshiftx-n1; bot y4 = 0;
-x101 = lft x1;
-x104 = rt x4;
-pth1 := z1{-ppdir}..z4;
-%% stems
-pickup thinquill;
-lft x21 = x101; top y21 =h;
-x22 = x21; bot y22 = 0;
-x22a = x22+n2; y22a=y22;
-x22b = x22; y22b=y22+n2;
-rt x24 = x104; bot y24 = 0;
-x23 = x24; top y23 = h;
-x23a = x23-n2; x23b = x23+n1; y23a = y23b = y23;
-x23c = x23; y23c = y23-n2;
-pickup quill;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-%% diagonal
-draw pth1; draw (x1-n1,y1)--(x1,y1);
-%% stems
-pickup thinquill;
-draw z21--z22;
-filldraw z22--z22a{left}..{up}z22b--cycle;
-draw z23--z24;
-filldraw z23--z23a{right}..{down}z23c{up}..{right}z23b--cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,6,13,14,23,23a,23b,23c,100);
-endchar; % end "N"
-
-cmchar "SQRC letter O";
-beginchar("O", 2sb#+caprat*hstretch*(17/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-pickup quill;
-lft x1=pcshiftx; rt x3=w-pcshiftx; y1=y3=h/2;
-x2=x4=w/2; top y2=h+o; bot y4=-o;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1..z2..z3..z4..cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,100);
-endchar; % end "O"
-
-cmchar "SQRC letter P";
-beginchar("P", 2sb#+caprat*hstretch*(13/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-path pth[];
-numeric n[];
-pickup quill;
-x100 = 0;
-n1:= sqrcjut;
-%% stem
-lft x1=lft x2=pcshiftx+n1;
-top y1=h; bot y2=0;
-z12 = 1/2[z1,z2];
-%% bowl
-lft x3 = pcshiftx; y3 = y1;
-x7 = x12; top y7 = y12;
-rt x5 = w-pcshiftx; y5 = 1/2[y3,y7];
-pth1 := z3--z1{right}..z5{down}..{left}z7;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2; draw pth1;
-%%draw (x2-n1,y2)--(x2+n1,y2);
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,100);
-endchar; % end "P"
-
-cmchar "SQRC letter Q";
-beginchar("Q", 2sb#+caprat*hstretch*(17/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-path pth[];
-pickup quill;
-%% bowl
-lft x1=pcshiftx; rt x3=w-pcshiftx; y1=y3=h/2;
-x2=x4=w/2; top y2=h+o; bot y4=-o;
-pth1 := z1..z4..z3..z2..cycle;
-%% tail
-n1 := rt x1 - lft x1;
-pth2 := z1..z2..z3..z4;
-z5 = directionpoint pdir of pth1;
-x7 = x3 + 2n1; top y7 = -n1;
-pth3 := z5{-ppdir}..{pdir}z7;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1;
-draw pth3;
-ductus:=false;
-penlabels(0,1,2,3,4,5,6,7,8,100);
-endchar; % end "Q"
-
-cmchar "SQRC letter R";
-beginchar("R", 2sb#+caprat*hstretch*(15/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-path pth[];
-pickup quill;
-x100 = 0;
-n1:= sqrcjut;
-n3 := sqrcjutrat*sqrcjut;
-n2 := 11/15; %% P/R width ratio
-%% stem
-pickup thinquill;
-lft x1=lft x2=pcshiftx+n1;
-top y1=h; bot y2=0;
-x2a = x2 + n3; y2a = y2;
-x2b = x2; y2b = y2+n3;
-z12 = 1/2[z1,z2];
-pickup quill;
-%% bowl
-lft x3 = pcshiftx; top y3 = h; x13 = x1; y13 = y3;
-lft x7 = x12; top y7 = y12;
-rt x5 = w*n2 - pcshiftx; y5 = 1/2[y3,y7];
-pth1 := z3--z13{right}..z5{down}..{left}z7;
-%% leg
-z21 = z7;
-rt x23 = w-pcshiftx; bot y23 = 0;
-pth2 := z21{-ppdir}..{right}z23;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1; draw pth2;
-pickup thinquill;
-draw z1--z2;
-filldraw z2--z2a{left}..{up}z2b--cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,100);
-endchar; % end "R"
-
-cmchar "SQRC letter S";
-beginchar("S", 2sb#+caprat*hstretch*(15/18x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-path pth[];
-pcshiftx := sb;
-pickup quill;
-x100 = 0;
-n1 := rt x100 - lft x100;
-x1 = x3 = x5 = 1/2w;
-top y1 = h; bot y5 = 0; y3 = 1/2[y1,y5];
-lft x2 = pcshiftx; rt x4 = w-pcshiftx;
-y2 = 1/2[y1,y3]; y4 = 1/2[y3,y5];
-rt x101 = w-pcshiftx; top y101 = y1;
-lft x102 = pcshiftx; bot y102 = y5;
-pth1 := z101..z1..z2..z3..z4..z5..z102;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,11,17,20,26,27,28,100);
-endchar; % end "S"
-
-cmchar "SQRC letter T";
-beginchar("T", 2sb#+caprat*hstretch*(10/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-path pth[];
-pickup quill;
-%% bar
-lft x1 = pcshiftx; rt x2=w-pcshiftx;
-top y1 = top y2 = h;
-pth1 := z1{pdir}..{pdir}z2;
-%% stem
-z3 = 1/2[z1,z2];
-x4 = x3; bot y4 = 0;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1; % bar
-draw z3--z4; % stem
-ductus:=false;
-penlabels(1,2,3,4,5,6,11,12,100);
-endchar; % end "T"
-
-cmchar "SQRC letter U";
-beginchar("U", 2sb#+caprat*hstretch*(15/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-path pth[];
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-%% left stem
-lft x1 = pcshiftx + n1; top y1 = h;
-lft x13=pcshiftx; y13=1/3h;
-rt x3=w-pcshiftx-n1; y3=y1;
-x4=x3; bot y4=0;
-z33=1/4[z4,z3]; % start of bowl
-x14=1/3[x1,x3]; bot y14=0;
-pth1 := z1..z13{down}..z14{right}..{pdir}z33;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1;
-draw (x1-n1,y1)--(x1,y1);
-draw z3--z4;
-draw (x3-n1,y3)--(x3,y3);
-draw (x4,y4)--(x4+n1,y4);
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,11,13,14,16,33,100);
-endchar; % end "U"
-
-cmchar "SQRC letter V";
-beginchar("V", 2sb#+caprat*hstretch*(13/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-path pth[];
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-n2 := sqrcjutrat*sqrcjut;
-%% stem tops
-lft x1 = pcshiftx + n1; top y1 = h;
-pickup thinquill;
-rt x3 = w - pcshiftx; top y3 = h;
-x3a = x3-n2; y3a=y3;
-x3b = x3; y3b = y3-n2;
-pickup quill;
-%% bottom
-x13 = 10/16[x1,x3]; bot y13 = 0;
-x83 = rt x13; y83 = top y13;
-pth1 := z1{down}..z13;
-pth2 := z3{down}..z83;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1;
-draw (x1-n1,y1)--(x1,y1);
-
-pickup thinquill;
-draw pth2;
-filldraw z3--z3a{right}..{down}z3b--cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,11,13,14,23,26,100);
-endchar; % end "V"
-
-cmchar "SQRC letter W";
-beginchar("W", 2sb#+caprat*hstretch*(22/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-numeric n[];
-path pth[];
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-n2 := sqrcjutrat*sqrcjut;
-%% thick leg tops
-lft x1 = pcshiftx + n1; top y1 = h;
-x3 = 1/2w; y3 = y1;
-%% thin leg top
-pickup thinquill;
-rt x5 = w-pcshiftx; top y5 = h;
-x5a = x5-n2; y5a = y5;
-x5b = x5; y5b = y5-n2;
-pickup quill;
-%% V bottoms
-x13 = 1/2[x1,x3]; bot y13 = 0;
-x35 = 1/2[x3,x5]; bot y35 = 0;
-pth113 := z1{down}..z13;
-pth335 := z3{down}..z35;
-x83 = x3; y83 = top y3;
-x813 = rt x13; y813 = bot y13;
-x835 = rt x35; y835 = bot y35;
-%% thin legs
-pickup thinquill;
-rt x113 = x813; bot y113 = y813;
-rt x135 = x835; bot y135 = y835;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-pickup quill;
-draw pth113; draw pth335; draw (x1-n1,y1)--(x1,y1);
-pickup thinquill;
-draw z113..{up}z3; draw z135..{up}z5;
-filldraw z5--z5a{right}..{down}z5b--cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,11,13,14,33,34,53,16,100);
-endchar; % end "W"
-
-cmchar "SQRC letter X";
-beginchar("X", 2sb#+caprat*hstretch*(17/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-path pth[];
-numeric n[];
-pcshiftx := sb;
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-n2 := sqrcjutrat*sqrcjut;
-%% diag top left to bottom right
-lft x1=pcshiftx+n1; top y1 = h;
-rt x2 = w - pcshiftx - n1; bot y2 = 0;
-%% diag top right to bottom left
-pickup thinquill;
-rt x3 = w - pcshiftx - n1; top y3 = h;
-lft x4 = pcshiftx; bot y4 = 0;
-x3a = x3-n2; x3b = x3+n1; y3a = y3b = y3;
-y3c = y3-n2; z3c = whatever[z3,z4];
-x4a = x4+n2; y4a = y4;
-y4b = y4+n2; z4b = whatever[z4,z3];
-pickup quill;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2;
-draw (x1-n1,y1)--(x1,y1);
-draw (x2,y2)--(x2+n1,y2);
-pickup thinquill;
-draw z3--z4;
-filldraw z3--z3a{right}..{z4-z3}z3c{z3-z4}..{right}z3b--cycle;
-filldraw z4--z4a{left}..{z3-z4}z4b--cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,10,25,251,252,40,50,150,60,160,100);
-endchar; % end "X"
-
-cmchar "SQRC letter Y";
-beginchar("Y", 2sb#+caprat*hstretch*(13/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := sb;
-path pth[];
-numeric n[];
-pickup quill;
-x100 = 0;
-n1 := sqrcjut;
-n2 := sqrcjutrat*sqrcjut;
-%% upright
-x5 = 1/2w; y5 = 1/2h;
-x6 = x5; bot y6 = 0;
-%% left stem top
-lft x1 = pcshiftx + n1; top y1 = h;
-%% right stem
-x85 = rt x5; y85 = top y5;
-pickup thinquill;
-rt x3=w-pcshiftx; top y3 = h;
-x4=x85; y4 = y85;
-x3a=x3-n2; y3a = y3;
-y3b = y3-n2; z3b = whatever[z3,z4];
-pickup quill;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z5--z6; draw (x6-n1,y6)--(x6+n1,y6); % stem
-draw z1--z5; draw (x1-n1,y1)--(x1,y1); % left arm
-pickup thinquill;
-draw z3--z4;
-filldraw z3--z3a{right}..{z4-z3}z3b--cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,10,100);
-endchar; % end "Y"
-
-cmchar "SQRC letter Z";
-beginchar("Z", 2sb#+caprat*hstretch*(13/13x_height#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-n1 := sqrcjutrat*sqrcjut;
-path pth[];
-pcshiftx := sb;
-pickup quill;
-%% top bar ends
-lft x1 = pcshiftx; rt x2 = w -pcshiftx; top y1 = top y2 = h;
-x101 = lft x1; y101 = top y1;
-%% bottom bar ends
-lft x3 = pcshiftx; rt x4 = w -pcshiftx; bot y3 = bot y4 = 0;
-x104 = rt x4; y104 = bot y4;
-pickup stylus;
-lft x11 = x101; top y11 = y101;
-x12 = x11; y12 = y11-n1;
-x13 = x11+n1; y13 = y11;
-rt x14 = x104; bot y14 = y104;
-x15 = x14; y15 = y14 + n1;
-x16 = x14 - n1; y16 = y14;
-pickup quill;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw z1--z2; draw z3--z4;
-draw z2--z3;
-pickup stylus;
-filldraw z11--z12{up}..{right}z13--cycle;
-filldraw z14--z15{down}..{left}z16--cycle;
-ductus:=false;
-penlabels(1,2,3,4,5,6,10o,10i,14,14,16,20o,20i,100);
-endchar; % end "Z"
-