.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;