.cmchar "The Fraktur letter A"; .beginchar("A",9.522u#,cap_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); % made in Athens, Greece on Friday July 27, 1990 penpos1(cap_hair,-51); penpos2(cap_hair,-51); z2-z1=whatever*dir39; x2r=w; z1r=(0.722w,-apex_o); penpos4'(cap_hair,39); z4'l=z1l; z4'r=z4; penpos5(cap_stem,0); z5=(x1r,0.223h); penpos13(cap_hair,-62); z13r=z5r; z13l-z14=whatever*dir26; z13r-z14'=whatever*dir26; y14=0; y14'=-apex_o; z6=whatever[z14',z13r]; x6=x5l; filldraw z14--z13l--z13r{down}.. z2l{z2-z1}--z2r--z1r--z1l--z4-- z6--z14'--z14 & cycle; filldraw z5l--z6--z5r--z5l & cycle; z1.1=whatever[z6,z4]; y1.1=y4+cap_hair; filldraw z1l{z2-z1}..z1.1{z6-z4}-- z2--z1r--z1l & cycle; % % % penpos7(cap_stem,0); z7=(x5,0.862h); penpos8(cap_hair,-57); penpos9(cap_hair,-57); z8l=z7l; z9-z8=whatever*dir33; y9=h; z10=(0.937w,h+apex_o); z11=(0.99w,0.981h); z12=(0.953w,0.955h); z9'=whatever[z8r,z9r]; x9'=0.4[x7r,x9r]; penstroke z5e--z7e; filldraw z7r{up}..z9'{z9-z8}-- z9r..z12{right}..z11{up}..z10{left} ...z9l---z8l--z7r & cycle; % % % penpos15(cap_hair,-90); z15=(0,0.213h); z15r-z16=whatever*dir137; x16=0.936x14; z17=whatever[z14,z13l]; x17=0.392w; penpos18(cap_hair,-43); z18-z17=whatever*dir133; y18r=y15l; penpos19(0.815cap_stem,0); x19=0.5w; y19=0.521h; z14''=(x14'-cap_hair,0); filldraw z15l{right}..z18l..z19l{up} --z19r{down}..z18r{dir-162}-- z17--z14''{dir72}...z16---z15r-- z15l & cycle; % % % penpos20'(1.037cap_stem,29.5); z20'=(0.405w,0.846h); penpos20(0.889cap_stem,50); z20=(x18r,0.904h); penpos21(1.25cap_hair,180); z21r=(0,3/4h); penpos22(1.148cap_stem,-162); z22l=(x20,0.678h); penpos23(cap_hair,180); z23=(0.284w,0.535h); penpos24(0.685cap_stem,66.6); z24l=(x22,0.367h); z25=(0.027w,0.426h); z26=(0.079w,0.473h); penstroke z19e{up}..z20'e{dir135}.. z20e{left}..z21e{down}..z22e{dir-45} ..z23e{down}..z24e{left}; filldraw z24l{left}..z25{up}..z26{right} ..z24r{right}--z24l & cycle; .endchar; .cmchar "The Fraktur letter B"; .beginchar("B",12.415u#,cap_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); z1=(0.045w,0.096h); z2=(0.081w,0.141h); z3=(0,0.165h); z4=(x1,0.213h); penpos5(cap_stem,-142); z5=(0.179w,0.301h); penpos6(1.259cap_stem,-147); z6r=(0.538w,-apex_o); penpos7(cap_hair,-65); z7=(0.775w,0.103h); penpos8(0.907cap_stem,30); z8r=(w,0.4h); penpos9(1.741cap_stem,27); z9l=(x6r,0.6h); filldraw z1{right}..z2{up}..z4 & z4..z5r{right}..z6r{right} & z6r---z7r...z8r{up}..z9r{left}-- z9l{right}..z8l{down}..z7l..z6l{left} ..z5l{left}..z3{down}..z1{right} & cycle; % % % penpos10(1.222cap_stem,-153); z10r=0.883[z9l,z9r]; penpos11(2/3cap_hair,-63); z11r=whatever[z9,z10]; x11=x10l+cap_hair; penpos13(1.056cap_stem,-125); z13l=(0.691w,h); z12=(z13l{right}..z10l{dir-63}) intersectionpoint ((x10l-1.5hair,0)-- (x10l-1.5hair,h)); penpos14(cap_hair,0); penpos16(0.889cap_stem,17); z16r=z9l; z14=(x16,0.686h); filldraw z14l{dir78}..z13l{right}..z12.. z11l{z10-z9}--z11r--z10r{dir117}.. z13r{left}..{dir258}z14r--z14l & cycle; % % % penpos15'(cap_hair,-90); z15'l=z5l; penpos15(0.889cap_stem,0); z14-z15=whatever*dir85; y15=y5l+2cap_hair; penpos17(cap_stem,76); z17r=(0.256w,h+apex_o); penpos18(cap_hair,180); z18=(0.055w,0.745h); penpos19(1.185cap_stem,-145); z19=(0.148w,0.644h); penpos20(cap_hair,197); z20=(0.246w,0.548h); penpos21(cap_hair,118); z21=whatever[(0,0),z17]; x21=0.108w; penstroke z15'e{right} ..z15e..z16e{up}..z17e{left} ..z18e{down}..z19e{dir-45}..z20e{z20l-z19l}.. z21e{dir202}; .endchar; .cmchar "The Fraktur letter C"; .beginchar("C",10.406u#,cap_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); z1=(0.157w,0.08h); z2=(0.211w,0.138h); z3=(0.084w,0.141h); z5=(0.113w,0.209h); z4=0.4[z3,z5]; penpos6(cap_hair,180); z6r=(0,0.117h); penpos7(cap_hair,-118); z7r=(0.189w,-apex_o); penpos8(cap_hair,-48); z8=(0.469w,0.136h); penpos9(1.074cap_stem,36); z9=(0.623w,0.367h); z10=(0.5w,0.721h); penpos10(0.889cap_stem,30); z11'=(0.736w,0.931h); z13=(0.803w,0.729h); z14=(w,0.777h); penpos11(cap_hair, angle(z13-z11')); z11l=z11'; z12-z11l=whatever*dir7; x12=0.912w; z16'-z12=whatever*(z13-z11); z16'=whatever[z13,z14]; penpos15(cap_hair,angle(z13-z11)); z15r=z14; z15l-z16=whatever*(z14-z13); z16=whatever[z12,z16']; penstroke z6e{down}..z7e{right}.. z8e..z9e{up}..z10e{up}..z11e{z12-z11l}; filldraw z11l--z12--z16--z15l--z15r --z13--z11l & cycle; filldraw z6l{up}..z4{right} & z4..z3{down}..z1{right}..z2{up}.. z5{left}..z6r{down}--z6l & cycle; % % % penpos17(1.037cap_stem,90); z17l=(0.738w,-apex_o); penpos18(1.093cap_stem,38); z18=(0.17w,0.58h); penpos19(1.5cap_hair,-57); z19l=(0.45w,h+apex_o); penpos20(1.2cap_hair,-197); z20=(0.692w,0.824h); penpos21(cap_hair,-219); z21=(3/4[x9l,x9r],y10); penstroke z17e{left}..z18e{up}.. z19e..z20e{down}..z21e; penpos22(cap_hair,-44); z22r-z17l=whatever*dir46; x22r=w; filldraw z17r{right}..z22l{z22r-z17l} --z22r--z17l--z17r & cycle; .endchar; .cmchar "The Fraktur letter D"; .beginchar("D",12.168u#,cap_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); z1=(0.073w,-apex_o); penpos2(0.6cap_stem,0); z2=(x1,0.04h); penpos4(1.204cap_stem,-148); z4=(0.229w,0.190h); penpos5(1.185cap_stem,-144); z5r=(0.545w,-apex_o); penpos6(cap_hair,-65); x6=0.787w; z6r-z5r=whatever*dir25; penpos7(0.815cap_stem,38); z7r=(w,0.418h); penpos8(0.926cap_stem,67.5); z8r=(0.41w,h+apex_o); penpos9(0.537cap_stem,-173); z9r=(0,0.685h); penpos10(2/3cap_hair,-90); z10=(0.242w,0.53h); penstroke z2e{up}..z4e{right}..z5e{right}; penstroke z6e{dir25}..z7e{up}..z8e{left} ..z9e{down}..z10e{right}; filldraw z2l{down}..z1..z2r{up}--z2l & cycle; filldraw z5l{right}..z6l{dir25}-- z6r--z5r--z5l & cycle; % % % z11=(0.171w,0.389h); z12=(0.197w,0.427h); penpos13(cap_hair,-90); z13=(x4l,0.3h); penpos14(cap_stem,0); z14=(0.462w,0.5[y11,y12]); penpos15(1.074cap_stem,34); z15=(0.353w,0.655h); z16=(0.488w,0.78h); penpos16(cap_hair,-90); penstroke z13e{right}..z14e{up}.. z15e{up}..z16e{right}; filldraw z11{up}..z12{right}..z13l{right} --z13r{left}..z11{up} & cycle; .endchar; .cmchar "The Fraktur letter E"; .beginchar("E",8.508u#,cap_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(1.074cap_stem,62.5); z1l=(0.623w,-apex_o); penpos2(0.796cap_stem,16); z2l=(0,0.485h); penpos3(4/3cap_hair,-90); z3l=(0.485w,h+apex_o); penpos6(cap_stem,-151.5); penpos5(cap_stem,-151.5); x6l=w; y5l=h; z6-z5=whatever*dir-37; x5l=0.808w; penstroke z5e--z6e; penpos4(cap_hair,-151.5); z4r=z5r; penstroke z3e{right}.. z4e{z6-z5}; penpos16(cap_hair,-90); z16=(w,0.149h); filldraw z1l--z16r--z16l..z1r{left} --z1l & cycle; penstroke z1e{left}..z2e{up}..z3e{right}; % % % penpos7(cap_hair,-164); z7=whatever[z2l,z2r]; x7=0.31w; penpos8(0.444cap_stem,-51.5); z8=(0.492w,0.393h); penpos9(0.796cap_stem,6.5); z9=(x1l,y2-eps); penpos10(0.963cap_stem,34); z10=(0.441w,0.767h); penpos11(cap_hair,-37); z11l=z4r; penstroke z7e{dir-74}..z8e{right}.. z9e{up}..z10e{up}..z11e{z5l-z5r}; % % % penpos12(cap_hair,-55.5); z12l=(z9{up}..z10{up}) intersectionpoint (z9l--(x9l,h)); z13-z12l=whatever*dir31.5; x13=0.854w; penpos14(whatever,0); z15=(x13,0.53h); z14r=(w,0.639h); z14l-z12r=whatever*(z13-z12l); filldraw z12l--z13--z14r--z15-- z14l--z12r--z12l & cycle; .endchar; .cmchar "The Fraktur letter F"; .beginchar("F",8.213u#,cap_height#,3.010u#); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(2/3cap_hair,68); z1=(0.34w,0.535h); penpos2(cap_hair,0); z2l=(0.036w,0.739h); penpos3(4/3cap_stem,-150); z3l=(0.614w,h+apex_o); penpos4(cap_stem,-128); z4l-z3l=whatever*dir-37; x4l=w; penpos5(cap_hair,-38); x5l=w; z5r=whatever[z4r,z4l]; penstroke z1e{dir158}..z2e{up}.. z3e{right}; z5'=whatever[z3l,z4l]; z5'-z5l=whatever*(z4-z5r); filldraw z3l--z5'--z5l--z5r--z4r {z3l-z4l}...z3r{left}--z3l & cycle; % % % penpos6(cap_hair,-23); penpos7(cap_hair,-90); penpos8(0.778cap_stem,-219); penpos9(0.741cap_stem,-203); penpos10(cap_hair,-90); penpos11(cap_stem,17); penpos12(1.111cap_stem,30); penpos13(eps,-63); z6l=(0,0.351h); z7=(x2r+cap_hair,0.44h); x8l=x1; y8=0.339h; z9r=(x2l,0); z10r=(0.462w,-d); z11l=(0.709w,0); z12=(0.542w,0.652h); z13=(0.789w,0.821h); penstroke z6e{dir67}..z7e{right}..z8e{down} ..z9e{down}..z10e{right}..z11e{up}.. z12e{up}..z13e{dir27}; % % % penpos14(cap_hair,-47); penpos15(cap_hair,-47); z14=(z11{up}..z12{up}) intersectionpoint ((0,0.476h)--(w,0.476h)); z15-z14=whatever*dir43; x15l=x4r; penpos16(0.833cap_stem,-137); z16l=z15l; penpos17(0.833cap_stem,-137); x17l=w; z17-z16=whatever*dir-47; penstroke z14e--z15e; penstroke z16e--z17e; .endchar; .cmchar "The Fraktur letter G"; .beginchar("G",10.638u#,cap_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(cap_hair,0); penpos2(0.5cap_stem,90); penpos3(cap_stem,180); penpos4(cap_hair,-90); penpos5(0.926cap_stem,14); penpos7(cap_hair,-51); penpos9(cap_hair,-51); z1=(0.595w,0.739h); z2r=(0.385w,h+apex_o); z3r=(0,0.517h); z4r=(0.537w,-apex_o); z5r=(w,0.392h); z6=(0.686w,0.628h); z7=(x4,0.566h); z9-z7=whatever*dir39; x9=0.963w; z8=whatever[z7r,z9r]; x8=0.817w; penstroke z1e{up}..z2e{left}..z3e{down} ..z4e{right}..z5e{up}; filldraw z7r{z9-z7}..z6{right}.. z5l{down}--z5r{up}..z8--z9r--z9l-- z7l--z7r & cycle; % % % penpos11(1.148cap_stem,39); penpos12(1.148cap_stem,39); z11=whatever[z7l,z9l]; x11=0.856w; penpos10(cap_hair,-51); z10=whatever[z9l,z9r]; y10l=h+apex_o; z12-z11=whatever*dir129; z10l-z12=whatever*dir39; penpos13(cap_hair,-51); z13l=z12l; penstroke z11e--z12e; penstroke z13e--z10e; % % % penpos14(cap_hair,180); penpos15(0.5cap_stem,-45); penpos16(0.796cap_stem,21.5); penpos17(0.926cap_stem,43); penpos18(cap_hair,-37); penpos19(cap_hair,-37); z14=(0.3w,0.58h); z15=(0.441w,0.385h); z16=(0.5[x7,x1],0.507h); z17=(0.385w,0.776h); z18=(0.442w,0.873h); z19-z18=whatever*dir53; y19=1.032h; penstroke z14e{down}..z15e{right}.. z16e{up}..z17e{up}...z18e---z19e; .endchar; .cmchar "The Fraktur letter H"; .beginchar("H",10.275u#,cap_height#,1.996u#); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(cap_hair,111); penpos2(cap_hair,90); penpos3(cap_hair,0); penpos8(cap_hair,-45); penpos7(cap_hair,-45); penpos9(0.889cap_stem,0); penpos10(1.222cap_stem,48.5); penpos11(cap_hair,132); z1=(0.57w,-0.679d); z2l=(0.452w,-d); z3=(0.354w,-0.23d); z4=(0.503w,0.082h); z5=(0.621w,0.217h); z6=(0.71w,0.12h); z8l=(0.592w,-apex_o); z7r-z8r=whatever*dir45; x7r=0.809w; z9r=(w,0.429h); z10=(0.624w,3/4h); %z11=whatever[z1l,z1r]; z11=(0.28w,0.543h); penstroke z1e..z2e{left}..z3e{up}; filldraw z3r{up}..z4{right}.. z8l{z8r-z7r}--z8r---z7r...z9r{up}-- z9l{down}..z7l{z8r-z7r}..z6{left}.. z5{dir123} & z5{dir211}..z3l{down}-- z3r & cycle; penstroke z9e{up}..z10e{left}.. z11e{dir222}; % % % penpos12(1.259cap_stem,-131); penpos13(1.2cap_hair,-41); penpos14(1.074cap_stem,25); penpos15(cap_hair,-41); penpos18(cap_hair,-36); z12r=(0,0.141h); y13=0.2h; x13l=x11; z14=z11; z15=(x11,0.845h); z16=(0.478w,h); z17=(0.516w,0.837h); z18r-z17=whatever*dir54; y18r=h+apex_o; penstroke z12e{dir-41}..z13e{dir49} ..z14e..z15e{dir49}; filldraw z15r{dir49}..z17--z18r-- z18l{z17-z18r}..z16{left}..z15l {dir229}--z15r & cycle; .endchar; .cmchar "The Fraktur letter I"; .beginchar("I",8.541u#,cap_height#,2.497u#); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(cap_hair,28); penpos2(cap_hair,-17.5); penpos3(0.889cap_stem,-116); penpos4(cap_stem,-126); penpos5(cap_hair,-44); penpos6(1.056cap_stem,53); penpos7(1.056cap_stem,21); penpos8(cap_hair,-90); penpos9(cap_hair,180); z1=(0.115w,-0.886d); z2r=(x1,-0.519d); z3=(0.234w,-0.1d); z4r=(0.517w,-d); z5=(0.795w,-0.329d); z6r=(0.966w,0.196h); z7=(0.636w,0.56h); z8=(0.808w,0.683h); z9l=(x6r,0.554h); penstroke z1e..z2e{up}..z3e{right} ..z4e{right}..z5e..z6e{up}..z7e{up} ..z8e{right}..z9e{down}; % % % penpos10(1.037cap_stem,50); penpos11(cap_hair,-45); penpos12(0.889cap_stem,43); penpos13(1.185cap_stem,-146); penpos14(0.741cap_stem,-119); penpos15(cap_hair,0); penpos16(cap_hair,28); z10l=z11r=(0.1w,0.515h); z12l=(0,0.69h); z13l=(0.506w,h+apex_o); z14r=z8l+(0,0.035h); z15r=(w,0.875h); z16=(x15l,0.924h); filldraw z11l{z12r-z11l}..z12l{up}-- z12r{down}..z10r--z10l--z11l & cycle; penstroke z12e{up}..z13e{right}.. z14e{right}..z15e{up}..z16e{dir118}; .endchar; .cmchar "The Fraktur letter J"; .beginchar("J",8.541u#,cap_height#,2.497u#); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(cap_hair,28); penpos2(cap_hair,-17.5); penpos3(0.889cap_stem,-116); penpos4(cap_stem,-126); penpos5(cap_hair,-44); penpos6(1.056cap_stem,53); penpos7(1.056cap_stem,21); penpos8(cap_hair,-90); penpos9(cap_hair,180); z1=(0.115w,-0.886d); z2r=(x1,-0.519d); z3=(0.234w,-0.1d); z4r=(0.517w,-d); z5=(0.795w,-0.329d); z6r=(0.966w,0.196h); z7=(0.636w,0.56h); z8=(0.808w,0.683h); z9l=(x6r,0.554h); penstroke z1e..z2e{up}..z3e{right} ..z4e{right}..z5e..z6e{up}..z7e{up} ..z8e{right}..z9e{down}; % % % penpos10(1.037cap_stem,50); penpos11(cap_hair,-45); penpos12(0.889cap_stem,43); penpos13(1.185cap_stem,-146); penpos14(0.741cap_stem,-119); penpos15(cap_hair,0); penpos16(cap_hair,28); z10l=z11r=(0.1w,0.515h); z12l=(0,0.69h); z13l=(0.506w,h+apex_o); z14r=z8l+(0,0.035h); z15r=(w,0.875h); z16=(x15l,0.924h); filldraw z11l{z12r-z11l}..z12l{up}-- z12r{down}..z10r--z10l--z11l & cycle; penstroke z12e{up}..z13e{right}.. z14e{right}..z15e{up}..z16e{dir118}; .endchar; .cmchar "The Fraktur letter K"; .beginchar("K",9.478u#,cap_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); cap_stem:=0.95cap_stem; %cap_hair:=0.95cap_hair; z1=(0,0.182h); z2=(0.177w,0.207h); z3=(0.033w,-apex_o); penpos4(cap_hair,-90); z4=(0.282w,0.045h); penpos5(cap_hair,0); z5=(0.4w,0.136h); z7=(0.434w,0.227h); z7'=(0.328w,0.556h); z8=(0.197w,0.732h); z6=(0.052w,0.566h); penpos9(1.25cap_hair,-90); z9l=(0.561w,h+apex_o); penpos9'(cap_hair,180); z9'l=(w-apex_o,0.707h); penpos10(cap_hair,140); z10=(0.813w,0.492h); filldraw z1--z3{dir30}..z4r{right} ..z5r..z7{up}..z7'..z8{up}..z9r{right} --z9l{left}..z6{down} & z6{dir-52} ..z5l..z4l{left}..z2{up}--z1 & cycle; penstroke z9e{right}..z9'e{down}.. z10e; % % % penpos12(cap_hair,-78); penpos11(cap_hair,-78); z12l-z7'=whatever*dir12; z7'-z11l=whatever*dir12; x12=x10; x11=0.243w; penstroke z11e--z12e; penpos13(cap_hair,12); z13r=z7'; penpos14(0.463cap_stem,-116); z14=(0.492w,0.8h); penpos16(1.074cap_stem,-168); z16=whatever[z11l,z12l]; x16l=x12-cap_hair; z12-z15=whatever*dir-78; penpos15(cap_hair,-78); y15=0.823h; z17-z15r=whatever*(z12-z11); z16l-z17=whatever*(z12-z15); filldraw z13r{dir102}..z14r{right} ..z16r{dir-78}--z16l--z17--z15r-- z15l{z13-z12}..z14l{left}..z13l{dir-78} --z13r & cycle; % % % penpos18(1.053cap_stem,-168); z18=0.5[z12r,z11r]; penpos18'(1.053cap_stem,-168); z19=(0.767w,-apex_o); penpos21(cap_hair,-90); z21r-z19=whatever*dir45; x21=w; z20=(0.869w,0.149h); z18'-z18=whatever*dir-70; x18'l=x15; filldraw z18r---z18'r...z19--z21r-- z21l{z19-z21r}..z20{left}...z18'l ---z18l--z18r & cycle; .endchar; .cmchar "The Fraktur letter L"; .beginchar("L",6.131u#,cap_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); cap_stem:=1.022cap_stem; penpos1(cap_hair,0); penpos2(cap_hair,-60); penpos3(1.056cap_stem,30); penpos4(cap_stem,23); penpos5(0.481cap_stem,-67); penpos6(cap_hair,-149); penpos7(whatever,-140); penpos8(cap_hair,-147); penpos9(cap_hair,-90); penpos10(cap_hair,0); z1l=(0,0.082h); z2=(0.15w,0.207h); z3=(0.453w,0.37h); z4l=(0,0.731h); z5l=(0.539w,h+apex_o); z6=(0.829w,0.886h); z7l=(0.933w,0.739h); x7r=x3r; z8=(0.658w,0.53h); z9=(x6,0.476h); z10=(x7l,0.543h); penstroke z1e{up}..z2e..z3e{up}.. z4e{up}..z5e{right}..z6e..z7e{down} ..z8e..z9e{right}..z10e{up}; % % % z11=(0.109w,0.111h); z13=(0.539w,-apex_o); z12=(0.731w,y11); penpos14(cap_hair,-21); z14r=(w,0.223h); z15'-z11=whatever*(z12-z13); x15'=w; z15=(z1{up}..z2..z3{up}) intersectionpoint ((0.238w,0)--(0.238w,h)); filldraw z1r{up}..z11{right}..z13{dir-25} & z13{dir25}..z14r{dir69}--z14l{dir249} ..z12{left}..z15{left}& z15..z2.. z1{down}--z1r & cycle; .endchar; .cmchar "The Fraktur letter M"; .beginchar("M",13.432u#,cap_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(cap_hair,-40); penpos2(cap_hair,-40); z1=(0.067w,0.035h); z2-z1=whatever*dir50; x2=0.176w; z3=(1/5w,-apex_o); penpos4(cap_hair,-41.5); z4r-z3=whatever*dir48.5; z4=whatever[z2l,z2r]; penpos5(1.3cap_stem,48); % ant'i 1.111 pou j'aprepe n'anai z5=(0.4w,0.394h); penpos6(0.778cap_stem,44); z6=(0.148w,0.915h); penpos7(cap_hair,180); z7r=(0,0.782h); penpos8(1.111cap_stem,-147); z8l=(x6,0.649h); penpos9(2.2cap_hair,-171.5); penpos10(cap_hair,90); z9r=(x2l,0.46h); z10=(0.122w,0.378h); penpos11(cap_hair,58); z11=(0.047w,0.418h); z1'=whatever[z1r,z2r]; x1'=x1r+0.014117w; filldraw z1l--z2l--z4r--z3--z1'--z1r --z1l & cycle; penstroke z4e{z4r-z3}..z5e{up}.. z6e{left}..z7e{down}..z8e..z9e{down} ..z10e{left}..z11e; % % % penpos12(cap_hair,-40); penpos13(cap_hair,-40); z12=(0.329w,0.024h); z13-z12=whatever*dir50; x13=x5r; z13'=(0.466w,-apex_o); penpos14(cap_hair,-40); z14r-z13'=whatever*dir48; z14=whatever[z13l,z13r]; penpos15(1.5cap_stem,-50); penpos16(0.741cap_stem,48); penpos17(cap_hair,180); z15=(0.647w,0.548h); x16=0.424w; y16r=h+apex_o; z17=(0.306w,0.843h); penstroke z12e--z13e; z12'=whatever[z12r,z13r]; x12'=x12r+0.014117w; filldraw z12'--z13'--z14r--z13l-- z12' & cycle; penstroke z14e{z14r-z13'}..z15e{up} ..z16e{left}..z17e{dir251}; % % % penpos18(cap_hair,-46); penpos19(cap_hair,-46); penpos20(1.13cap_stem,37); penpos21(0.852cap_stem,-15); penpos22(cap_hair,-72); z18r=(0.814w,-apex_o); z19-z18=whatever*dir44; x19r=w; z20=(x18-eps,0.34h); z21=(x18r+eps,0.556h); z22=(0.906w,0.609h); z20'=0.7[z18l,z19l]; penstroke z18e--z19e; filldraw z18l{up}..z20l{up}..z21l-- z22l--z22r{z21l-z22l}..z21r.. z20r{down}..z20'{dir-35}--z18l & cycle; % % % penpos23(1.148cap_stem,53); penpos24(0.944cap_stem,12); penpos27(2/3cap_hair,90); z23r=(w,0.670h); z24=(0.871w,0.84h); z25=(0.715w,0.947h); z26=(x25,0.87h); z27=(0.621w,0.824h); filldraw z23r{dir124}..z24r%{dir124} ...z25---z27r--z27l{z25-z27r}.. z26{right}..z24l%{dir-56} ..z23l{dir-56} --z23r & cycle; .endchar; .cmchar "The Fraktur letter N"; .beginchar("N",11.662u#,cap_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(cap_hair,-45); penpos3(cap_hair,-45); penpos4(cap_hair,-90); penpos5(0.944cap_stem,0); penpos6(0.811cap_stem,64); penpos7(cap_hair,180); penpos8(1.094cap_stem,-132); penpos9(cap_hair,180); penpos10(cap_hair,90); penpos11(cap_hair,21); z1=(0.123w,0); z3-z1=whatever*dir52; x3=0.239w; 0.5[z1,z3]-z2=whatever*dir-45; x2=x1l-eps; z4r=(0.325w,-apex_o); z5=(0.55w,0.371h); z6=(x3,0.932h); z7r=(0,0.751h); z8=(0.197w,0.553h); z9=(x4,0.428h); z10=(x3,0.317h); z11=(0.125w,0.423h); penpos2(1/3cap_hair,52); filldraw z1l{dir71}..z2l--z2r ..{dir31}z3l--z3r{z1-z3}..z4l{right} --z4r{left}..z1r{z1-z3}--z1l{z3-z1} & cycle; penstroke z4e{right}..z5e{up}.. z6e{left}..z7e{down}..z8e{dir-22}.. z9e{down}..z10e{left}..z11e; % % % penpos12(2/3cap_hair,0); penpos13(0.778cap_stem,-126); penpos14(0.944cap_stem,-162); penpos15(0.944cap_stem,-90); penpos16(cap_hair,0); penpos17(cap_hair,-32); penpos19(0.981cap_stem,0); penpos20(0.793cap_stem,0); penpos21(cap_hair,-90); z12=(0.516w,0.745h); y13l=h+apex_o; z14=(0.886w,0.751h); z15=(w,0.669h); z19=(0.769w,y5); x13=x19l; z16=(x19r,-apex_o); z17r-z16r=whatever*dir58; x17r=0.977w; z20=(0.798w,0.537h); z21r=z15r; filldraw z16r--z17r--z17l{z16r-z17r} ..z19r{up}..z20r..z21r{dir18}-- z21l{dir198}..z20l..z19l{down}.. z16l--z16r & cycle; penstroke z12e{up}..z13e{right}.. z14e{dir-71}..z15e{right}; .endchar; .cmchar "The Fraktur letter O"; .beginchar("O",12.01u#,cap_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(cap_hair,41); penpos2(cap_hair,0); penpos3(cap_hair,-59); penpos5(1.037cap_stem,24); penpos6(1.074cap_stem,38); penpos7(cap_hair,-47); penpos8(2/3cap_hair,0); penpos4(1.315cap_stem,-146); penpos10(1.111cap_stem,70); penpos11(0.704cap_stem,22); penpos14(cap_hair,-46); z1r=(0.084w,0); z2l=(0,0.09h); z3=(0.234w,0.298h); z4=(0.184w,0.197h); z5=(0.332w,0.412h); z6=(0.179w,0.71h); z7=(0.263w,0.843h); z8=(0.389w,h+apex_o); z9=(x8,0.787h); z10=(0.595w,0.864h); z11r=(w,0.484h); z12=(0.637w,0.144h); z13=(2x10-x12,-apex_o); z14=(0.858w,0.227h); penstroke z1e..z2e{up}..z3e..z5e{up} ..z6e{up}..z7e{dir43}; penstroke z1e..z2e{up}..z4e{dir-19}; filldraw z4r{dir-19}..{z13-(x4r,0.5y4r)}z13 & z13{dir27}..z14r..z11r{up}..z10r{left}.. z8r{dir100}--z8l{down}..z7l{dir223}-- z7r..z9..z10l{right}..z11l{down}.. z14l..z12{left}..z4l{dir161}--z4r & cycle; .endchar; .cmchar "The Fraktur letter P"; .beginchar("P",9.482u#,cap_height#,2.651u#); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(cap_hair,0); penpos2(cap_stem,0); penpos3(cap_stem,0); penpos4(0.926cap_stem,58); penpos5(cap_hair,180); penpos8(1.5cap_hair,-145); penpos9(cap_hair,114); z1=(0.427w,-d); z2=(0.453w,0.09h); z3=(x2,0.7h); z4r=(0.227w,h+apex_o); z5r=(0,0.778h); z6=(0.173w,0.67h); z7=(0.083w,0.564h); z8=(0.275w,0.524h); z9r=(x7,0.4h); penstroke z1e...z2e---z3e..z4e{left} ..z5e{down}; penstroke z8e{down}..z9e; filldraw z5r{down}..z7 & z7{right}.. z8r{down}--z8l{up}..z6..z5l{up}-- z5r & cycle; % % % penpos18(cap_hair,0); penpos19(cap_hair,-80); penpos16(1.037cap_stem,23); penpos15(cap_stem,35); penpos14(cap_hair,-56); z18r=z3r; z19=(0.74w,0.931h); z16=(0.793w,0.782h); z15r=(w,0.42h); z14=(0.687w,0.059h); penstroke z14e{dir33}..z15e{up}.. z16e{up}; penstroke z18e{up}..z19e{dir22.5}; z17'=(0.917w,h-apex_o); filldraw z16l{up}..z19l & z19l{dir22.5} ..z17'{right} & z17'..z16r{down}-- z16l & cycle; % % % penpos10(cap_stem,64); penpos11(cap_stem,71); penpos12(cap_hair,-36); penpos13(cap_hair,-23); z10=(0.713w,0.027h); z11=(0.387w,0.16h); z12=(x6,0.059h); z13l=(x8,0.266h); filldraw z10r..z11r...z13r---z13l & z13l..z12l{dir234}--z12r{dir54}... z11l---z10l--z10r & cycle; .endchar; .cmchar "The Fraktur letter Q"; .beginchar("Q",13.559u#,cap_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); w':=12.01u; penpos1(cap_hair,41); penpos2(cap_hair,0); penpos3(cap_hair,-59); penpos5(1.037cap_stem,24); penpos6(1.074cap_stem,38); penpos7(cap_hair,-47); penpos8(2/3cap_hair,0); penpos4(1.315cap_stem,-146); penpos10(1.111cap_stem,70); penpos11(0.704cap_stem,22); penpos14(cap_hair,-46); penpos16(1.074cap_stem,-127); penpos17(cap_hair,-45); z1r=(0.084w',0); z2l=(0,0.09h); z3=(0.234w',0.298h); z4=(0.184w',0.197h); z5=(0.332w',0.412h); z6=(0.179w',0.71h); z7=(0.263w',0.843h); z8=(0.389w',h+apex_o); z9=(x8,0.787h); z10=(0.595w',0.864h); z11r=(0.925w,0.503h); z12=(0.637w',0.144h); z13=(2x10-x12,-apex_o); z14=(0.884w',0.227h); penpos15(1.3cap_stem,angle(z13-z14)); z15l=z14; z16r=(0.825w,-apex_o); z17r=(w,0.144h); penstroke z1e..z2e{up}..z3e..z5e{up} ..z6e{up}..z7e{dir43}; penstroke z1e..z2e{up}..z4e{dir-19}; filldraw z4r{dir-19}..{z13-(x4r,0.5y4r)}z13 & z13{dir27}..z14r..z11r{up}..z10r{left}.. z8r{dir100}--z8l{down}..z7l{dir223}-- z7r..z9..z10l{right}..z11l{down}.. z14l..z12{left}..z4l{dir161}--z4r & cycle; penstroke z15e..z16e{dir-10} & z16e..z17e {dir45}; .endchar; .cmchar "The Fraktur letter R"; .beginchar("R",10.493u#,cap_height#,0); .adjust_fit(usual_left#,usual_right#+0.3u#); penpos1(cap_hair,-49); penpos2(cap_hair,-49); penpos4(cap_hair,-90); z1l=(0,0.056h); z2=(0.253w,0.234h); z3=(apex_o,0.202h); z7=(0.036w,0.128h); z4r=(0.3w,-apex_o); z5=(0.181w,0.128h); z6=(0.084w,0.051h); filldraw z1l..z7..z3 & z3{dir-10}.. z2l--z2r..z5..z4l{right}--z4r{left} ..z6..z1r--z1l & cycle; penpos8(0.963cap_stem,19); penpos9(cap_stem,60); penpos10(cap_hair,180); penpos13(0.574cap_stem,-153); penpos14(cap_hair,90); penpos15(cap_hair,0); z8=(0.53w,0.375h); z9r=(0.247w,h+apex_o); z10r=(0,0.771h); z11=(0,0.614h); z12=(0.169w,0.641h); z13=(0.247w,0.481h); z14=(0.117w,0.348h); z15l=(0,0.468h); penstroke z4e{right}..z8e{up}..z9e {left}..z10e{down}; penstroke z13e{down}..z14e{left}.. z15e{up}; filldraw z10r---z11..z13r{down}-- z13l{up}..z12..z10l{up}--z10r & cycle; % % % penpos16(cap_hair,-90); penpos17(cap_hair,-90); penpos21(cap_hair,0); z16=(x8,0.585h); z17-z16=whatever*dir30; x17=0.934w; z21=(0.488w,3/4h); z20=(0.578w,0.936h); z22=(0.651w,0.91h); z19=(0.768w,h+apex_o); z23=whatever[z16l,z17l]; x23=x19; z18=(0.895w,0.867h); penstroke z16e--z17e; filldraw z21r{up}..z22{right}.. z23{dir-76}--z17l{left}..z18.. z19 & z19{z22-z19}..z20..z21l{down} --z21r & cycle; % % % penpos25(0.926cap_stem,-153); penpos26(1.074cap_stem,-174); penpos27(cap_hair,-32); z24=whatever[z16r,z17r]; x24=x23+0.18cap_stem; z25=(3/4w,0.612h); z26=(0.825w,0.205h); penpos26'(0.926cap_stem,-153); z26'r=z26r; y27r=0.189h; x27l=w; z28=(0.849w,-apex_o); z27'-z27l=whatever*(z28-z27r); x27'=w-cap_hair; filldraw z16r{z17-z16}...z25r ---z26'r...z28 & z28--z27r--z27l & z27l---z27'...z26'l--- z25l..z24--z16r & cycle; .endchar; .cmchar "The Fraktur letter S"; .beginchar("S",12.813u#,cap_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos0(0.032067w,-27); penpos0'(0.032067w,24); z0'r=z0l=(0.715w,0.745h); penpos1(1.5cap_hair,-156); penpos2(cap_hair,114); penpos7(cap_hair,114); penpos8(1.2cap_stem,-142); penpos9(cap_stem,-107); penpos10(0.926cap_stem,-123); penpos11(cap_hair,0); penpos16(0.722cap_stem,40); penpos17(cap_hair,-58); penpos18(cap_hair,-118); z1l=(w,0.952h); x2=0.93w; z3=(0.8w,0.859h); z5-z3=whatever*dir153; y5=h+apex_o; z4=z0r; z2l-z4=whatever*dir24; z6=whatever[z0r,z0l]; x6=0.462w; z7=(0.291w,0.931h); z8r=(0,0.505h); z9r=(0.562w,-apex_o); z10r=(0.76w,0.077h); z11=(0.933w,0.364h); z13=z0'l; z15-z13=whatever*dir204; x15=x14=0.407w; z12=(x9l,0.512h); z14-z12=whatever*(z15-z13); z16=(0.258w,0.649h); z17=(0.324w,0.782h); z18=(0.508w,0.739h); penstroke z7e{dir204}..z8e{down}.. z9e{right}..z11e{up}; penstroke z16e{up}..z17e{dir24}.. z18e{dir-27}; filldraw z1r{down}..z2r{z4-z2l}... z3---z5 & z5..z7r{dir204}--z7l {dir24}...z6---z4---z2l...z1l{up} & z1l--z1r & cycle; filldraw z11r{up}..z13{z6-z4} & z13---z15...z16r{up}--z16l{down} ..z14{dir-27} & z14---z12... z11l{down}--z11r & cycle; .endchar; .cmchar "The Fraktur letter T"; .beginchar("T",10.386u#,cap_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); z1=(0.041w,0.053h); z2=(0,0.104h); z3=(0.078w,y2); penpos4(1.037cap_stem,-133); z4=(0.165w,0.253h); z5=(0.592w,-apex_o); z6=(0.731w,0.123h); penpos7(cap_hair,0); z7r=(w,0.303h); penpos8(0.5cap_hair,-90); z8=(0.29w,0.271h); penpos9(1.185cap_stem,10); penpos10(1.148cap_stem,19); z9=(x5,0.415h); z10=(0.381w,0.691h); penpos11(0.5cap_hair,-90); z11=(0.677w,0.83h); penpos12(cap_hair,-112); penpos13(cap_hair,180); penpos14(1.111cap_stem,31); penpos14'(1.037cap_stem,57); z14'=(0.562w,0.939h); penpos15(1.185cap_stem,72); penpos16(cap_hair,-37.5); penpos17(cap_hair,-48); z12=(0.236w,0.6h); z13=(0.072w,0.761h); z14r=(0.436w,h+apex_o); z15=(0.858w,0.755h); z16=z15l; penpos15'(1.5cap_stem,72); z15'l=z15l; z17l=whatever[z16,z15r]; x17=0.956w; filldraw z1{right}..z3{up}..z4r{right} ..z5{dir-29} & z5{dir22}..z7r{up}-- z7l{down}..z6{left}..z4l{left}.. z2{down}..z1{right} & cycle; penstroke z8e{right}..z9e{up}..z10e {up}..z11e{right}; penstroke z15e{dir142.5}..z14'e..z14e{left}..z13e{down} ..z12e{dir-22}; penstroke z16e{z15r-z15l}..z17e {dir42}; .endchar; .cmchar "The Fraktur letter U"; .beginchar("U",10.608u#,cap_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(cap_stem,0); penpos2(whatever,39); penpos3(1.176cap_stem,48); penpos4(cap_hair,-42); penpos5(cap_hair,-42); penpos10(cap_hair,-47); penpos11(cap_hair,-47); penpos13(cap_stem,0); penpos14(cap_stem,0); penpos15(cap_hair,-90); penpos19(cap_hair,-41); z1=(0.258w,0.162h); z2r=(x1r,0.853h); x2l=x1l; z4l=(0,0.822h); z5-z4=whatever*dir48; y5l=h+apex_o; z3=whatever[z4r,z5r]; y3r=y5r-apex_o; z7=(x1l,0.26h); z8=(0.111w,y1); z9=(x1r,-apex_o); z8'=(0.278w,0.082h); z11r-z9=whatever*dir43; x11=0.737w; z12-z11l=whatever*(z9-z11r); x12=0.472w; z6-z12=whatever*(z8-z9); x6=x1r; penstroke z1e---z2e...z3e{dir138}; penstroke z4e--z5e; filldraw z9--z11r--z11l--z12--z6-- z7{down}..z8{dir231} & flex(z8,z8',z9) & cycle; % % % z13=(x11,y7); z14=(x13,y2r-cap_hair); z15=(0.573w,0.898h); z16=(0.737w,h+apex_o); z17=(0.886w,0.915h); z18=(x17,y1); z20=(0.786w,-apex_o); z21=(x13l,y1); x19r=w; z19r-z20=whatever*dir49; penstroke z13e--z14e; filldraw z15r{z16-z15l}..z14l{down} --z14r{up}..z17{right} & z17 ..z16 & z16..z15l--z15r & cycle; filldraw z20--z19r--z19l{z20-z19r} ..z18{left}..z13r{up}--z13l--z21-- z20 & cycle; .endchar; .cmchar "The Fraktur letter V"; .beginchar("V",10.303u#,cap_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(cap_hair,41); penpos2(cap_hair,0); penpos3(0.926cap_stem,-117); penpos6(cap_hair,-63); penpos7(0.704cap_stem,30); penpos8(cap_stem,44);penpos9(cap_hair,-65); penpos10(cap_hair,-65); penpos11(0.852cap_stem,-138); penpos12(2/3cap_hair,-55); penpos13(cap_hair,-48); penpos14(0.907cap_stem,-12); penpos15(1.037cap_stem,35); penpos16(0.889cap_stem,46); penpos17(cap_hair,155); penpos17'(0.489cap_stem,-123); penpos18(0.889cap_stem,-118); penpos20(0.537cap_stem,-147); penpos21(cap_hair,90); penpos22(cap_hair,44); z1=(0.115w,0.046h); z2=(0.072w,0.117h); z3=(0.209w,0.228h); z4=(0.613w,-apex_o); z5=(0.755w,0.103h); z5'=(x4,0.172h); z6=(0.853w,0.114h); z7r=(w,0.293h); z8=(0.742w,0.543h); z9=(0.822w,0.655h); z10r=(w,3/4h); z10'=(x7,0.788h); z11l=(0.75w,h+apex_o); z15=(0.414w,0.875h); z13=(0.288w,0.242h); z14=(0.534w,0.527h); z12=z15+(0.1w,-0.1h); z16r=(0.252w,h+apex_o); z17=(0.044w,0.859h); z17'r=(0,0.742h); z19=(0.043w,0.628h); z18=(0.096w,0.674h); z20=(0.267w,0.549h); z21l=(0.173w,0.435h); z22=(x19,0.516h); penstroke z1e..z2e{up}..z3e{right}; filldraw z3r{right}..z4{dir-44} & z4---z6r...z7r{up}--z7l{down}.. z6l..z5{left}..z5'..z3l{left}--z3r & cycle; penstroke z7e{up}..z8e{up}..z9e.. z10e; penstroke z13e{dir42}..z14e{up}.. z15e..z16e{left}..z17e..z17'e{down}; filldraw z17'r{down}..z19{z3-z19} & z19--- z18r...z20r{down}--z20l{up}..z18l.. z17'l{up}--z17'r & cycle; penstroke z20e{down}..z21e{left}.. z22e; filldraw z12r{up}..z11r{right}.. 1/10[z9,z10]{right} & 1/10[z9,z10]--z10--z10l & z10l{left}..z10'..z11l{left}..z12l{down} --z12r & cycle; .endchar; .cmchar "The Fraktur letter W"; .beginchar("W",13.812u#,cap_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(cap_hair,44); penpos2(cap_hair,22); penpos3(1.074cap_stem,-133); z1=(0.095w,0); z2=(0.055w,0.09h); z3=(0.16w,0.213h); z4=(0.366w,-apex_o); z5=(0.435w,0.118h); penpos6(cap_hair,-56); penpos7(4/3cap_stem,45); z6=(0.508w,0.126h); z7=(0.645w,0.41h); penpos9(1.222cap_stem,52); penpos10(cap_hair,0); z9=(0.532w,0.733h); z10=(0.604w,h+2apex_o); penstroke z1e..z2e..z3e{right}; filldraw z3r{right}..z4{dir-30} & z4---z6r...z7r{dir72} & z7r{dir120}.. z9r{up}..z10r--z10l..z9l{down}.. z7l{down}..z6l{z4-z6r}...z3l{left} --z3r & cycle; % % % penpos11(cap_hair,-37); penpos12(0.778cap_stem,-140); penpos13(1.056cap_stem,-133); z11=(0.561w,0.865h); z12l=(0.735w,h+apex_o); z13l=(0.982w,0.756h); penstroke z11e{dir53}..z12e{right}.. z13e{dir-60}; % % % penpos14(cap_hair,-60); z14r=z13l+(apex_o,apex_o); penpos15(cap_stem,43); penpos16(0.741cap_stem,37.5); penpos17(cap_hair,-64); penpos18(1.222cap_stem,26); penpos17'(cap_hair,-64); z15=(0.808w,0.537h); z16r=(w,0.303h); z18l=(0.716w,-apex_o); z17r=z18; z17'r=z18r; z18.1-z18l=whatever*dir146; z18.2-z18r=whatever*dir146; x18.2=x18.1=0; z18'=(z6{z6r-z4}..z7{up}) intersectionpoint (z18l--z18.1); z18''=(z6{z6r-z4}..z7{up}) intersectionpoint (z18r--z18.2); filldraw z18l--z18'--z18''--z18r--z18l & cycle; penpos16'(whatever,54); z16'l=z16l; x16'r=w; penstroke z17e---z17'e...z16'e{up}..z15e{up}.. z14e{dir36}; % % % penpos19(cap_hair,-58); penpos22'(1.111cap_stem,44); penpos22(1.037cap_stem,41.5); penpos23(1.2cap_hair,-139); penpos24(cap_stem,-90); penpos25(0.556cap_stem,-140); penpos26(cap_hair,90); penpos27(cap_hair,37); z19=(0.224w,0.213h); x20=x5; z20-z19r=whatever*dir32; z21=(0.339w,0.483h); z22'=(0.326w,0.84h); z22r=(0.2w,h+apex_o); z23r=(0,0.767h); z24=(0.114w,0.654h); z25=(0.197w,0.551h); z26=(0.119w,0.437h); z27=(0.025w,0.5h); filldraw z19r--z20 & z20{up}..z22'r {dir129.5}--z22'l{dir-50.5}..z21{down} ..z19l{z19r-z20}--z19r & cycle; penstroke z22'e{dir129.5}..z22e{left} ..z23e{down}..z24e{right}..z25e{down} ..z26e{left}..z27e{dir127}; % % % penpos28(cap_hair,-32); penpos29(cap_hair,-90); penpos30(cap_hair,-141.5); z28=(0.357w,0.848h); z30=z11; z29=(0.5[x28,x30],0.958h); penstroke z28e..z29e..z30e; .endchar; .cmchar "The Fraktur letter X"; .beginchar("X",9.418u#,cap_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos0(cap_stem,0); z0=(0.5w,0.537h); z1=z0l; penpos5(cap_stem,-90); z5l=z0r; penpos2(cap_hair,0); z2r=(x0r,0.697h); penpos3(cap_hair,0); z3l=(x0l,0.253h); penpos6(cap_hair,-40); penpos7(cap_hair,-40); z6r=(0.758w,-apex_o); z7-z6=whatever*dir50; x7r=w; z7'=whatever[z6l,z7l]; z6'=whatever[z6,z7]; y6'=apex_o; x7'=0.893w; penstroke z6e--z7e; filldraw z6'{left}...z3l---z1--z5l ---z5r...z7'---z7l--z7--z6' & cycle; penpos12(cap_hair,-45); penpos13(cap_hair,-45); z13l=(0.289w,h+apex_o); z13-z12=whatever*dir45; x12l=apex_o; z13'=whatever[z12,z13]; y13'=h-2apex_o; penstroke z12e--z13e; filldraw z12r{z13-z12}..z1{down}-- z5l---z2r...z13'{dir148}--z12--z12r & cycle; % % % penpos15(0.852cap_stem,-116); penpos16(cap_hair,-21); penpos14(cap_hair,-21); z16=(0.852w,0.723h); z14-z16=whatever*dir69; y14=y15l+apex_o; z15=(0.77w,0.91h); penstroke z2e{up}..z15e{right}; filldraw z15r{right}..z16l{z16-z14} --z16r--z14r--z14l{z1-z14l} ..z15l{left}--z15r & cycle; % % % penpos9(cap_hair,-35); penpos10(cap_hair,-35); z9l=(0,0.069h); z10-z9=whatever*dir55; y10=0.229h; z8=(0.221w,-apex_o); z11=(0.297w,0.1h); filldraw z9r{dir20}..z8{right}.. z3r{up}--z3l{down}..z11{left}.. z10r{z10-z9}--z10l--z9l--z9r & cycle; % % % penpos20(cap_hair,0); penpos21(cap_hair,0); penpos22(cap_hair,0); penpos23(cap_hair,0); z21-z20=whatever*dir74; z23-z22=whatever*dir74; y22=y5r; y21=y5l; x22=0.772w; x21=0.235w; y23=y21+0.072h; y20=y22-0.072h; z20'=whatever[z20,z21]; z23'=whatever[z22,z23]; y20'=y22; y23'=y21; penstroke z20e--z21e; penstroke z22e--z23e; filldraw z20'--z22--z23'--z21--z20' & cycle; z20''=whatever[z20',z22]; x20''=x20'+2cap_hair; z23''=whatever[z21,z23']; x23''=x23'-2cap_hair; filldraw z20r{z21-z20}..z20''{right} --z21--z20--z20r & cycle; filldraw z23''{right}..z23l{z23-z22} --z23--z22--z23'' & cycle; .endchar; .cmchar "The Fraktur letter Y"; .beginchar("Y",10.556u#,cap_height#,2.181u#); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); z1=(0,0); z2=(0.079w,0.089h); z3=(2x2,0.025h); penpos4(0.611cap_stem,-35); penpos5(1.074cap_stem,13); penpos7'(1.111cap_stem,39); z4r=(0.338w,-d); z5r=(w,0.513h); z7'r=(0.778w,h); z6'=(0.656w,0.864h); penpos7(cap_hair,-51); penpos8(cap_hair,-51); z8=whatever[z7'l,z7'r]; y8r=h; z7=whatever[z7'l,z7'r]; y7=0.787h; filldraw z1{up}..z2{right}..z3{down} ..z4l{right}--z4r{left}..z1{up} & cycle; penstroke z4e{right}..z5e{up}..z7'e {dir129}; z6=(z5l{up}..z7'l{dir129}) intersectionpoint ((0,0.8h)--(w,0.8h)); filldraw z5l{up}..z6..z6'..z7r{z7-z8}-- z7--z7'{dir-51}..z5{down}--z5l & cycle; penstroke z7e--z8e; % % % penpos11(cap_hair,-90); penpos9(cap_hair,-42); penpos10(cap_hair,-42); penpos22(1.148cap_stem,48); z9r=(0.359w,-apex_o); z10-z9=whatever*dir48; x10=0.719w; z22=whatever[z9,z10]; x22=0.479w; z11=(0.126w,0.215h); penpos12(2/3cap_hair,-42); z12-z22r=whatever*dir-42; x12=0.371w; penpos13(whatever,19); x13l=0.5w-0.5cap_stem; x13r=0.5w+0.5cap_stem; y13=0.585h; penstroke z9e--z10e; filldraw z11r{right}..z22l{dir-42}-- z22r{dir138}--z12r{dir23}..z13r{up} --z13l{down}..z12l..z11l{left}-- z11r & cycle; % % % penpos14(1.037cap_stem,32); penpos15(0.889cap_stem,42); penpos16(cap_hair,150); penpos17(0.389cap_stem,-134); penpos18(0.759cap_stem,-90); penpos19(cap_hair,180); penpos20(cap_hair,90); penpos21(1.5cap_hair,45); z14=(x13l,0.904h); z15r=(0.281w,h+apex_o); z16=(0.066w,0.883h); z17=(0.051w,0.822h); z18=(0.159w,0.713h); z19=(0.275w,0.606h); z20r=(0.189w,0.532h); z21=(0.087w,0.561h); penstroke z13e{up}..z14e{dir136}.. z15e{left}..z16e..z17e{down}..z18e {right}..z19e{down}..z20e{left}.. z21e{dir135}; .endchar; .cmchar "The Fraktur letter Z"; .beginchar("Z",8.407u#,cap_height#,2.528u#); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(0.704cap_stem,0); z1l=(0.038w,0.213h); penpos2(0.815cap_stem,-147); penpos3(1.148cap_stem,-152.5); penpos4(cap_hair,90); penpos1'(cap_hair,-66); z2=(0.395w,0.4h); z3l=(w-x1l,0.096h); z4l=(0.586w,-0.763d); z1'=(0.237w,0.372h); penstroke z1e{up}..z1'e..z2e.. z3e{down}..z4e{left}; z5=(0.368w,-0.525d); z6=(0.305w,-0.575d); z7=(0.338w,-0.15d); z8=(0.523w,0.077h); z9=(0.406w,0.061h); penpos10(cap_hair,90); z10r=(0.248w,0.077h); z8'=(x8,-0.288d); penpos11(cap_hair,180); z11=(0.068w,-0.3d); penpos12(1.5cap_hair,-90); z12r=(0.218w,-d); filldraw z4l{left}..z5{left}..z6 & z6..z7{up}..z10l{left}--z10r{right} ..z9{right}..z8 & z8---z8'...z4r{right} --z4l & cycle; penstroke z10e{left}..z11e{down} ..z12e{right}; % % % penpos14(cap_hair,-90); penpos15(0.778cap_stem,25); penpos16(cap_stem,90); penpos17(0.5cap_stem,159); z15r=(w,0.7h); z16r=(0.5w,h+apex_o); z17r=(0,x15r); z14=(0.5w,0.415h); penstroke z15e{up}..z16e{left}.. z17e{down}..z14e{right}..z15e{up}; % % % z0=(x16,y17r); z18-z0=whatever*dir201; z13-z0=whatever*dir221; x18=x13=0; unfilldraw z18--z0--z13--z18 & cycle; .endchar;