diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/gothic/cmfrakmis.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/gothic/cmfrakmis.mf | 769 |
1 files changed, 769 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/gothic/cmfrakmis.mf b/Master/texmf-dist/fonts/source/public/gothic/cmfrakmis.mf new file mode 100644 index 00000000000..12195b7d90a --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/gothic/cmfrakmis.mf @@ -0,0 +1,769 @@ +.cmchar "The Fraktur ligature ch"; +.beginchar(ch_ligature,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(ck_ligature,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(st_ligature,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(ss_ligature,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(sf_ligature,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(ff_ligature,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(eszet,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; +last_char:=currentpicture; +.endchar; + + + +.cmchar "The Fraktur ligature sz"; +if (dc_layout>0): xchar_code:=oct"377"; + else: xchar_code:=oct"337"; + beginchar(xchar_code,5.444lower_u#,1.366x_height#,3.167lower_u#); + currentpicture:=last_char; + endchar; +fi; + +.cmchar "The Fraktur ligature tz"; +.beginchar(tz_ligature,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"344",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); +last_char:=currentpicture; +z100=(0.5w,x_height); +umlaut(100);.endchar; + + +.cmchar "The Fraktur letter a with acute"; +.beginchar(oct"341",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); acute(100); +endchar; + +.cmchar "The Fraktur letter a with breve"; +.beginchar(oct"240",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); breve(100); +endchar; + +.cmchar "The Fraktur letter a with ogonek"; +.beginchar(oct"241",nombre*lower_u#,x_height#,0.2x_height#); +currentpicture:=last_char; +z100=(0.8w,0); ogonek(100); +endchar; + +.cmchar "The Fraktur letter a with tilde"; +.beginchar(oct"343",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); tilde(100); +endchar; + +.cmchar "The Fraktur letter a with scandinavian circle"; +.beginchar(oct"345",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); o_umlaut(100); +endchar; + +.cmchar "The Fraktur letter a with grave"; +.beginchar(oct"340",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); grave(100); +endchar; + +.cmchar "The Fraktur letter a with hat"; +.beginchar(oct"342",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); hat(100); +endchar; + +nombre:= 3.65gencoef[1,1.230769]; + +.cmchar "The Fraktur letter e with Umlaut"; +.beginchar(oct"353",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.6w,x_height); +last_char:=currentpicture; +umlaut(100); +.endchar; + +.cmchar "The Fraktur letter e with acute"; +.beginchar(oct"351",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); acute(100); +endchar; + +.cmchar "The Fraktur letter e with grave"; +.beginchar(oct"350",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); grave(100); +endchar; + +.cmchar "The Fraktur letter e with hacek"; +.beginchar(oct"245",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); hacek(100); +endchar; + +.cmchar "The Fraktur letter e with hat"; +.beginchar(oct"352",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); hat(100); +endchar; + +.cmchar "The Fraktur letter e with ogonek"; +.beginchar(oct"246",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.6w,0); ogonek(100); +endchar; + +nombre:=4.75gencoef[1,1.140351]; + +.cmchar "The Fraktur letter o with Umlaut"; +.beginchar(oct"366",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,x_height); +last_char:=currentpicture; +umlaut(100); +.endchar; + +.cmchar "The Fraktur letter o with acute"; +.beginchar(oct"363",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); acute(100); +endchar; + +.cmchar "The Fraktur letter o with Hungarian umlaut"; +.beginchar(oct"256",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); hungarum(100); +endchar; + +.cmchar "The Fraktur letter o with tilde"; +.beginchar(oct"365",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); tilde(100); +endchar; + +.cmchar "The Fraktur letter o with slash"; +.beginchar(oct"370",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +pickup penrazor xscaled 0.5stem yscaled hair rotated 30; +draw (0,0)--(w,x_height); +endchar; + +.cmchar "The Fraktur letter o with slash"; +if (dc_layout>0): xchar_code:=oct"370"; + else: xchar_code:=oct"034"; + fi; +.beginchar(xchar_code,nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +pickup penrazor xscaled 0.5stem yscaled hair rotated 30; +draw (0,0)--(w,x_height); +endchar; + +.cmchar "The Fraktur letter o with grave"; +.beginchar(oct"362",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); grave(100); +endchar; + +.cmchar "The Fraktur letter o with hat"; +.beginchar(oct"364",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); hat(100); +endchar; + +nombre:=6.15gencoef[1,1.107527]; + +.cmchar "The Fraktur letter u with Umlaut"; +.beginchar(oct"374",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); +last_char:=currentpicture; +z100=(0.5w,x_height); +umlaut(100); +.endchar; + +.cmchar "The Fraktur letter u with acute"; +.beginchar(oct"372",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); acute(100); +endchar; + +.cmchar "The Fraktur letter u with Hungarian umlaut"; +.beginchar(oct"266",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); hungarum(100); +endchar; + +.cmchar "The Fraktur letter u with grave"; +.beginchar(oct"371",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); grave(100); +endchar; + +.cmchar "The Fraktur letter u with hat"; +.beginchar(oct"373",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); hat(100); +endchar; + + +.cmchar "The Fraktur letter u with scandinavian circle"; +.beginchar(oct"267",nombre*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); o_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"237",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; + +% 311 --> 100 by D. Taupin +.cmchar "The Fraktur symbol for etc"; .beginchar(oct"100",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"; +if (dc_layout>0): xchar_code:=oct"006"; + else: xchar_code:=oct"027"; + fi; +.beginchar(xchar_code,9u#,cap_height#,0); +z100=(0.5w,x_height); o_umlaut(100); +.endchar; + +.cmchar "The Fraktur letter dotless j"; +if (dc_layout>0): xchar_code:=oct"032"; + else: xchar_code:=oct"021"; + fi; +.beginchar(xchar_code,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"; +if (dc_layout>0): xchar_code:=oct"031"; + else: xchar_code:=oct"020"; + fi; +.beginchar(xchar_code,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); +last_char:=currentpicture; +.endchar; + + + +.cmchar "The Fraktur letter i with Umlaut"; +.beginchar(oct"357",2.889*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); umlaut(100); +endchar; + +.cmchar "The Fraktur letter i with acute"; +.beginchar(oct"355",2.889*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); acute(100); +endchar; + +.cmchar "The Fraktur letter i with grave"; +.beginchar(oct"354",2.889*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); grave(100); +endchar; + +.cmchar "The Fraktur letter i with hat"; +.beginchar(oct"356",2.889*lower_u#,x_height#,0); +currentpicture:=last_char; +z100=(0.5w,x_height); hat(100); +endchar; + + |