diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/gothic/ygothgen.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/gothic/ygothgen.mf | 452 |
1 files changed, 452 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/gothic/ygothgen.mf b/Master/texmf-dist/fonts/source/public/gothic/ygothgen.mf new file mode 100644 index 00000000000..81f1538d81d --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/gothic/ygothgen.mf @@ -0,0 +1,452 @@ +def ygoth_a(suffix $) = +w':=6.278u; penpos501(stem,0); +z501=(x$+0.726w',foot); +penpos502(stem,0); +z502=(x501,0.732x_height); +penstroke z501e--z502e; +penpos511(stem,0); z511l=(x$+apex_o,y501); +podi(511); +if not ligature: podi(501); fi +z512-z511l+(2apex_o,0)=whatever*dir-50; +y512=-apex_o; penpos512'(hair,-50); +z512'r=z512; z512.2-z512'l=whatever*(z501l-z512); +x512.2=x501l; +filldraw z512'r--z501l--z512.2--z512'l--z512'r & cycle; +% +% +% +penpos517(stem,0); z517=(x511,0.438x_height); +penpos508(hair,-90); penpos509(hair,-90); +z508r=z517r; z509r=(x501l,y508r); +z510=whatever[z517l,z508l]; x510=x$; +z510'=whatever[z510,z511]; x510'=x$+apex_o; +filldraw z510--z508l--z508r--z510'--z510 & cycle; +penstroke z508e--z509e; penstroke z511e--z517e; +% +% +% +penpos505(hair,125); z505=(x$+0.243w',0.830x_height); +z504-z505r=whatever*dir35; y504=x_height+apex_o; +penpos506(stem,40); z506r=z504; +penpos503(stem,40); z503-z506=whatever*dir-30; +x503=x501r; z506'=whatever[z506l,z503l]; +x506'=x$+0.5w'; penpos507(hair,180); +y507=0.5[x_height,y517]; penpos505'(hair,125); +z505'r=whatever[z505r,z504]; y505'r=0.9x_height;%0.856h; +x507=x$+0.12w'; penpos509'(hair,-90); +z509'=0.5[z508,z509]; +z503''=whatever[z503r,z506r]; x503''=x502r; +if ligature: filldraw z503''--z504 & z504---z505'r...z507r...z509'r{right} +& z509'r--z509'l & z509'l{left}...z507l...z505'l{z504-z505r}... +z506'---(x502l,y503)---z503l--z503--z503'' & cycle; +else: +filldraw z503r--z504 & z504---z505'r...z507r...z509'r{right} +& z509'r--z509'l & z509'l{left}...z507l...z505'l{z504-z505r}... +z506'---(x502l,y503)---z503l--z503r & cycle; fi +z520=1/3[z517r,z511r]; z521=1/3[z508r,z509r]; +filldraw z520{up}..z521{right} & +z521--z508r--z520 & cycle; +filldraw z502r--z503--(x502l,y503)--z502l--z502r & cycle; +enddef; + + +def ygoth_c (suffix $) = +w':=4.306u; penpos401(stem,0); penpos402(stem,0); +z401l=(x$+apex_o,foot); +z402l=(x401l,0.748x_height); +penpos403(stem,60); penpos404(stem,60); +z404l=z401l-(apex_o,0); z403-z404=whatever*dir-30; +y403l=-apex_o; penstroke z403e--z404e; +penstroke z401e--z402e; +penpos405(hair,-60); z405r-z403l=whatever*dir30; +x405r=w'+apex_o; z403'=whatever[z404l,z403l]; +z403'-z405l=whatever*(z403l-z405r); +z405'=whatever[z403',z405l]; +z405'-z404r=whatever*(z403r-z404r); +filldraw z403l--z405r--z405l--z405'--z403r--z403l & +cycle; +% +% +% +z406=(x$+0.581w',x_height+apex_o); +z409=z402l-(apex_o,0); +penpos407(stem,60); z406-z407r=whatever*dir150; +x407r=x$+w'; z408'=whatever[z409,z406]; +z408'-z407l=whatever*(z406-z407r); +z408=whatever[z408',z407l]; x408=x408'+apex_o; +z410-z409=whatever*(z405r-z405l); +x410=x402l; z408''=whatever[z408,z407l]; x408''=x402r; +filldraw z410--z409 & flex(z409,z408,z406) & z406--z407r +--z407l--z408''--z402r--z402l--z410 & cycle; +penpos409.5(hair,-60); penpos408.5(hair,-60); +penpos406.5(hair,-60); z409.5l=z409; z408.5l=z408; +z406.5l=z406; +penstroke z409.5e..z408.5e..z406.5e; +enddef; + +def ygoth_e (suffix $) = +w':=5u; penpos601(stem,0); +z601l=(x$+apex_o,foot); +z602'=(x$+0.5w',-apex_o); z601'=z601l-(apex_o,0); +penpos602(stem,0); z602=(x601,0.804x_height); +penpos603(stem,angle(z602'-z601')+90); +z603l=z602'; +penpos604(stem,angle(z602'-z601')+90); +z604l=z601'; penstroke z601e--z602e; +penstroke z603e--z604e; +penpos615(hair,-60); z615r=z602'; +z616-z615r=whatever*dir30; x616=x$+w'-apex_o; +x616=x616'; z616'-z615l=whatever*(z616-z615r); +z616''=whatever[z615,z616']; +y616''=0.5[foot,y616']; +filldraw z603r{z603-z604}...z616''---z616' & +z616'--z616--z615r--z615l--z603r & cycle; +% +% +% +z606=(x$+0.611w',x_height+apex_o); +z610-z606=whatever*dir-45; x610=x$+w'; +penpos622(hair,angle(z610-z606)); +penpos621(hair,angle(z610-z606)); +penpos620(hair,angle(z610-z606)); +penpos621'(hair,angle(z610-z606)); +z622=z602l-(apex_o,0); z620l=z606; z621'l=0.5[z622l,z620l]; +z621l=z621'; +penstroke z622e..z621e..z620e; +z608=(x601r,0.637[y602,y601]); penpos609(hair,angle(z610-z606)); +penpos610'(hair,angle(z610-z606)); +z609r=z608; z610'r=z610; +penstroke z609e--z610'e; +penpos611(stem,angle(z610-z606)+90); z611r=z610; +z630=whatever[z622l,z606]; +z630-z611l=whatever*(z606-z610); +z631=(z630--z611l) intersectionpoint +(z622..z621..z620); +filldraw z631..z620--z610--z611l--z631 & cycle; +z633=(z622..z621..z620) intersectionpoint +(z601r--(x601r,x_height)); +filldraw z602r--z633..z602l--z602r & cycle; +enddef; + +def ygoth_s (suffix $) = +w':=4.389u; penpos201(stem,0); +z201l=(x$+apex_o,foot); z202=(x201,1.144x_height); +penpos202(stem,0); +penstroke z201e--z202e; z201'=z201l-(apex_o,0); +penpos205(hair,-60); +z205r-z201'=whatever*dir-50; y205r=-apex_o; +penpos206(hair,-60); z206-z205=whatever*dir30; +y206=foot; penpos203(stem,50); +z203l=z201'; z207-z203r=whatever*(z205r-z201'); +z207=whatever[z205r,z206r]; +filldraw z201'--z205r--z206r--z206l--z205l--z201' & +cycle; +filldraw z201'--z203r--z207--z205r--z201' & cycle; +% +% +% +penpos220(hair,-40); penpos221(hair,-40); +penpos222(hair,-40); +z222l=(2/3[x201l,x206],1.405x_height); +penpos208(stem,angle(z222l-z202l)); z208r=z222l; +z209-z222l=whatever*dir-40; x209=x$+w'-hair; +z210-z209=whatever*dir240; +z210-z208l=whatever*(z209-z222l); +z211=whatever[z208l,z210]; x211=x202r; +z220l=z202l; penpos221'(hair,-40); z221'l=z208l; +z221l=z221'; +penstroke z220e..z221e..z222e; +filldraw z221..z222 & z222--z209-- +z210--z221 & cycle; +z211'=(z220..z221..z222) intersectionpoint +(z201r--(x201r,2x_height)); +filldraw z202l..z211' & z211'--z202r--z202l +& cycle; +x251=x252=x201l; y250=y251=0.732x_height; +y252=y251+4/5stem; x250=x251-hair; +filldraw z250--z252--z251--z250 & cycle; +enddef; + +def ygoth_makru_s (suffix $) = +w':=4.389u; penpos201(stem,0); +z201l=(x$+apex_o,foot); z202=(x201,1.144x_height); +penpos202(stem,0); +penstroke z201e--z202e; z201'=z201l-(apex_o,0); +penpos205(hair,-60); +z205r-z201'=whatever*dir-50; y205r=-apex_o; +penpos206(hair,-60); z206-z205=whatever*dir30; +y206=foot; penpos203(stem,50); +z203l=z201'; z207-z203r=whatever*(z205r-z201'); +z207=whatever[z205r,z206r]; +penpos270(0.5hair,0); x270l=x201l; y270=-0.3x_height; +penpos271(stem,0); z271=(x201,0); +penstroke z270e--z271e--z201e; +% +% +% +penpos220(hair,-40); penpos221(hair,-40); +penpos222(hair,-40); +z222l=(2/3[x201l,x206],1.405x_height); +penpos208(stem,angle(z222l-z202l)); z208r=z222l; +z209-z222l=whatever*dir-40; x209=x$+w'-hair; +z210-z209=whatever*dir240; +z210-z208l=whatever*(z209-z222l); +z211=whatever[z208l,z210]; x211=x202r; +z220l=z202l; penpos221'(hair,-40); z221'l=z208l; +z221l=z221'; +penstroke z220e..z221e..z222e; +filldraw z221..z222 & z222--z209-- +z210--z221 & cycle; +z211'=(z220..z221..z222) intersectionpoint +(z201r--(x201r,2x_height)); +filldraw z202l..z211' & z211'--z202r--z202l +& cycle; +x251=x252=x201l; y250=y251=0.732x_height; +y252=y251+4/5stem; x250=x251-hair; +filldraw z250--z252--z251--z250 & cycle; +enddef; + +def ygoth_h (suffix $) = +w':=6.111u; d':=2.778u; +penpos1(stem,0); penpos2(stem,0); +penpos3(stem,0); penpos4(stem,0); +penpos8(stem,60); penpos9(stem,60); +z1=(x$+0.243w',foot); z2=(x1,1.271x_height); +z9l=z1l-(apex_o,0); +x7=0.359[x1r,x3l]; y7=-apex_o; +z8l=z7; z3r-z7=whatever*dir30; +x3r=x$+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 z3e--z4e; +podi(1); +% +% +% +penpos5(stem,60); z17=(x1r,0.824x_height); +z6=(0.821[x1r,x3l],x_height); +z5r=(x3r+apex_o,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[1.431x_height,y2]); +penpos20(3/4hair,-135); +z22=(0.545[x21,x20],1.431x_height-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=x$;y18r=1/3[1.431x_height,y21]; +z21''=(x1l,0.5[y21,y6]); +filldraw z21''{up}..{z18-z21}z18l & +z18l--z18r--z21--z2l--z21'' & cycle; +% +% +% +z40=z3r+(apex_o,-0.5y3r); z41=(x3l-0.6hair,0); +penpos42(hair,90); z42l=(x1,-d'); +filldraw z3r{down}..z40 & z40{dir225}.. +z42l{left} & z42l--z42r & z42r{right}.. +z3l{up} & z3l--z3r & cycle; +enddef; + +def ygoth_k (suffix $) = +w':=6.111u; d':=2.778u; +penpos1(stem,0); penpos2(stem,0); +penpos3(stem,0); penpos4(stem,0); +penpos8(stem,60); penpos9(stem,60); +z1=(x$+0.243w',foot); z2=(x1,1.271x_height); +z9l=z1l-(apex_o,0); +x7=0.359[x1r,x3l]; y7=-apex_o; +z8l=z7; %z3r-z7=whatever*dir30; +z3r=(x$+w'-apex_o,foot); +z4r=(x3r,0.833x_height); +z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r]; +z7''=whatever[z7,z3r]; x7''=x3l; +penstroke z1e--z2e; +%penstroke z3e--z4e; +podi(1); +% +% +% +penpos5(1.1stem,30); z6=(x3l,x_height); +z6-z17=whatever*dir30; x17=x1r; +z5r-z6=whatever*dir-60; x5r=x3r; +penpos6'(hair,-60); +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=(0.821[x1r,x3l],0.5[1.431x_height,y2]); +penpos20(3/4hair,-135); +z22=(0.545[x21,x20],1.431x_height-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=x$;y18r=1/3[1.431x_height,y21]; +z21''=(x1l,0.5[y21,y6]); +filldraw z21''{up}..{z18-z21}z18l & +z18l--z18r--z21--z2l--z21'' & cycle; +% +% +% +penpos30(hair,-60); z30r=z5r; x31=x32=x1r; +z31-z30r=whatever*(z17-z6); +z32-z30l=whatever*(z17-z6); +filldraw z31--z32--z30l--z30r--z31 & cycle; +penpos4.5(stem,0); penpos33(stem,angle(z30r-z31)); +x4.5=x3; z4.5-z33=whatever*dir-25; +penpos33'(1.2hair,angle(z30r-z31)); +z33'r=z5l; z33r=z5l; podi(3); +penstroke z3e--z4.5e; +penpos34(stem,angle(z30r-z31)); +x34r=x$+w'+apex_o; +z34r-z33r=whatever*dir-25; +penstroke z34e--z33e; +if y34r > y4.5: +filldraw z4.5r--(x4.5r,y34r)--(x4.5l,y34r) +--z4.5l--z4.5r & cycle; fi +enddef; + +def ygoth_o (suffix $) = +w':=6.111u; +penpos801(stem,0); penpos802(stem,0); +penpos803(stem,0); penpos804(stem,0); +penpos808(stem,60); penpos809(stem,60); +z801=(x$+0.243w',foot); z802=(x801,0.888x_height); +z809l=z801l-(apex_o,0); +x807=0.359[x801r,x803l]; y807=-apex_o; +z808l=z807; z803r-z807=whatever*dir30; +x803r=x$+w'-apex_o; +z804r=(x803r,0.88x_height); %0.833 +z807'=whatever[z809r,z808r]; z807'=whatever[z807,z803r]; +z807''=whatever[z807,z803r]; x807''=x803l; +penstroke z808e--z809e; +penstroke z803e--z804e; +filldraw z808r--z807'--z807--z808r & cycle; +filldraw z807''--z803l--z803r--z807'' & cycle; +penpos700(hair,angle(z803r-z807)-90); +penpos701(hair,angle(z803r-z807)-90); +z700r=z807; z701r=whatever[z807,z803r]; x701l=x803r; +penstroke z700e--z701e; +% +% +% +penpos805(stem,60); z817=(x801r,0.824x_height); +z806=(0.821[x801r,x803l],x_height); +z805r=(x701r,y804); +penpos806'(hair,angle(z806-z817)-90); +z806'l=z806; z817'-z806'r=whatever*(z817-z806); +x817'=x801r; z805.1=whatever[z817',z806'r]; +z805.1-z805l=whatever*(z806-z805r); +filldraw z805r--z806--z817--z817'--z805.1--z805l--z805r +& cycle; +% +% +% +penpos802'(stem,0); z802'r=z817'; +z831=whatever[z806,z805r]; x831=x801l; +z830=whatever[z831,z805r]; +z830-z802'l=whatever*(z802'r-z806'r); +x834=x$; z834=whatever[z805.1,z805l]; +z832=(x831-0.5hair,y831+hair); +z833=(2(x832-x$),y834); z835=whatever[z802'l,z830]; +z835=whatever[z834,z805.1]; +penpos750(hair,angle(z830-z802'l)-90); +z750l=0.5[z802'l,z830]; +filldraw z802'r--z806'r--z806--z830 +& flex(z830,z750r,z802'l) & z802'l--z802'r & cycle; +penstroke z801e--z802'e; +enddef; + +def ygoth_t (suffix $) = +w':=4.389u; h':=1.242x_height; +penpos501(stem,0); +z501l=(x$+apex_o,foot); z502=(x501,x_height-foot); +penpos502(stem,0); +penstroke z501e--z502e; z501'=z501l-(apex_o,0); +penpos505(hair,-60); +z505r-z501'=whatever*dir-50; y505r=-apex_o; +penpos506(hair,-60); z506-z505=whatever*dir30; +y506=foot; penpos503(stem,50); +z503l=z501'; z507-z503r=whatever*(z505r-z501'); +z507=whatever[z505r,z506r]; +filldraw z501'--z505r--z506r--z506l--z505l--z501' & +cycle; +filldraw z501'--z503r--z507--z505r--z501' & cycle; +% +% +% +penpos510(0.767stem,90); penpos521(hair,0); +z510l=(x501r+stem,y502); z520=(x501l-0.5stem,y502); +z522=(x501r,y510r); z521=(x501r,h'); +filldraw z510l--z520--z521l--z521r..z522{down} +& z522--z510r--z510l & cycle; +enddef; + +def ygoth_u (suffix $) = +w':=5.5u; +penpos601(stem,0); penpos602(stem,0); +penpos603(stem,0); penpos604(stem,0); +x601l=x$+hair; +x602=x601; x604l=x603l=x601r+1.233stem; +y601=y603=foot; y602=y604=x_height-foot; +penstroke z601e--z602e; +penstroke z603e--z604e; + podi(603); katwpodi(601); +if not ligature: qeri(602); fi qeri(604); +enddef; + +def ygoth_z (suffix $) = +w':=4.306u; d':=3.333u; +penpos701(hair,-40); penpos702(hair,-40); +penpos703(hair,-40); penpos704(hair,-40); +penpos705(1.1stem,50); penpos706(1.1stem,50); +penpos707(1.3stem,50); penpos710(hair,-90); +y701l=0.242x_height; +x701l=x$-2apex_o; x702r=x$+w'+apex_o; y710r=-d'; +z702r-z701r=whatever*dir50; +penstroke z701e--z702e; +z704r-z702r=whatever*dir150; +y704l=x_height+apex_o; +z704l-z703l=whatever*(z701-z702); +x703l=x701l; z705=0.5[z703r,z704r]; +z706r-z705r=whatever*(z702r-z704r); +z706=whatever[z701l,z702l]; +z707=whatever[z701r,z702r]; +x707=1/3[x701l+2apex_o,x702r-apex_o]; +z709=(x702r,0.163x_height); +z708=(0.632[x701l+2apex_o,x702r-apex_o],0); +x710=0.123[x701l+2apex_o,x702r-apex_o]; +penstroke z703e--z704e; +penstroke z706e--z705e; +filldraw z710r{right}..z709{dir70} +& z709..z707r{z702l-z702r} +& z707r--z707l & z707l{z702r-z702l}..z708{down}.. +z710l{left} & z710l--z710r & cycle; +z711=(z707l{z702r-z702l}..z708{down}.. +z710l{left}) intersectionpoint +((x707,0)--z707); +filldraw z711--z707--z701r & z701r{z707-z701r}.. +{z701r-z701l}z711 & cycle; +z712=whatever[z705l,z706l]; +x712=x705; filldraw z712{z705l-z706l}..z703r{z703r-z704r} +& z703r--z705--z712 & cycle; +enddef;
\ No newline at end of file |