diff options
Diffstat (limited to 'fonts/vicentino/kraml/vcsmdig.mf')
-rw-r--r-- | fonts/vicentino/kraml/vcsmdig.mf | 99 |
1 files changed, 99 insertions, 0 deletions
diff --git a/fonts/vicentino/kraml/vcsmdig.mf b/fonts/vicentino/kraml/vcsmdig.mf new file mode 100644 index 0000000000..063244bb2f --- /dev/null +++ b/fonts/vicentino/kraml/vcsmdig.mf @@ -0,0 +1,99 @@ +% VCSMDIG - "small" (mediaeval style) digits for vicentino font +% w. kraml, 1991 + +% the figures start here +% small (nautic or old-style) figures +dig_w := 3/2sw#; +slant := upperslant; +currenttransform := identity slanted slant; + +beginchar("1", dig_w, digh#, 0); "the figure 1"; +pickup lower_pen; +top.lft.z1=(w/2,h); bot.lft.z2=(w/2,0); +lft.x1'=2s; z1-z1'=whatever*dir45; +draw z1'{dir35}..z1 & + z1{dir267}..tension7..{dir10}z2; +end_char; + +beginchar("2", dig_w, digh#, 0); "the figure 2"; +pickup lower_pen; +x1=w-x3=tw; x2=w/2; x4=w-x5=.5tw; +top.y2=h; bot.y4=bot.y5=0; +y1=y3=.625h; +path stem; +stem = z1..z2{right}..z3..{z4-z3}z4 & + z4{dir40}..if modern: tension2.. fi z5{dir40}; +draw stem; +end_char; + +beginchar("3", dig_w, digh#, digd#); "the figure 3"; +pickup lower_pen; +x1=x4-.5s=w-x3=tw; x2=x6=w/2; +lft.x7=.5s; rt.x5=w-.5tw; +top.y2=h; bot.y6=-digd; +y1-th=y3=.7[-digd,h]; y4=.52[-digd,h]; y5=.5[y6,y4]; y7=-digd+1.25th; +draw z1{z1-z5}..z2{right}..z3..{dir205}z4 & + z4{dir20}..z5{down}..z6{left}..z7; +end_char; + +beginchar("4", dig_w, digh#, digd#); "the figure 4"; +pickup lower_pen; +lft.x2=w-rt.x1=.33s; x3=x4=w-1.12tw; +top.y3=h; bot.y4=-digd; y2=y1=1/3[-digd,h]; +draw z1{dir160}..tension3..z2 & + z2{up}..tension1.5..{z3-z2}z3 & + z3{dir267}..tension7..{dir10}z4; +end_char; + +beginchar("5", dig_w, digh#, digd#); "the figure 5"; +pickup lower_pen; +rt.x1=w-.25s; rt.x4=w-.5tw; x2=2/3tw; lft.x3=lft.x5=.5s; +y1=top.y2=h; y3=.65[-digd,h]; bot.y5=-digd; y4=.55[y5,y3]; +draw z1{dir215}...z2{left} ---z3 & + z3{dir35}..z4{down}..tension1.5..{dir120}z5; +end_char; + +beginchar("6", dig_w, diga#, 0); "the figure 6"; +pickup lower_pen; +rt.x4=rt.x1=w-.5s; +lft.x2=.5s; x3=w/2; x5=.7[x2,x3]; +y1=h; bot.y3=0; +y2=y4=1/3h; y5=.6h; +draw z1{dir215}..z2{down}..z3{right}..z4..z5{dir190}; +end_char; + +beginchar("7", dig_w, digh#, digd#); "the figure 7"; +pickup lower_pen; +lft.x1=w-rt.x3=.5s; +x4=1.5tw; +top.y3=h; y4=-digd; bot.y1=h; +path stem; +stem=z1{dir260}..tension1.1..{right}z3 & + z3{curl0}..{dir-80}z4; +draw if modern: subpath(0.2,2) of fi stem; +end_char; + +beginchar("8", dig_w, diga#, 0); "the figure 8"; +pickup lower_pen; +x1=x2=x3=w/2; top.y1=h; bot.y3=0; y2=.55h; +lft.x4=w-rt.x5=.5s; y4=y5=.52[y3,y2]; +lft.x6=w-rt.x7=.6tw; y6=y7=.52[y2,y1]; +draw z1{right}..z7..z2..z4..z3{right}..z5..z6..cycle; +end_char; + +beginchar("9", dig_w, digh#, digd#); "the figure 9"; +pickup lower_pen; +lft.x4-.25s=lft.x1=.5s; +rt.x2=w-.75s; x3=w/2; x5=.7[x2,x3]; +y1=-digd; top.y3=h; +y2=y4=2/3[-digd,h]; y5=.4[-digd,h]; +draw z1{dir35}..z2{up}..z3{left}..z4..z5{dir10}; +end_char; + +beginchar("0", dig_w, digh#, 0); "the figure 0"; +pickup lower_pen; +rt x1=w-.85s; lft x3=.85s; y1=y3=.54h; +x2=x4=w/2; top.y2=h; bot.y4=0; +draw superellipse(z1,z2,z3,z4,0.685); +end_char; + |