diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/gothic/ygothlow.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/gothic/ygothlow.mf | 768 |
1 files changed, 768 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/gothic/ygothlow.mf b/Master/texmf-dist/fonts/source/public/gothic/ygothlow.mf new file mode 100644 index 00000000000..bd893026f2d --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/gothic/ygothlow.mf @@ -0,0 +1,768 @@ + +.cmchar "The gothic letter a"; +.beginchar("a",6.278u#,x_height#,0); +.adjust_fit(cap_serif_fit#,cap_serif_fit#-0.3u#); +z0=(0,0); ygoth_a(0); .endchar; + +.cmchar "The gothic letter b"; +.beginchar("b",6.111u#,1.431x_height#,0); +.adjust_fit(cap_serif_fit#,cap_serif_fit#); +penpos1(stem,0); penpos2(stem,0); +penpos3(stem,0); penpos4(stem,0); +penpos8(stem,60); penpos9(stem,60); +z1=(0.243w,foot); z2=(x1,0.888h); +z9l=z1l-(2apex_o,0); +x7=0.359[x1r,x3l]; y7=-apex_o; +z8l=z7; z3r-z7=whatever*dir30; +x3r=w-apex_o; +z4r=(x3r,0.833x_height); +z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r]; +z7''=whatever[z7,z3r]; x7''=x3l; +penstroke z1e--z2e; penstroke z8e--z9e; +penstroke z3e--z4e; +filldraw z8r--z7'--z7--z8r & cycle; +filldraw z7''--z3l--z3r--z7'' & cycle; +penpos100(hair,angle(z3r-z7)-90); +penpos101(hair,angle(z3r-z7)-90); +z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r; +penstroke z100e--z101e; +% +% +% +penpos5(stem,60); z17=(x1r,0.824x_height); +z6=(0.821[x1r,x3l],x_height); +z5r=(x101r,y4); +penpos6'(hair,angle(z6-z17)-90); +z6'l=z6; z17'-z6'r=whatever*(z17-z6); +x17'=x1r; z5.1=whatever[z17',z6'r]; +z5.1-z5l=whatever*(z6-z5r); +filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r +& cycle; +% +% +% +z21=0.267[z2l,z2r]; z20=(x6,0.5[h,y2]); +penpos20(3/4hair,-135); +z22=(0.545[x21,x20],h-apex_o); +z21'=(x1r,1/4[y21,y6]); +filldraw z21..z22..{down}z20l & z20l--z20r +& z20r{up}..z21'{down} & z21'--z2r--z21 & +cycle; +penpos18(hair,angle(z6-z17)); +x18r=0;y18r=1/3[h,y21]; +z21''=(x1l,0.5[y21,y6]); +filldraw z21''{up}..{z18-z21}z18l & +z18l--z18r--z21--z2l--z21'' & cycle; +.endchar; + +.cmchar "The gothic letter c"; +.beginchar("c",4.306u#,x_height#,0); +.adjust_fit(cap_serif_fit#,cap_serif_fit#); +z0=(0,0); ygoth_c(0); +.endchar; + +.cmchar "The gothic letter d"; +.beginchar("d",6.111u#,1.431x_height#,0); +.adjust_fit(cap_serif_fit#,cap_serif_fit#); +penpos1(stem,0); penpos2(stem,0); +penpos3(stem,0); penpos4(stem,0); +penpos8(stem,60); penpos9(stem,60); +z1=(0.243w,foot); z2=(x1,0.888h); +z9l=z1l-(apex_o,0); +x7=0.359[x1r,x3l]; y7=-apex_o; +z8l=z7; z3r-z7=whatever*dir30; +x3r=w-apex_o; +z4r=(x3r,0.88x_height); %0.833 +z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r]; +z7''=whatever[z7,z3r]; x7''=x3l; +penstroke z8e--z9e; +penstroke z3e--z4e; +filldraw z8r--z7'--z7--z8r & cycle; +filldraw z7''--z3l--z3r--z7'' & cycle; +penpos100(hair,angle(z3r-z7)-90); +penpos101(hair,angle(z3r-z7)-90); +z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r; +penstroke z100e--z101e; +% +% +% +penpos5(stem,60); z17=(x1r,0.824x_height); +z6=(0.821[x1r,x3l],x_height); +z5r=(x101r,y4); +penpos6'(hair,angle(z6-z17)-90); +z6'l=z6; z17'-z6'r=whatever*(z17-z6); +x17'=x1r; z5.1=whatever[z17',z6'r]; +z5.1-z5l=whatever*(z6-z5r); +filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r +& cycle; +% +% +% +penpos2'(stem,0); z2'r=z17'; +z31=whatever[z6,z5r]; x31=x1l; +z30=whatever[z31,z5r]; +z30-z2'l=whatever*(z2'r-z6'r); +x34=0; z34=whatever[z5.1,z5l]; +z32=(x31-0.5hair,y31+hair); +z33=(2x32,y34); z35=whatever[z2'l,z30]; +z35=whatever[z34,z5.1]; +filldraw z2'r--z6'r--z6--z31--z34--z35 +--z2'l--z2'r & cycle; +filldraw z34{up}..z32 & z32..{down}z33 & +z33--z34 & cycle; +penstroke z1e--z2'e; +% +% +% +penpos150(1.2hair,angle(z5.1-z35)); +z150l=z35; +unfilldraw z2'r{up}..{z30-z35}z150r & z150r +--z5.1--z2'r & cycle; +unfilldraw z2'r{up}..{z30-z35}z150r & z150r +--z5.1--z2'r & cycle; +.endchar; + +.cmchar "The gothic letter e"; +.beginchar("e",4.306u#,x_height#,0); +.adjust_fit(cap_serif_fit#,cap_serif_fit#+.7u#); +z0=(0,0); ygoth_e(0); +.endchar; + +.cmchar "The gothic letter f"; +.beginchar("f",4.389u#,11.944u#,0); +.adjust_fit(cap_serif_fit#,cap_serif_fit#-.2u#); +z0=(hair,0); ygoth_s(0); +penpos260(4/5stem,-90); penpos261(4/5stem,-90); +y260r=y261r=0.732x_height; +x260=x0+apex_o+stem; +x261=x0+apex_o+2stem; +penstroke z260e--z261e; +.endchar; + +.cmchar "The gothic letter g"; +.beginchar("g",7.556u#,x_height#,3u#); +.adjust_fit(cap_serif_fit#,cap_serif_fit#-0.3u#); +penpos1(stem,0); penpos2(stem,0); +penpos3(stem,0); penpos4(stem,0); +x1l=x2l=apex_o; x3l=x4l=0.574w; +penpos5(1.083stem,63); penpos6(1.083stem,63); +penpos20(2hair,-51); penpos21(2hair,-45); +penpos22(2hair,-28); +y1=0.108x_height; %y2=0.788x_height; +y3=0.235x_height; y4=0.843x_height; +y5r=x_height; x5l=x2r; y2=y5l; +z6r=(w,0.915x_height); y20l=y2; x20=x1l; +z21r=z2r; z22l=whatever[z5r,z5l]; y22l=h+apex_o; +penpos6'(1.083stem,63); +z6'l=whatever[z5l,z6l]; x6'=x6-hair; +penstroke z1e--z2e; penstroke z3e--z4e; +penstroke z6'e--z5e; penstroke z20e..z21e..z22e; +penpos6''(1.083stem,63); +z6''=whatever[z6l,z6r]; z6''l=1/5[z6l,z6r]; +penstroke z6'e{z6-z5}..z6''e; +% +% +% +penpos16(stem,65); z16l=(0,y1); +penpos7(hair,-41); +z7r=(x1l,-d); penpos8(hair,-41); z8l=z3l; +z7'=whatever[z7l,z8l]; y7'=-d; +filldraw z7'--z8l--z8r--z7r--z7' & cycle; +z15'=whatever[z16l,(x1r,0)]; +z15'=whatever[z7r,z8r]; z15-z16r= +whatever*(z15'-z16l); z15=whatever[z7r,z8r]; +filldraw z16l--z16r--z15--z15'--z16l & +cycle; +penpos9(stem,30); z9l=z3l; +x12=x6r; z12-z9r=whatever*dir-60; +penpos10(whatever,45); z10r=z12; +z10l-z9l=whatever*(z12-z9r); +z13''=whatever[z7l,z8l]; x13''=x1r; +penpos11'(hair,-45); +z11'r=z12; z11''=whatever[z9l,z10l]; +z11''-z11'l=whatever*(z10l-z10r); +penpos13'(stem,angle(z11''-z13'')+90); +z13'r=z13''; z11-z13'l=whatever*(z11''-z13''); +z11=whatever[z10l,z10r]; +z13=whatever[z7l,z8l]; +z13=whatever[z13'l,z11]; +filldraw z13--z11--z12--z11'l--z11''-- +z13'r--z13 & cycle; +penstroke z10e--z9e; +filldraw z7r{z15-z7r}..z13'l{z11-z13} +& z13'l--z13--z7r & cycle; +.endchar; + +.cmchar "The gothic letter h"; +.beginchar("h",6.111u#,1.431x_height#,2.778u#); +.adjust_fit(cap_serif_fit#,cap_serif_fit#+0.2u#); +z0=(0,0); ygoth_h(0); +.endchar; + +.cmchar "The gothic letter i"; +.beginchar("i",2.889u#,1.431x_height#,0); +.adjust_fit(cap_serif_fit#+0.6u#,cap_serif_fit#-.7u#); +penpos1(stem,0); penpos2(stem,0); +x1l=x2l=apex_o; y1=foot; y2=x_height-foot; +podi(1); qeri(2); penstroke z1e--z2e; +% +% +% +z5.1=z2r+(2apex_o,0); +penpos5.2(stem,40); z5.2r=z5.1; +penpos5.3(stem,40); +z5.2r-z5.3r=whatever*dir-50; +y5.3r=y2+foot+apex_o; +z3=z5.3r+(0,0.5hair); +penpos4(0.8stem,0); y4=1.379x_height; +x4r=x2r+hair; +filldraw z3--z4l--z4r--z3 & cycle; +.endchar; + +.cmchar "The gothic letter j"; +.beginchar("j",2.889u#,1.431x_height#,2.778u#); +.adjust_fit(cap_serif_fit#+0.6u#,cap_serif_fit#-.85u#); +penpos1(stem,0); penpos2(stem,0); +x1l=x2l=apex_o; y1=foot; y2=x_height-foot; +qeri(2); penstroke z1e--z2e; +% +% +% +z5.1=z2r+(2apex_o,0); +penpos5.2(stem,40); z5.2r=z5.1; +penpos5.3(stem,40); +z5.2r-z5.3r=whatever*dir-50; +y5.3r=y2+foot+apex_o; +z3=z5.3r+(0,0.5hair); +penpos4(0.8stem,0); y4=1.379x_height; +x4r=x2r+hair; +filldraw z3--z4l--z4r--z3 & cycle; +% +% +% +z40=z1r+(apex_o,-0.5y1r); z41=(x1l-0.6hair,0); +penpos42(hair,90); z42l=(x1l-1.733stem,-d); +filldraw z1r{down}..z40 & z40{dir225}.. +z42l{left} & z42l--z42r & z42r{right}.. +z1l{up} & z1l--z1r & cycle; +.endchar; + +.cmchar "The gothic letter k"; +.beginchar("k",6.111u#,1.431x_height#,0); +.adjust_fit(cap_serif_fit#,cap_serif_fit#+.4u#); +z0=(0,0); ygoth_k(0); +.endchar; + +.cmchar "The gothic letter l"; +.beginchar("l",4.278u#,1.431x_height#,0); +.adjust_fit(cap_serif_fit#,cap_serif_fit#-u#); +penpos301(stem,0); penpos302(stem,0); +penpos303(stem,0); penpos304(stem,0); +penpos308(stem,60); penpos309(stem,60); +z301=(0.243w,foot); z302=(x301,0.888h); +penstroke z301e--z302e; podi(301); +% +% +% +z321=0.267[z302l,z302r]; z320l=(w,0.5[h,y302]); +penpos320(3/4hair,-135); +z322=(0.7[x321,x320],h-apex_o); +z321'=(x301r,1/4[y321,x_height]); +penpos325(0.7hair,-90); z325l=z322; +filldraw z321..z325l{right} & z325l--z325r & +z325r{left}..z321'{down} & z321'--z302r--z321 & +cycle; +penpos318(hair,45); +x318r=0;y318r=1/3[h,y321]; +z321''=(x301l,0.5[y321,x_height]); +filldraw z321''{up}..{z318-z321}z318l & +z318l--z318r--z321--z302l--z321'' & cycle; +.endchar; + +.cmchar "The gothic letter m"; +.beginchar("m",9u#,x_height#,0); +.adjust_fit(cap_serif_fit#,cap_serif_fit#); +penpos1(stem,0); penpos2(stem,0); +penpos3(stem,0); penpos4(stem,0); +penpos5(stem,0); penpos6(stem,0); +x1l=hair; +x2=x1; x4l=x3l=x1r+1.233stem; +x6l=x5l=x3r+1.233stem; +y1=y3=y5=foot; y2=y4=y6=x_height-foot; +penstroke z1e--z2e; penstroke z3e--z4e; +penstroke z5e--z6e; +podi(1); podi(3); podi(5); +qeri(2); panwqeri(4); panwqeri(6); +.endchar; + +.cmchar "The gothic letter n"; +.beginchar("n",5.5u#,x_height#,0); +.adjust_fit(cap_serif_fit#,cap_serif_fit#+.2u#); +penpos1(stem,0); penpos2(stem,0); +penpos3(stem,0); penpos4(stem,0); +x1l=hair; +x2=x1; x4l=x3l=x1r+1.233stem; +y1=y3=foot; y2=y4=x_height-foot; +penstroke z1e--z2e; penstroke z3e--z4e; +podi(1); podi(3); +qeri(2); panwqeri(4); +.endchar; + +.cmchar "The gothic letter o"; +.beginchar("o",6.111u#,x_height#,0); +.adjust_fit(cap_serif_fit#-.4u#,cap_serif_fit#+0.2u#); +z0=(0,0); ygoth_o(0); +.endchar; + +.cmchar "The gothic letter p"; +.beginchar("p",6.111u#,x_height#,0.431x_height#); +.adjust_fit(cap_serif_fit#,cap_serif_fit#); +penpos1(stem,0); penpos2(stem,0); +penpos3(stem,0); penpos4(stem,0); +penpos8(stem,60); penpos9(stem,60); +z1=(0.243w,foot); z2=(x1,h-foot); +qeri(2); z9l=z1l-(3apex_o,0); +x7=0.359[x1r,x3l]; y7=-apex_o; +z8l=z7; z3r-z7=whatever*dir30; +x3r=w-apex_o; +z4r=(x3r,0.833x_height); +z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r]; +z7''=whatever[z7,z3r]; x7''=x3l; +penstroke z1e--z2e; penstroke z8e--z9e; +penstroke z3e--z4e; +filldraw z8r--z7'--z7--z8r & cycle; +filldraw z7''--z3l--z3r--z7'' & cycle; +penpos100(hair,angle(z3r-z7)-90); +penpos101(hair,angle(z3r-z7)-90); +z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r; +penstroke z100e--z101e; +% +% +% +penpos5(stem,60); z17=(x1r,0.824x_height); +z6=(0.821[x1r,x3l],x_height); +z5r=(x101r,y4); +penpos6'(hair,angle(z6-z17)-90); +z6'l=z6; z17'-z6'r=whatever*(z17-z6); +x17'=x1r; z5.1=whatever[z17',z6'r]; +z5.1-z5l=whatever*(z6-z5r); +filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r +& cycle; +% +% +% +penpos6.5(hair,angle(z6-z17)-90); +z6.5l=whatever[z17,z6'l]; +y6.5l=x_height+hair; +penstroke z6'e--z6.5e; +% +% +% +penpos200(stem,0); z200=(x2,-0.271x_height); +z21=0.267[z200l,z200r]; z20=(x6,0.5[-d,y200]); +penpos20(3/4hair,-45); +z22=(0.545[x21,x20],-d+apex_o); +z21'=(x1r,1/4[y21,0]); +filldraw z21..z22..{up}z20r & z20r--z20l +& z20l{down}..z21'{up} & z21'--z200r--z21 & +cycle; +penpos18(hair,angle(z9-z8)); +x18r=0;y18r=1/3[-d,y21]; +z21''=(x1l,0.5[y21,0]); +filldraw z21''{down}..{z18-z21}z18r & +z18r--z18l--z21--z200l--z21'' & cycle; +penstroke z200e--z1e; +.endchar; + +.cmchar "The gothic letter q"; +.beginchar("q",6.111u#,x_height#,0.431x_height#); +.adjust_fit(cap_serif_fit#-.3u#,cap_serif_fit#); +penpos1(stem,0); penpos2(stem,0); +penpos3(stem,0); penpos4(stem,0); +penpos8(stem,60); penpos9(stem,60); +z1=(0.243w,foot); z2=(x1,0.888h); +z9l=z1l-(apex_o,0); +x7=0.359[x1r,x3l]; y7=-apex_o; +z8l=z7; z3r-z7=whatever*dir30; +x3r=w-apex_o; +z4r=(x3r,0.88x_height); %0.833 +z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r]; +z7''=whatever[z7,z3r]; x7''=x3l; +penstroke z8e--z9e; +penstroke z3e--z4e; +filldraw z8r--z7'--z7--z8r & cycle; +filldraw z7''--z3l--z3r--z7'' & cycle; +penpos100(hair,angle(z3r-z7)-90); +penpos101(hair,angle(z3r-z7)-90); +z100r=z7; z101r=whatever[z7,z3r]; x101r=x3r; +penstroke z100e--z101e; +% +% +% +penpos5(stem,60); z17=(x1r,0.824x_height); +z6=(0.821[x1r,x3l],x_height); +z5r=(x101r+hair,y4); +penpos6'(hair,angle(z6-z17)-90); +z6'l=z6; z17'-z6'r=whatever*(z17-z6); +x17'=x1r; z5.1=whatever[z17',z6'r]; +z5.1-z5l=whatever*(z6-z5r); +filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r +& cycle; +% +% +% +penpos2'(stem,0); z2'r=z17'; +z31=whatever[z6,z5r]; x31=x1l; +z30=whatever[z31,z5r]; +z30-z2'l=whatever*(z2'r-z6'r); +x34=0; z34=whatever[z5.1,z5l]; +z32=(x31-0.5hair,y31+hair); +z33=(2x32,y34); z35=whatever[z2'l,z30]; +z35=whatever[z34,z5.1]; +penpos150(0.9hair,angle(z30-z2'l)-90); +z150l=0.5[z2'l,z30]; +filldraw z2'r--z6'r--z6--z30 +& flex(z30,z150r,z2'l) & z2'l--z2'r & cycle; +penstroke z1e--z2'e; +% +% +% +penpos200(stem,0); z200=(x3,-0.271x_height); +z210=0.267[z200r,z200l]; z201=(x7,0.5[-d,y200]); +penpos201(3/4hair,45); +z220=(0.545[x201,x210],-d+apex_o); +z210'=(x3l,1/4[y210,0]); +filldraw z210..z220..{up}z201l & z201l--z201r +& z201r{down}..z210'{up} & z210'--z200r--z210 & +cycle; +penpos180(hair,angle(z17-z6)); +x180r=w; y180r=1/3[-d,y210]; +z210''=(x3r,0.5[y210,0]); +filldraw z210''{down}..{z180-z210}z180l & +z180l--z180r--z210--z200r--z210'' & cycle; +penstroke z200e--z3e; +.endchar; + +.cmchar "The gothic letter r"; +.beginchar("r",4.389u#,x_height#,0); +.adjust_fit(2cap_serif_fit#+0.3u#,cap_serif_fit#); +penpos1(stem,0); z1l=(apex_o,foot); +z2'=(0.5w,-apex_o); z1'=z1l-(2apex_o,0); +penpos2(stem,0); z2=(x1,0.804x_height); +penpos3(stem,angle(z2'-z1')+90); +z3l=z2'; +penpos4(stem,angle(z2'-z1')+90); +z4l=z1'; penstroke z1e--z2e; qeri(2); +penstroke z3e--z4e; +penpos15(hair,-60); z15r=z2'; +z16-z15r=whatever*dir30; x16=w-apex_o; +x16=x16'; z16'-z15l=whatever*(z16-z15r); +z16''=whatever[z15,z16']; +y16''=0.5[foot,y16']; +filldraw z3r{z3-z4}...z16''---z16' & +z16'--z16--z15r--z15l--z3r & cycle; +% +% +% +penpos10(hair,-60); z10r=(x1r,2/3x_height); +penpos11(1.1stem,27); z11r=(w,0.739x_height); +z12-z10l=whatever*dir60; y12=x_height+hair; +z13-z11r=whatever*(z10l-z12); +z14-z11l=whatever*(z12-z11r); +z14-z10r=whatever*(z12-z10l); +z13=whatever[z14,z11l]; +filldraw z10l--z12--z11r--z13--z14--z10r-- +z10l & cycle; +z15'=whatever[z10l,z12]; x15'=x10r; +unfilldraw z15'--(x15',x_height)--z12--z15' +& cycle; +.endchar; + +.cmchar "The gothic letter long s"; +.beginchar("s",4.389u#,11.944u#,0); +.adjust_fit(cap_serif_fit#,cap_serif_fit#); +z0=(hair,0); ygoth_s(0); +.endchar; + +.cmchar "The gothic letter short s"; +.beginchar(oct"140",5.2u#,x_height#,0); +.adjust_fit(cap_serif_fit#+.7u#,cap_serif_fit#+.3u#); +penpos1(hair,-45); penpos2(hair,-45); +z1r=(0,foot); z2l=(w,0.9h); +penstroke z1e--z2e; +% +% panw meroc +% +penpos3(stem,angle(z2-z1)); z3=whatever[z1l,z2l]; +penpos4(stem,angle(z2-z1)); +z4-z3=whatever*(z1l-z1r); +z4l=(-2apex_o,0.458h); +penstroke z3e--z4e; +y5=y4l; penpos5(stem,0); x5l=0; +penpos6(stem,0); x6=x5; y6=h-foot; +penstroke z5e--z6e; +penpos7(stem,60); x7=0.5w; y7r=h; +z7l-z9=whatever*dir147; +z7r-z8=whatever*dir147; +z9=whatever[z1l,z2l]; z8=whatever[z1l,z2l]; +penpos10(hair,-66); z10l=whatever[z7l,z9]; +x10l=x6r; penpos11(hair,-90); z11l=z6l; +penpos12(hair,angle(z8-z7r)); z12l=z7r; +filldraw z9--z7l--z7r--z8--z9 & cycle; +penstroke z11e{z6r-z6l}..{z7r-z7l}z12e; +z13=whatever[z7l,z7r]; y13=h+apex_o; +z13'=0.3[z7r,z8]; +filldraw z7r--z13 & z13..{z8-z12}z13' +& z13'--z7r & cycle; +penpos14(0.4stem,0); +x14l=x2l; y14=h+hair; +filldraw z2l{z2l-z1l}..z14l{dir110} & +flex(z14l,z14+(0,apex_o),z14r) & +z14r{down}..z2r{z1r-z2r} & z2r--z2l & cycle; +z10'=whatever[z7l,z9]; x10'=0; +z10''=(z10'--z9) intersectionpoint +(z11{right}..z12{z7r-z7l}); +filldraw z10''..z7r{z7r-z7l} & z7r--z7l-- +z10'' & cycle; +% +% katw meroc +% +penpos20(stem,60); z20r=(w+2apex_o,0.542h); +z21-z20r=whatever*(z12-z8); +z22-z20l=whatever*(z12-z8); +z21=whatever[z1r,z2r]; +z22=whatever[z1r,z2r]; +filldraw z20r--z21--z22--z20l--z20r & cycle; +penpos23(stem,0); x23r=w; y23=y20r; +penpos24(stem,0); x24=x23; y24=0.216h;%0.216h; +penstroke z24e--z23e; +penpos25(hair,-50); x25l=x24r; +z25r-z24r=whatever*dir30; +penpos26(hair,-50); z26r=whatever[z24r,z25r]; +y26r=-apex_o; penstroke z26e--z25e; +z31=whatever[z1r,z2r]; +z31-z26r=whatever*dir140; +penpos27(stem,50); z27l=z26r; +z29-z27r=whatever*(z31-z27l); +z29=whatever[z1r,z2r]; +z28=whatever[z26r,z25r]; +z28=whatever[z29,z27r]; +filldraw z31--z26r--z28--z29--z31 & cycle; +z32=whatever[z26,z25]; x32=x24l; +filldraw z32--z24r--z24l--z32 & cycle; +penpos30(0.6stem,45); x30r=x4l; +y30r=-hair; +filldraw z30r{dir135}..z1r{z2r-z1r} & +z1r--z1l & z1l{z1r-z2r}..{dir290}z30l +& z30l--z30r & cycle; +.endchar; + +.cmchar "The gothic letter t"; +.beginchar("t",4.389u#,1.242x_height#,0); +.adjust_fit(2cap_serif_fit#,cap_serif_fit#-u#); +z0=(0,0); ygoth_t(0); +.endchar; + +.cmchar "The gothic letter u"; +.beginchar("u",5.5u#,x_height#,0); +.adjust_fit(cap_serif_fit#,cap_serif_fit#+.2u#); +z0=(0,0); ligature:=false; +ygoth_u(0); +.endchar; + +.cmchar "The gothic letter v"; +.beginchar("v",6.111u#,x_height#,0); +.adjust_fit(cap_serif_fit#,cap_serif_fit#); +penpos1(stem,0); penpos2(stem,0); +penpos3(stem,0); penpos4(stem,0); +penpos8(stem,60); penpos9(stem,60); +z1=(0.243w,foot); z2=(x1,x_height-foot); +z9l=z1l-(2apex_o,0); +x7=0.359[x1r,x3l]; y7=-apex_o; +z8l=z7; z3r-z7=whatever*dir30; +x3r=w-apex_o; +z4r=(x3r,0.833x_height); +z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r]; +z7''=whatever[z7,z3r]; x7''=x3l; +penstroke z1e--z2e; penstroke z8e--z9e; +penstroke z3e--z4e; +filldraw z8r--z7'--z7--z8r & cycle; +filldraw z7''--z3l--z3r--z7'' & cycle; +penpos100(hair,angle(z3r-z7)-90); +penpos101(hair,angle(z3r-z7)-90); +z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r; +penstroke z100e--z101e; +% +% +% +penpos5(stem,60); z17=(x1r,0.824x_height); +z6=(0.821[x1r,x3l],x_height); +z5r=(x101r,y4); +penpos6'(hair,angle(z6-z17)-90); +z6'l=z6; z17'-z6'r=whatever*(z17-z6); +x17'=x1r; z5.1=whatever[z17',z6'r]; +z5.1-z5l=whatever*(z6-z5r); +filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r +& cycle; +% +% +% +penpos6.5(hair,angle(z6-z17)-90); +z6.5l=whatever[z17,z6'l]; +y6.5l=x_height+hair; +penstroke z6'e--z6.5e; +penpos202(hair,-45); x202l=x1l; +y202l=1.333x_height; +z203=(x1r,0.5[y2,x_height]); +z204=(x1l,y2-0.5stem); +penpos205(stem,45); x205=x1l; +y205l=x_height-hair; +penstroke z2e{up}..z205e{dir(angle(z205r-z205l)+90)} +..z202e{dir45}; +.endchar; + +.cmchar "The gothic letter w"; +.beginchar("w",10.7u#,x_height#,0); +.adjust_fit(cap_serif_fit#,cap_serif_fit#-.8u#); +w:=6.111u; +penpos1(stem,0); penpos2(stem,0); +penpos3(stem,0); penpos4(stem,0); +penpos8(stem,60); penpos9(stem,60); +z1=(0.243w,foot); z2=(x1,x_height-foot); +z9l=z1l-(2apex_o,0); +x7=0.359[x1r,x3l]; y7=-apex_o; +z8l=z7; z3r-z7=whatever*dir30; +x3r=w-apex_o; +z4r=(x3r,0.833x_height); +z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r]; +z7''=whatever[z7,z3r]; x7''=x3l; +penstroke z1e--z2e; penstroke z8e--z9e; +penstroke z3e--z4e; +filldraw z8r--z7'--z7--z8r & cycle; +filldraw z7''--z3l--z3r--z7'' & cycle; +penpos100(hair,angle(z3r-z7)-90); +penpos101(hair,angle(z3r-z7)-90); +z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r; +penstroke z100e--z101e; +% +% +% +penpos5(stem,60); z17=(x1r,0.824x_height); +z6=(0.821[x1r,x3l],x_height); +z5r=(x101r,y4); +penpos6'(hair,angle(z6-z17)-90); +z6'l=z6; z17'-z6'r=whatever*(z17-z6); +x17'=x1r; z5.1=whatever[z17',z6'r]; +z5.1-z5l=whatever*(z6-z5r); +filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r +& cycle; +% +% +% +transform metatopish; +metatopish=identity +shifted (x3-x1,0); +addto currentpicture also currentpicture +transformed metatopish; +z201=whatever[z9r,z7']; +z201=whatever[z100l,z101l]; +z200=whatever[z100l,z101l]; +x200=x3l; +unfilldraw z200--z201--(x201,y9r)-- +(x200,y9r)--z200 & cycle; +% +% +% +penpos6.5(hair,angle(z6-z17)-90); +z6.5l=whatever[z17,z6'l]; +y6.5l=x_height+hair; +penstroke z6'e--z6.5e; +penpos202(hair,-45); x202l=x1l; +y202l=1.333x_height; +z203=(x1r,0.5[y2,x_height]); +z204=(x1l,y2-0.5stem); +penpos205(stem,45); x205=x1l; +y205l=x_height-hair; +penstroke z2e{up}..z205e{dir(angle(z205r-z205l)+90)} +..z202e{dir45}; +.endchar; + +.cmchar "The gothic letter x"; +.beginchar("x",4.389u#,x_height#,0); +.adjust_fit(2cap_serif_fit#+.3u#,cap_serif_fit#); +penpos1(stem,0); z1l=(apex_o,foot); +z2'=(0.5w,-apex_o); z1'=z1l-(apex_o,0); +penpos2(stem,0); z2=(x1,0.804x_height); +penpos3(stem,angle(z2'-z1')+90); +z3l=z2'; +penpos4(stem,angle(z2'-z1')+90); +z4l=z1'; penstroke z1e--z2e; qeri(2); +penstroke z3e--z4e; +penpos15(hair,-60); z15r=z2'; +z16-z15r=whatever*dir30; x16=w-apex_o; +x16=x16'; z16'-z15l=whatever*(z16-z15r); +z16''=whatever[z15,z16']; +y16''=0.5[foot,y16']; +filldraw z3r{z3-z4}...z16''---z16' & +z16'--z16--z15r--z15l--z3r & cycle; +% +% +% +penpos10(hair,-60); z10r=(x1r,2/3x_height); +penpos11(1.1stem,27); z11r=(w,0.739x_height); +z12-z10l=whatever*dir60; y12=x_height+hair; +z13-z11r=whatever*(z10l-z12); +z14-z11l=whatever*(z12-z11r); +z14-z10r=whatever*(z12-z10l); +z13=whatever[z14,z11l]; +filldraw z10l--z12--z11r--z13--z14--z10r-- +z10l & cycle; +z15'=whatever[z10l,z12]; x15'=x10r; +unfilldraw z15'--(x15',x_height)--z12--z15' +& cycle; +% +% +% +penpos100(1.2hair,angle(z3r-z4r)); +penpos101(hair,angle(z3r-z4r)); +z100l=z4l; z100-z101=whatever*(z4r-z4l); +y101=-.8stem; penstroke z101e--z100e; +.endchar; + +.cmchar "The gothic letter y"; +.beginchar("y",5.5u#,x_height#,3.056u#); +.adjust_fit(cap_serif_fit#,cap_serif_fit#+.1u#); +penpos1(stem,0); penpos2(stem,0); +penpos3(stem,0); penpos4(stem,0); +x1l=hair; +x2=x1; x4l=x3l=x1r+1.233stem; +y1=foot; y2=y4=x_height-foot; +y3=0.242x_height; +penstroke z1e--z2e; penstroke z3e--z4e; +qeri(2); panwqeri(4); +penpos101(hair,-70); penpos100(hair,-70); +x101l=x4r; y101r=y3; +z101-z100=whatever*dir18; +x100r=x1r; +penstroke z100e--z101e; +z100.5=whatever[z100,z101]; x100.5=x4l; +filldraw z100.5--z3l--z3r--z100.5 & cycle; +penpos102(1.2hair,180); +penpos103(hair,-90); penpos104(hair,0); +z102=(x1l-0.1stem,-.5d); +z104=(0.361[x1r,x3l],-0.611d); +x103=0.522[x102,x104]; y103r=-d; +filldraw z1l{down}..z102r..z103r..z104r{up} +& z104r--z104l & z104l{down}..z103l..z102l +..z100r{z101-z100} & z100r--z1r--z1l & +cycle; +penpos200(stem,0); z200r=z104r; +filldraw z200r..z200l..z200r..cycle; +.endchar; + +.cmchar "The gothic letter z"; +.beginchar("z",4.306u#,x_height#,3.333u#); +.adjust_fit(cap_serif_fit#+.2u#,cap_serif_fit#+.2u#); +z0=(0,0); ygoth_z(0); +.endchar; + |