diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/gothic/yswabupp.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/gothic/yswabupp.mf | 1179 |
1 files changed, 1179 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/gothic/yswabupp.mf b/Master/texmf-dist/fonts/source/public/gothic/yswabupp.mf new file mode 100644 index 00000000000..d1fd5976a5f --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/gothic/yswabupp.mf @@ -0,0 +1,1179 @@ +.cmchar "The Schwabacher letter A"; +.beginchar("A",11.755u#,cap_height#,0); +.adjust_fit(usual_left#,usual_right#);penpos1(0.714cap_stem,16); +z1l=(apex_o,0.718h); +z2=(0,0.767h); penpos3(cap_hair,-58); +y3=0.474[h,y2]; x3=0.13w; +z4=(0.278w,h+apex_o); +penpos5(1.036cap_stem,-158); +x5l=0.574w; y5=0.638h+cap_hair; +penpos6(0.6cap_hair,-155); x6=x3r; +y6l=0.132h; penpos7(1.286cap_stem,33); +penpos8(1.143cap_stem,33); +penpos9(1.071cap_stem,33); +z7l=z6l; x9r=x5l; y9l=-apex_o; +z8=0.472[z7,z9]+(0.5cap_hair,0.5cap_hair); +penpos10(cap_hair,-57); z10r=z9l; +penpos17(cap_stem,0); x17l=0.657w; +y17=0.724h; penpos11(cap_hair,-57); +z11-z10=whatever*dir33; x11=x17; +z15=whatever[z10,z11]; x15=x17l; +z15-z12=whatever*dir123; y12=-apex_o; +penpos13(cap_hair,-90); z13r=(w,y6l); +z14=(0.567[x17r,w],y13r); +z16=(x17r,0.591[y17,y14]); +penpos18(0.6cap_hair,-90); z18l=(w,h); +z19=(x17l,0.822h); +z7'=(z6{z7r-z7l}..z5{up}) +intersectionpoint (z7r+(2u,-2u)-- +z7r--z7r+(-2u,2u)); +% +% +% +filldraw z1r{z3l-z3r}..z3r{z4-z3l} +..z5r{down}..z6r{z7l-z7r} & z6r--z6l +& z6l{z7r-z7l}..z5l{up}..z4{dir155} +& z4---z3l...z2{down}..z1l & +z1l--z1r & cycle; +penstroke z9e..z8e..z7e; +penstroke z10e--z11e; +filldraw z12--z13r--z13l & z13l{z12-z13r} +..z14{left}...z16---z17r...z18r{right} +& z18r--z18l & z18l{left}..z19{z5r-z19} +& z19--z15--z12 & cycle; +filldraw z7r--z7' & z7'{z6-z7'}.. +z6{z7l-z7r} & z6--z6l--z7r & cycle; +.endchar; + +.cmchar "The Schwabacher letter B"; +.beginchar("B",13.811u#,cap_height#,0); +.adjust_fit(usual_left#,usual_right#);penpos1(cap_hair,-70); +penpos2(1.667cap_hair,-70); +penpos3(1.071cap_stem,23); +penpos4(2/3cap_hair,90); +penpos5(1.571cap_stem,32); +x1l=0; y1=0.282h; z2r-z1r=whatever*dir12.5; +x2=0.24w; z3=(0.464w,0.672h); +y5r=h+apex_o; x5r=0.295w; z4r=z5l; +filldraw z1r---z2r...z3r{up}.. +z5r{dir163} & z5r--z5l--z4l & +z4l{right}..z3l{down}..z2l..z1l +{z1r-z2r} & z1l--z1r & cycle; +% +% +% +penpos6(cap_hair,-46); penpos7(cap_hair,-46); +penpos9(cap_stem,44); penpos10(cap_hair,-46); +z6r=z3; z7-z6=whatever*dir44; +y7l=h+apex_o; z9r=z7l; +z10=whatever[z7l,z7r]; x10r=0.951w; +z8=(x6,0.552h); penpos8(cap_hair,-90); +z11'-z9l=whatever*(z10-z7); +x11'=w; +z11=(z8{right}..z10{dir44}) +intersectionpoint (z11'--z9l); +penstroke z8e{right}..z10e{dir44}; +penstroke z6e--z7e; +filldraw z9r--z10r--z11--z9l--z9r & +cycle; +% +% +% +%.endchar; end. +path pipi; +pipi:=z8{right}..z10{dir44}; +numeric titi,uuuu; +(titi,uuuu)=pipi +intersectiontimes +((0.781w,0)--(0.781w,h)); +z12= point titi of pipi; +penpos13(0.964cap_stem,39); +z13r=(w,0.362h); penpos14(cap_hair,-57); +z14=(0.822w,0.071h); z14'=(0.623w,-apex_o); +z15=whatever[z1l,z1r]; +penpos15(cap_hair,-70); +y1r-y15l=cap_hair; +penpos16(1.857cap_stem,-167.5); +z16r=z15l; +filldraw subpath (0,titi) of pipi + & z12{right} +..{down}z13r..z14r..z14'{left}.. +z15r{left} & z15r--z15l--z16l & +z16l{dir-34}..z14l..z13l{up}.. +z8r{left} & z8r--z8 & cycle; +.endchar; + +.cmchar "The Schwabacher letter C"; +.beginchar("C",10.151u#,cap_height#,0); +.adjust_fit(usual_left#,usual_right#);z1=(w,0.276h); penpos2(cap_stem,68); +z2l=(0.533w,-apex_o); penpos3(0.911cap_stem,45); +z3l=(0,0.442h); +penpos4(cap_hair,-60); +z4l=(x2l-cap_stem,0.914h); +penpos5(cap_stem,-90); z5l=(x2l,h); +penpos6(1.1cap_stem,-72); +z7=(0.911w,h+apex_o); +z6l=(0.5[x5,x7],h-apex_o); +penpos8(cap_stem,0); z8r=(x2l,0.337h); +penpos10(cap_hair,-56); +z8r-z10r=whatever*dir34; x10=x8l-0.5cap_stem; +z9=z8l-(0,cap_hair); +filldraw z1..z2r{left}..z3r{up}.. +z4r{z5l-z4l} & z4r--z4l & +z4l{z4l-z5l}..z3l{down}..z2l{right} +..z1{up} & cycle; +filldraw z10l{z8r-z10r}..z9{up}-- +z4l--z5l..z6l{right}..z7 & +z7{down}..z6r{left}..z5r{dir170} & +z5r--z8r--z10r--z10l & cycle; +.endchar; + +.cmchar "The Schwabacher letter D"; +.beginchar("D",13.736u#,cap_height#,0); +.adjust_fit(usual_left#,usual_right#); +penpos1(cap_hair,-50); penpos2(1.071cap_stem,-118); +z1=(0.06w,0); z2=(0.302w,0.15h); +z3=(0.585w,-apex_o); +penpos4(cap_hair,-41); +z4=(0.876w,0.193h); penpos5(0.5cap_stem,38); +z5r=(w,0.472h); penpos6(cap_stem,74); +penpos7(cap_stem,74); penpos8(cap_stem,74); +penpos10(0.5cap_hair,0); +z6l=(0.72w,0.675h); +z8l-z6l=whatever*dir170; +x8l=cap_hair; x10r=x8; y10=h+apex_o; +z7=0.426[z8,z6]+(0,-apex_o); +z9=whatever[z7l,z8l]; x9=0; +filldraw z1r{dir40}..z2r{right}..z3 +& z3..z4r..z5r{up}... +z7r---z8r +{z8r-z7r}..z10r{up} & z10r--z10l & z10l.. +z9{down} & z9..z8l{z7r-z8r}---z7l +...z5l{down}..z4l..z2l{left}..z1l{dir220} +& z1l--z1r & cycle; +% +% +% +penpos17(cap_hair,0); z17r=z2; +penpos18(0.536cap_stem,34); +z19=(cap_hair,y5l); y18=0.464[y2l,y19]; +x18=x2r-apex_o; z20=(0.203w,0.52h); +penpos21(cap_hair,-60); +z21=whatever[z7,z6]; x21=0.44w; +filldraw z17r{up}..z18r..z20{up}.. +z21r{dir30} & z21r--z21l & +z21l{dir210}..z19 & z19{right}.. +z17l{down} & z17l--z17r & cycle; +% +% +% +penpos12(cap_hair,-60); penpos13(cap_hair,-60); +penpos14(cap_hair,-60); penpos11(cap_hair,-60); +penpos15(cap_stem,30); penpos16(cap_stem,30); +z16r=z12r; z15l=z13l; z14=whatever[z6,z7]; +z12=(0.563w,0.387h); +z15r-z12=whatever*(z12l-z12r); +x13l=0.287w; +z14l=whatever[z15l,z15r]; +z11r=whatever[z16l,z16r]; x11=x17; +penstroke z11e--z12e; +penstroke z16e--z15e; +penstroke z13e--z14e; +z22=(z17r{up}..z18r..z20{up}) +intersectionpoint ((0,y2l+cap_hair) +--(w,y2l+cap_hair)); +z23=1/3[z11l,z12l]; +z23'=2/3[z13l,z16l]; +z24=1/3[z15r,z12r]; +z25=whatever[z6l,z7l]; +z25=whatever[z13r,z14r]; +filldraw z22{right}..z23{z12l-z11l} +..z23'{z13-z16l} & z23'--z16--z11 +--z22 & cycle; +filldraw z24{z15r-z12}..z25{z14r-z13r} +& z25--z15--z24 & cycle; +.endchar; + +.cmchar "The Schwabacher letter E"; +.beginchar("E",12.302u#,cap_height#,0); +.adjust_fit(usual_left#,usual_right#); +penpos1(cap_hair,-90); z1r=(0,0.227h); +penpos2(cap_stem,0); penpos3(cap_stem,0); +penpos4(cap_hair,-90); +z2r=(0.31w,0.509h); +z3=(x2,0.761h); y4l=h+apex_o; +x4=0.393w; +penstroke z1e{dir31}..z2e---z3e... +z4e{dir22}; +penpos5(cap_hair,-64); penpos6(cap_hair,-51); +penpos7(cap_stem,0); penpos8(cap_stem,0); +penpos9(1.607cap_stem,18); +penpos10(cap_hair,-90); +z5=(0.049w,0.12h); z6l=(x4,0.337h); +x9=x8=x7; z7l=(0.446w,y2); +y8=y3; z10r=z9r; y10l=h+apex_o; +penstroke z5e{dir31}..z6e{dir36}...z7e--- +z8e...z9e; +filldraw z9l--z10l--z10r--z9l & cycle; +% +% +% +penpos11(0.6cap_hair,-90); +z11=whatever[z7r,z8r]; y11r=0.862h; +z12-z11l=whatever*dir30; +penpos14(0.679cap_stem,-90); +y14=0.589h; x14=x11; +penpos15(whatever,-114); +x15=0.926w; y15r=y14r; y15l=y14l; +penstroke z14e--z15e; +z13=(x15l,y11r); +z17=(x12-apex_o,0.588[y13,y15l]); +z12-z11l=whatever*dir30; y12=h+apex_o; +penpos16(cap_hair,0); +z16=whatever[z14l,z15l]; x16r=x17; +filldraw z11l--z12 & z12..z13{down} +--z16r{dir222} & z16r--z16l & +z16l..z17{up}..z11r{left} & +z11r--z11l & cycle; +% +% +% +z18=(0.417w,0.3h); z19=(0.267w,0.169h); +z20=(0.834w,0.101h); z21=(0.7w,-apex_o); +penpos22(cap_hair,-50); +x22r=w; y22=0.132h; +filldraw z5r{dir31}..z19{right}.. +z21{right}..z22r{dir40} & +z22r--z22l & z22l{dir220}..z20{left} +..z18{left}..z5l{dir211} & z5l--z5r +& cycle; +.endchar; + +.cmchar "The Schwabacher letter F"; +.beginchar("F",9.925u#,cap_height#,2.943u#); +.adjust_fit(usual_left#,usual_right#);penpos1(2/3cap_hair,-90); +penpos2(1.286cap_stem,180); +penpos2'(1.071cap_stem,-142.5); +penpos3(cap_hair,-90); +penpos4(1.214cap_stem,42.5); +penpos5(1.125cap_stem,40); +penpos6(0.786cap_stem,38); +penpos6'(1.2cap_stem,53); +penpos7(4/3cap_hair,-127); +z1r=(0,3/2cap_hair); z2r=z1l; +y3r=-d-apex_o; x3=0.55w; +x4=0.821w; y4=-y4l; z5=(0.687w,0.368h); +z6=(0.439w,0.807h); +x7l=x5; y7l=h+apex_o; +z8=(w,y7r); z10=z8-(0,cap_stem); +z9=z10-(cap_stem,0); +z2'l=z2l; z6'r=z6r; +filldraw z2l{dir-79}..z3l{right}.. +z4l{up}..z5l..z6'l{up}..z7l{right} +..z8 & z8--z10--z9 & +z9{up}..z7r{left}..z6r{down}.. +z5r..z4r{down}..z3r{left}.. +z2'r..z1r{left} & z1r--z1l--z2l +& cycle; +% +% +% +penpos11(2/3cap_hair,-90); +penpos12(0.786cap_stem,-114); +y11r=y12r=0.506h; x12l=w-apex_o; +x11=0.29w; +filldraw z11r--z11l & z11l{dir40}.. +z6{up} & z6--z6r--(x6r,y12l)-- +z12l--z12r--z11r & cycle; +.endchar; + +.cmchar "The Schwabacher letter G"; +.beginchar("G",13.434u#,cap_height#,0); +.adjust_fit(usual_left#,usual_right#);penpos1(2cap_stem,-142); +z1l=(0.815w,0.742h); +penpos1'(cap_hair,-90); z1'l=z1r; +penpos2(1.179cap_stem,-142); +z2l=(w,0.466h); penpos3(cap_hair,77); +z3=(0.764w,0.067h); +z4=(0.59w,-apex_o); +penpos5(1.179cap_stem,32); +z5l=(0,0.457h); +penpos6(cap_hair,-56.5); +z7=(x4-0.643cap_stem,h+apex_o); +z7-z6l=whatever*dir33.5; +penpos8(1.286cap_stem,-130); +z8r=z1l+(-apex_o,apex_o); +z6r-z8r=whatever*(z7-z8l); +filldraw z1'r{dir45}..z2r{down}.. +z3r{dir207}..z5r{up}..z6r{z7-z6l} & +z6r--z8r--z8l--z7---z6l... +z5l{down}..z4{right}..z3l{dir27}.. +z2l{up}..z1l{1/3[z6l,z7]-z1l} +& z1l--z1r--z1'r & cycle; +% +% +% +penpos9(cap_stem,0); penpos10(cap_stem,0); +penpos11(cap_hair,-32); +penpos12(cap_hair,-52); +x9r=x10r=x4; y9=0.3h; y10=0.681h; +z12-z8=whatever*(z7-z8l); +z12l-z10l=whatever*dir27; +z9-z11''=whatever*dir58; y11''=0; +z11=(z2{down}..z3{dir207}..z5{up}) +intersectionpoint (z11''--z9); +z11'=whatever[z11,z9]; x11'=x9l; +penstroke z9e--z10e; +filldraw z11r{z9-z11}..z9r{z9r-z11'} +& z9r--z9l & z9l{down}..z11l{z11-z9} +& z11l--z11r & cycle; +filldraw z10r{up}..z12r{z12l-z10l} +& z12r--z12l--z10l--z10r & cycle; +% +% +% +penpos13(cap_hair,angle(z8l-z7)); +z13r=z8l; penpos14(1.5cap_hair,-15); +x14r=w-cap_hair; y14l=h+apex_o; +penstroke z13e{z8l-z8r}..z14e{up}; +.endchar; + +.cmchar "The Schwabacher letter H"; +.beginchar("H",11.736u#,cap_height#,2.566u#); +.adjust_fit(usual_left#,usual_right#);penpos1(1.5cap_stem,-16); +z1l=(0.637w,h); penpos2(cap_hair,-106); +z2l=whatever[z1l,z1r]; y2l=h+apex_o; +penpos3(cap_hair,-106); z3l=z1; +penstroke z2e--z3e; +penpos4(1.071cap_stem,18); +penpos5(1.071cap_stem,18); +z4l=(0,0.393h); +z4r-z5r=whatever*dir120; x5r=0.286w; +filldraw z4l---z4r...z1r{dir59} & +z1r--z1l & z1l{dir260}..{dir208}z4l & cycle; +penstroke z5e--z4e; +% +% +% +penpos6(cap_hair,angle(z5r-z4r)); +z6r=z5r; z7=(0.804w,0.503h); +z8=(x1l,0.337h); penpos9(1.071cap_stem,180); +z9r=(x7,0.147h); z10=(0.592w,-d-apex_o); +z11=(0.498w,-0.809d); +z12=(0.386w,-0.397d); +z13=(0.473w,0.043h); +z14=(x12,0.123h); +z15=(x5r,0); +filldraw z6r{z5r-z5l}..z8{right}.. +z9r{down}..z11{left}..z12{up}.. +z13{up}..z14{left}..z15{down}.. +z10{right}..z9l{up}..z7 & z7--z6l +--z6r & cycle; +.endchar; + +.cmchar "The Schwabacher letter I"; +.beginchar("I",12.943u#,cap_height#,3.019u#); +.adjust_fit(usual_left#,usual_right#); +penpos1(0.786cap_stem,32); +z1l=(apex_o,0.653h); +penpos2(0.821cap_stem,29); +z2l=(0,0.715h); z4=(0.198w,0.85h); +z5=(0.321w,h+apex_o); +penpos3(cap_hair,-55); y3=y4; +z5-z3l=whatever*dir35; +penpos6(1.125cap_stem,-119); +penpos8(cap_hair,-37); +z6=(0.636w,0.822h); +z8=(0.845w,h); penpos9(cap_hair,-37); +penpos9'(cap_amount,-37); +z9'l=z8r; z9l=z9'r; +penpos10(1.304cap_stem,47); +x10r=x8; y10r=y2; +penpos11(1.107cap_stem,26); +z11r=(w,0.215h); z12=(x10l,-0.313d); +z13=(0.545w,-d-apex_o); +z14=(0.19w,-0.45d); +penpos15(cap_hair,-37); x15l=0; +y15=-0.688d; penpos16(2.25cap_stem,-131); +z16r=z15l; +filldraw z1r{dir122}..z2r{up}.. +z3r..z4{right}..z6r{right}.. +z8r{dir57} & z8r--z8l & +z8l{dir237}..z6l{left}..z5 & +z5---z3l...z2l{down}..z1l{dir302} +& z1l--z1r & cycle; +% +% +% +filldraw z15r{dir49}..z14{right}.. +z13 & z13{dir31}..z11r{up}..z10r{up} +..z9r{dir57} & z9r--z9l & +z9l{dir237}..z10l{down}..z11l{down} +..z12{left}..z16l{dir139} & +z16l--z16r--z15r & cycle; +.endchar; + +.cmchar "The Schwabacher letter J"; +.beginchar("J",12.943u#,cap_height#,3.019u#); +.adjust_fit(usual_left#,usual_right#); +penpos1(0.786cap_stem,32); +z1l=(apex_o,0.653h); +penpos2(0.821cap_stem,29); +z2l=(0,0.715h); z4=(0.198w,0.85h); +z5=(0.321w,h+apex_o); +penpos3(cap_hair,-55); y3=y4; +z5-z3l=whatever*dir35; +penpos6(1.125cap_stem,-119); +penpos8(cap_hair,-37); +z6=(0.636w,0.822h); +z8=(0.845w,h); penpos9(cap_hair,-37); +penpos9'(cap_amount,-37); +z9'l=z8r; z9l=z9'r; +penpos10(1.304cap_stem,47); +x10r=x8; y10r=y2; +penpos11(1.107cap_stem,26); +z11r=(w,0.215h); z12=(x10l,-0.313d); +z13=(0.545w,-d-apex_o); +z14=(0.19w,-0.45d); +penpos15(cap_hair,-37); x15l=0; +y15=-0.688d; penpos16(2.25cap_stem,-131); +z16r=z15l; +filldraw z1r{dir122}..z2r{up}.. +z3r..z4{right}..z6r{right}.. +z8r{dir57} & z8r--z8l & +z8l{dir237}..z6l{left}..z5 & +z5---z3l...z2l{down}..z1l{dir302} +& z1l--z1r & cycle; +% +% +% +filldraw z15r{dir49}..z14{right}.. +z13 & z13{dir31}..z11r{up}..z10r{up} +..z9r{dir57} & z9r--z9l & +z9l{dir237}..z10l{down}..z11l{down} +..z12{left}..z16l{dir139} & +z16l--z16r--z15r & cycle; +.endchar; + +.cmchar "The Schwabacher letter K"; +.beginchar("K",12.943u#,cap_height#,0); +.adjust_fit(usual_left#,usual_right#); +penpos1(cap_hair,-90); z1=(1/10w,0); +penpos3(cap_stem,0); z3=(0.419w,0.5h); +z2=(x3l,0.261h); z4=(x3,0.853h); +penpos4(cap_stem,0); +penpos5(1.286cap_stem,-140); +z5r=(0,0.773h); z6=(0.131w,0.69h); +z7=(0.251w,0.828h); penpos8(cap_hair,-50); +x8r=x3r; y8=h; +filldraw z1r{right}...z3r---z4r-- +z8r--z4l---z2...z1l{left} & z1l--z1r & +cycle; +filldraw z8r--z8l & z8l{z4l-z8r}..z7{left} +..z5l{dir130} & z5l--z5r & z5r{dir-50} +..z6{right}..z8r{z8r-z4l} & cycle; +% +% +% +penpos9(whatever,-90); +penpos10(cap_hair,-50); +z10=(0.681w,h); z9l=z4r; +z9r-z10r=whatever*(z9l-z10l); +penpos12(cap_hair,-50); +z12=whatever[z10l,z10r]; +penpos11(whatever,-90); +z11r=z3r; z11r-z12r=whatever*(z9r-z10r); +z11l-z12l=whatever*(z9r-z10r); +penpos13(1.107cap_stem,angle(z12-z11)); +penpos14(1.107cap_stem,angle(z12-z11)); +z13r=z12r; z14r=z10r; +penstroke z9e--z10e; +penstroke z11e--z12e; +penstroke z13e--z14e; +% +% +% +penpos16(1.071cap_stem,30); +x16r=w; y16l=-apex_o; +penpos15(whatever,angle(z12-z11)); +z15=whatever[z11r,z12r]; +z15r-z16r=whatever*dir124; +z15l-z16l=whatever*dir124; +penstroke z16e--z15e; +% +% +% +z17=(x3,1.5cap_amount); +z18=(x3r,0.221h); +penpos19(1.071cap_stem,45); +z19l=(0.613w,-apex_o); +filldraw z1r{right}..z17{right}.. +z19l & z19l--z19r--z18 & +z18{dir220}..z1l{left} & z1l--z1r & +cycle; +.endchar; + +.cmchar "The Schwabacher letter L"; +.beginchar("L",10.377u#,cap_height#,0); +.adjust_fit(usual_left#,usual_right#); +penpos1(cap_hair,-90); +penpos1'(cap_amount,-90); +penpos2(cap_hair,-90); +x1=x1'=x2=0; y1r=y1'l; y1'r=y2l; +y1'=0.135h; penpos3(whatever,28); +penpos6(whatever,28); +x3r=0.349w; x6l=0.505w; +x3l=x3r-.95cap_stem; x6r=x6l+.95cap_stem; +y3r=0.472h; +z6=whatever[z3l,z3r]+(0,-u); +penpos4(whatever,18); +penpos7(whatever,0); +x4l=x3l; x4r=x3r; x7l=x6l; x7r=x6r; +y4r=0.779h; z7=whatever[z4l,z4r]; +penpos5(cap_hair,-70); +x5=x7r; y5=0.45[h,y7]; +penpos8(cap_hair,-57); +x8=0.753w; y8=h; +penpos9(cap_stem,-148); +penpos10(0.893cap_stem,-137); +penpos11(cap_hair,-53); +z9=(0.287w,0.178h); +x10=x8; y10r=-apex_o; +x11r=w; y11r=y9r; +% +% +% +penstroke z1e{dir23}...z3e---z4e... +z5e{right}; +penstroke z1e{dir23}...z6e---z7e... +z8e{right}; +penstroke z2e{dir23}..z9e{right} +..z10e{right}..z11e{dir37}; +.endchar; + +.cmchar "The Schwabacher letter M"; +.beginchar("M",17.736u#,cap_height#,0); +.adjust_fit(usual_left#,usual_right#); +penpos1(1.25cap_stem,47); +penpos2(1.25cap_stem,47); +penpos3(1.107cap_stem,42.5); +penpos4(1.143cap_stem,47); +penpos5(0.5cap_hair,0); +penpos6(cap_hair,-43); +penpos7(cap_hair,-43); +x2l=0; y1l=-apex_o; +z2-z1=whatever*dir143; +y2l=0.141h; z3r=(0.207w,0.638h); +x4l=0; y4r=h+apex_o; z5l=z4r; +z6r=z1; z7r=whatever[z1l,z1r]; +penpos11(cap_stem,0); +x11=0.494w; x9=0.423[x3r,x11l]; +x9=x7; +penstroke z6e--z7e; +penstroke z1e--z2e; +filldraw z2r{z2r-z2l}..z3r{up}.. +z5r{up} & z5r--z5l--z4l & +z4l{dir-56}..z3l{down}..z2l{z2l-z2r} +& z2l--z2r & cycle; +% +% +% +penpos8(1.214cap_hair,-90); +z8=(x3,y3r); y11=0.709h; +z10=(x11l,h+apex_o); +z9-z8r=whatever*(z10-z8l); +filldraw z8r---z9...z11l{down} & +z11l--z11r & z11r{up}..z10{left} +& z10--z8l--z8r & cycle; +penpos12(whatever,30); +y12l=-apex_o; x12l=x11l; x12r=x11r; +penstroke z12e--z11e; +% +% +% +penpos13(1.25cap_hair,-90); +z13r=z11r; %penpos24(1.036cap_stem,-129); +%penpos25(1.036cap_stem,-129); +penpos20(2/3cap_hair,-52); +penpos18(whatever,11); +penpos19(whatever,31); +x18l=x19l=0.768w; +x18r=x19r=x18l+cap_stem; +y18l=0.187h; y19l=0.54h; +z20r=(w,0.856h); penpos22(cap_hair,-61); +z22r=(w,0.184h); penpos21(cap_hair,-61); +y21=0; x21r=0.749w; +filldraw z21r--z22r--z22l & +z22l{z21r-z22r}...z18r{up}--- +z19r..z20r{dir34} & z20r--z20l & +z20l{dir214}...z19l{down}---z18l.. +z21l{dir235} & z21l--z21r & cycle; +% +% +% +penpos24(1.036cap_stem,-128); +penpos25(1.036cap_stem,-128); +z25=(0.789w,0.911h); +z24=z25-(0.714cap_stem,0); +z26-z25r=whatever*dir-34; +x26=w; +z17=(z18{up}---z19...z20{dir34}) +intersectionpoint (z25r--z26); +filldraw z13r---z24r...z25r--- +z17 & z17--z20--z20l & +z20l{dir214}..{z25r-z17}z25l... +z24l---z13l & z13l--z13r & cycle; +.endchar; + +.cmchar "The Schwabacher letter N"; +.beginchar("N",14.868u#,cap_height#,0); +.adjust_fit(usual_left#,usual_right#); +penpos1(1.107cap_stem,55); +z1l=(0.348w,-apex_o); +z3=(0.056w,0.184h); +z2=(0.231w,0.089h);penpos4(cap_hair,0); +z4l=(0.152w,0.445h); +penpos5(1.25cap_stem,49); +x5l=0; y5r=h+apex_o; penpos6(0.5cap_hair,0); +z7=(0.129w,0.945h); +penpos15(cap_hair,-35); +z15-z14=whatever*dir55; +penpos14(cap_hair,-35); +z14r=z1; x15=0.576w; z8'=(x15r,0); +penpos16(cap_stem,-123.5); +x16=0.497w; y16l=h+apex_o; +penpos10(1.071cap_stem,-135); +z10r=(0.797w,0.656h); +filldraw z1l--z1r{z3-z1l}..z4r{up} +& z4r--z4l & z4l{down}..z3 & +flex(z3,z2,z1l) & cycle; +penstroke z14e--z15e; +penstroke z4e{up}..z16e{right}.. +z10e{dir-45}; +z6l=z5r; +%z8'-z7=whatever*dir-58; y8'=0; +z8=(z7--z8') intersectionpoint +(z4{up}..z16{right}); +filldraw z4l{up}..z5l--z5r--z6r +& z6r...z7---z8 & z8--z4--z4l & +cycle; +% +% +% +penpos11(cap_hair,-45); penpos12(cap_hair,-45); +z11r=z10; z12-z11=whatever*dir45; +x12r=w; z13=(0.891w,0.862h); +filldraw z16--z16l{right}..z13.. +z12l{z12-z11} & z12l--z12r--z11r +--z11l & z11l..z16{left} & cycle; +% +% +% +penpos19(2/3cap_hair,0); +penpos20(cap_hair,-90); +z19r=(x11r,-apex_o); +x20=w; z20-z19=whatever*dir40; +z21=(0.694[x19,x20],y20r); +z18=(0.701w,0.301h); +z22=(0.827w,0.485h); +filldraw z19r--z20r--z20l & +z20l..z21{left}..z22{up}..z12r{z12r-z11r} +& z12r--z12l--z10r & +z10r{z10r-z10l}..z18{down}..z19l & +z19l--z19r & cycle; +.endchar; + +.cmchar "The Schwabacher letter O"; +.beginchar("O",12.528u#,cap_height#,0); +.adjust_fit(usual_left#,usual_right#); +penpos1(cap_hair,115); +penpos8(cap_stem,0); x8r=0.536w; +y8=0.451h; penpos9(whatever,25); +x9l=x8l; x9r=x8r; y9r=h+apex_o; +z1r=z9l; penpos2(0.929cap_stem,-154); +z2r=(0,0.5h); penpos3(1.071cap_stem,-128.5); +x3=x8r; y3r=-apex_o; +penpos4(0.946cap_stem,29); +z4r=(w,0.54h); z5=(0.735w,0.837h); +penpos5(1.107cap_stem,44); +penpos6(1.286cap_stem,47); +z6r=(x5,h+apex_o); +penpos10(cap_hair,-43); +penpos11(cap_hair,-43); +z11l=z6; z11-z10=whatever*dir47; +x10=x8; +z8r-z7'=whatever*dir49; +y7'=0; penpos7(cap_hair,-41); +z7r=(z7'--z8r) intersectionpoint +(z2{down}..z3{right}); +z3''=whatever[z2,z4]; x3''=x8r; +z3'=whatever[z3'',(w,cap_hair)]; +penpos3'(cap_hair,angle((w,cap_hair)-z3'')); +x3'=0.819w; +penstroke z1e{z9l-z9r}..z2e{down} +..z3e{right}..z3'e..z4e{up}...z5e{z6-z5}... +z6e; +filldraw z7r--z8r--z9r--z9l---z8l +...z7l{z7r-z8r} & z7l--z7r & cycle; +penstroke z10e--z11e; +.endchar; + +.cmchar "The Schwabacher letter P"; +.beginchar("P",11.849u#,cap_height#,3.2u#); +.adjust_fit(usual_left#,usual_right#); +penpos2(cap_stem,0); x2=0.226w; +y2=0.08h; penpos1(0.1cap_hair,0); +z1=(x2,-d-apex_o); +penpos3(whatever,35); +penpos4(1.25cap_stem,47); +x4l=0; y4r=h+apex_o; +x3l=x2l; x3r=x2r; y3r=0.761h; +penstroke z1e--z2e---z3e{up}...z4e; +% +% +% +penpos5(whatever,-122); +x5r=0; x5l=x2l; +y5r=y2+2/3cap_hair; +penpos6(cap_stem,-140); +z6r=(0.534w,-apex_o); +penpos8(cap_hair,-50); +z8r=whatever[z6l,z6r]; x8=0.752w; +penpos9(1.107cap_stem,36); +z9r=(w,y3l); z10=(0.536w,h+apex_o); +z11=(0.513w,0.831h); +penpos12(cap_hair,90); x12=x1; +y12=2/3h; z7=(0.634w,0.156h); +z5'=(x2l,0.135h); +filldraw z5r{right}..z6r & +z6r---z6l...z8r..z9r{up}..z10 & +z10--z12r--z12l & z12l{z10-z12r}.. +z11{right}..z9l{down}..z8l..z7{left}.. +z5l{left} & z5l--z5r & cycle; +.endchar; + +.cmchar "The Schwabacher letter Q"; +.beginchar("Q",12.528u#,cap_height#,0); +.adjust_fit(usual_left#,usual_right#+1.208u#); +penpos1(cap_hair,115); +penpos8(cap_stem,0); x8r=0.536w; +y8=0.451h; penpos9(whatever,25); +x9l=x8l; x9r=x8r; y9r=h+apex_o; +z1r=z9l; penpos2(0.929cap_stem,-154); +z2r=(0,0.5h); penpos3(1.071cap_stem,-128.5); +x3=x8r; y3r=-apex_o; +penpos4(0.946cap_stem,29); +z4r=(w,0.54h); z5=(0.735w,0.837h); +penpos5(1.107cap_stem,44); +penpos6(1.286cap_stem,47); +z6r=(x5,h+apex_o); +penpos10(cap_hair,-43); +penpos11(cap_hair,-43); +z11l=z6; z11-z10=whatever*dir47; +x10=x8; +z8r-z7'=whatever*dir49; +y7'=0; penpos7(cap_hair,-41); +z7r=(z7'--z8r) intersectionpoint +(z2{down}..z3{right}); +z3''=whatever[z2,z4]; x3''=x8r; +z3'=whatever[z3'',(w,cap_hair)]; +penpos3'(cap_hair,angle((w,cap_hair)-z3'')); +x3'=0.819w; +penstroke z1e{z9l-z9r}..z2e{down} +..z3e{right}..z3'e..z4e{up}...z5e{z6-z5}... +z6e; +filldraw z7r--z8r--z9r--z9l---z8l +...z7l{z7r-z8r} & z7l--z7r & cycle; +penstroke z10e--z11e; +% +% +% +penpos12(cap_hair,-30); +x12=0.3[x5,x3']; y12=cap_hair; +penpos13(1.179cap_stem,-118); +z13l=(w+1.408u,0.288h); +penstroke z12e{dir60}..z13e{dir-28}; +.endchar; + +.cmchar "The Schwabacher letter R"; +.beginchar("R",12.792u#,cap_height#,0); +.adjust_fit(usual_left#,usual_right#); +penpos1(1.143cap_stem,33); +penpos2(1.143cap_stem,33); +z1l=(0.342w,-apex_o); +penpos16(cap_hair,-57); +penpos17(cap_hair,-57); +z16r=z1; z17-z16=whatever*dir33; +x17=0.625w; x2=0.242w; z2-z1=whatever*dir133; +penpos3(cap_hair,-47); +z3r=z2l; penpos4(cap_stem,22); +z4=(0.451w,0.583h); +penpos5(1.5cap_stem,48); +x5l=0; y5r=h+apex_o; +penstroke z16e--z17e; +penstroke z1e--z2e; +filldraw z3r---z2r...z4r{up}..z5r{left} +& z5r--z5l & z5l{right}..z4l{down}.. +z3l{z2l-z2r} & z3l--z3r & cycle; +z7=(0.687w,h+apex_o); +z7-z7'=whatever*dir45; +x7'=0; z6=(z7'--z7) intersectionpoint +(z4r{up}..z5r{left}); +z6'=z6-(0,cap_hair); +penpos8(cap_stem,-147); +penpos12(cap_hair,90); +z8=(0.802w,0.804h); x12=x4; y12=0.552h; +penpos8'(1.179cap_stem,-135); +z8'l=z8l; +penpos13(cap_stem,17); +z13=(0.708w,0.506h); +penpos14(1.464cap_stem,25); +x14r=w; y14l=-apex_o; penpos15(2/3cap_hair,-90); +z15r=z14r; z13'-z13r=whatever*(z13l-z14l); +z13'=whatever[z4r,z8]; +z11=(0.735w,0.712h); +penpos11'(cap_hair,angle(z13'-z13r)); +z11'r=z11; +filldraw z6--z7..z8'l{down}..z11'l +{dir201} & z11'l---z13r...z15l{right} +& z15l--z15r--z14l---z13l...z12l{dir187} +& z12l--z12r & z12r{dir7}..z11.. +z8'r{up}..z6'{dir208} & z6'--z6 & +cycle; +.endchar; + +.cmchar "The Schwabacher letter S"; +% made in Athens, Greece on july 21, 1990 +.beginchar("S",13.887u#,cap_height#,0); +.adjust_fit(usual_left#,usual_right#); +penpos1(cap_hair,148); +penpos2(cap_hair,180); +penpos3(cap_hair,-90); +penpos4(1.107cap_stem,25); +penpos5(1.125cap_stem,72); +penpos6(1.071cap_stem,84); +penpos7(0.875cap_stem,48); +penpos8(1.036cap_stem,-136); +penpos9(1.161cap_stem,-111); +penpos10(cap_hair,-42); penpos11(cap_hair,-42); +z1=(0.109w,0.799h); z2r=(0,0.552h); +z3r=(0.533w,-apex_o); z4r=(w,0.345h); +z5=(0.685w,0.497h); z6=(0.402w,0.451h); +z7=whatever[z2r,z1l]; x7r=x1l; +z8l=(0.413w,h+apex_o); z9r=(0.832w,0.683h); +y10r=y9l; x10r=w-apex_o; +z10r-z11r=whatever*dir48; y11=y5; +penstroke z1e..z2e{down}..z3e{right} +..z4e{up}..z5e{left}..z6e{left}.. +z7e{up}..z8e{right}..z9e{right}; +penstroke z11e--z10e; +filldraw z9l{right}..{z10-z11}z10l--z10r-- +z9r--z9l & cycle; +.endchar; + +.cmchar "The Schwabacher letter T"; +.beginchar("T",11.811u#,cap_height#,0); +.adjust_fit(usual_left#,usual_right#); +penpos1(1.893cap_stem,51); +y1l=-apex_o; x1r=w-1.3apex_o; +penpos2(cap_hair,-61); +z2l=z1r; %x2r=w; +penpos3(cap_hair,angle(z2r-z2l)); +z2-z3=whatever*dir45; y3r=-apex_o; +penpos4(cap_stem,90); +x4=0.633w; y4l=-apex_o; +penpos5(3/4cap_stem,30); +z5r=(0.217w,0.5h); +penpos6(cap_hair,-51); +z6r=(0.396w,h-apex_o-cap_stem); +penstroke z3e--z2e; +penstroke z4e{left}... +z5e{up}..z6e{dir39}; +filldraw z4r{right}..z2l{z2-z3} & +z2l--z3r--z4l--z4r & cycle; +% +% +% +penpos10(cap_stem,-90); +penpos11(whatever,-115); +x10=0.115w; y10l=h-apex_o; +z11l=(w,h+apex_o); penpos10'(cap_stem,-90); +y11r=y10r; y10'=y10; x10'=x3; +penstroke z10e---z10'e...z11e; +penpos13(cap_hair,-34); +x13l=0; y13=0.732h; +z12=whatever[z10r,z11r]; x12=x5; +filldraw z13r{dir56}..z12{right} & +z12--z10l--z13l--z13r & cycle; +% +% +% +penpos9(cap_stem,0); +penpos8(cap_stem,0); +z9=(0.511w,y10r); z8=(x9,0.381h); +penstroke z8e--z9e; +penpos7(0.5cap_hair,-52); +z8r-z7r=whatever*dir38; +y7r=y4r; z14=(x8l,0.1[y8,y4r]); +filldraw z7r--z8r--z8l---z14... +z7l{z7r-z8r} & z7l--z7r & cycle; +.endchar; + +.cmchar "The Schwabacher letter U"; +.beginchar("U",11.811u#,cap_height#,0); +.adjust_fit(usual_left#,usual_right#); +penpos1(cap_stem,0); penpos2(cap_stem,0); +penpos3(2.375cap_stem,0); penpos5(cap_stem,0); +penpos6(cap_stem,0); +x1=w-1.188cap_stem=x2=x3=x4; +y1=0.152h; y2=0.72h; y3=0.848h; +y4=h+apex_o; +penstroke z1e--z2e; +filldraw z2r{up}..z3r{right} & +z3r--z4--z3l & z3l{right}..z2l{down} +& z2l--z2r & cycle; +penpos9(cap_hair,90); penpos10(whatever,40); +z10l=(x1l,-apex_o); y10r=y1; +x9=w-0.04w; z9r=whatever[z10l,z10r]; +filldraw z10l--z9l +& z9l--z9r & z9r{left}..(x1r,0.274h){up} +--z1l--z10l & cycle; +% +% +% +penpos11(1.148cap_stem,39); +penpos12(1.148cap_stem,39); +x5r=0.288w; y5=y1; x6=x5; y6=0.817h; +z11l=(0.393w,-apex_o); +z12l=z5l; penpos13(cap_hair,-51); +penpos14(cap_hair,-51); +z14r=whatever[z11l,z11r]; +z13r=z11; x14l=x1l; +penstroke z13e--z14e; +penstroke z11e--z12e; +penstroke z5e--z6e; +penpos8(cap_hair,90); z8l=(w-x9,y9l); +filldraw z11l{z12l-z11l}..z8l +& z8l--z8r & z8r{right}..(x5l,0.274h){up} +--z5r--z11l & cycle; +penpos7(whatever,55); +z7l=(0,y6); y7r=h+apex_o; +filldraw z6r{up}..z7r{dir138} & +z7r--z7l & z7l{right}..(x6l,y2) & +(x6l,y2)--z6r & cycle; +.endchar; + +.cmchar "The Schwabacher letter V"; +.beginchar("V",12.189u#,cap_height#,0); +.adjust_fit(usual_left#,usual_right#); +penpos1(1.143cap_stem,43); +penpos2(1.5cap_stem,25); +penpos3(1.2cap_stem,16); +penpos4(1.393cap_stem,50); +z1l=(0.526w,-apex_o); +z2=(0.251w,0.186h); +z3=(0.303w,0.494h); x4l=0; y4r=h+apex_o; +%filldraw z1l{dir138}..z2l{left} +%& z2l{dir68}..z3l{up}..z4l{dir150} +%& z4l--z4r & z4r{dir-30}..z3r{down} +%..z2r & z2r{dir-13}..z1r{dir-33} & +%z1r--z1l & cycle; +penstroke z2e..z3e{up}..z4e{dir150}; +penstroke z1e{dir143}..z2e{left}; +% +% +% +penpos5(1.232cap_stem,46); +z5r=(w,0.61h); z6=(0.557w,0.82h); +z8=(0.681w,h+apex_o); +penpos7(cap_hair,-55); +z8-z7l=whatever*dir37; +x7r=x3; +filldraw z1l{dir30}..z5r{up}..z8 & +z8--z7l--z7r & z7r{z8-z7l}..z6{right} +..z5l{down}..z1r{dir210} & +z1r--z1l & cycle; +.endchar; + +.cmchar "The Schwabacher letter W"; +.beginchar("W",18.189u#,cap_height#,0); +.adjust_fit(usual_left#,usual_right#); +penpos1(cap_hair,-56); +penpos2(cap_hair,-56); +z2r=(0.245w,-apex_o); +z1r-z2r=whatever*dir34; +y1l=0.216h-cap_hair; +penstroke z2e--z1e; +penpos3(cap_hair,90); +y3l=y1l; x3=x2r-1.393cap_stem; +penpos6(cap_stem,0); z6r=(x2r,y3r); +z4=0.592[z2l,z1l]; +z5-z4=whatever*(z3l-z2r); x5=x6r; +z7=(x6l,0.36h); +penpos8(cap_stem,0); x8=x6; +y8=0.704h; +penpos9(1.179cap_stem,57); +x9l=0; y9r=h+apex_o; +penstroke z6e---z8e...z9e; +filldraw z2r--z3l--z3r..z7{up} +& z7--(x6r,y7)-- +z5--z4--z2r & cycle; +% +% +% +penpos11(cap_hair,-90); z12=(0.444w,h+apex_o); +z11r=z8r; z13=(.763[x11,x12],0.802h); +penpos16(cap_stem,0); x16=0.548w; +y16=0.104h; penpos14(cap_stem,0); +z14=(x16,y8); z14'=(x14r,y13); +filldraw z11r{z12-z11l}...z13{right} +...z14l---z16l--z16r---z14'...z12{dir170} +& z12--z11l--z11r & cycle; +penpos18(1.179cap_stem,40); +penpos18'(1.179cap_stem,40); +penpos17(1.179cap_stem,40); +z17l=z16l; z18-z17=whatever*dir-23; +y18l=-apex_o; +z18'=0.4[z17,z18]+(apex_o,apex_o); +penstroke z18e..z18'e..z17e; +% +% +% +penpos15(cap_hair,-90); z22=(x15-x11+0.444w,h+apex_o); +z15r=z14r; z21=(.763[x15,x22],0.802h); +penpos20(1.071cap_stem,35); x20r=w; +y20=0.552h; penpos19(cap_hair,-60); +z19r=z18l; +penstroke z19e{dir30}..z20e{up}; +filldraw z20l{up}..z21{left}.. +z15r{z15l-z22} & z15r--z15l--z22 & +z22..z20r{down} & z20r--z20l & cycle; +.endchar; + +.cmchar "The Schwabacher letter X"; +.beginchar("X",11.472u#,cap_height#,0); +.adjust_fit(usual_left#,usual_right#); +penpos1(1.179cap_stem,-130); +penpos2(1.179cap_stem,-122); +penpos3(0.8cap_hair,-17); +penpos4(cap_hair,-22); +penpos5(1.2cap_hair,-23); +penpos6(1.107cap_stem,-120); +penpos7(1.125cap_stem,-124); +z1r=(0,0.065h); z2r=(0.128w,-apex_o); +z3=(0.414w,0.28h); +z4=(0.49w,0.509h); z5=(0.625w,0.765h); +z6l=(0.878w,h+apex_o); +z7l=(w,0.945h); +penstroke z1e..z2e{right}..z3e..z4e +..z5e..z6e{right}..z7e; +% +% +% +penpos8(cap_hair,90); penpos9(1.393cap_stem,40); +penpos10(0.964cap_stem,82); +penpos11(1.036cap_stem,42); +penpos12(cap_stem,0); +penpos13(1.036cap_stem,43); +penpos14(1.321cap_stem,43); +x9r=w; y9l=-apex_o; z8l=z9r; z10l=z9l; +z11=(0.612w,0.186h); z12=z4; +z13=(0.395w,0.835h); z14r=(0.217w,h+apex_o); +penstroke z10e{left}..z11e..z12e..z13e.. +z14e{left}; +filldraw z9r--z8r..z10r{left}--z10l +--z9r & cycle; +% +% +% +penpos15(cap_hair,0); +penpos21(0.8cap_stem,-90); +penpos17(cap_hair,0); +z21=z4; y19=y18=y21r; y16=y20=y21l; +y15=y21-0.821cap_stem; y17=y21+0.643cap_stem; +x15=0.118w; x16=0.204w; x17=0.928w; +x18=0.836w; x19=0.263w; x20=3/4w; +filldraw z15r...z19---z18--z17r-- +z17l...z20---z16--z15l--z15r & cycle; +.endchar; + +.cmchar "The Schwabacher letter Y"; +.beginchar("Y",12.302u#,cap_height#,2.34u#); +.adjust_fit(usual_left#,usual_right#); +z1=(0.868w,-d); penpos2(cap_stem,7); +z4=(0.788w,-0.274d); +z2=(0.856w,-0.613d); +penpos5(5/3cap_hair,120); +penpos6(1.2cap_hair,158); +penpos7(1.2cap_hair,-55); +penpos8(1.161cap_stem,22); +z5l=(0.294w,0.171h); +z6r=(0,0.035h); +z7r=(0.221w,-0.6d); +z8r=(w,0.683h); z11=(0.767w,h+apex_o); +penpos12(cap_stem,0); z12=(0.485w,0.421h); +x9=0.325[x12r,x8l]; y9=0.835h; +penpos10(cap_hair,128.5); +z11-z10r=whatever*dir38.5; +x10l=x12; +penstroke z5e{left}..z6e{down}..z7e{right} +..z8e{up}; +filldraw z1{right}..z2r{up}..z5r{left} +& z5r--z5l & z5l{right}..z4{down}.. +z2l{down}..z1{right} & cycle; +filldraw z8l{up}..z9{left}..z10l +{z10r-z11} & z10l--z10r--z11 & +z11..z8r{down} & z8r--z8l & cycle; +% +% +% +penpos13(whatever,33); x13r=x12r; +z13=(z7{right}..z8{up}) +intersectionpoint ((x12,-d)--z12); +penpos14(cap_hair,90); +penpos15(1.464cap_stem,31); +y15r=h+apex_o; x15l=0; z14r=z15l; +filldraw z13r---z12r...z15r{left} +& z15r--z15l--z14l & +z14l{dir20}...z12l---z13l--z13r & +cycle; +.endchar; + +.cmchar "The Schwabacher letter Z"; +.beginchar("Z",7.736u#,cap_height#,1.132u#); +.adjust_fit(usual_left#,usual_right#); +z1=(apex_o,0.866h); +penpos2(1.125cap_stem,-135); +penpos3(1.125cap_stem,-135); +penpos4(1.125cap_stem,-135); +penpos5(cap_hair,-45); +z5r=(w,0.89h); +penpos6(whatever,-90); x6=0.205w; +z5r-z6r=whatever*dir45; +z5l-z6l=whatever*dir45; +z4l=z5l; z3=(0.722w,0.826h); +z2l=(0.312w,h+apex_o); +penstroke z2e{right}..z3e{right}.. +z4e; +penstroke z6e--z5e; +filldraw z1..z2l{right}--z2r{left} +..z1 & cycle; +% +% +% +z10=(0,0.128h); z12=(0.327w,y10); +z13=(0.263w,apex_o); +penpos9(cap_hair,-90); +z9r=(0.439w,-d); +penpos8(1.071cap_stem,36); +z8r=(w,0.317h); +penpos7(cap_stem,68); +z7r=whatever[z6r,z5r]; +y7l=y6l; penstroke z9e{right}.. +z8e{up}..z7e{left}; +filldraw z6r{z5r-z6r}..z7l{right} +& z7l--z7r--z6r & cycle; +filldraw z9r{left}..z10{up}..z12{down} +..z13{down}..z9l{right} & z9l--z9r & +cycle; +.endchar; |