diff options
| author | Karl Berry <karl@freefriends.org> | 2011-04-08 16:43:45 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2011-04-08 16:43:45 +0000 |
| commit | 9631a619eb83ca16233a8c5a5d22b2549de79f6d (patch) | |
| tree | b0c7a8f2567433f0a39084446ebcd214fd89d4c5 /Master/texmf-dist/fonts/source | |
| parent | 07f021d3cb17d27409f0a57a18e06f7ceb4fba39 (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')
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" - |