summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/bookhands/tgothu.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/bookhands/tgothu.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/tgothu.mf1234
1 files changed, 0 insertions, 1234 deletions
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/tgothu.mf b/Master/texmf-dist/fonts/source/public/bookhands/tgothu.mf
deleted file mode 100644
index 3b86c999073..00000000000
--- a/Master/texmf-dist/fonts/source/public/bookhands/tgothu.mf
+++ /dev/null
@@ -1,1234 +0,0 @@
-%%
-%% This is file `tgothu.mf',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% tgothic.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 "TGOTH letter A";
-beginchar("A", 2cap_sb#+hstretch*((7)*stem_width#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := cap_sb;
-numeric n[];
-numeric st; st := stem_width;
-path pth[];
-pair pr[];
-pickup quill;
-%% stem
-rt x1 = w - pcshiftx - wided*st; y1 = h;
-x2 = x1; y2 = 0;
-z12 = 1/2[z1,z2];
-draw_upcurlstem(1,12);
-draw_downdiamondstem(12,2,wided,widedmin,diawd,diang);
-%% leg
-x21 = x1; top y21 = h;
-lft x22 = pcshiftx + widedmin*st; bot y22 = 0;
-draw z21--z22;
-draw (x22-widedmin*st, y22)--(x22+wided*st, y22);
-%% bar
-z13 = z12;
-y16 = y13; z16 = whatever[z21,z22];
-x14 = 1/2[x13,x16]; (z13-z14) = whatever*pdir;
-pickup threequarterquill;
-draw z13--z14;
-draw z14{ppdir}..{left}z16;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,11,12,13,14,15,100);
-endchar; % end "A"
-
-cmchar "TGOTH letter B";
-beginchar("B", 2cap_sb#+hstretch*((7)*stem_width#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-numeric st; st := stem_width;
-path pth[];
-pcshiftx := cap_sb;
-pickup quill;
-%% stem
-lft x1 = pcshiftx; bot y1 = 0;
-n1 := top y1;
-lft x99 = 2/5w; bot y99 = 12/16h;
-rt x12 = lft x99; top y12 = bot y99;
-x14 = x1; y14 = y12;
-x13 = 1/2[x14,x12]; y13 = 1/2[y12,(h-n1/2)];
-pth1 := z1{pdir}..z12..{left}z13..{-pdir}z14;
-%% stem decoration
-z101=z99;
-z181 = (x99,-h);
-z102 = (x101,y1);
-z112 = 1/2[z101,z102];
-lft x8 = x112; y8 = y112;
-%% lower bowl
-x113 = w-pcshiftx;
-(z113-z112) = whatever*(pdir);
-rt x5 = w-pcshiftx; y5 = 6/16y113;
-x3 = 10/16[x1,x5]; y3 = y1;
-z7 = 2/16[z8,z113];
-pth2 := z1{pdir}..{right}z3..{up}z5..{-pdir}z7--z8;
-
-%% upper bowl
-x10 = 1/2[x7,x5]; y10 = 1/2[y12,y99];
-x19 = 1/2[x99,x10]; top y19 = h;
-pth3 := z8--z7{pdir}..{up}z10..{left}z19..{-pdir}z99;
-%% angled decoration
-
-z105 = 1/4[z102,z112];
-x185 = 2w;
-(z185-z105) = whatever*(pdir);
-z106 = (z105--z185) intersectionpoint pth2;
-
-z107 = 1/4[z112,z101];
-x187 = 2w;
-(z187-z107) = whatever*(pdir);
-z108 = (z107--z187) intersectionpoint pth3;
-
-if ductus:
- pickup stylus;
-fi
-draw pth1;
-draw pth2;
-draw pth3;
-pickup stylus;
-draw z101--z102;
-draw z105--z106; draw z107--z108;
-
-ductus:=false;
-penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,19,99,100);
-endchar; % end "B"
-
-cmchar "TGOTH letter C";
-beginchar("C", 2cap_sb#+hstretch*((5)*stem_width#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-numeric st; st := stem_width;
-path pth[];
-pcshiftx := cap_sb;
-pickup quill;
-%% bowl
-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;
-pth1 := z24..z1{left}..z2{down}..z3{right}..z4{pdir};
-%% decoration
-z101 = (x1,y1); z102 = (x1,y3);
-z103 = (x1+perpdec, y1); z104 = (x103,y102+thin);
-z105 = 1/2[z101,z102]; z107 = (x105,y105+angdec);
-x185 = -w; (z105-z185) = whatever*(pdir);
-z106 = (z105--z185) intersectionpoint pth1;
-x187 = -w; (z107-z187) = whatever*(pdir);
-z108 = (z107--z187) intersectionpoint pth1;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1; %% bowl
-pickup stylus;
-draw z101--z102; draw z103--z104;
-draw z105--z106; draw z107--z108;
-ductus:=false;
-penlabels(1,2,3,4,5,6,14,16,17,18,100,101,102,103,104,105,106,107,108,185);
-endchar; % end "C"
-
-cmchar "TGOTH letter D";
-beginchar("D", 2cap_sb#+hstretch*((7)*stem_width#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-numeric st; st := stem_width;
-path pth[];
-pcshiftx := cap_sb;
-pickup quill;
-%% bowl
-lft x1 = pcshiftx; bot y1 = 0;
-rt x5 = w-pcshiftx; y5 = 1/2h;
-x3 = 10/16[x1,x5]; y3 = y1;
-x7 = x3; top y7 = h;
-lft x9 = 2/5w; bot y9 = 12/16h;
-pth1 := z1{pdir}..{right}z3..{up}z5..{left}z7..{-pdir}z9;
-%% stem
-rt x12 = lft x9; top y12 = bot y9;
-x14 = x1; y14 = y12;
-x13 = 1/2[x14,x12]; y13 = 1/2[y12,y7];
-pth2 := z1{pdir}..z12..{left}z13..{-pdir}z14;
-%% vertical decoration
-z101=z9;
-z181 = (x9,-h);
-z102 = ((x101,h/2)--z181) intersectionpoint pth1;
-z103a=(x101+perpdec,h); z103b=(x103a,h/2); z103c=(x103a,-h);
-z103 = (z103a--z103b) intersectionpoint pth1;
-z104 = (z103b--z103c) intersectionpoint pth1;
-%% angled decoration
-z106 = (lft x5, y5);
-x105 = x103; (z106-z105) = whatever*(pdir);
-z107 = (x105, y105+angdec);
-x108a = 2w; (z108a-z107) = whatever*(pdir);
-z108 = (z108a--z107) intersectionpoint pth1;
-if ductus:
- pickup stylus;
-fi
-draw pth1;
-draw pth2;
-pickup stylus;
-draw z101--z102; draw z103--z104;
-draw z105--z106; draw z107--z108;
-ductus:=false;
-penlabels(0,1,2,3,4,5,6,7,8,9,11,12,13,14,15,16,100);
-endchar; % end "D"
-
-cmchar "TGOTH letter E";
-beginchar("E", 2cap_sb#+hstretch*((6)*stem_width#), %% (5) too small
- caprat*x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-numeric st; st := stem_width;
-path pth[];
-pcshiftx := cap_sb;
-pickup quill;
-%% bowl
-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;
-pth1 := z24..z1{left}..z2{down}..z3{right}..z4{pdir};
-%% decoration
-z101 = (x1,y1); z102 = (x1,y3);
-z103 = (x1+perpdec, y1); z104 = (x103,y102+thin);
-z105 = 1/2[z101,z102]; z107 = (x105,y105+angdec);
-x185 = -w; (z105-z185) = whatever*(pdir);
-z106 = (z105--z185) intersectionpoint pth1;
-x187 = -w; (z107-z187) = whatever*(pdir);
-z108 = (z107--z187) intersectionpoint pth1;
-%% bar
-lft x31 = x103; top y31 = y105;
-rt x32 = w-pcshiftx; y32=y31;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1; %% bowl
-draw z31--z32; %% bar
-pickup stylus;
-draw z101--z102; draw z103--z104;
-draw z105--z106; draw z107--z108;
-ductus:=false;
-penlabels(1,2,3,4,5,6,14,16,17,18,100,105,185,106);
-endchar; % end "E"
-
-cmchar "TGOTH letter F";
-beginchar("F", 2cap_sb#+hstretch*((5)*stem_width#),
- 5/4caprat*x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-numeric st; st := stem_width;
-path pth[];
-pcshiftx := cap_sb;
-pickup quill;
-%% stem (1--2) and top bar (21--22)
-lft x1=lft x2=pcshiftx+widedmin*st; y2 = 0;
-top y21 = top y22 = h - (top y2 - bot y2); x22 = w-pcshiftx-st;
-lft x21 = rt x1; top y1 = bot y21;
-z12 = 1/3[z1,z2];
-draw_downdiamondstem(12,2,wided,widedmin,diawd,diang);
-draw z1--z12;
-draw z21--z22;
-%% vertical decoration
-z102 = 2/3[z2b,z2c];
-x101 = x102; y101 = y21;
-%% bar
-lft x14 = x101; y14 = y12;
-rt x16 = w-pcshiftx; y16 = y14;
-draw z14--z16;
-z16tr = (rt x16, top y16);
-pickup stylus;
-draw z101--z102;
-%% Other decoration
-%% bottom bar
-rt x201 = x16tr; top y201 = y16tr;
-y202 = y201 - 2st; (z201-z202) = whatever*pdir;
-draw z201--z202;
-%% top bar
-pickup quill;
-z22tb = (rt x22, top y22);
-x22bb - x22 = x22 - x22tb; y22bb - y22 = y22 - y22tb;
-x22c = x22 + st; bot y22c = top y22 + 1/2st;
-x22f = x22; y22f = 1/3[y22c, y22];
-pickup stylus;
-x22br = x22bb; bot y22br = y22bb;
-pth3 := z22br--z22tb..{up}z22c..{-ppdir}z22f;
-draw pth3;
-
-penlabels(1,2,3,4,5,6,7,14,15,16,21,22,100);
-endchar; % end "F"
-
-cmchar "TGOTH letter G";
-beginchar("G", 2cap_sb#+hstretch*((7)*stem_width#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := cap_sb;
-numeric n[];
-numeric st; st := stem_width;
-path pth[];
-pickup quill;
-%% bar
-top y3=h; n3 := h - top y3;
-lft x1 = pcshiftx; rt x2=w-pcshiftx;
-y1 = y3-n3; y2=y3;
-x3=1/2[x1,x2];
-pth1 := z1{pdir}..z3..z2{pdir};
-%% bowl
-n1 := w; % width of bowl
-n2 := h; % height of bowl
-lft x4 = pcshiftx; y4 = 1/2h;
-x5=x3; bot y5 = 0;
-rt x6 = w-pcshiftx; y6 = 6/16h;
-%% decoration
-x101 = lft x3; y101=y3;
-x181 = x101; y181=-h/4; z191 = 1/2[z101,z181];
-z102=(x101,y5);
-z103 = (x101+3thin, y101); z104 = (x103,y102);
-lft x7 = x104; y7 = 10/16[y104,y103];
-%%pth2 := z3..z4{down}..z5{right}..z6{up}..{-pdir}z7;
-%%pth2 := z2{-pdir}..z3..z4{down}..z5{right}..z6{up}..{-pdir}z7;
-pth2 := z2--z3..z4{down}..z5{right}..z6{up}..{-pdir}z7;
-z105 = (x104,y104+4thin); z107=(x105,y105+3thin);
-x185 = 2w; (z185-z105) = whatever*(pdir);
-z106 = (z105--z185) intersectionpoint pth2;
-z108 = (x106,y106+3thin);
-%% fork
-z2tr = (rt x2, top y2);
-x2a = x2tr; y2a = y2tr + thin;
-x2b = x2a; y2b - y2 = y2 - y2a;
-x2d = x2 - thick; y2d = y2;
-pickup stylus;
-x2c = x2d = x2e;
-top y2e = y2tr; y2c - y2d = y2d - y2e;
-%%filldraw z2d--z2c{right}..z2b--cycle;
-%%filldraw z2d--z2a..{left}z2e--cycle;
-filldraw z2e--z2c{right}..z2b--cycle;
-filldraw z2c--z2a..{left}z2e--cycle;
-pth9 := (rt x2a,y2a)--(rt x2b,y2b)--(rt x2d,y2d)--cycle;
-unfill pth9;
-unfill pth9;
-unfill pth9;
-draw z101--z102; draw z103--z104;
-draw z105--z106; draw z107--z108;
-pickup quill;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-%%draw pth1; %% bar
-draw pth2; %% bowl
-ductus:=false;
-penlabels(1,2,2a,2b,2c,2d,2e,3,4,5,6,11,12,100,101,102,103,104,181,191);
-endchar; % end "G"
-
-cmchar "TGOTH letter H";
-beginchar("H", 2cap_sb#+hstretch*((8)*stem_width#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := cap_sb;
-numeric st; st := stem_width;
-numeric n[];
-path pth[];
-pickup quill;
-%% left stem
-lft x1=pcshiftx+3st; y1=h;
-x2=x1; y2=0;
-z12 = 1/2[z1,z2];
-draw_upcurlstem(1,12);
-draw_downdiamondstem(12,2,wided,widedmin,diawd,diang);
-n1 := 12/16h; %% take this as the top of the bowl
-x13=x1; y13=3/4n1;
-rt x3 = w-pcshiftx; y3 = 8/16n1;
-x14 = 8/16[x13,x3]; top y14 = n1;
-x4 = 1/2[x14,x3]; bot y4=0;
-pth1 := z13{pdir}..{right}z14..{down}z3..{-pdir}z4;
-%% bottom curl
-z21 = z4;
-x24 = x3; top y24 = 0;
-x23 = 1/2[x21,x24]; top y23 = bot y24;
-pth2 := z21{-pdir}..z23..{ppdir}z24;
-%% vertical decoration
-z102 = 2/3[z2b,z2c];
-z182 = (x102,h);
-z101 = (z102--z182) intersectionpoint pth1;
-z105 = 1/2[z102,z101];
-x185 = 2w;
-(z185-z105) = whatever*(pdir);
-z106 = (z105--z185) intersectionpoint pth1;
-z107 = (x105, y105-angdec); z187 = (x185, y185-angdec);
-z108 = (z107--z187) intersectionpoint pth1;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1;
-pickup stylus;
-draw pth2;
-draw z101--z102;
-draw z105--z106; draw z107--z108;
-ductus:=false;
-penlabels(1,2,3,4,5,6,13,14,100);
-endchar; % end "H"
-
-cmchar "TGOTH letter I";
-beginchar("I", 2cap_sb#+hstretch*((4+wided)*stem_width#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := cap_sb;
-numeric st; st := stem_width;
-pickup quill;
-lft x1=lft x2=pcshiftx+3st;
-y1=h; y2=0;
-z12 = 1/2[z1,z2];
-draw_upcurlstem(1,12);
-draw_downdiamondstem(12,2,wided, widedmin,diawd,diang);
-%% vertical decoration
-z102 = 2/3[z2b,z2c];
-pickup stylus;
-x101=x102; top y101 = h;
-draw z101--z102;
-ductus:=false;
-penlabels(1,2,101,102,100);
-endchar; % end "I"
-
-cmchar "TGOTH letter J";
-beginchar("J", cap_sb#+hstretch*((4+wided)*stem_width#),
- caprat*x_height#, 1/2caprat*x_height#);
-adjust_fit(0,0);
-pcshiftx := cap_sb;
-numeric n[];
-numeric st; st := stem_width;
-pickup quill;
-%% stem
-lft x1 = pcshiftx+3st; y1 = h;
-x2=x1; y2=-d + (top y1 - bot y1);
-%% bottom hook
-lft x3 = pcshiftx; bot y3 = -d;
-draw_upcurlstem(1,2);
-draw z2{ppdir}..{-pdir}z3;
-%% vertical decoration
-x201 = rt x1;
-x101 = x201 + 2/3wided*st;
-pickup stylus;
-top y101 = h; y201=y101;
-z102=(x101,0);
-draw z201--z101--z102;
-ductus:=false;
-penlabels(1,2,3,101,102,100);
-endchar; % end "J"
-
-cmchar "TGOTH letter K";
-beginchar("K", 2cap_sb#+hstretch*((8+wided)*stem_width#),
- 5/4caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := cap_sb;
-path pth[];
-numeric n[];
-numeric st; st := stem_width;
-pickup quill;
-%% stem
-n1 = 4/5h; % x-height
-lft x1=lft x2=pcshiftx+3st;
-y1=h; y2=0;
-z12 = 1/2[z1,z2];
-draw_upcurlstem(1,12);
-draw_downdiamondstem(12,2,wided,widedmin,diawd,diang);
-%% top arm
-%%z3=(x1,1/2n1);
-x3 = x1; top y3 = 14/16n1;
-z7c = 1/2[z2,z3];
-top y3a = n1; (z3a-z3) = whatever*pdir;
-rt x7a = w - pcshiftx - 2st; (z7a-z7c) = whatever*pdir;
-x4 = 1/2[x3a,x7a]; y4 = y3a;
-x5 = x7a; y5 = 1/2[y3a, y7a];
-z7 = (rt x7c, y7c);
-pth1 := z3{pdir}..z4..z5..{-pdir}z7;
-%% lower arm
-z21=z7;
-z24=(x5+st,y2a);
-x23 = x24; y23 = 1/2[y21,y24];
-rt x25 = w-pcshiftx; bot y25 = 0;
-pth2 := z21{pdir}..{down}z23..z24..{pdir}z25;
-pickup quill;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1; % upper bowl
-draw pth2; % lower half
-%% decorations
-z1tr = (rt x1, top y1);
-pickup stylus;
-z102 = 2/3[z2b,z2c]; x101 = x102; top y101 = h;
-x103 = x1tr; y103 = y101;
-draw z103--z101--z102;
-x105 = x101; y105 = 1/2[y7,y3];
-y185 = 2w; (z185-z105) = whatever*pdir;
-z106 = (z105--z185) intersectionpoint pth1;
-x107 = x105; y107 = y105-angdec;
-x187 = x185; y187-y185 = y107-y105;
-%%z108 = (z107--z187) intersectionpoint pth1;
-draw z105--z106;
-%%draw z107--z108;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,13,14,21,22,23,24,25,100);
-endchar; % end "K"
-
-cmchar "TGOTH letter L";
-beginchar("L", 2cap_sb#+hstretch*((7)*stem_width#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := cap_sb;
-numeric st; st := stem_width;
-pickup quill;
-lft x1=pcshiftx+3st; y1=h;
-x2=x1; bot y2 =0;
-draw_upcurlstem(1,2);
-rt x4 = w-pcshiftx; bot y4 = 0;
-draw z2{right}..{pdir}z4;
-%% vertical decoration
-x201 = rt x1;
-x101 = x201+2/3wided*st;
-pickup stylus;
-top y101 = h; y201 = y101;
-x102 = x101; bot y102=0;
-draw z201--z101--z102;
-ductus:=false;
-penlabels(1,2,3,4,101,102,201,100);
-endchar; % end "L"
-
-cmchar "TGOTH letter M";
-beginchar("M", 2cap_sb#+hstretch*((11)*stem_width#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := cap_sb;
-numeric st; st := stem_width;
-path pth[];
-pickup quill;
-%%% left part
-lft x301 = pcshiftx+3st; y301 = h;
-x302 = x301; y302 = 0;
-z312 = 1/2[z301,z302];
-draw_upcurlstem(301,312);
-draw_downdiamondstem(312,302,wided,widedmin,diawd,diang);
-
-%% left N stem (and N part)
-%%%lft x1=pcshiftx+3st; y1=h;
-x1 = x301 + 3st; y1 = h;
-x2=x1; y2=0;
-z12 = 1/2[z1,z2];
-%%draw_upcurlstem(1,12);
-%%draw_updiamondstem(1,12,wided,widedmin,diawd,diang);
-draw_downdiamondstem(12,2,wided,widedmin,diawd,diang);
-x13=x1; y13=3/4h;
-rt x3 = w-pcshiftx; y3 = 8/16h;
-x14 = 8/16[x13,x3]; top y14 = h;
-x4 = 1/2[x14,x3]; bot y4=0;
-pth1 := z13{pdir}..{right}z14..{down}z3..{-pdir}z4;
-%% bottom curl
-z21 = z4;
-x24 = x3; top y24 = 0;
-x23 = 1/2[x21,x24]; top y23 = bot y24;
-pth2 := z21{-pdir}..z23..{ppdir}z24;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1;
-pickup stylus;
-draw pth2;
-pickup quill;
-%% finish off the left part
-x3011 = 1/2[x301,x1]; top y3011 = h;
-z3123 = (x301,3/4h); z123 = (x1,y3123);
-draw z3123--z3011--z123--z12;
-%% vertical decorations
- %% left part
-z402 = 2/3[z302b,z302c];
-x401 = x402; z401 = whatever[z3123,z3011];
- %% right part
-z102 = 2/3[z2b,z2c];
-z182 = (x102,h);
-z101 = (z102--z182) intersectionpoint pth1;
-%% angled decorations
- %% left part
-z406 = z13;
-x405 = x402; (z406-z405) = whatever*pdir;
-z407 = (x405, y405-angdec); z408 = (x406, y406-angdec);
- %% right part
-z105 = (x102,y405);
-x185 = 2w;
-(z185-z105) = whatever*(pdir);
-z106 = (z105--z185) intersectionpoint pth1;
-z107 = (x105, y105-angdec); z187 = (x185, y185-angdec);
-z108 = (z107--z187) intersectionpoint pth1;
-pickup stylus;
-draw z401--z402;
-draw z405--z406; draw z407--z408;
-draw z101--z102;
-draw z105--z106; draw z107--z108;
-ductus:=false;
-penlabels(1,2,3,4,5,6,13,14,101,102,105,106,107,108,301,302,100);
-endchar; % end "M"
-
-cmchar "TGOTH letter N";
-beginchar("N", 2cap_sb#+hstretch*((8)*stem_width#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := cap_sb;
-numeric st; st := stem_width;
-path pth[];
-pickup quill;
-%% left stem
-lft x1=pcshiftx+3st; y1=h;
-x2=x1; y2=0;
-z12 = 1/2[z1,z2];
-draw_upcurlstem(1,12);
-draw_downdiamondstem(12,2,wided,widedmin,diawd,diang);
-x13=x1; y13=3/4h;
-rt x3 = w-pcshiftx; y3 = 8/16h;
-x14 = 8/16[x13,x3]; top y14 = h;
-x4 = 1/2[x14,x3]; bot y4=0;
-pth1 := z13{pdir}..{right}z14..{down}z3..{-pdir}z4;
-%% bottom curl
-z21 = z4;
-x24 = x3; top y24 = 0;
-x23 = 1/2[x21,x24]; top y23 = bot y24;
-pth2 := z21{-pdir}..z23..{ppdir}z24;
-%% vertical decoration
-z102 = 2/3[z2b,z2c];
-z182 = (x102,h);
-z101 = (z102--z182) intersectionpoint pth1;
-z105 = 1/2[z102,z101];
-x185 = 2w;
-(z185-z105) = whatever*(pdir);
-z106 = (z105--z185) intersectionpoint pth1;
-z107 = (x105, y105-angdec); z187 = (x185, y185-angdec);
-z108 = (z107--z187) intersectionpoint pth1;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1;
-pickup stylus;
-draw pth2;
-draw z101--z102;
-draw z105--z106; draw z107--z108;
-ductus:=false;
-penlabels(1,2,3,4,5,6,13,14,100);
-endchar; % end "N"
-
-cmchar "TGOTH letter O";
-beginchar("O", 2cap_sb#+hstretch*((7)*stem_width#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := cap_sb;
-path pth[];
-pickup quill;
-lft x1=pcshiftx; rt x3=w-pcshiftx; y1=y3=h/2;
-x2=x4=w/2; top y2=h; bot y4=0;
-pth1 := z1..z2..z3..z4..cycle;
-%% vertical decoration
-z101=z2; z102=z4;
-z103 = (x101-perpdec, y101); z104 = (x103,y102);
-%% angled decoration
-z108 = (lft x3,y3);
-x107 = x101; (z108-z107) = whatever*(pdir);
-z105 = (x107, y107+angdec);
-x106a = 2w; (z106a-z105) = whatever*(pdir);
-z106 = (z105--z106a) intersectionpoint pth1;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1;
-pickup stylus;
-draw z101--z102; draw z103--z104;
-draw z105--z106; draw z107--z108;
-ductus:=false;
-penlabels(1,2,3,4,5,100);
-endchar; % end "O"
-
-cmchar "TGOTH letter P";
-beginchar("P", 2cap_sb#+hstretch*((8)*stem_width#),
- caprat*x_height#, 1/2caprat*x_height#);
-adjust_fit(0,0);
-pcshiftx := cap_sb;
-path pth[];
-numeric n[];
-numeric st; st := stem_width;
-pickup quill;
-%% stem
-lft x1=lft x2=pcshiftx+3st;
-y1=h; y2=-d;
-z12 = 1/2[z1,z2];
-draw_upcurlstem(1,12);
-draw_downdiamondstem(12,2,wided,widedmin,diawd,diang);
-%% vertical decoration
-z1tr = (rt x1, top y1);
-z102 = 2/3[z2b,z2c];
-pickup stylus;
-x101 = x102; top y101 = h;
-x103 = x1tr; y103 = y101;
-draw z103--z101--z102;
-pickup quill;
-%% bowl
-lft x22 = x101; top y22 = h;
-x21 = x1; (z22-z21) = whatever*pdir;
-rt x24 = w - pcshiftx; y24 = 1/2h;
-x25 = 1/2[x22,x24]; bot y25 = 0;
-pth1 := z21--z22{down}..{down}z24..{-pdir}z25;
-z31 = z25;
-lft x33 = pcshiftx; bot y33 = 0;
-pth2 := z33{pdir}..{right}z31;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1; draw pth2;
-%% angled decoration
-x105 = x101; y105 = 1/3h;
-x185 = 2w;
-(z185-z105) = whatever*pdir;
-z106 = (z105--z185) intersectionpoint pth1;
-z107 = (x105,y105-angdec);
-x187 = x185; y107 - y105 = y187 - y185;
-z108 = (z107--z187) intersectionpoint pth1;
-pickup stylus;
-draw z105--z106; draw z107--z108;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,100);
-endchar; % end "P"
-
-cmchar "TGOTH letter Q";
-beginchar("Q", 2cap_sb#+hstretch*((8)*stem_width#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := cap_sb;
-path pth[];
-pickup quill;
-lft x1=pcshiftx; rt x3=w-pcshiftx-stem_width; y1=y3=h/2;
-x2=x4=w/2; top y2=h; bot y4=0;
-pth1 := z1..z2..z3..z4..cycle;
-%% tail
-pth2 := z1..z4..z3;
-z11 = directionpoint pdir of pth2;
-rt x13 = w-pcshiftx; bot y13 = 0;
-pth3 := z11{pdir}..{pdir}z13;
-%% vertical decoration
-z101=z2; z102=z4;
-z103 = (x101-perpdec, y101); z104 = (x103,y102);
-%% angled decoration
-z108 = (lft x3,y3);
-x107 = x101; (z108-z107) = whatever*(pdir);
-z105 = (x107, y107+angdec);
-x106a = 2w; (z106a-z105) = whatever*(pdir);
-z106 = (z105--z106a) intersectionpoint pth1;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1; draw pth3;
-pickup stylus;
-draw z101--z102; draw z103--z104;
-draw z105--z106; draw z107--z108;
-ductus:=false;
-penlabels(1,2,3,4,5,100);
-endchar; % end "Q"
-
-cmchar "TGOTH letter R";
-beginchar("R", 2cap_sb#+hstretch*((8+wided)*stem_width#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := cap_sb;
-path pth[];
-numeric n[];
-numeric st; st := stem_width;
-pickup quill;
-%% stem
-n1 = h; % x-height
-lft x1=lft x2=pcshiftx+3st;
-y1=h; y2=0;
-z12 = 1/2[z1,z2];
-draw_upcurlstem(1,12);
-draw_downdiamondstem(12,2,wided,widedmin,diawd,diang);
-%% top arm
-%%z3=(x1,1/2n1);
-x3 = x1; top y3 = 14/16n1;
-z7c = 1/2[z2,z3];
-top y3a = n1; (z3a-z3) = whatever*pdir;
-rt x7a = w - pcshiftx - 2st; (z7a-z7c) = whatever*pdir;
-x4 = 1/2[x3a,x7a]; y4 = y3a;
-x5 = x7a; y5 = 1/2[y3a, y7a];
-z7 = (rt x7c, y7c);
-pth1 := z3{pdir}..z4..z5..{-pdir}z7;
-%% lower arm
-z21=z7;
-z24=(x5,y2a);
-x23 = x24; y23 = 1/2[y21,y24];
-rt x25 = w-pcshiftx; bot y25 = 0;
-pth2 := z21{pdir}..{down}z23..z24..{pdir}z25;
-pickup quill;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1; % upper bowl
-draw pth2; % lower half
-%% decorations
-z1tr = (rt x1, top y1);
-pickup stylus;
-z102 = 2/3[z2b,z2c]; x101 = x102; top y101 = h;
-x103 = x1tr; y103 = y101;
-draw z103--z101--z102;
-x105 = x101; y105 = 1/2[y7,y3];
-y185 = 2w; (z185-z105) = whatever*pdir;
-z106 = (z105--z185) intersectionpoint pth1;
-x107 = x105; y107 = y105-angdec;
-x187 = x185; y187-y185 = y107-y105;
-%%z108 = (z107--z187) intersectionpoint pth1;
-draw z105--z106;
-%%draw z107--z108;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,13,14,21,22,23,24,25,100);
-endchar; % end "R"
-
-cmchar "TGOTH letter S";
-beginchar("S", 2cap_sb#+hstretch*((8)*stem_width#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-numeric st; st := stem_width;
-path pth[];
-pcshiftx := cap_sb;
-pickup quill;
-pickup threequarterquill;
-%% top
-n1 := 1;
-lft x1 = pcshiftx + n1*st; top y1 = h;
-rt x3 = w - pcshiftx; y3 = y1;
-x2 = 1/2[x1,x3]; top y2 = y1;
-pth1 := z1..z2..{pdir}z3;
-draw pth1;
-%% bottom
-lft x4 = pcshiftx; bot y4 = 0;
-rt x6 = w -pcshiftx - n1*st; y6 = y4;
-x5 = 1/2[x4,x6]; bot y5 = y4;
-pth2 := z4{pdir}..z5..z6;
-draw pth2;
-%% top path
-z100 = (1/2w, 1/2h);
-z11 = z1; z15 = z6;
-x13 = x100; y13 = y100 + st;
-pth3 := z11..{right}z13{right}..z15;
-draw pth3;
-%% bottom path
-z21 = z11; z25 = z6;
-x23 = x100; y100 - y23 = y13 - y100;
-pth4 := z21..{right}z23{right}..z25;
-draw pth4;
-%% decorations
- %% top
-z101 = (x2+angdec,y2); y181 = 0; (z101-z181) = whatever*pdir;
-z102 = (z101--z181) intersectionpoint pth3;
-z103 = (x101-angdec, y101); x183-x181 = x103-x101; y183 = 0;
-z104 = (z103--z183) intersectionpoint pth3;
- %% bottom
-z201 = (x5,y5); y281 = h; (z201-z281) = whatever*pdir;
-z202 = (z201--z281) intersectionpoint pth4;
-z203 = (x201-angdec, y201); x283-x281 = x203-x201; y283 = h;
-z204 = (z203--z283) intersectionpoint pth4;
-pickup stylus;
-draw z101--z102; draw z103--z104;
-draw z201--z202; draw z203--z204;
-
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,11,17,20,26,27,28,100,101,102,103,104,201,202,203,204);
-endchar; % end "S"
-
-cmchar "TGOTH letter T";
-beginchar("T", 2cap_sb#+hstretch*((7)*stem_width#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := cap_sb;
-numeric n[];
-numeric st; st := stem_width;
-path pth[];
-pickup quill;
-%% bar
-top y3=h; n3 := h - top y3;
-lft x1 = pcshiftx; rt x2=w-pcshiftx;
-y1 = y3-n3; y2=y3;
-x3=1/2[x1,x2];
-pth1 := z1{pdir}..z3..z2{pdir};
-%% bowl
-n1 := w; % width of bowl
-n2 := h; % height of bowl
-lft x4 = pcshiftx; y4 = 1/2h;
-x5=x3; bot y5 = 0;
-rt x6 = w-pcshiftx; y6 = 6/16h;
-%%pth2 := z3..z4{down}..z5{right}..z6{pdir};
-%% decoration
-x101 = lft x3; y101=y3;
-x181 = x101; y181=-h/4; z191 = 1/2[z101,z181];
-%%z102 = z191--z181 intersectionpoint pth2; %%% ???? NO INTERSECTION!!!!!!
-z102=(x101,y5);
-z103 = (x101+3thin, y101); z104 = (x103,y102);
-lft x7 = x104; y7 = 10/16[y104,y103];
-pth2 := z3..z4{down}..z5{right}..z6{up}..{-pdir}z7;
-z105 = (x104,y104+4thin); z107=(x105,y105+3thin);
-x185 = 2w; (z185-z105) = whatever*(pdir);
-z106 = (z105--z185) intersectionpoint pth2;
-z108 = (x106,y106+3thin);
-pickup stylus;
-draw z101--z102; draw z103--z104;
-draw z105--z106; draw z107--z108;
-pickup quill;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-draw pth1; %% bar
-draw pth2; %% bowl
-ductus:=false;
-penlabels(1,2,3,4,5,6,11,12,100,101,102,103,104,181,191);
-endchar; % end "T"
-
-cmchar "TGOTH letter U";
-beginchar("U", 2cap_sb#+hstretch*((8)*stem_width#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-pcshiftx := cap_sb;
-numeric n[];
-numeric st; st := stem_width;
-path pth[];
-pickup quill;
-%% stem tops
-lft x1 = pcshiftx + 3st; y1 = h;
-rt x3 = w - pcshiftx - widedmin*st; y3 = h;
-x7 = x1 - 3/2st; bot y7 = 0;
-rt x9 = lft x3; bot y9 = 0;
-pth1 := z7{pdir}..{pdir}z9;
-draw pth1;
-%% stem bottoms
-z2 = (z1 -- (x1,-h)) intersectionpoint pth1;
-x4 = x3; bot y4 = top y9;
-draw_upcurlstem(1,2);
-draw_updiamondstem(3,4,wided,widedmin,diawd,diang);
-%% decorations
-z1tr = (rt x1, top y1);
-pickup stylus;
-z99 = 2/3[z3b,z3c];
-x101 - x1 = x3 - x99; top y101 = h;
-x102 = x101; y102 = y2;
-x103 = x1tr; y103 = y101;
-draw z103--z101--z102;
-x105 = x101; y105 = 1/3h;
-x106 = x3; (z106-z105) = whatever*pdir;
-z107 = (x105, y105-angdec); x108 = x106; y108-y106 = y107-y105;
-draw z105--z106; draw z107--z108;
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,11,13,14,16,33,100);
-endchar; % end "U"
-
-cmchar "TGOTH letter V";
-beginchar("V", 2cap_sb#+hstretch*((8)*stem_width#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-numeric st; st := stem_width;
-path pth[];
-pcshiftx := cap_sb;
-pickup quill;
-%% left stem top
-lft x1 = pcshiftx + 3st; y1 = h;
-x7 = x1 - 3/2st; bot y7 = 0;
-x9 = w/2; bot y9 = 0;
-pth1 := z7{pdir}..{right}z9;
-draw pth1;
-%% left stem bottom
-x81 = x1; y81 = - h;
-z2 = (z1--z81) intersectionpoint pth1;
-draw_upcurlstem(1,2);
-%% right stem
-z6 = z9;
-rt x5 = w - pcshiftx; top y5 = 3/4h;
-x3 = 1/2[rt x1, lft x5];
-x4 = 1/2[x3,x5]; top y4 = h;
-y3 = 1/2[y4,y5];
-pth2 := z6{pdir}..{up}z5..{left}z4..{-pdir}z3;
-draw pth2;
-pth3 := pth1 & pth2;
-%% decoration
-z1tr = (rt x1, top y1);
-x101 = x1tr + 2/3wided*st;
-pickup stylus;
-top y101 = h;
-z103 = (x1tr,y101);
-z181 = (x101,-w);
-z102 = (z101--z181) intersectionpoint pth3;
-draw z103--z101--z102;
-x105 = x101; y105 = 1/3[y102,y101];
-x185 = 2w; (z185-z105) = whatever*pdir;
-z106 = (z105--z185) intersectionpoint pth2;
-z107 = (x105, y105-angdec);
-x187 = x185; y187-y185 = y107-y105;
-z108 = (z107--z187) intersectionpoint pth2;
-draw z105--z106; draw z107--z108;
-
-%%ductus:=true;
-if ductus:
- pickup stylus;
-fi
-
-ductus:=false;
-penlabels(1,2,3,4,5,11,13,14,23,26,100);
-endchar; % end "V"
-
-cmchar "TGOTH letter W";
-beginchar("W", 2cap_sb#+hstretch*((12)*stem_width#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-numeric st; st := stem_width;
-path pth[];
-pcshiftx := cap_sb;
-pickup quill;
-%% top of stems
-lft x1 = pcshiftx + 3st; y1 = h;
-rt x999 = w - pcshiftx;
-x3 = 1/2[x1,x999]; y3 = h;
-%% bowl bottoms
-x21 = x1 - 3/2st; bot y21 = 0;
-rt x23 = lft x3; bot y23 = 0;
-pth1 := z21{pdir}..z23;
-draw pth1;
-lft x31 = rt x23; bot y31 = top y23;
-x33 = 1/2[x31,x999]; bot y33 = 0;
-pth2 := z31{pdir}..z33;
-draw pth2;
-%% bottom of stems
-z2 = (z1--(x1,0)) intersectionpoint pth1;
-x4 = x3; bot y4 = top y23;
-draw_upcurlstem(1,2);
-draw_updiamondstem(3,4,wided,widedmin,diawd,diang);
-%% right V stem
-z16 = z33;
-x15 = x999; top y15 = 3/4h;
-x13 = 1/2[rt x3, lft x15];
-x14 = 1/2[x13,x15]; top y14 = h;
-y13 = 1/2[y14,y15];
-pth3 = z16{pdir}..{up}z15..{left}z14..{-pdir}z13;
-draw pth3;
-%% decorations
-z1tr = (rt x1, top y1);
-z3tr = (rt x3, top y3);
-pickup stylus;
-%% for U
-z99 = 2/3[z3b,z3c];
-x101 - x1 = x3 - x99; top y101 = h;
-x102 = x101; y102 = y2;
-x103 = x1tr; y103 = y101;
-draw z103--z101--z102;
-x105 = x101; y105 = 1/3h;
-x106 = x3; (z106-z105) = whatever*pdir;
-z107 = (x105, y105-angdec); x108 = x106; y108-y106 = y107-y105;
-draw z105--z106; draw z107--z108;
-%% for V
-
-x301 = x3tr+2/3wided*st; top y301 = y3e;
-z381 = (x301,-w);
-z302 = (z301--z381) intersectionpoint pth2;
-draw z3e--z301--z302;
-x305 = x301; y305 = 1/3[y302,y301];
-x385 = 2w; (z385-z305) = whatever*pdir;
-z306 = (z305--z385) intersectionpoint pth3;
-z307 = (x305, y305-angdec);
-x387 = x385; y387-y385 = y307-y305;
-z308 = (z307--z387) intersectionpoint pth3;
-draw z305--z306; draw z307--z308;
-
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,11,13,14,33,34,53,16,100);
-endchar; % end "W"
-
-cmchar "TGOTH letter X";
-beginchar("X", 2cap_sb#+hstretch*((8)*stem_width#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-path pth[];
-numeric n[];
-numeric st; st := stem_width;
-pcshiftx := cap_sb;
-pickup quill;
-%% center stem
-lft x1 = lft x2 = pcshiftx + 3st;
-y1 = 3/4h; y2 = 1/4h;
-draw z1--z2;
-%% top right
-z21 = z1; top y22 = h; (z22-z21) = whatever*pdir;
-rt x24 = w-pcshiftx; y24 = y21;
-pth1 := z21--z22{-ppdir}..{pdir}z24;
-draw pth1;
-%% bottom right
-z31 = z2;
-rt x33 = w-pcshiftx; bot y33 = 0;
-pth2 := z31{-ppdir}..{pdir}z33;
-draw pth2;
-%% bottom left
-z41 = z2;
-bot y43 = -1/4h; (z41-z43) = whatever*pdir;
-x45 = x43 + st; y45=y43;
-pth3 := z41--z43{-pdir}..{pdir}z45;
-pickup stylus;
-draw pth3;
-pickup quill;
-%% top left
-x11 = x1; y11 = h;
-draw_upcurlstem(11,1);
-%% decoration
-x81 = rt x1;
-pickup stylus;
-x101 = x102 = x81 + 2/3wided*st;
-z101 = whatever[z1,z22];
-z102 = (z101--(x101,0)) intersectionpoint pth2;
-draw z101--z102;
-pickup quill;
-%% middle arms
-z120 = 1/2[z1,z2];
-z51 = z120;
-lft x53 = pcshiftx; top y53 = y51;
-x52 = 1/2[x51,x53]; y52 = y51;
-pth5 := z51--z52{left}..{-pdir}z53;
-draw pth5;
-lft x61 = x101; y61 = y120;
-rt x63 = w-pcshiftx; bot y63 = y61;
-x62 = 1/2[x61,x63]; y62 = y61;
-pth6 := z61--z62{right}..{pdir}z63;
-draw pth6;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,10,25,251,252,40,50,51,52,53,61,62,63,101,102,150,60,160,100);
-endchar; % end "X"
-
-cmchar "TGOTH letter Y";
-beginchar("Y", 2cap_sb#+hstretch*((8)*stem_width#),
- caprat*x_height#, 1/2caprat*x_height#);
-adjust_fit(0,0);
-numeric n[];
-numeric st; st := stem_width;
-path pth[];
-pcshiftx := cap_sb;
-pickup quill;
-%% stem tops
-lft x1 = pcshiftx + 3st; y1 = h;
-rt x3 = w - pcshiftx - widedmin*st; y3 = h;
-x7 = x1 - 3/2st; bot y7 = 0;
-x9 = 1/2[x1,x3]; bot y9 = 0;
-pth1 := z7{pdir}..{right}z9;
-draw pth1;
-%% left stem bottom
-x81 = x1; y81 = - h;
-z2 = (z1--z81) intersectionpoint pth1;
-draw_upcurlstem(1,2);
-%% right stem
-x4 = x3; y4 = 0;
-x5 = x4; y5 = -1/4d;
-lft x6 = x9; bot y6 = -d;
-draw_updiamondstem(3,4,wided,widedmin,diawd,diang);
-draw z6{pdir}..{up}z5--z4;
-z3cd = 1/2[z3c,z3d];
-pth2 = z5--z3a--z3cd;
-%% fill bowl bottom
-x91 = x3; (z91-z9) = whatever*pdir;
-draw z9--z91;
-
-%% decoration
-z1tr = (rt x1, top y1);
-x101 = x1tr + 2/3wided*st;
-pickup stylus;
-top y101 = h;
-z103 = (x1tr,y101);
-z181 = (x101,-w);
-z102 = (z101--z181) intersectionpoint pth1;
-draw z103--z101--z102;
-x105 = x101; y105 = 1/3[y102,y101];
-x185 = 2w; (z185-z105) = whatever*pdir;
-z106 = (z105--z185) intersectionpoint pth2;
-z107 = (x105, y105-angdec);
-x187 = x185; y187-y185 = y107-y105;
-z108 = (z107--z187) intersectionpoint pth2;
-draw z105--z106; draw z107--z108;
-ductus:=false;
-penlabels(1,2,3,4,5,6,7,8,9,10,100,101,102,181);
-endchar; % end "Y"
-
-cmchar "TGOTH letter Z";
-beginchar("Z", 2cap_sb#+hstretch*((5)*stem_width#),
- caprat*x_height#, 0);
-adjust_fit(0,0);
-numeric n[];
-numeric st; st := stem_width;
-path pth[];
-pcshiftx := cap_sb;
-pickup quill;
-%% top bar ends
-top y12 = h;
-n1 := h - y12;
-lft x1 = pcshiftx; rt x2 = w-pcshiftx-perpdec;
-%%y1 = y12-n1; y2=y12+n1;
-y1 = y12-n1/2; y2=y12;
-x12 = 1/2[x1,x2];
-pth1 := z1{pdir}..z12{right}..z2{pdir};
-x102 = rt x2; y102 = top y2; x202 = x102+perpdec; y202=y102;
-%% bottom bar ends
-bot y34 = 0;
-x3=x1+perpdec; rt x4= w-pcshiftx;
-y3=y34-n1/2; y4=y34;
-x34 = 1/2[x3,x4];
-pth2 := z3{pdir}..z34{right}..z4{pdir};
-x203 = lft x3; y203 = bot y3; x103 = x203-perpdec; y103=y203;
-%% centre bar
-z5 = (x1,1/2[y1,y3]); z6 = (x4,1/2[y2,y4]); z56 = 1/2[z5,z6];
-pth3 := z5{pdir}..z56{right}..z6{pdir};
-draw pth1; draw pth2; % bars
-draw pth3;
-%% decorations
-pickup stylus;
-draw z102--z103; draw z202--z203;
-unfill z102--z103--z203--z202--cycle;
-draw z102--z103; draw z202--z203;
-ductus:=false;
-penlabels(1,2,3,4,5,6,10o,10i,20o,20i,100);
-endchar; % end "Z"
-