.cmchar "The Fraktur ligature ch"; .beginchar(oct"205",3.639lower_u#+4.772lower_u#,x_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); w:=3.639u; penpos101(hair,-30); penpos102(hair,-30); z102l=(w+0.438u-0.5stem,foot); z101r=(0.565w,-apex_o); z101'=whatever[z101,z102]; y101'=y101l+apex_o; z103=whatever[z101l,z102l]; x103=0.809w; z104=(2/3w,0.176h); penpos105(1.083stem,angle((w,0.4h))); z105=(0.26w,0.214h); penpos106(stem,0); z106l=(0,0.5h); penpos109(hair,-68); penpos108(hair,-68); penpos108.5(hair,-68); z109l=(0.832w,h+apex_o); z109-z108=whatever*((w,0.25h)); x108l=0.458w; z107=whatever[z108l,z109l]; x107=0.145w; penpos110(stem,angle((w,0.25h))); z110r=whatever[z109l,z109r]; x110r=w; z110l-z108.5=whatever*(z110r-z109); z108.5=whatever[z108,z109]; penstroke z101e--z102e; filldraw z101'..z105l..z106l{up}--z106r{down} ..z105r...z103---z102l--z102r--z101' & cycle; filldraw z106l{up}..z107 & z107--z109l--z110r-- z110l--z108.5r & z108.5r{z108-z109}..(x106r,0.738h)..z106r{down}-- z106l & cycle; z0=(w-0.7u,0); w:=5.472u; h:=1.376x_height; d:=2.556u; w':=0.863w; penpos1(stem,0); penpos2(stem,0); z1l=z102l; z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74); z4=(0.5[x0,x2l],1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e; filldraw z2l---z3''...z4l--z4r-- z3{dir45}..z5l{right}--z5r{left} ...z3'---z2r--z2l & cycle; penpos5'(hair,-40); penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=0.6w+x0; z6'=whatever[z6,z7]; y6'=y6l+apex_o; penpos8(1.292stem,39); z5'=whatever[z101,z102]; z8r=(w,0.478x_height)+z0; penpos11(hair,-50); penpos10(hair,-50); x10r=x8l; y10l=x_height+apex_o; z10-z11=whatever*((w,0.559x_height)); x11=x1; penpos9(1.229stem,angle((w,0.559x_height))); z9=whatever[z11,z10]; y9r=y10r-apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; z5'r-z6'=whatever*(z1r-z15); penstroke z11e--z10e; penstroke z6e---z7e; penpos7'(1.2hair,-40); z7'r=(0.426w,-d)+z0; penstroke z7'e{dir50}...z8e{up}.. z9e; filldraw z5'l--z1l--z1r-- z15--z7l-- z6'--z5'r--z5'l & cycle; .endchar; .cmchar "The Fraktur ligature ck"; .beginchar(oct"206",3.639lower_u#+3.161lower_u#,x_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); w:=3.639u; penpos101(hair,-30); penpos102(hair,-30); z102l=(w+0.438u-0.5stem,foot); z101r=(0.565w,-apex_o); z101'=whatever[z101,z102]; y101'=y101l+apex_o; z103=whatever[z101l,z102l]; x103=0.809w; z104=(2/3w,0.176h); penpos105(1.083stem,angle((w,0.4h))); z105=(0.26w,0.214h); penpos106(stem,0); z106l=(0,0.5h); penpos109(hair,-68); penpos108(hair,-68); penpos108.5(hair,-68); z109l=(0.832w,h+apex_o); z109-z108=whatever*((w,0.25h)); x108l=0.458w; z107=whatever[z108l,z109l]; x107=0.145w; penpos110(stem,angle((w,0.25h))); z110r=whatever[z109l,z109r]; x110r=w; z110l-z108.5=whatever*(z110r-z109); z108.5=whatever[z108,z109]; penstroke z101e--z102e; filldraw z101'..z105l..z106l{up}--z106r{down} ..z105r...z103---z102l--z102r--z101' & cycle; filldraw z106l{up}..z107 & z107--z109l--z110r-- z110l--z108.5r & z108.5r{z108-z109}..(x106r,0.738h)..z106r{down}-- z106l & cycle; z0=(w-0.7u,0); w:=3.861u; h:=1.366x_height; w':=1.223w; penpos1(stem,0); penpos2(stem,0); z1l=z102l; z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74); z4=(0.5[x0,x2l],1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e; penpos5''(hair,-90); z5''=z5+(hair,-eps); filldraw z2l---z3''...z4l--z4r-- z3{dir45}..z5l{right}..z5''l--z5''r..z5r{left} ...z3'---z2r--z2l & cycle; penpos5'(hair,-40); penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=0.8w+x0; z6'=whatever[z6,z7]; y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke z6e---z7e; z5'r-z6'=whatever*(z1r-z15); z5'=whatever[z101,z102]; filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l & cycle; penpos1.4(3/4stem,-90); z1.4=(x0+0.928w,.859x_height); z1.3=(x0,y1.4r); z1.35=(x2l,y1.4l); filldraw z1.3--z1.35--z1.4l--z1.4r-- z1.3 & cycle; penpos1.5(hair,0); z1.5=0.219[z1.4l,(x2r,y1.4l)]; penpos1.6(hair,-43); z1.6r=(x2r,0.283[y1.4l,y5l]); penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47; x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43); z1.6'l=z1.7r; penpos1.8(stem,60); z1.8r=(x0+w,0.579[y1.4l,y5l]); penstroke z1.6e--z1.6'e; penstroke z1.5e{dir72}..z1.8e{up}..z1.7e{left}; filldraw z1.6r--z1.7l--z1.7r--z1.6l --z1.6r & cycle; .endchar; .cmchar "The Fraktur ligature st"; .beginchar(oct"202",6.5lower_u#,1.366x_height#,3.167lower_u#); .adjust_fit(0,0.05alpha*w#+usual_right#); w':=0.698w; penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0); z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2); z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height; z0.12'=z0.12-(0.5apex_o,0); z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4; penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112; z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22); penpos0.11(hair,-22); z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w'; penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw z0.1r..z0.13'..z0.2r... z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle; filldraw z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}.. z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e; w':=0.726w; z100=(x0.14,0); penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot)+z100; z2=(x1,0.828x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74); z4=(0.5x2l,1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e; penpos5''(hair,-90); z5''=z5+(hair,-eps); penpos5'(hair,-40); z5'l=(0,0.097x_height)+z100; penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=x100+0.53w; z6'=whatever[z6,z7]; y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke z6e---z7e; filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l & cycle; penpos1.4(3/4stem,-90); z1.4=(0.928x100+0.4916w,.859x_height); z1.3=(x100,y1.4r); z1.35=(x2l,y1.4l); filldraw z1.3--(x1,y1.35)--z1.4l--z1.4r-- z1.3 & cycle; penpos1.5(hair,0); z1.5=0.219[z1.4l,(x2r,y1.4l)]; penpos1.6(hair,-43); z1.6r=(x2r,0.283[y1.4l,y5l]); penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47; x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43); z1.6'l=z1.7r; penpos1.8(stem,60); z1.8r=(x100+0.529w,0.579[y1.4l,y5l]); penpos30(hair,0); z30l=(x1r,1.186x_height); filldraw z1.3--z30l--z30r..z2r{down} --(x2r,y1.3)--z1.3 & cycle; penpos30'(hair,180); z30'=z30; penpos30''(hair,-90); z30''r=(x30l,h); penstroke z0.11e{z0.11-z0.9}.. z30''e..z30'e{z1.3-z30l}; .endchar; .cmchar "The Fraktur ligature ss"; .beginchar(oct"201",6.928lower_u#,1.366x_height#,3.167lower_u#); .adjust_fit(0,0.05alpha*w#+usual_right#-1.932u#); w':=0.655w; penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0); z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2); z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height; z0.12'=z0.12-(0.5apex_o,0); z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4; penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112; z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22); penpos0.11(hair,-22); z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w'; penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw z0.1r..z0.13'..z0.2r... z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle; filldraw z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}.. z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e; z100=(x0.2r,0); penpos1.1(hair,0); z1.1=(0.318w'+x100,-d); penpos1.2(1.313stem,0); z1.2=(x1.1,0.795x_height); penpos1.4(3/4stem,-90); z1.4r=(0.857w'+x100,y1.2); z1.3=(x100,y1.2); z1.12=whatever[z1.1l,z1.2l]; z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height; z1.12'=z1.12-(0.5apex_o,0); z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4; penpos1.5(0.917stem,0); z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112; z1.6l-z1.5l=whatever*dir72; penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22); penpos1.11(hair,-22); z1.11r=(x100+w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'+x100; penpos1.8(whatever,68); z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w'+x100,1.366x_height); filldraw z1.1r..z1.13'..z1.2r... z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle; filldraw z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}.. z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e; .endchar; .cmchar "The Fraktur ligature sf"; .beginchar(oct"203",6.928lower_u#,1.366x_height#,3.167lower_u#); .adjust_fit(0,0.05alpha*w#+usual_right#-0.85u#); w':=0.655w; penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0); z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2); z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height; z0.12'=z0.12-(0.5apex_o,0); z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4; penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112; z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22); penpos0.11(hair,-22); z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w'; penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw z0.1r..z0.13'..z0.2r... z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle; filldraw z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}.. z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e; z100=(x0.2r,0); penpos1.1(hair,0); z1.1=(0.318w'+x100,-d); penpos1.2(1.313stem,0); z1.2=(x1.1,0.795x_height); penpos1.4(3/4stem,-90); z1.4r=(0.857w'+x100,y1.2); z1.3=(x100,y1.2); z1.12=whatever[z1.1l,z1.2l]; z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height; z1.12'=z1.12-(0.5apex_o,0); z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4; penpos1.5(0.917stem,0); z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112; z1.6l-z1.5l=whatever*dir72; penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22); penpos1.11(hair,-22); z1.11r=(x100+w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'+x100; penpos1.8(whatever,68); z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w'+x100,1.366x_height); filldraw z1.1r..z1.13'..z1.2r... z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle; filldraw z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}.. z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e; filldraw z1.5--z1.4l--z1.4r--z1.2--z1.5 & cycle; .endchar; .cmchar "The Fraktur ligature ff"; .beginchar(oct"204",6.928lower_u#,1.366x_height#,3.167lower_u#); .adjust_fit(0,0.05alpha*w#+usual_right#-0.85u#); w':=0.655w; penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0); z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2); z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height; z0.12'=z0.12-(0.5apex_o,0); z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4; penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112; z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22); penpos0.11(hair,-22); z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w'; penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw z0.1r..z0.13'..z0.2r... z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle; filldraw z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}.. z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e; z100=(x0.2r,0); penpos1.1(hair,0); z1.1=(0.318w'+x100,-d); penpos1.2(1.313stem,0); z1.2=(x1.1,0.795x_height); penpos1.4(3/4stem,-90); z1.4r=(0.857w'+x100,y1.2); z1.3=(x100,y1.2); z1.12=whatever[z1.1l,z1.2l]; z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height; z1.12'=z1.12-(0.5apex_o,0); z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4; penpos1.5(0.917stem,0); z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112; z1.6l-z1.5l=whatever*dir72; penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22); penpos1.11(hair,-22); z1.11r=(x100+w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'+x100; penpos1.8(whatever,68); z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w'+x100,1.366x_height); filldraw z1.1r..z1.13'..z1.2r... z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle; filldraw z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}.. z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e; filldraw z1.5--z1.4l--z1.4r--z1.2--z1.5 & cycle; filldraw z0.5--z0.4l--z0.4r--z0.2--z0.5 & cycle; .endchar; .cmchar "The Fraktur ligature sz"; .beginchar(oct"032",5.444lower_u#,1.366x_height#,3.167lower_u#); .adjust_fit(0,0.05alpha*w#+usual_right#+0.5u#); w':=0.834w; penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0); z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2); z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height; z0.12'=z0.12-(0.5apex_o,0); z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4; penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112; z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22); penpos0.11(hair,-22); z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w'; penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw z0.1r..z0.13'..z0.2r... z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle; filldraw z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}.. z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e; z100=(x0.2r-hair,hair); w':=0.633w; d':=0.679w; penpos1(hair,122); penpos2(hair,180); penpos3(0.625stem,-42); penpos4(1.313stem,37); z1l=(w',0.524h)+z100; z2r=(x0.2,-0.1d'+y100); z3r=(0.548w',-0.8d')+z100; z4r=(w'+u,0.103x_height)+z100; penstroke z2e{down}..z3e{right} ..z4e{up}; penpos5(hair,-90); z5=(0,0.414x_height)+z100; z6-z5=whatever*dir38; x6=0.484w'+x100; filldraw z5r{right}..z4l{down}-- z4r{up}..z6--z5r & cycle; penpos7(4/3stem,43); z7=(0.629w',0.734x_height)+z100; z8=(0.532w',x_height+apex_o)+z100; z9=(0.081w',0.793x_height)+z100; penpos9'(hair,-90); z9'l=z9; penstroke z5e{z6-z5r}..z7e{up}; filldraw z7l{up}..z9'r{z9-z8}--z9--z8.. z7r{down}--z7l & cycle; .endchar; .cmchar "The Fraktur ligature tz"; .beginchar(oct"213",4.75lower_u#,1.186x_height#,3.167lower_u#); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#+u#); w':=0.994w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot); z2=(x1,0.828x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74); z4=(0.5x2l,1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e; penpos5''(hair,-90); z5''=z5+(hair,-eps); penpos5'(hair,-40); z5'l=(0,0.097x_height); penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=0.632w; z6'=whatever[z6,z7]; y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke z6e---z7e; filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l & cycle; penpos1.4(3/4stem,-90); z1.4=(x1r,.859x_height); z1.3=(0,y1.4r); z1.35=(x2l,y1.4l); filldraw z1.3--(x1,y1.35)--z1.4l--z1.4r-- z1.3 & cycle; penpos1.5(hair,0); z1.5=0.219[z1.4l,(x2r,y1.4l)]; penpos1.6(hair,-43); z1.6r=(x2r,0.283[y1.4l,y5l]); penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47; x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43); z1.6'l=z1.7r; penpos1.8(stem,60); z1.8r=(w,0.579[y1.4l,y5l]); penpos30(hair,0); z30l=(x1r,h); filldraw z1.3--z30l--z30r..z2r{down} --(x2r,y1.3)--z1.3 & cycle; z100=(x1r-hair,hair); w':=0.725w; d':=0.679d; penpos0.1(hair,122); penpos0.2(hair,180); penpos0.3(0.625stem,-42); penpos0.4(1.313stem,37); z0.1l=(w',0.524h)+z100; z0.2r=(0,-0.1d')+z100; z0.3r=(0.548w',-d')+z100; z0.4r=(w'+u,0.103x_height)+z100; penstroke z0.2e{down}..z0.3e{right} ..z0.4e{up}; penpos0.5(hair,-90); z0.5=(0,0.414x_height)+z100; z0.6-z0.5=whatever*dir38; x0.6=0.484w'+x100; filldraw z0.5r{right}..z0.4l{down}-- z0.4r{up}..z0.6--z0.5r & cycle; penpos0.7(4/3stem,43); z0.7=(0.629w',0.734x_height)+z100; z0.8=(0.532w',x_height+apex_o)+z100; z0.9=(0.081w',0.793x_height)+z100; penpos0.9'(hair,-90); z0.9'l=z0.9; penstroke z0.5e{z0.6-z0.5r}..z0.7e{up}; filldraw z0.7l{up}..z0.9'r{z0.9-z0.8}--z0.9--z0.8.. z0.7r{down}--z0.7l & cycle; filldraw (x1r,y1.4l){right}.. z0.8{z0.8-z0.9}--z0.9--(x1r,y1.4l) & cycle; .endchar; numeric nombre; nombre:= 5gencoef[1,1.155556]; .cmchar "The Fraktur letter a with little-e Umlaut"; .beginchar(oct"211",nombre*lower_u#,x_height#,0); .adjust_fit(usual_left#,usual_right#-gencoef[0.5u#,0]); penpos1(stem,0); penpos2(stem,0); penpos3(gencoef[hair,2hair],-51); penpos4(hair,-52); penpos5(hair,-52); penpos6(whatever,angle((w,0.35h))); penpos8(whatever,0); penpos9(hair,gencoef[-30,-50]); penpos11(whatever,0); penpos12(whatever,-90); penpos11''(hair,-30); z1=(gencoef[0.7w,0.779w],gencoef[0.345h,0.24h]); z2=(x1,gencoef[0.807h,0.74h]); z3r=(gencoef[0.911w,w],gencoef[0.925h,0.829h]); z4l=(gencoef[x2l,0.452w],h+apex_o); z5=whatever[(0,gencoef[0.74h,0.685h]),z4]; x5l=gencoef[1/3w,0.288w]; z6l=(0,gencoef[0.462h,0.342h]); x6r=1.083stem; z9=(gencoef[0.694w,0.764w],y1); z8l=whatever[z9l,(w,gencoef[0.623h,0.404h])]; y8=-apex_o; z9r-z8r=whatever*(z9l-z8l); z8'=whatever[z8l,z9l]; y8'=y8+apex_o; z10=whatever[z8l,z9l]; y10=0.228h; z7=(gencoef[0.439w,0.481w],gencoef[0.203h,0.171h]); z11''r=(gencoef[0.78w,0.814w],-apex_o); z12r-z11''r=whatever*((gencoef[x9l,0.6w],y9l)-z8l); z12l-z11''l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); x12=w; z11r=z11''r; z12l-z11l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); z11'=whatever[z11l,z12l]; y11'=y11+apex_o; z12'=whatever[z11l,z12l]; y12'=gencoef[0.217h,y7]; penpos2'(stem,0); z2'=(x2,gencoef[y2,0.651h]); filldraw z11'..z1l{up}--z2l--z5r-- z4l{0.7[z2l,z3r]-z4l}..z3l--z3r.. z2'r{down}---z1r...z12'--z12l--z12r --z11r--z11l--z11' & cycle; penstroke z6e{up}...z5e---z4e; penstroke z8e--z9e; filldraw z8'..z6l{up}--z6r{down} ..z7..z10{z9-z8} & z10--z8' & cycle; z100=(x9l,1.214x_height); e_umlaut(100);.endchar; nombre:= 3.65gencoef[1,1.230769]; .cmchar "The Fraktur letter e with little-e Umlaut"; .beginchar(oct"220",nombre*lower_u#,x_height#,0); .adjust_fit(usual_left#,usual_right#); penpos1(stem,0); z1l=(0,0.486h); penpos7(gencoef[hair,1.2hair],gencoef[-45,-56]); penpos8(gencoef[hair,1.2hair],gencoef[-45,-56]); z8-z7=whatever*((w,gencoef[0.45h,0.356h])); x8r=gencoef[w,0.9w]; x7r=gencoef[x1r,0.4125w]; y7r=-apex_o; z7'=whatever[z7,z8]; y7'=gencoef[y7l,y7r]; x7':=gencoef[x7',x7r]; z9=whatever[z7l,z8l]; x9=gencoef[0.8w,x8l]; z2=(gencoef[0.092w,0.07475w],0.828h); penpos3(gencoef[hair,1.2hair],-69); penpos4(gencoef[hair,1.2hair],-69); y3l=h+apex_o; penpos6(gencoef[hair,1.2hair],-69); z6r=(x1r,0.5h); z3l-z2=whatever*((w,gencoef[0.3h,0.25h])); x4r=w-gencoef[apex_o,0]; z4-z6=whatever*((w,gencoef[0.3h,0.226h])); penpos5(1.083stem,angle(z4-z6)); z5r=z4r; z5'=whatever[z2,z3l]; z5'-z5l=whatever*(z3-z4); penstroke z6e--z4e; filldraw z5l--z5'--z3l--z4r--z5l & cycle; penpos2'(gencoef[hair,1.2hair],-69); z3-z2'=whatever*(z4-z6); x2'r=gencoef[x1r,0.5w]; z10=whatever[(0,0),(w,gencoef[0.301h,0.363h])]; y10=0.193h; penstroke z2'e--z3e; filldraw z7'{dir135}..z1l{up}..z2 & z2..z2'l{z4-z6}--z2'r{gencoef[down,z6-z4]}..{down}z1r..z10 ..z9{z8-z7}--z8l-- z8r--z7' & cycle; penstroke z7e--z8e; z100=(0.569w,1.214x_height); e_umlaut(100); .endchar; nombre:=4.75gencoef[1,1.140351]; .cmchar "The Fraktur letter o with little-e Umlaut"; .beginchar(oct"231",nombre*lower_u#,x_height#,0); .adjust_fit(usual_left#,usual_right#); penpos1(hair,-37); penpos2(hair,-37); z9=(0,gencoef[0.117h,0.19863h]); x1r=gencoef[0.5w,0.561224w]; y1r=-apex_o; penpos3(1.083stem,31); z3r=(w,gencoef[0.479h,0.589h]); penpos7(stem,0); z7=(gencoef[0.211w,0.184w],gencoef[0.866h,0.829h]); penpos4(1.083stem,22); z4-z7l=whatever*dir22; y4r=h+apex_o; penpos5'(hair,-68); z5'l=z7l; penpos6(hair,-68); z6l=z4; penpos8(stem,0); z8=(x7,gencoef[foot,0.267h]); z2-z1=whatever*((w,0.786h)); x8'=x8r; y8'=foot; z2-z8r=whatever*(z1-z9); penstroke z1e---z2e...z3e.. z4e{dir122}; penstroke z5'e--z6e; penstroke z8e--z7e; filldraw z9..z8l{up}--z8r--z2l--z1l--z9 & cycle; z7'=whatever[z5',z6]; x7'=x7r; filldraw z7l--z7'--z7r--z7l & cycle; z100=(x4,1.214x_height); e_umlaut(100); .endchar; nombre:=6.15gencoef[1,1.107527]; .cmchar "The Fraktur letter u with little-e Umlaut"; .beginchar(oct"236",nombre*lower_u#,x_height#,0); .adjust_fit(usual_left#,usual_right#); penpos1(stem,0); z1=(0.727w,foot); penpos2(stem,0); z2=(x1,0.838h); penpos3(2/3hair,90); penpos4(2/3hair,0); penpos5(2/3hair,-90); penpos3'(1.5stem,0); z3'=(x1,0.5[y2,h+apex_o]); z3=z3'l; z5=z3'r; z4=(x1,h+apex_o); penpos16(hair,-32); penpos17(hair,-32); z17-z16=whatever*dir58; z16r=(0.795w,-apex_o); x17r=w; z18=whatever[z16,z17]; y18=0.179h; penstroke z1e--z2e; filldraw z1l--z16--z18{dir148}.. (x1r,0.31h){up}--z1l & cycle; penstroke z16e--z17e; filldraw z2l{up}..z3l{dir165}-- z3r{dir15}..z4l{dir75}--z4r{dir-75} ..z5l{dir-15}--z5r{dir195}..z2r{down} --z2l & cycle; penpos11(stem,0); penpos12(stem,0); z11=(0.257w,foot); z12=(x11,0.71x_height); penpos7(hair,-41); penpos6(hair,-41); z7r=(x11r,-apex_o); z6r=whatever[z7r,z1l]; x6=x1; penpos9(hair,90); z9=(0.063w,0.11x_height); penpos8(whatever,0); z8r=z7r; x8l=x7l; z10=whatever[z7l,z6l]; z10-z11r=whatever*dir-41; filldraw z9l{right}..z8l--z8r--z6r --z6l--z10--z11r--z11l{down}..z9r{dir195} --z9l & cycle; penstroke z11e--z12e; penpos14(hair,-38); z14l=(0,0.805x_height); z13=(0.217w,h+apex_o); z15-z14r=whatever*(z13-z14l); x15=0.097w; filldraw z13..z12r{down}--z12l{up} ..z15--z14r--z14l--z13 & cycle; z100=(x2l-hair,1.214x_height); e_umlaut(100); .endchar; numeric nombre; nombre:= 5gencoef[1,1.155556]; .cmchar "The Fraktur letter a with Umlaut"; .beginchar(oct"212",nombre*lower_u#,x_height#,0); .adjust_fit(usual_left#,usual_right#-gencoef[0.5u#,0]); penpos1(stem,0); penpos2(stem,0); penpos3(gencoef[hair,2hair],-51); penpos4(hair,-52); penpos5(hair,-52); penpos6(whatever,angle((w,0.35h))); penpos8(whatever,0); penpos9(hair,gencoef[-30,-50]); penpos11(whatever,0); penpos12(whatever,-90); penpos11''(hair,-30); z1=(gencoef[0.7w,0.779w],gencoef[0.345h,0.24h]); z2=(x1,gencoef[0.807h,0.74h]); z3r=(gencoef[0.911w,w],gencoef[0.925h,0.829h]); z4l=(gencoef[x2l,0.452w],h+apex_o); z5=whatever[(0,gencoef[0.74h,0.685h]),z4]; x5l=gencoef[1/3w,0.288w]; z6l=(0,gencoef[0.462h,0.342h]); x6r=1.083stem; z9=(gencoef[0.694w,0.764w],y1); z8l=whatever[z9l,(w,gencoef[0.623h,0.404h])]; y8=-apex_o; z9r-z8r=whatever*(z9l-z8l); z8'=whatever[z8l,z9l]; y8'=y8+apex_o; z10=whatever[z8l,z9l]; y10=0.228h; z7=(gencoef[0.439w,0.481w],gencoef[0.203h,0.171h]); z11''r=(gencoef[0.78w,0.814w],-apex_o); z12r-z11''r=whatever*((gencoef[x9l,0.6w],y9l)-z8l); z12l-z11''l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); x12=w; z11r=z11''r; z12l-z11l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); z11'=whatever[z11l,z12l]; y11'=y11+apex_o; z12'=whatever[z11l,z12l]; y12'=gencoef[0.217h,y7]; penpos2'(stem,0); z2'=(x2,gencoef[y2,0.651h]); filldraw z11'..z1l{up}--z2l--z5r-- z4l{0.7[z2l,z3r]-z4l}..z3l--z3r.. z2'r{down}---z1r...z12'--z12l--z12r --z11r--z11l--z11' & cycle; penstroke z6e{up}...z5e---z4e; penstroke z8e--z9e; filldraw z8'..z6l{up}--z6r{down} ..z7..z10{z9-z8} & z10--z8' & cycle; z100=(x9l,1.214x_height); umlaut(100);.endchar; nombre:= 3.65gencoef[1,1.230769]; .cmchar "The Fraktur letter e with Umlaut"; .beginchar(oct"221",nombre*lower_u#,x_height#,0); .adjust_fit(usual_left#,usual_right#); penpos1(stem,0); z1l=(0,0.486h); penpos7(gencoef[hair,1.2hair],gencoef[-45,-56]); penpos8(gencoef[hair,1.2hair],gencoef[-45,-56]); z8-z7=whatever*((w,gencoef[0.45h,0.356h])); x8r=gencoef[w,0.9w]; x7r=gencoef[x1r,0.4125w]; y7r=-apex_o; z7'=whatever[z7,z8]; y7'=gencoef[y7l,y7r]; x7':=gencoef[x7',x7r]; z9=whatever[z7l,z8l]; x9=gencoef[0.8w,x8l]; z2=(gencoef[0.092w,0.07475w],0.828h); penpos3(gencoef[hair,1.2hair],-69); penpos4(gencoef[hair,1.2hair],-69); y3l=h+apex_o; penpos6(gencoef[hair,1.2hair],-69); z6r=(x1r,0.5h); z3l-z2=whatever*((w,gencoef[0.3h,0.25h])); x4r=w-gencoef[apex_o,0]; z4-z6=whatever*((w,gencoef[0.3h,0.226h])); penpos5(1.083stem,angle(z4-z6)); z5r=z4r; z5'=whatever[z2,z3l]; z5'-z5l=whatever*(z3-z4); penstroke z6e--z4e; filldraw z5l--z5'--z3l--z4r--z5l & cycle; penpos2'(gencoef[hair,1.2hair],-69); z3-z2'=whatever*(z4-z6); x2'r=gencoef[x1r,0.5w]; z10=whatever[(0,0),(w,gencoef[0.301h,0.363h])]; y10=0.193h; penstroke z2'e--z3e; filldraw z7'{dir135}..z1l{up}..z2 & z2..z2'l{z4-z6}--z2'r{gencoef[down,z6-z4]}..{down}z1r..z10 ..z9{z8-z7}--z8l-- z8r--z7' & cycle; penstroke z7e--z8e; z100=(0.569w,1.214x_height); umlaut(100); .endchar; nombre:=4.75gencoef[1,1.140351]; .cmchar "The Fraktur letter o with Umlaut"; .beginchar(oct"232",nombre*lower_u#,x_height#,0); .adjust_fit(usual_left#,usual_right#); penpos1(hair,-37); penpos2(hair,-37); z9=(0,gencoef[0.117h,0.19863h]); x1r=gencoef[0.5w,0.561224w]; y1r=-apex_o; penpos3(1.083stem,31); z3r=(w,gencoef[0.479h,0.589h]); penpos7(stem,0); z7=(gencoef[0.211w,0.184w],gencoef[0.866h,0.829h]); penpos4(1.083stem,22); z4-z7l=whatever*dir22; y4r=h+apex_o; penpos5'(hair,-68); z5'l=z7l; penpos6(hair,-68); z6l=z4; penpos8(stem,0); z8=(x7,gencoef[foot,0.267h]); z2-z1=whatever*((w,0.786h)); x8'=x8r; y8'=foot; z2-z8r=whatever*(z1-z9); penstroke z1e---z2e...z3e.. z4e{dir122}; penstroke z5'e--z6e; penstroke z8e--z7e; filldraw z9..z8l{up}--z8r--z2l--z1l--z9 & cycle; z7'=whatever[z5',z6]; x7'=x7r; filldraw z7l--z7'--z7r--z7l & cycle; z100=(x4,1.214x_height); umlaut(100); .endchar; nombre:=6.15gencoef[1,1.107527]; .cmchar "The Fraktur letter u with Umlaut"; .beginchar(oct"237",nombre*lower_u#,x_height#,0); .adjust_fit(usual_left#,usual_right#); penpos1(stem,0); z1=(0.727w,foot); penpos2(stem,0); z2=(x1,0.838h); penpos3(2/3hair,90); penpos4(2/3hair,0); penpos5(2/3hair,-90); penpos3'(1.5stem,0); z3'=(x1,0.5[y2,h+apex_o]); z3=z3'l; z5=z3'r; z4=(x1,h+apex_o); penpos16(hair,-32); penpos17(hair,-32); z17-z16=whatever*dir58; z16r=(0.795w,-apex_o); x17r=w; z18=whatever[z16,z17]; y18=0.179h; penstroke z1e--z2e; filldraw z1l--z16--z18{dir148}.. (x1r,0.31h){up}--z1l & cycle; penstroke z16e--z17e; filldraw z2l{up}..z3l{dir165}-- z3r{dir15}..z4l{dir75}--z4r{dir-75} ..z5l{dir-15}--z5r{dir195}..z2r{down} --z2l & cycle; penpos11(stem,0); penpos12(stem,0); z11=(0.257w,foot); z12=(x11,0.71x_height); penpos7(hair,-41); penpos6(hair,-41); z7r=(x11r,-apex_o); z6r=whatever[z7r,z1l]; x6=x1; penpos9(hair,90); z9=(0.063w,0.11x_height); penpos8(whatever,0); z8r=z7r; x8l=x7l; z10=whatever[z7l,z6l]; z10-z11r=whatever*dir-41; filldraw z9l{right}..z8l--z8r--z6r --z6l--z10--z11r--z11l{down}..z9r{dir195} --z9l & cycle; penstroke z11e--z12e; penpos14(hair,-38); z14l=(0,0.805x_height); z13=(0.217w,h+apex_o); z15-z14r=whatever*(z13-z14l); x15=0.097w; filldraw z13..z12r{down}--z12l{up} ..z15--z14r--z14l--z13 & cycle; z100=(x2l-hair,1.214x_height); umlaut(100); .endchar; .cmchar "The Fraktur hyphen"; .beginchar(oct"055",4u#,x_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(0.5stem,-90); penpos2(0.5stem,-90); penpos3(0.5stem,-90); penpos4(0.5stem,-90); penpos5(stem,-90); z2-z1=whatever*dir35; z4-z3=whatever*dir35; z3r=z5l; z5r=z1l; x1=0; x2=x4=w; y1r=foot; penstroke z1e--z2e; penstroke z3e--z4e; .endchar; def par_s(suffix $) = h':=cap_height; w':=0.379h'; z$.1=z$+(0.5w',0.5h'); penpos$.1(stem,30); penpos$.2(2hair,0); penpos$.3(hair,-90); penpos$.4(hair,180); penpos$.5(hair,90); z$.2l=z$+(0,0.8h'); z$.3l=(x$.1,y$+h'); z$.4=z$+(0.84w',0.886h'); z$.5=(x$.4r,y$+0.826h'); penstroke z$.2e{up}..z$.3e {right} if panw: ..z$.4e{down}..z$.5e{left} fi; penpos$.6(2hair,90); z$.6l=z$.5l; if panw: filldraw z$.6r..z$.6l..z$.6r & cycle; fi penpos$.1'(stem,-150); penpos$.2'(2hair,180); penpos$.3'(hair,90); penpos$.4'(hair,0); penpos$.5'(hair,-90); z$.1=z$.1'; z$.2'r=z$+(w',0.2h'); z$.3'r=(x$.1,y$); z$.4'=z$+(0.16w',0.114h'); z$.5'=(x$.4'r,y$+0.174h'); penpos$.2''(2hair,0); z$.2''=z$.2'; z$.25=(z$.2''{up}..z$.2{up}) intersectionpoint (z$+(0,0.5h')-- z$+(w',0.5h')); penpos$.25(stem,30); penstroke z$.2''e{up}..z$.25e.. z$.2e{up}; penstroke z$.2'e{down}..z$.3'e {left} if katw: ..z$.4'e{up}..z$.5'e{right} fi; penpos$.6'(2hair,-90); z$.6'l=z$.5'l; if katw: filldraw z$.6'r..z$.6'l..z$.6'r & cycle; fi enddef; .cmchar "The Fraktur paragraph sign"; .beginchar(oct"074",7.4u#,cap_height#,3.167u#); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); boolean panw, katw; panw:=true; katw:=false; z0=(0.17h,0); par_s(0); panw:=false; katw:=true; z1=(0,-0.3h); par_s(1); .endchar; .cmchar "The Fraktur paragraph sign"; .beginchar(oct"244",7.4u#,cap_height#,3.167u#); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); boolean panw, katw; panw:=true; katw:=false; z0=(0.17h,0); par_s(0); panw:=false; katw:=true; z1=(0,-0.3h); par_s(1); .endchar; .cmchar "The Fraktur Mitlaut J proposed by Sanders in 1879"; .beginchar("$",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}; penpos20(hair,-41); penpos21(hair,-41); penpos22(2/3cap_stem,-90); penpos23(0.593cap_stem,-113); z20l=(0,0.235h); z21=(x8,0.48y8); z22=(0.261w,0.328h); z23=(0.586w,0.251h); penstroke z20e..z22e{right}..z23e{right} ..z21e; .endchar; .cmchar "The Fraktur symbol for etc"; .beginchar(oct"311",8.194lower_u#,x_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(hair,-52); penpos2(hair,-52); penpos3(stem,48); penpos4(stem,48); penpos5(hair,-42); penpos6(1.2stem,34); penpos8(hair,-49); z1r=(0.22w,-apex_o); z2-z1=whatever*dir38; x2=0.458w; z3l=z1r; z4l-z1r=whatever*dir140; x4l=0; z5l=z4; y6=0.707h; x6r=x2r; z7=(0.231w,h+apex_o); z9=(0.163w,0.841h); z8l=(0,0.793h); penstroke z1e--z2e; penstroke z3e--z4e; penstroke z5e{z4r-z4l}..z6e{up}; filldraw z6r{up}..z7{dir160} & z7-- z8l--z8r{z7-z8l}..z9{right}..z6l{down} --z6r & cycle; penpos10(hair,-59); penpos11(hair,-59); penpos12(whatever,50); penpos13(1.2stem,30); penpos14(stem,11.5); penpos15(hair,-75); penpos16(0.857stem,14); penpos17(0.857stem,14); z11r=(0.695w,-apex_o); z10-z11=whatever*dir31; x10r=w; z12l=z11r; z12r=whatever[z11l,z10l]; z13=(0.631w,0.49h); z14=(0.678w,0.859h); z16r=(w,y8l); z15-z16r=whatever*dir105; y15l=h+apex_o; z17r=z15; penstroke z11e--z10e; penstroke z12e..z13e{up}..z14e.. z15e{z16r-z16l}; penstroke z16e--z17e; .endchar; .cmchar "Scandinavian circle accent"; .beginchar(oct"027",9u#,cap_height#,0); .adjust_fit(0,0); penpos0.1(2u,45); z0.1=z0=(0.5w,1.283x_height); pickup pensquare yscaled 0.5hair xscaled 0.3[hair,stem] rotated 30; z0.2=z0.1r; z0.3=z0.1l; rt x0.4=rt x0.2; top y0.4=y0; draw z0.2..z0.3..z0.2; penlabels(1,2,3,4); .endchar; .cmchar "The Fraktur letter dotless j"; .beginchar(oct"021",2.944lower_u#,x_height#,1.611lower_u#); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(hair,47); penpos2(1.3hair,-90); z2r=(0.16w,-d); penpos5(stem,0); z5=(0.523w,0.124h); penpos3(2/3stem,0); z3l=(x5l,0.048h); penpos6(stem,0); z6=(x5,0.824h); penpos7(hair,-90); z7=(0.906w,0.91h); penpos8(hair,-48); penpos9(hair,-48); z8l=(0.481w,h+apex_o); z8-z9=whatever*((w,0.3448h)); x9l=0; z9'=whatever[z9r,z8r]; y9'=y9l+apex_o; z1r=(x5r+0.5stem,-0.207d);penstroke z2e..z3e{up}; penstroke z5e--z6e; filldraw z1r{dir137}..z5r{up}--z5l --z3l--z3r..z1l{dir-43}--z1r & cycle; filldraw z6r{up}..z7r{right}--z7l... z8r---z8l--z9l--z9r--z9'.. z6l{down}--z6r & cycle; penpos11(hair,0); z11r=(x8l,1.076h); z12=(0.571w,1.279h); z13=(0.744w,1.238h); .endchar; .cmchar "The Fraktur letter dotless i"; .beginchar(oct"020",2.889lower_u#,x_height#,0); .adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(hair,-44); penpos2(hair,-44); penpos3(hair,-44); z1l=(0,0.834h); z2-z1=whatever*((w,0.37h)); y2l=h+apex_o; z3=whatever[z2l,z2r]; x3r=x5r+0.5stem; z4=(0.606w,0.931h); penpos5(stem,0); z5=(0.433w,0.759h); z6=(x5,0.238h); penpos6(stem,0); z7=(x6l,0.079h); z8-z7=whatever*dir-40; y8=-apex_o; penpos9(hair,-38); z9r-z8=whatever*dir52; x9r=w; z10=(0.788w,0.152h); z5'=whatever[z1,z2]; x5'=x5l; penstroke z5e--z6e; penstroke z1e--z2e; filldraw z5r{up}..z3r--z2--z5'--z5l{down} --z5r & cycle; filldraw z8--z9r--z9l{z8-z9r} ..z6r{up}--z6l{down}..{z8-z7}z8 & cycle; penpos11(hair,0); z11r=(x2l,1.076h); z12=(0.56w,1.279h); z13=(0.73w,1.238h); .endchar;