diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/obnov/obnsc17.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/obnov/obnsc17.mf | 3460 |
1 files changed, 3460 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/obnov/obnsc17.mf b/Master/texmf-dist/fonts/source/public/obnov/obnsc17.mf new file mode 100644 index 00000000000..535b56761bb --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/obnov/obnsc17.mf @@ -0,0 +1,3460 @@ +%written by Basil Solomykov, Russia +%(C) Copyright 2011 LPPL (LaTeX Project Public License) +%Font Ordinary New (Obyknovennaya novaya), Small Capitals + +design_size := 17.28pt#; +o# := .7776pt#; +u# := 32/35pt#; +bar# := 17.28/36pt#; +slab# := 17.28/36pt#; +cap_bar# := 17.28/36pt#; +vair# := 17.28/36pt#; +hair# := 17.28/36pt#; +jut# := 34.56/36pt#; +cap_jut# := 44.928/36pt#; +stem# := 51.84/36pt#; +curve# := 53.568/36pt#; +cap_stem# := 62.21/36pt#; +cap_curve# := 64.28/36pt#; +s# := 0.65pt#; +c# := .32pt#; + +input obn_lcyw_code.mf; +font_identifier "OBNSC"; +mode_setup; +clear_pen_memory; + +font_size design_size*pt#; +asc_height# := 24/36*design_size*pt#; +cap_height# := 24/36*design_size*pt#; +body_height# := 27/36*design_size*pt#; +x_height# := 15.4/36*design_size*pt#; +desc_depth# := 8/36*design_size*pt#; +body_depth# := 9/36*design_size*pt#; +comma_depth# := 5/36*design_size*pt#; +x_depth# := 4/5comma_depth#; +bar_height# := .52x_height#; +cap_bar_height# := .52cap_height#; +cap_bar2_height# := .45cap_height#; +border_height# := comma_depth#; +cap_drop_round# := 3.77*slab#; +drop_round# := 6/8cap_drop_round#; +A_bracket# := 1.6pt#; +bracket# := pt#; + +font_x_height x_height#; +font_normal_space 6u#; +font_normal_stretch 4u#; +font_normal_shrink 2u#; +font_quad 16u#; +font_extra_space 6u#; + +k# := .8u#; +kk# := 1.5u#; +kkk# := 3u#; + +serif_darkness := 1/30; +define_pixels(bracket,cap_o_width,sss_width,css_width); +define_pixels(c,s,cap_bar_height,cap_bar2_height); +define_pixels(border_height,A_bracket,cap_drop_round,x_depth,drop_round); +define_whole_blacker_pixels(stem,cap_stem,curve,cap_curve,bar,slab,cap_bar,vair,hair); +define_whole_pixels(asc_height,cap_height,x_height,u,desc_depth,comma_depth,bar_height,body_height,body_depth,u,o,cap_jut,jut); +%define_corrected_pixels(); +lowres_fix(stem,curve) 1.2; +lowres_fix(cap_stem,cap_curve) 1.2; +if jut=cap_jut: jut:=jut-1; fi + +def serif(suffix $)(expr breadth, theta, left_jut, right_jut)= +penpos$(breadth/abs sind theta, 0); +z$a-z$l=z$f-z$r=(bracket/abs sind theta)*dir theta; +y$c=y$d; y$b=y$e=y$; y$b-y$c=if theta < 0: -fi slab; +x$b=x$c=x$g if left_jut=0: -1/2slab fi +1/2slab; x$d=x$e=x$h if right_jut=0: +1/2slab fi-1/2slab; +x$g=x$l-left_jut; x$h=x$r+right_jut; +y$g=y$h; y$-y$g=y$g-y$c; +labels($a,$b,$c,$d,$e,$f,$g,$h) enddef; + +def serif_edge suffix $ = +(serif_bracket($a,$l,$b)..z$g..z$c--z$d..z$h..reverse serif_bracket($f,$r,$e)) enddef; + +def serif_bracket (suffix i,j,k) = +(z.i{z.j-z.i}...serif_darkness[z.j, .5[z.i, z.k]]{z.k-z.i}...z.k{z.k-z.j}) enddef; + +def T_serif(suffix $)(expr slab, bord_height, direction)= %Direction: 0-left, 1-right; +penpos$(slab,if direction=1: - fi 90); +x$=x$a=x$g; y$g-y$=y$-y$a=1/2slab; +x$b=x$a + if direction=0: - fi .882bord_height; y$b=y$d=y$c+1/2slab; +x$c=x$b + if direction=0: - fi 1/2slab; y$c=y$a-bord_height; +x$d=x$e=x$b + if direction=0: - fi slab; +y$e=y$g-1/2slab; y$f=y$g; x$f=x$c; +labels($a,$b,$c,$d,$e,$f,$g) enddef; + +def T_edge suffix $ = +(z$a..{down}z$b..z$c..z$d--z$e{up}..z$f--z$g--cycle) enddef; + +def A_serif(suffix $)(expr breadth, theta, left_jut, right_jut)= +penpos$(breadth/abs sind theta, 0); +z$a-z$l=z$f-z$r=(A_bracket/abs sind theta)*dir theta; +y$c=y$d; y$b=y$e=y$; y$b-y$c=if theta < 0: -fi slab; +x$b=x$c=x$g+1/2slab; x$d=x$e=x$h-1/2slab; +x$g=x$l-left_jut; x$h=x$r+right_jut; +y$g=y$h; y$-y$g=y$g-y$c; +labels($a,$b,$c,$d,$e,$f,$g,$h) enddef; + +def A_serif_edge suffix $ = +(A_serif_bracket($a,$l,$b)..z$g..z$c--z$d..z$h..reverse A_serif_bracket($f,$r,$e)) enddef; + +def A_serif_bracket (suffix i,j,k) = +(z.i{z.j-z.i}...0.6[z.j, .5[z.i, z.k]]{z.k-z.i}...z.k{z.k-z.j}) enddef; + +def ur_drop(suffix $)(expr drop_round, drop_length, drop_height, slab)= +penpos$(round slab, 90); +x$=x$a=x$f; y$f-y$=y$-y$a= 1/2slab; +x$e=x$a + drop_length; y$e=y$f- drop_height; +x$d=x$e - 1/2drop_round; y$d=y$e - 1/2drop_round; +x$c=x$e - drop_round; y$c=y$e; +y$b=round (y$d + drop_round); x$b=round (x$d - 1/5drop_round); +labels($a,$b,$c,$d,$e,$f) enddef; + +def ur_drop_edge suffix $ = +(z$f{right}..tension.9..{down}z$e{down}..{left}z$d{left}..{up}z$c{up}..z$b...{left}z$a--cycle) enddef; + +def ul_drop(suffix $)(expr drop_round, drop_length, drop_height, slab)= +penpos$(round slab, 90); +x$=x$a=x$f; y$f-y$=y$-y$a=1/2slab; +x$e=x$a - drop_length; y$e=y$f- drop_height; +x$d=x$e + 1/2drop_round; y$d=y$e - 1/2drop_round; +x$c=x$e + drop_round; y$c=y$e; +y$b=round (y$d + drop_round); x$b=round (x$d + 1/5drop_round); +labels($a,$b,$c,$d,$e,$f) enddef; + +def ul_drop_edge suffix $ = +(z$f{left}..tension.9..{down}z$e{down}..{right}z$d{right}..{up}z$c{up}..z$b...{right}z$a--cycle) enddef; + +def dl_drop(suffix $)(expr drop_round, drop_length, drop_height, slab)= +penpos$(round slab, -90); +x$=x$a=x$f; y$f-y$=y$-y$a=1/2slab; +x$e=x$a - drop_length; y$e=y$a + drop_height; +x$d=x$e + 1/2drop_round; y$d=y$e + 1/2drop_round; +x$c=x$e + drop_round; y$c=y$e; +y$b=round (y$d - drop_round); x$b=x$d + 1/90drop_round; +labels($a,$b,$c,$d,$e,$f) enddef; + +def dl_drop_edge suffix $ = +(z$a{left}..tension.9..{up}z$e{up}..{right}z$d{right}..{down}z$c..{dir 250}z$b{dir -80}..{right}z$f--cycle) enddef; + +def S_serif (suffix $)(expr serif_slab, serif_length, serif_height)= +%penpos$(serif_slab,90); +x$a=x$i=x$; y$i=y$+1/2serif_slab; y$a=y$-1/2serif_slab; +x$f=x$e=x$a+serif_length; y$f=y$g-1/2serif_slab; y$e=y$c=y$d+1/2serif_slab; +x$g=x$f-1/2serif_slab; y$g=y$i-1/2serif_slab; +y$h=y$f-1/4serif_slab; x$h=x$g-serif_slab; +x$c=x$e-serif_slab; x$d=x$e-1/2serif_slab; y$d=y$g-serif_height; +x$b=x$h-6/18serif_length; y$b=y$h-1/2slab; +labels ($a,$b,$c,$d,$e,$f,$g,$h,$i) enddef; + +def S_serif_edge suffix $ = +(z$a{right}...z$b..{dir -80}z$c..z$d..z$e--z$f{up}..z$g{left}..z$h{dir 150}..{left}z$i--cycle) enddef; + +beginchar(CYR_A,13u#+s#,cap_height#,0); +z1=(.5w,h+1/13h); +x4l=w-x5r=s+cap_jut; y4l=y5r=slab; +numeric theta[]; +theta4=angle(z1-z4l); +theta5=angle(z1-z5r); +A_serif(4,1.3cap_bar,theta4,cap_jut,1.2cap_jut); +serif(5,cap_stem,theta5,cap_jut,cap_jut); +z0=z4r+whatever*dir theta4=z5l+whatever*dir theta5; +fill z1--A_serif_edge4--z0&z0--serif_edge5--z1&cycle; +penpos2(whatever,theta4); +penpos3(whatever,theta5); +y2r=y3r=20/52h; +y2l=y3l=y2r-cap_bar; +z2=whatever[z1,z4r]; +z3=whatever[z1,z5l]; +penstroke z2e--z3e; +y6=y7=h; z6=whatever[z1,z4l]; z7=whatever[z1,z5r]; +unfill z1..z6--z7..z1&cycle; +unfill z1..z6--z7..z1&cycle; +penlabels(range 0 thru 7); +endchar; + +beginchar(CYR_BE,11u#+s#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +x3=x10=x1d; y3=y4=y5=h-1/2slab; +y1c=h; y2c=0; x5e=w-s-1/2cap_stem; +y6=y7=cap_bar_height; x6=x2r; x7=x9=x6+5u-cap_stem; +y7-y8=y8-y9; x8=w-1/2cap_curve-s; +y9=y10=y2h; x4=w-s-1/2cap_stem-border_height; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +penpos3(slab,90); +penpos4(slab,90); +penstroke z3e--z4e; +T_serif(5,slab,border_height,1); +fill T_edge5; +fill serif_edge2--reverse serif_edge1--cycle; +penpos6(cap_bar,90); +penpos7(cap_bar,90); +penpos8(cap_curve,0); +penpos9(cap_bar,-90); +penpos10(cap_bar,-90); +penstroke z6e--z7e{right}..tension.8..z8e..tension.8..{left}z9e--z10e; +penlabels(range 1 thru 10); +endchar; + +beginchar(CYR_VE,11u#+s#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +x3=x10=x1d; y3=y4=h-1/2slab; x4=x3+u; +y1c=h; y2c=0; +y6=y7=cap_bar_height; x6=x2r; x7=x9=x6+4.5u-cap_stem; +y7-y8=y8-y9; x8=w-1/2cap_curve-s; +y9=y10=y2h; +y4-y5=y5-y7; x5=x8-2/5cap_curve; y77=y7; x77=x4; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +penpos3(slab,90); +penpos4(slab,90); +penpos5(cap_curve,0); +penpos77(slab,-90); +fill serif_edge2--reverse serif_edge1--cycle; +penpos6(cap_bar,90); +penpos7(cap_bar,90); +penpos8(cap_curve,0); +penpos9(cap_bar,-90); +penpos10(cap_bar,-90); +penstroke z3e--z4e{right}..tension.8..z5e..tension.8..{left}z77e; +penstroke z6e--z7e{right}..tension.8..z8e..tension.8..{left}z9e--z10e; +css_width := x8 - x2r; save css_width; +penlabels(range 1 thru 10,77); +endchar; + +beginchar(CYR_GHE,9u#+s#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +y4=y3=h-1/2slab; x4=x1d; +y1c=h; y2c=0; x3=x4+2u; +y5=y3; x5e=w-s; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +penpos3(cap_bar,-90); +penpos4(cap_bar,-90); +penstroke z3e--z4e; +T_serif(5,slab,border_height,1); +fill T_edge5; +penlabels(1,2,3,4,5); +endchar; + +beginchar(CYR_DE,12u#,cap_height#,comma_depth#); +x10e=w-s; y10c=-d; +y4c=h; x4h=w-s-1/2slab; +x9=x4; y9c=0; +x3=x8=x9d; y8=y7=1/2cap_bar; y3=y2=h-y8; +x6e=s; y6=y10; x7=border_height+s; +y5=y9; x5g=s+.5u; y1=y4; x1=x5+1.5u; +x2=x1c; +A_serif(1,1.2cap_bar,-96,10/7cap_jut,cap_jut); +A_serif(5,1.2cap_bar,81,6/7cap_jut,cap_jut); +serif(4,cap_stem,-90,cap_jut,cap_jut); +serif(9,cap_stem,90,cap_jut,cap_jut); +penpos2(cap_bar,90); +penpos3(cap_bar,90); +penpos7(cap_bar,90); +penpos8(cap_bar,90); +penstroke z7e--z8e; penstroke z2e--z3e; +fill A_serif_edge5...reverse A_serif_edge1...cycle; +fill serif_edge9--reverse serif_edge4--cycle; +T_serif(6,slab,border_height,0); +T_serif(10,slab,border_height,1); +fill T_edge6; +fill T_edge10; +penlabels(range 1 thru 10); +endchar; + +beginchar(CYR_IE,10u#+s#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +y4=y3=h-1/2slab; x4=x1d; +y1c=h; y2c=0; +y5=y3; x5e=w-s-c; +y6=y7=y8=cap_bar_height;x6=x1r; x7=x8=x6+u; +T_serif(5,slab,border_height,1); +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +x3=x5a; +penpos3(cap_bar,-90); +penpos4(cap_bar,-90); +penstroke z3e--z4e; +fill T_edge5; +penpos6(cap_bar,90); +penpos7(cap_bar,90); +penstroke z6e--z7e; +T_serif(8,cap_bar,.8border_height,1); +fill T_edge8; +fill T_edge8 reflectedabout(z6,z7); +y9=y10=y11=y2h; x9=x2d; x11e=w-s; +T_serif(11,cap_bar,border_height,1); x10=x11; +penpos9(cap_bar,90); +penpos10(cap_bar,90); +penstroke z9e--z10e; +fill T_edge11 reflectedabout(z9,z10); +penlabels(range 1 thru 11); +endchar; + +beginchar(CYR_YE,10u#+s#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +y4=y3=h-1/2slab; x4=x1d; +y1c=h; y2c=0; +y5=y3; x5e=w-s-c; +y6=y7=y8=cap_bar_height;x6=x1r; x7=x8=x6+u; +T_serif(5,slab,border_height,1); +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +x3=x5a; +penpos3(cap_bar,-90); +penpos4(cap_bar,-90); +penstroke z3e--z4e; +fill T_edge5; +penpos6(cap_bar,90); +penpos7(cap_bar,90); +penstroke z6e--z7e; +T_serif(8,cap_bar,.8border_height,1); +fill T_edge8; +fill T_edge8 reflectedabout(z6,z7); +y9=y10=y11=y2h; x9=x2d; x11e=w-s; +T_serif(11,cap_bar,border_height,1); x10=x11; +penpos9(cap_bar,90); +penpos10(cap_bar,90); +penstroke z9e--z10e; +fill T_edge11 reflectedabout(z9,z10); +x12=x13=x2r; y12=h+1/4cap_stem; y13=y12+cap_stem; +x14=x15=x12+2cap_stem; y14=y12; y15=y13; +fill z12..z13..cycle; fill z14..z15..cycle; +penlabels(range 1 thru 15); +endchar; + +beginchar(CYR_ZHE,round (16u#+s#),cap_height#,0); +if .5w = good.x .5w: change_width; fi +x8=x9=.5w; y8c=h; y9c=0; +serif(8,cap_stem,-90,cap_jut,cap_jut); +serif(9,cap_stem,90,cap_jut,cap_jut); +fill serif_edge9--reverse serif_edge8--cycle; +x7=x8l; y7=y4=y10=y11=cap_bar_height; x4=x7-1.5u; +x10=x8r; x11=x10+1.5u; x16=w-s; y16=0; x16-x15=x15-x11; y11-y15=y15-y16; +x6=s; y6=0; y4-y5=y5-y6; x4-x5=x5-x6; +penpos7(cap_bar,90); +penpos4(cap_bar,90); +penpos5(cap_curve,180); +penpos6(cap_bar,90); +penpos10(cap_bar,90); +penpos11(cap_bar,90); +penpos15(cap_curve,0); +penpos16(cap_bar,90); +penstroke z6e{right}..tension.8..{up}z5e{up}..tension.8..{right}z4e--z7e; +penstroke z16e{left}..tension.8..{up}z15e{up}..tension.8..{left}z11e--z10e; +x12=x15-1/2cap_stem; y13=h; x13-x12=x12-x11; y13-y12=y12-y11; +penpos12(hair,180); +penpos13(cap_bar,90); +penstroke z11e{right}..tension.8..{up}z12e{up}..tension.8..{right}z13e; +y14=h; x14a=x13; +ur_drop(14,cap_drop_round,.9cap_drop_round,cap_drop_round,cap_bar); +fill ur_drop_edge14; +x3=x5+1/2cap_stem; y2=h; x4-x3=x3-x2; y2-y3=y3-y4; +penpos3(hair,0); +penpos2(cap_bar,90); +penstroke z4e{left}..tension.8..{up}z3e{up}..tension.8..{left}z2e; +y1=h; x1a=x2; fill z6l..z6r..cycle; +ul_drop(1,cap_drop_round,.9cap_drop_round,cap_drop_round,cap_bar); +fill ul_drop_edge1; fill z16l..z16r..cycle; +penlabels(range 1 thru 16); +endchar; + +beginchar(CYR_ZE,10u#+.5s#,cap_height#,0); +x7=18/39w; y7=0; y4=y5=y44=cap_bar_height; +x4=x6-3/2cap_stem; x5=x4-3u; +x6=w-s-1/2cap_curve; y4-y6=y6-y7; +x2=.5w; y2=h; x3=x6-1/3cap_curve; y2-y3=y3-y4; +x44=x2; z1=z2; +penpos2(cap_bar,90); +penpos3(cap_curve,0); +penpos44(cap_bar,-90); +penpos4(cap_bar,90); +penpos5(cap_bar,90); +penpos6(cap_curve,0); +penpos7(cap_bar,-90); +penstroke z2e{right}..tension.9..{down}z3e{down}..tension.9..{left}z44e; +penstroke z5e--z4e{right}..tension.8..{down}z6e{down}..tension.8..{left}z7e; +fill z5r..z5l..cycle; +S_serif(1,slab,.5w-3c,1.4border_height); +fill S_serif_edge1 reflectedabout(z2r,z2l); +x8e=s; y8=0; +dl_drop(8,cap_drop_round,18/39w-s,1.5cap_drop_round,slab); +fill dl_drop_edge8; +penlabels(range 1 thru 8,44); +endchar; + +beginchar(CYR_I,12u#+s#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +x5=x1+1/3cap_stem; x6=x4-1/3cap_stem; +x3=x4=w-x1; +y1c=y3c=h; y2c=y4c=0; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +serif(3,cap_stem,-90,cap_jut,cap_jut); +serif(4,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +fill serif_edge4--reverse serif_edge3--cycle; +penpos5(cap_bar,-20); penpos6(cap_bar,-20); +y5=.05h; y6=.95h; penstroke z5e--z6e; +penlabels(range 1 thru 6); +endchar; + +beginchar(CYR_SHORT_I,12u#+s#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +x5=x1+1/3cap_stem; x6=x4-1/3cap_stem; +x3=x4=w-x1; +y1c=y3c=h; y2c=y4c=0; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +serif(3,cap_stem,-90,cap_jut,cap_jut); +serif(4,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +fill serif_edge4--reverse serif_edge3--cycle; +penpos5(cap_bar,-20); penpos6(cap_bar,-20); +y5=.05h; y6=.95h; penstroke z5e--z6e; +x7=.5w; y7=h+cap_bar; +ur_drop(7,.8cap_drop_round,1/2(x3l-x1r),.8cap_drop_round,1.2cap_bar); +fill ur_drop_edge7 rotatedaround(z7,180); +fill ur_drop_edge7 reflectedabout(z7a,z7f) rotatedaround(z7,180); +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar(CYR_KA,12u#+s#,cap_height#,0); +x8g=x9g=s; y8c=h; y9c=0; +serif(8,cap_stem,-90,cap_jut,cap_jut); +serif(9,cap_stem,90,cap_jut,cap_jut); +fill serif_edge9--reverse serif_edge8--cycle; +y10=y11=cap_bar_height; +x10=x8r; x11=x10+2.5u; x16=w-s; y16=0; x16-x15=x15-x11; y11-y15=y15-y16; +penpos10(cap_bar,90); +penpos11(cap_bar,90); +penpos15(cap_curve,0); +penpos16(cap_bar,90); +penstroke z16e{left}..tension.8..{up}z15e{up}..tension.8..{left}z11e--z10e; +x12=x15-1/2cap_stem; y13=h; x13-x12=x12-x11; y13-y12=y12-y11; +penpos12(hair,180); +penpos13(cap_bar,90); +penstroke z11e{right}..tension.8..{up}z12e{up}..tension.8..{right}z13e; +y14=h; x14a=x13; +ur_drop(14,cap_drop_round,.9cap_drop_round,cap_drop_round,cap_bar); +fill ur_drop_edge14; fill z16l..z16r..cycle; +penlabels(range 1 thru 16); +endchar; + +beginchar(CYR_EL,13u#+1/2s#,cap_height#,0); +x7h=x8h=w-s; +y7c=h; y8c=0; +y1=0; x1e=s; z2=z1; x3=x2+cap_drop_round; y3=1.1cap_drop_round; +dl_drop(1,1.1cap_drop_round,1.1cap_drop_round,1.2cap_drop_round,slab); +fill dl_drop_edge1; +penpos2(cap_bar,-90); +penpos3(cap_bar,0); +penstroke z2e{right}..{up}z3e; +x4=x3r; y4=h-slab; +numeric theta[]; +theta1=angle(z3-z4); +A_serif(4,cap_bar,theta1,1.3cap_jut,1.3cap_jut); +fill A_serif_edge4..z3r--z3l..cycle; +serif(7,cap_stem,-90,cap_jut,cap_jut); +serif(8,cap_stem,90,cap_jut,cap_jut); +fill serif_edge8--reverse serif_edge7--cycle; +x5=x4d; y5=y6=y7h; x6=x7c; +penpos5(cap_bar,90); +penpos6(cap_bar,90); +penstroke z5e--z6e; +penlabels(1,2,3,4,5,6,7,8); +endchar; + +beginchar(CYR_EM,13u#+1.5s#,cap_height#,0); +x1g=s; y1c=0; y2=h-cap_bar; +A_serif(1,cap_bar,90,jut,jut); +x2=x1; serif(2,cap_bar,-90,jut,jut); +fill A_serif_edge1--reverse serif_edge2--cycle; +x3h=x4h=w-s; y3g=h-1/2cap_bar; y4c=0; +serif(3,cap_stem,-90,.51cap_bar, jut); +serif(4,cap_stem,90,jut,jut); +fill serif_edge4--reverse serif_edge3--cycle; +z5l=z3g; penpos5(bar,0); penpos6(bar,0); +z6=z5+whatever*dir -108; y6=0; +penstroke z5e--z6e; +z7l=z6l+whatever*dir 109; y7l=10/54h; +z8l=whatever[z6l,z7l]; y8l=h; +penpos7(cap_stem,0); penpos8(cap_stem,0); +penstroke z7e--z8e; fill z6l--z7l--z7r--cycle; +fill z6l..tension1.3..z6r..tension1.3..cycle; +penlabels(range 1 thru 8); +endchar; + +beginchar(CYR_EN,12u#+s#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +x3=x4=w-x1; x5=x1r; x6=x3l; +y1c=y3c=h; y2c=y4c=0; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +serif(3,cap_stem,-90,cap_jut,cap_jut); +serif(4,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +fill serif_edge4--reverse serif_edge3--cycle; +penpos5(cap_bar,90); penpos6(cap_bar,90); +y5=y6=cap_bar_height; penstroke z5e--z6e; +penlabels(1,2,3,4,5,6); +endchar; + +beginchar(CYR_O,11u#+s#,cap_height#,0); +penpos1(vair,90); +penpos2(o,30); +penpos3(cap_curve,0); +penpos4(o,-30); +penpos5(vair,-90); +penpos6(o,-150); +penpos7(cap_curve,-180); +penpos8(o,-210); +x1=x5=.5w; y1=0; y5=h; +y3=y7=.5h; x3=1/2cap_curve+s; x7=w-1/2cap_curve-s; +y2=y8=0.1h-c; y4=y6=0.9h+c; x2=x4=x3+7/16(x5-x3); x6=x8=x5+9/16(x7-x5); +penstroke z1e..z2e..z3e..z4e..z5e..z6e..z7e..z8e..cycle; +cap_o_width := x7-x3; save cap_o_width; +penlabels(1,2,3,4,5,6,7,8); +endchar; + +beginchar(CYR_PE,12u#+s#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +x3=x4=w-x1; x5=x1d; x6=x3c; +y1c=y3c=h; y2c=y4c=0; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +serif(3,cap_stem,-90,cap_jut,cap_jut); +serif(4,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +fill serif_edge4--reverse serif_edge3--cycle; +penpos5(cap_bar,90); penpos6(cap_bar,90); +y5=y6=y1h; penstroke z5e--z6e; +penlabels(1,2,3,4,5,6); +endchar; + +beginchar(CYR_ER,10u#+s#,cap_height#,0); +x1=x2=x3=cap_jut+1/2cap_stem+s; +y3=y4=cap_bar2_height; y7=y6=h-1/2slab; x7=x3+c; +y1c=h; y2c=0; x6=x4=x3+3u; +y5-y4=y6-y5; x5=w-1/2cap_curve-s; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +penpos3(cap_bar,-90); +penpos4(cap_bar,-90); +penpos5(cap_curve,0); +penpos7(cap_bar,90); +penpos6(cap_bar,90); +penstroke z3e--z4e{right}..tension.8..z5e..tension.8..{left}z6e--z7e; +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar(CYR_ES,10u#+s#,cap_height#,0); +x1=x5=23/42w; y1=0; y5=h; +y3=.5h; x3=1/2cap_curve+s; +y2=0.1h-c; y4=0.9h+c; x2=x4=x3+7/16(x1-x3); +penpos1(cap_bar,90); +penpos2(o,30); +penpos3(cap_curve,0); +penpos4(o,-30); +penpos5(cap_bar,-90); +penstroke z1e{left}..z2e..z3e..z4e..{right}z5e; +z6=z5; y7=y1; x7e=w-s; y8=y1; x8=x1-.1w; +S_serif(6,slab,w-s-c-x1,1.5border_height); +S_serif(7,slab,w-s-x1,1.5border_height); +fill S_serif_edge6; fill S_serif_edge7 reflectedabout(z1,z8); +penlabels(1,2,3,4,5,6,7,8); +endchar; + +beginchar(CYR_TE,round (11u#+s#),cap_height#,0); +x1=x2=.5w; +y1c=h; y2c=0; +y3=y4=h-1/2slab; x3e=s; x1-x3e=x4e-x1; +serif(1,cap_stem,-90,1.2cap_jut,1.2cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +T_serif(3,cap_bar,round border_height,0); +T_serif(4,cap_bar,round border_height,1); +fill T_edge3; +fill T_edge4; +if x1c>x3: y5=y6=y7=y8=h-1/2cap_bar; x5=x3a; x6=x1c; x7=x1e; x8=x4a; +penpos5(cap_bar,90); penpos6(cap_bar,90); +penpos7(cap_bar,90); penpos8(cap_bar,90); +penstroke z5e--z6e; +penstroke z7e--z8e; fi +penlabels(range 1 thru 8); +endchar; + +beginchar(CYR_U,13u#+s#,cap_height#,0); +x1l=s+cap_jut; y1l=.98h-cap_bar; +x3r=w-s-.8cap_jut; y3r=.98h-cap_bar; +x4=33/60w; y4=6/53h; +numeric theta[]; +theta1 = angle(z4-z1l); +theta2 = angle(z4-z3r); +serif(1,cap_stem,theta1,cap_jut,cap_jut); +A_serif(3,cap_bar,theta2,1.2cap_jut,.8cap_jut); +z2 = z1r+whatever*dir theta1=z3l+whatever*dir theta2; +fill z4--serif_edge1--z2&z2--A_serif_edge3--z4&cycle; +z5r=z4; y6=0; x6=x4-1.2cap_stem; z7l=z2; +penpos7(cap_bar,theta2+90); +penpos5(cap_bar,theta2+90); +penpos6(cap_bar,-90); +penstroke z7e--z5e{dir theta2}...{left}z6e; +z8=z6; +dl_drop(8,cap_drop_round,2u,10/53h,cap_bar); +fill dl_drop_edge8; +penlabels(range 1 thru 8); +endchar; + +beginchar(CYR_EF,round (14u#+s#),cap_height#,0); +if .5w = good.x .5w: change_width; fi +x1=x2=.5w; y2c=0; y1h=h; +y6=y7=y8=y9=1.3cap_jut; y4=y3=y11=y12=h-1.3cap_jut+1/2slab; +x3=x7=x2l; x8=x12=x2r; x4=x6=x3-u; x11=x9=x12+u; +x5=s+1/2cap_curve; x10-x1=x1-x5; y4-y5=y5-y6; y10=y5; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +penpos3(cap_bar,90); +penpos4(cap_bar,90); +penpos5(cap_curve,180); +penpos6(cap_bar,270); +penpos7(cap_bar,270); +penpos8(cap_bar,-90); +penpos9(cap_bar,-90); +penpos10(cap_curve,0); +penpos11(cap_bar,90); +penpos12(cap_bar,90); +penstroke z3e--z4e{left}..tension.8..{down}z5e{down}..tension.8..{right}z6e--z7e; +penstroke z8e--z9e{right}..tension.8..{up}z10e{up}..tension.8..{left}z11e--z12e; +penlabels (range 1 thru 12); +endchar; + +beginchar(CYR_HA,12u#+s#,cap_height#,0); +y3=y4=slab; x3=w-s-cap_jut-1/2cap_stem; x4=s+cap_jut+1/2slab; +y1=y2=h-slab; x1=s+cap_jut+1/2cap_stem+c; x2=w-s-1.5c-cap_jut-1/2slab; +numeric theta[]; +theta1 = angle(z1-z3); +theta2 = angle(z2-z4); +serif(1,cap_stem,theta1-180,cap_jut,cap_jut); +A_serif(2,1.2cap_bar,theta2-180,cap_jut,cap_jut); +serif(3,cap_stem,theta1,cap_jut,cap_jut); +A_serif(4,1.2cap_bar,theta2,cap_jut,cap_jut); +fill serif_edge3--reverse serif_edge1--cycle; +fill A_serif_edge4--reverse A_serif_edge2--cycle; +penlabels(1,2,3,4); +endchar; + +beginchar(CYR_TSE,12.5u#+s#,cap_height#,comma_depth#); +x1=x2=x5=cap_jut+1/2cap_stem+s; +x3=x4=x6=w-x1-.5u; y5=y6=y2h; +y1c=y3c=h; y2c=y4c=0; x7e=w-s; y7=y2h; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +serif(3,cap_stem,-90,cap_jut,cap_jut); +serif(4,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +fill serif_edge4--reverse serif_edge3--cycle; +penpos5(cap_bar,90); penpos6(cap_bar,90); +penstroke z5e--z6e; +T_serif(7,cap_bar,border_height,1); +fill T_edge7; +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar(CYR_CHE,12u#+s#,cap_height#,0); +x1=cap_jut+1/2cap_stem+s; +x2=x3=w-x1; +y1c=y2c=h; y3c=0; y4=y4r=y4l=30/52h; x4=x1; x4r=x1r; x4l=x1l; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,-90,cap_jut,cap_jut); +serif(3,cap_stem,90,cap_jut,cap_jut); +fill z4r--reverse serif_edge1--z4l--cycle; +fill serif_edge3--reverse serif_edge2--cycle; +x5=x2l; y5=cap_bar_height-1/2cap_bar; z6=z4; +x5-x7=x7-x4r; y7=y5-2cap_bar; +penpos6(cap_stem,180); +penpos5(1.2vair,270); +penpos7(1.2vair,270); +penstroke z6e{down}...z7e..z5e; +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar(CYR_SHA,16u#+s#,cap_height#,0); +if .5w <> good.x .5w: change_width; fi +x1=x2=good.x (cap_jut+1/2cap_stem+s); +y1c=h; y2c=0; x3=x2e; y3=y4=y7=y8=y2h; +x4=x6c; x7=x6d; x8=x9c; +x5=x6=good.x .5w; y5=y1; y6=y2; +y9b=slab; x9=good.x w-x1; +x10=x9; y10b=h-slab; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +serif(5,cap_stem,-90,cap_jut,cap_jut); +serif(6,cap_stem,90,cap_jut,cap_jut); +fill serif_edge6--reverse serif_edge5--cycle; +serif(9,cap_stem,90,cap_jut,cap_jut); +serif(10,cap_stem,-90,cap_jut,cap_jut); +fill serif_edge9--reverse serif_edge10--cycle; +penpos3(slab,90); +penpos4(slab,90); +penpos7(slab,90); +penpos8(slab,90); +penstroke z3e--z4e; +penstroke z7e--z8e; +penlabels(range 1 thru 10); +endchar; + +beginchar(CYR_SHCHA,16.5u#+s#,cap_height#,comma_depth#); +x1=x2=cap_jut+1/2cap_stem+s; +y1c=h; y2c=0; x3=x2e; y3=y4=y7=y8=y2h; +x4=x6c; x7=x6d; x8=x9c; +y9b=slab; x9h=w-s-.5u; +x10=x9; y10b=h-slab; +x11e=w-s; y11=y9h; +serif(9,cap_stem,90,cap_jut,cap_jut); +serif(10,cap_stem,-90,cap_jut,cap_jut); +fill serif_edge9--reverse serif_edge10--cycle; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +x5=x6=x1+(x10-x1)/2; y5=y1; y6=y2; +serif(5,cap_stem,-90,cap_jut,cap_jut); +serif(6,cap_stem,90,cap_jut,cap_jut); +fill serif_edge6--reverse serif_edge5--cycle; +penpos3(slab,90); +penpos4(slab,90); +penpos7(slab,90); +penpos8(slab,90); +penstroke z3e--z4e; +penstroke z7e--z8e; +T_serif(11,slab,border_height,1); +fill T_edge11; +penlabels(range 1 thru 11); +endchar; + +beginchar(CYR_HARD_SIGN,13.5u#+c#,cap_height#,0); +x2r=x5-css_width; x1=x2; x8e=s; y8g=h; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +x7=x1d; y1c=h; y2c=0; +y4-y5=y5-y6; x5=w-1/2cap_curve-s; +y3=y4=cap_bar_height; x3=x2r; x4=x6=round(x3+5u-cap_stem); +y6=y7=y2h; +fill serif_edge2--reverse serif_edge1--cycle; +T_serif(8,cap_bar,border_height,0); +fill T_edge8; +penpos3(cap_bar,90); +penpos4(cap_bar,90); +penpos5(cap_curve,0); +penpos6(cap_bar,-90); +penpos7(cap_bar,-90); +penstroke z3e--z4e{right}..tension.8..z5e..tension.8..{left}z6e--z7e; +penlabels(1,2,3,4,5,6,7,8); +endchar; + +beginchar(CYR_YERU,16u#+c#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +x7=x1d; +y1c=h; y2c=0; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +y3=y4=cap_bar_height; x3=round x2r; x4=x6=round (x3+5u-cap_stem) - 1; +y4-y5=y5-y6; x5=x2r+css_width; y8b=slab; x8h=w-s; +y6=y7=y2h; x9=x8; y9b=h-slab; +fill serif_edge2--reverse serif_edge1--cycle; +serif(8,cap_stem,90,cap_jut,cap_jut); +serif(9,cap_stem,-90,cap_jut,cap_jut); +fill serif_edge8--reverse serif_edge9--cycle; +penpos3(cap_bar,90); +penpos4(cap_bar,90); +penpos5(cap_curve,0); +penpos6(cap_bar,-90); +penpos7(cap_bar,-90); +penstroke z3e--z4e{right}..tension.8..z5e..tension.8..{left}z6e--z7e; +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar(CYR_SOFT_SIGN,11u#+s#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +x7=x1d; +y1c=h; y2c=0; +y3=y4=cap_bar_height; x3=x2r; x4=x6=x3+5u-cap_stem; +y4-y5=y5-y6; x5=w-1/2cap_curve-s; +y6=y7=y2h; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +penpos3(cap_bar,90); +penpos4(cap_bar,90); +penpos5(cap_curve,0); +penpos6(cap_bar,-90); +penpos7(cap_bar,-90); +penstroke z3e--z4e{right}..tension.8..z5e..tension.8..{left}z6e--z7e; +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar(CYR_E,10u#+.5s#,cap_height#,0); +x1=16/39w; x5=.5w; y1=0; y5=h; +y7=.5h; x7=w-1/2cap_curve-s; +x9e=s; y9=0; +dl_drop(9,cap_drop_round,16/39w-s,1.7cap_drop_round,slab); +y8=0.1h-c; y6=0.9h+c; x8=x9+9/16(x7-x9); x6=x5+9/16(x7-x5); +penpos5(cap_bar,-90); +penpos6(o,-150); +penpos7(cap_curve,-180); +penpos8(o,-210); +penpos1(cap_bar,-270); +penstroke z5e{right}..z6e..{down}z7e{down}..z8e..{left}z1e; +y2=y5; x2=x5-c; +S_serif(2,slab,x1+c,1.5border_height); +x3=x7-1/2cap_stem; y3=y4=cap_bar_height; x4=x2b-x1; +penpos3(cap_bar,90); penpos4(cap_bar,90); +penstroke z3e--z4e; fill z4r..z4l..cycle; +fill S_serif_edge2 reflectedabout(z5r,z5l); +fill dl_drop_edge9; +penlabels(1,2,3,4,5,6,7,8); +endchar; + +beginchar(CYR_YU,16u#+s#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +y1c=h; y2c=0; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +penpos9(vair,90); +penpos10(o,30); +penpos3(cap_curve,0); +penpos4(o,-30); +penpos5(vair,-90); +penpos6(o,-150); +penpos7(cap_curve,-180); +penpos8(o,-210); +y3=y7=.5h; x7=w-1/2cap_curve-s; x3=x7-cap_o_width; y9=0; y5=h; x7-x5=x5-x3; x9=x5; +y10=y8=0.1h-c; y4=y6=0.9h+c; x10=x4=x3+7/16(x5-x3); x6=x8=x5+9/16(x7-x5); +penstroke z9e..z10e..z3e..z4e..z5e..z6e..z7e..z8e..cycle; +x11=x1r; x12=x3-1/3cap_stem; y11=y12=cap_bar_height; +penpos11(cap_bar,90); penpos12(cap_bar,90); +penstroke z11e--z12e; +penlabels(range 1 thru 12); +endchar; + +beginchar(CYR_YA,11u#+s#,cap_height#,0); +x1=x2=w-cap_jut-1/2cap_stem-s; +y6=y10=y7=cap_bar_height; y3=y4=h-1/2slab; x7=x2l; +y1c=h; y2c=0; x6=x4=x7-2.5u; x3=x1c; +y4-y5=y5-y6; x5=x8-1.5c; x9=s; y9=0; y6-y8=y8-y9; x7-x10=3(x10-x6); x10-x8=x8-x9; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +penpos3(cap_bar,90); +penpos4(cap_bar,90); +penpos5(cap_curve,180); +penpos7(cap_bar,270); +penpos6(cap_bar,270); +penpos8(cap_curve,0); +penpos9(cap_bar,-90); +penpos10(cap_bar,-90); fill z9l..z9r..cycle; +penstroke z3e--z4e{left}..tension.9..z5e..tension.9..{right}z6e--z7e; +penstroke z9e{right}..tension1..{up}z8e{up}..tension1..{right}z10e; +penlabels(range 1 thru 10); +endchar; + +beginchar(CYR_a,.8(13u#+s#),.8cap_height#,0); +z1=(.5w,h+1/13h); +x4l=w-x5r=s+.8cap_jut; y4l=y5r=slab; +numeric theta[]; +theta4=angle(z1-z4l); +theta5=angle(z1-z5r); +A_serif(4,.8*1.3cap_bar,theta4,.8cap_jut,.8*1.2cap_jut); +serif(5,.8cap_stem,theta5,.8cap_jut,.8cap_jut); +z0=z4r+whatever*dir theta4=z5l+whatever*dir theta5; +fill z1--A_serif_edge4--z0&z0--serif_edge5--z1&cycle; +penpos2(whatever,theta4); +penpos3(whatever,theta5); +y2r=y3r=20/52h; +y2l=y3l=y2r-cap_bar; +z2=whatever[z1,z4r]; +z3=whatever[z1,z5l]; +penstroke z2e--z3e; +y6=y7=h; z6=whatever[z1,z4b]; z7=whatever[z1,z5r]; +unfill z1..z6--z7..z1&cycle; +unfill z1..z6--z7..z1&cycle; +penlabels(range 0 thru 7); +endchar; + +beginchar(CYR_be,.8(11u#+s#),.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +x3=x10=x1d; y3=y4=y5=h-1/2slab; +y1c=h; y2c=0; x5e=w-s-.8*1/2cap_stem; +y6=y7=.8cap_bar_height; x6=x2r; x7=x9=x6+3.6u-.8cap_stem; +y7-y8=y8-y9; x8=w-.8*1/2cap_curve-s; +y9=y10=y2h; x4=w-s-.8*1/2cap_stem-.8border_height; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +penpos3(slab,90); +penpos4(slab,90); +penstroke z3e--z4e; +T_serif(5,slab,.8border_height,1); +fill T_edge5; +fill serif_edge2--reverse serif_edge1--cycle; +penpos6(cap_bar,90); +penpos7(cap_bar,90); +penpos8(.8cap_curve,0); +penpos9(cap_bar,-90); +penpos10(cap_bar,-90); +penstroke z6e--z7e{right}..tension.8..z8e..tension.8..{left}z9e--z10e; +penlabels(range 1 thru 10); +endchar; + +beginchar(CYR_ve,.8(11u#+s#),.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +x3=x10=x1d; y3=y4=h-1/2slab; x4=x3+u; +y1c=h; y2c=0; +y6=y7=.8cap_bar_height; x6=x2r; x7=x9=x6+.8*4.5u-.8cap_stem; +y7-y8=y8-y9; x8=w-.8*1/2cap_curve-s; y9=y10=y2h; +y4-y5=y5-y7; x5=x8-.8*2/5cap_curve; y77=y7; x77=x4; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +penpos3(slab,90); +penpos4(slab,90); +penpos5(.8cap_curve,0); +penpos77(slab,-90); +fill serif_edge2--reverse serif_edge1--cycle; +penpos6(cap_bar,90); +penpos7(cap_bar,90); +penpos8(.8cap_curve,0); +penpos9(cap_bar,-90); +penpos10(cap_bar,-90); +penstroke z3e--z4e{right}..tension.9..z5e..tension.9..{left}z77e; +penstroke z6e--z7e{right}..tension.8..z8e..tension.8..{left}z9e--z10e; +sss_width := x8 - x2r; save sss_width; +penlabels(range 1 thru 10,77); +endchar; + +beginchar(CYR_ghe,.8(9u#+s#),.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +y4=y3=h-1/2slab; x4=x1d; +y1c=h; y2c=0; x3=x4+2u; +y5=y3; x5e=w-s; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +penpos3(cap_bar,-90); +penpos4(cap_bar,-90); +penstroke z3e--z4e; +T_serif(5,slab,.8border_height,1); +fill T_edge5; +penlabels(1,2,3,4,5); +endchar; + +beginchar(CYR_de,.8*12u#,.8cap_height#,.8comma_depth#); +x10e=w-s; y10c=-d; y4c=h; x4h=w-s-1/2slab; x9=x4; y9c=0; +x3=x8=x9d; y8=y7=1/2cap_bar; y3=y2=h-y8; +x6e=s; y6=y10; x7=.8border_height+s; +y5=y9; x5g=s+.5u; y1=y4; x1=x5+u; x2=x1c; +A_serif(1,cap_bar,-96,.8*10/7cap_jut,.8cap_jut); +A_serif(5,cap_bar,81,.8*6/7cap_jut,.8cap_jut); +serif(4,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(9,.8cap_stem,90,.8cap_jut,.8cap_jut); +penpos2(cap_bar,90); +penpos3(cap_bar,90); +penpos7(cap_bar,90); +penpos8(cap_bar,90); +penstroke z7e--z8e; penstroke z2e--z3e; +fill A_serif_edge5...reverse A_serif_edge1...cycle; +fill serif_edge9--reverse serif_edge4--cycle; +T_serif(6,slab,.8border_height,0); +T_serif(10,slab,.8border_height,1); +fill T_edge6; +fill T_edge10; +penlabels(range 1 thru 10); +endchar; + +beginchar(CYR_ie,.8(10u#+s#),.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +y4=y3=h-1/2slab; x4=x1d; +y1c=h; y2c=0; +y5=y3; x5e=w-s-.7c; +y6=y7=y8=.8cap_bar_height;x6=x1r; x7=x8=x6+.8u; +T_serif(5,slab,.8border_height,1); +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +x3=x5a; penpos3(cap_bar,-90); +penpos4(cap_bar,-90); +penstroke z3e--z4e; +fill T_edge5; +penpos6(cap_bar,90); +penpos7(cap_bar,90); +penstroke z6e--z7e; +T_serif(8,cap_bar,.8*.8border_height,1); +fill T_edge8; +fill T_edge8 reflectedabout(z6,z7); +y9=y10=y11=y2h; x9=x2d; x11e=w-s; +T_serif(11,cap_bar,.8border_height,1); x10=x11; +penpos9(cap_bar,90); +penpos10(cap_bar,90); +penstroke z9e--z10e; +fill T_edge11 reflectedabout(z9,z10); +penlabels(range 1 thru 11); +endchar; + +beginchar(CYR_ye,.8(10u#+s#),.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +y4=y3=h-1/2slab; x4=x1d; +y1c=h; y2c=0; +y5=y3; x5e=w-s-.7c; +y6=y7=y8=.8cap_bar_height;x6=x1r; x7=x8=x6+.8u; +T_serif(5,slab,.8border_height,1); +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +x3=x5a; penpos3(cap_bar,-90); +penpos4(cap_bar,-90); +penstroke z3e--z4e; +fill T_edge5; +penpos6(cap_bar,90); +penpos7(cap_bar,90); +penstroke z6e--z7e; +T_serif(8,cap_bar,.8*.8border_height,1); +fill T_edge8; +fill T_edge8 reflectedabout(z6,z7); +y9=y10=y11=y2h; x9=x2d; x11e=w-s; +T_serif(11,cap_bar,.8border_height,1); x10=x11; +penpos9(cap_bar,90); +penpos10(cap_bar,90); +penstroke z9e--z10e; +fill T_edge11 reflectedabout(z9,z10); +x12=x13=x2r; y12=h+.8*(1/4cap_stem); y13=y12+.8cap_stem; +x14=x15=x12+.8*2cap_stem; y14=y12; y15=y13; +fill z12..z13..cycle; fill z14..z15..cycle; +penlabels(range 1 thru 15); +endchar; + +beginchar(CYR_zhe,.8(16u#+s#),.8cap_height#,0); +if .5w = good.x .5w: change_width; fi +x8=x9=.5w; y8c=h; y9c=0; +serif(8,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(9,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge9--reverse serif_edge8--cycle; +x7=x8l; y7=y4=y10=y11=.8cap_bar_height; x4=x7-.8*1.5u; +x10=x8r; x11=x10+.8*1.5u; x16=w-s; y16=0; x16-x15=x15-x11; y11-y15=y15-y16; +x6=s; y6=0; y4-y5=y5-y6; x4-x5=x5-x6; +penpos7(cap_bar,90); +penpos4(cap_bar,90); +penpos5(.8cap_curve,180); +penpos6(cap_bar,90); +penpos10(cap_bar,90); +penpos11(cap_bar,90); +penpos15(.8cap_curve,0); +penpos16(cap_bar,90); +penstroke z6e{right}..tension.8..{up}z5e{up}..tension.8..{right}z4e--z7e; +penstroke z16e{left}..tension.8..{up}z15e{up}..tension.8..{left}z11e--z10e; +x12=x15-.8*1/2cap_stem; y13=h; x13-x12=x12-x11; y13-y12=y12-y11; +penpos12(hair,180); +penpos13(cap_bar,90); +penstroke z11e{right}..tension.8..{up}z12e{up}..tension.8..{right}z13e; +y14=h; x14a=x13; +ur_drop(14,.8cap_drop_round,.8*.9cap_drop_round,.8cap_drop_round,cap_bar); +fill ur_drop_edge14; +x3=x5+.8*1/2cap_stem; y2=h; x4-x3=x3-x2; y2-y3=y3-y4; +penpos3(hair,0); +penpos2(cap_bar,90); +penstroke z4e{left}..tension.8..{up}z3e{up}..tension.8..{left}z2e; +y1=h; x1a=x2; fill z6l..z6r..cycle; +ul_drop(1,.8cap_drop_round,.8*.9cap_drop_round,.8cap_drop_round,cap_bar); +fill ul_drop_edge1; fill z16l..z16r..cycle; +penlabels(range 1 thru 16); +endchar; + +beginchar(CYR_ze,.8(10u#+.5s#),.8cap_height#,0); +x7=18/39w; y7=0; y4=y5=y44=.8cap_bar_height; +x4=x6-.8*3/2cap_stem; x5=x4-.8*3u; +x6=w-s-.8*1/2cap_curve; y4-y6=y6-y7; +x2=.5w; y2=h; x3=x6-.8*1/3cap_curve; y2-y3=y3-y4; +x44=x2; z1=z2; +penpos2(cap_bar,90); +penpos3(.8cap_curve,0); +penpos44(cap_bar,-90); +penpos4(cap_bar,90); +penpos5(cap_bar,90); +penpos6(.8cap_curve,0); +penpos7(cap_bar,-90); +penstroke z2e{right}..tension.9..{down}z3e{down}..tension.9..{left}z44e; +penstroke z5e--z4e{right}..tension.9..{down}z6e{down}..tension.9..{left}z7e; +fill z5r..z5l..cycle; +S_serif(1,slab,.5w-3c,.8*1.4border_height); +fill S_serif_edge1 reflectedabout(z2r,z2l); +x8e=s; y8=0; +dl_drop(8,.8cap_drop_round,18/39w-s,.8*1.5cap_drop_round,slab); +fill dl_drop_edge8; +penlabels(range 1 thru 8,44); +endchar; + +beginchar(CYR_i,.8(12u#+s#),.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +x5=x1+.8*1/3cap_stem; x6=x4-.8*1/3cap_stem; +x3=x4=w-x1; +y1c=y3c=h; y2c=y4c=0; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +serif(3,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(4,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +fill serif_edge4--reverse serif_edge3--cycle; +penpos5(cap_bar,-20); penpos6(cap_bar,-20); +y5=.05h; y6=.95h; penstroke z5e--z6e; +penlabels(range 1 thru 6); +endchar; + +beginchar(CYR_short_i,.8(12u#+s#),.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +x5=x1+.8*1/3cap_stem; x6=x4-.8*1/3cap_stem; +x3=x4=w-x1; +y1c=y3c=h; y2c=y4c=0; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +serif(3,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(4,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +fill serif_edge4--reverse serif_edge3--cycle; +penpos5(cap_bar,-20); penpos6(cap_bar,-20); +y5=.05h; y6=.95h; penstroke z5e--z6e; +x7=.5w; y7=h+cap_bar; +ur_drop(7,.8*.8cap_drop_round,1/2(x3l-x1r),.8*.8cap_drop_round,cap_bar); +fill ur_drop_edge7 rotatedaround(z7,180); +fill ur_drop_edge7 reflectedabout(z7a,z7f) rotatedaround(z7,180); +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar(CYR_ka,.8(12u#+s#),.8cap_height#,0); +x8g=x9g=s; y8c=h; y9c=0; +serif(8,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(9,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge9--reverse serif_edge8--cycle; +y10=y11=.8cap_bar_height; +x10=x8r; x11=x10+.8*2.5u; x16=w-s; y16=0; x16-x15=x15-x11; y11-y15=y15-y16; +penpos10(cap_bar,90); +penpos11(cap_bar,90); +penpos15(.8cap_curve,0); +penpos16(cap_bar,90); +penstroke z16e{left}..tension.8..{up}z15e{up}..tension.8..{left}z11e--z10e; +x12=x15-.8*1/2cap_stem; y13=h; x13-x12=x12-x11; y13-y12=y12-y11; +penpos12(hair,180); +penpos13(cap_bar,90); +penstroke z11e{right}..tension.8..{up}z12e{up}..tension.8..{right}z13e; +y14=h; x14a=x13; +ur_drop(14,.8cap_drop_round,.8*.9cap_drop_round,.8*cap_drop_round,cap_bar); +fill ur_drop_edge14; fill z16l..z16r..cycle; +penlabels(range 1 thru 16); +endchar; + +beginchar(CYR_el,.8*(13u#+1/2s#),.8cap_height#,0); +x7h=x8h=w-s; y7c=h; y8c=0; +y1=0; x1e=s; z2=z1; x3=x2+.8cap_drop_round; y3=.8*1.1cap_drop_round; +dl_drop(1,.8*cap_drop_round,.8*cap_drop_round,.8*1.1cap_drop_round,slab); +fill dl_drop_edge1; +penpos2(cap_bar,-90); +penpos3(cap_bar,0); +penstroke z2e{right}..{up}z3e; +x4=x3r; y4=h-slab; +numeric theta[]; +theta1=angle(z3-z4); +A_serif(4,cap_bar,theta1,.8*1.3cap_jut,.8*1.3cap_jut); +fill A_serif_edge4..z3r--z3l..cycle; +serif(7,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(8,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge8--reverse serif_edge7--cycle; +x5=x4d; y5=y6=y7h; x6=x7c; +penpos5(cap_bar,90); +penpos6(cap_bar,90); +penstroke z5e--z6e; +penlabels(1,2,3,4,5,6,7,8); +endchar; + +beginchar(CYR_em,.8(13u#+s#),.8cap_height#,0); +x1g=s; y1c=0; y2=h-cap_bar; +A_serif(1,cap_bar,90,.8jut,.8jut); +x2=x1; serif(2,cap_bar,-90,jut,jut); +fill A_serif_edge1--reverse serif_edge2--cycle; +x3h=x4h=w-s; y3g=h-1/2cap_bar; y4c=0; +serif(3,.8cap_stem,-90,.51cap_bar,.8jut); +serif(4,.8cap_stem,90,.8jut,.8jut); +fill serif_edge4--reverse serif_edge3--cycle; +z5l=z3g; penpos5(bar,0); penpos6(bar,0); +z6=z5+whatever*dir -108; y6=0; +penstroke z5e--z6e; +z7l=z6l+whatever*dir 106; y7l=11/54h; +z8l=whatever[z6l,z7l]; y8l=h; +penpos7(.8cap_stem,0); penpos8(.8cap_stem,0); +penstroke z7e--z8e; fill z6l--z7l--z7r--cycle; +fill z6l..tension1.3..z6r..tension1.3..cycle; +penlabels(range 1 thru 8); +endchar; + +beginchar(CYR_en,.8(12u#+s#),.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +x3=x4=w-x1; x5=x1r; x6=x3l; +y1c=y3c=h; y2c=y4c=0; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +serif(3,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(4,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +fill serif_edge4--reverse serif_edge3--cycle; +penpos5(cap_bar,90); penpos6(cap_bar,90); +y5=y6=.8cap_bar_height; penstroke z5e--z6e; +penlabels(1,2,3,4,5,6); +endchar; + +beginchar(CYR_o,.8(11u#+s#),.8cap_height#,0); +penpos1(vair,90); +penpos2(.8o,30); +penpos3(.8cap_curve,0); +penpos4(.8o,-30); +penpos5(vair,-90); +penpos6(.8o,-150); +penpos7(.8cap_curve,-180); +penpos8(.8o,-210); +x1=x5=.5w; y1=0; y5=h; +y3=y7=.5h; x3=.8*1/2cap_curve+s; x7=w-.8*1/2cap_curve-s; +y2=y8=.09h-c; y4=y6=.91h+c; x2=x4=x3+8/16(x5-x3); x6=x8=x5+8/16(x7-x5); +penstroke z1e..z2e..z3e..z4e..z5e..z6e..z7e..z8e..cycle; +penlabels(1,2,3,4,5,6,7,8); +endchar; + +beginchar(CYR_pe,.8(12u#+s#),.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +x3=x4=w-x1; x5=x1d; x6=x3c; +y1c=y3c=h; y2c=y4c=0; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +serif(3,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(4,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +fill serif_edge4--reverse serif_edge3--cycle; +penpos5(cap_bar,90); penpos6(cap_bar,90); +y5=y6=y1h; penstroke z5e--z6e; +penlabels(1,2,3,4,5,6); +endchar; + +beginchar(CYR_er,.8(10u#+s#),.8cap_height#,0); +x1=x2=x3=.8cap_jut+.8*1/2cap_stem+s; +y3=y4=.8cap_bar2_height; y7=y6=h-1/2slab; x7=x3+c; +y1c=h; y2c=0; x6=x4=x3+.8*3u; +y5-y4=y6-y5; x5=w-.8*1/2cap_curve-s; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +penpos3(cap_bar,-90); +penpos4(cap_bar,-90); +penpos5(.8cap_curve,0); +penpos7(cap_bar,90); +penpos6(cap_bar,90); +penstroke z3e--z4e{right}..tension.8..z5e..tension.8..{left}z6e--z7e; +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar(CYR_es,.8(10u#+s#),.8cap_height#,0); +x1=x5=23/42w; y1=0; y5=h; +y3=.5h; x3=.8*1/2cap_curve+s; +y2=.09h-c; y4=.91h+c; x2=x4=x3+8/16(x1-x3); +penpos1(cap_bar,90); +penpos2(.8o,30); +penpos3(.8cap_curve,0); +penpos4(.8o,-30); +penpos5(cap_bar,-90); +penstroke z1e{left}..z2e..z3e..z4e..{right}z5e; +z6=z5; y7=y1; x7e=w-s; y8=y1; x8=x1-.1w; +S_serif(6,slab,w-s-.7c-x1,.8*1.5border_height); +S_serif(7,slab,w-s-x1,.8*1.5border_height); +fill S_serif_edge6; fill S_serif_edge7 reflectedabout(z1,z8); +penlabels(1,2,3,4,5,6,7,8); +endchar; + +beginchar(CYR_te,round .8(11u#+s#),.8cap_height#,0); +x1=x2=.5w; +y1c=h; y2c=0; +y3=y4=h-1/2slab; x3e=s; x1-x3e=x4e-x1; +serif(1,.8cap_stem,-90,.8*1.2cap_jut,.8*1.2cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +T_serif(3,cap_bar,round .8border_height,0); +T_serif(4,cap_bar,round .8border_height,1); +fill T_edge3; +fill T_edge4; +if x1c>x3: y5=y6=y7=y8=h-1/2cap_bar; x5=x3a; x6=x1c; x7=x1e; x8=x4a; +penpos5(cap_bar,90); penpos6(cap_bar,90); +penpos7(cap_bar,90); penpos8(cap_bar,90); +penstroke z5e--z6e; +penstroke z7e--z8e; fi +penlabels(range 1 thru 8); +endchar; + +beginchar(CYR_u,.8(13u#+s#),.8cap_height#,0); +x1l=s+.8cap_jut; y1l=.98h-cap_bar; +x3r=w-s-.8*.8cap_jut; y3r=.98h-cap_bar; +x4=33/60w; y4=6/53h; +numeric theta[]; +theta1 = angle(z4-z1l); +theta2 = angle(z4-z3r); +serif(1,.8cap_stem,theta1,.8cap_jut,.8cap_jut); +A_serif(3,cap_bar,theta2,.8*1.2cap_jut,.8*.8cap_jut); +z2 = z1r+whatever*dir theta1=z3l+whatever*dir theta2; +fill z4--serif_edge1--z2&z2--A_serif_edge3--z4&cycle; +z5r=z4; y6=0; x6=x4-.8*1.2cap_stem; z7l=z2; +penpos7(cap_bar,theta2+90); +penpos5(cap_bar,theta2+90); +penpos6(cap_bar,-90); +penstroke z7e--z5e{dir theta2}...{left}z6e; +z8=z6; +dl_drop(8,.8cap_drop_round,.8*2u,9/53h,cap_bar); +fill dl_drop_edge8; +penlabels(range 1 thru 8); +endchar; + +beginchar(CYR_ef,round .8(14u#+s#),.8cap_height#,0); +if .5w = good.x .5w: change_width; fi +x1=x2=.5w; y2c=0; y1h=h; +y6=y7=y8=y9=.8*1.3cap_jut; y4=y3=y11=y12=h-.8*1.3cap_jut+1/2slab; +x3=x7=x2l; x8=x12=x2r; x4=x6=x3-.8u; x11=x9=x12+.8u; +x5=s+.8*1/2cap_curve; x10-x1=x1-x5; y4-y5=y5-y6; y10=y5; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +penpos3(cap_bar,90); +penpos4(cap_bar,90); +penpos5(.8cap_curve,180); +penpos6(cap_bar,270); +penpos7(cap_bar,270); +penpos8(cap_bar,-90); +penpos9(cap_bar,-90); +penpos10(.8cap_curve,0); +penpos11(cap_bar,90); +penpos12(cap_bar,90); +penstroke z3e--z4e{left}..tension.9..{down}z5e{down}..tension.9..{right}z6e--z7e; +penstroke z8e--z9e{right}..tension.9..{up}z10e{up}..tension.9..{left}z11e--z12e; +penlabels (range 1 thru 12); +endchar; + +beginchar(CYR_ha,.8(12u#+s#),.8cap_height#,0); +y3=y4=slab; x3=w-s-.8cap_jut-.8*1/2cap_stem; x4=s+.8cap_jut+1/2slab; +y1=y2=h-slab; x1=s+.8cap_jut+.8*1/2cap_stem+c; x2=w-s-.8*1.5c-.8cap_jut-1/2slab; +numeric theta[]; +theta1 = angle(z1-z3); +theta2 = angle(z2-z4); +serif(1,.8cap_stem,theta1-180,.8cap_jut,.8cap_jut); +A_serif(2,.8*1.2cap_bar,theta2-180,.8cap_jut,.8cap_jut); +serif(3,.8cap_stem,theta1,.8cap_jut,.8cap_jut); +A_serif(4,.8*1.2cap_bar,theta2,.8cap_jut,.8cap_jut); +fill serif_edge3--reverse serif_edge1--cycle; +fill A_serif_edge4--reverse A_serif_edge2--cycle; +penlabels(1,2,3,4); +endchar; + +beginchar(CYR_tse,.8(12.5u#+s#),.8cap_height#,.8comma_depth#); +x1=x2=x5=.8cap_jut+.8*1/2cap_stem+s; +x3=x4=x6=w-x1-.8*.5u; y5=y6=y2h; +y1c=y3c=h; y2c=y4c=0; x7e=w-s; y7=y2h; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +serif(3,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(4,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +fill serif_edge4--reverse serif_edge3--cycle; +penpos5(cap_bar,90); penpos6(cap_bar,90); +penstroke z5e--z6e; +T_serif(7,cap_bar,.8border_height,1); +fill T_edge7; +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar(CYR_che,.8(12u#+s#),.8cap_height#,0); +x1=.8cap_jut+.8*1/2cap_stem+s; +x2=x3=w-x1; +y1c=y2c=h; y3c=0; y4=y4r=y4l=30/52h; x4=x1; x4r=x1r; x4l=x1l; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(3,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill z4r--reverse serif_edge1--z4l--cycle; +fill serif_edge3--reverse serif_edge2--cycle; +x5=x2l; y5=.8cap_bar_height-1/2cap_bar; z6=z4; +x5-x7=x7-x4r; y7=y5-.7*2cap_bar; +penpos6(.8cap_stem,180); +penpos5(vair,270); +penpos7(vair,270); +penstroke z6e{down}...z7e..z5e; +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar(CYR_sha,.8(16u#+s#),.8cap_height#,0); +if .5w <> good.x .5w: change_width; fi +x1=x2=good.x (.8cap_jut+.8*1/2cap_stem+s); +y1c=h; y2c=0; x3=x2e; y3=y4=y7=y8=y2h; +x4=x6c; x7=x6d; x8=x9c; +x5=x6=good.x .5w; y5=y1; y6=y2; +y9b=slab; x9=good.x w-x1; +x10=x9; y10b=h-slab; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +serif(5,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(6,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge6--reverse serif_edge5--cycle; +serif(9,.8cap_stem,90,.8cap_jut,.8cap_jut); +serif(10,.8cap_stem,-90,.8cap_jut,.8cap_jut); +fill serif_edge9--reverse serif_edge10--cycle; +penpos3(slab,90); +penpos4(slab,90); +penpos7(slab,90); +penpos8(slab,90); +penstroke z3e--z4e; +penstroke z7e--z8e; +penlabels(range 1 thru 10); +endchar; + +beginchar(CYR_shcha,.8(16.5u#+s#),.8cap_height#,.8comma_depth#); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +y1c=h; y2c=0; x3=x2e; y3=y4=y7=y8=y2h; +x4=x6c; x7=x6d; x8=x9c; +y9b=slab; x9h=w-s-.8*.5u; +x10=x9; y10b=h-slab; +x11e=w-s; y11=y9h; +serif(9,.8cap_stem,90,.8cap_jut,.8cap_jut); +serif(10,.8cap_stem,-90,.8cap_jut,.8cap_jut); +fill serif_edge9--reverse serif_edge10--cycle; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +x5=x6=x1+(x10-x1)/2; y5=y1; y6=y2; +serif(5,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(6,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge6--reverse serif_edge5--cycle; +penpos3(slab,90); +penpos4(slab,90); +penpos7(slab,90); +penpos8(slab,90); +penstroke z3e--z4e; +penstroke z7e--z8e; +T_serif(11,slab,.8border_height,1); +fill T_edge11; +penlabels(range 1 thru 11); +endchar; + +beginchar(CYR_hard_sign,.8(13.5u#+c#),.8cap_height#,0); +x2r=x5-sss_width; x1=x2; x8e=s; y8g=h; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +x7=x1d; y1c=h; y2c=0; +y4-y5=y5-y6; x5=w-1/2cap_curve-s; +y3=y4=.8cap_bar_height; x3=x2r; x4=x6=round(x3+3.5u-.8cap_stem); +y6=y7=y2h; +fill serif_edge2--reverse serif_edge1--cycle; +T_serif(8,cap_bar,.8border_height,0); +fill T_edge8; +penpos3(cap_bar,90); +penpos4(cap_bar,90); +penpos5(.8cap_curve,0); +penpos6(cap_bar,-90); +penpos7(cap_bar,-90); +penstroke z3e--z4e{right}..tension.8..z5e..tension.8..{left}z6e--z7e; +penlabels(1,2,3,4,5,6,7,8); +endchar; + +beginchar(CYR_yeru,.8(16u#+c#),.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +x7=x1d; y1c=h; y2c=0; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +y3=y4=.8cap_bar_height; x3=round x2r; x4=x6=round (x3+3.5u-.8cap_stem) - 1; +y4-y5=y5-y6; x5=x2r+sss_width; y8b=slab; x8h=w-s; +y6=y7=y2h; x9=x8; y9b=h-slab; +fill serif_edge2--reverse serif_edge1--cycle; +serif(8,.8cap_stem,90,.8cap_jut,.8cap_jut); +serif(9,.8cap_stem,-90,.8cap_jut,.8cap_jut); +fill serif_edge8--reverse serif_edge9--cycle; +penpos3(cap_bar,90); +penpos4(cap_bar,90); +penpos5(.8cap_curve,0); +penpos6(cap_bar,-90); +penpos7(cap_bar,-90); +penstroke z3e--z4e{right}..tension.8..z5e..tension.8..{left}z6e--z7e; +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar(CYR_soft_sign,.8(11u#+s#),.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +x7=x1d; y1c=h; y2c=0; +y3=y4=.8cap_bar_height; x3=x2r; x4=x6=x3+3.5u-.8cap_stem; +y4-y5=y5-y6; x5=w-.8*1/2cap_curve-s; +y6=y7=y2h; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +penpos3(cap_bar,90); +penpos4(cap_bar,90); +penpos5(.8cap_curve,0); +penpos6(cap_bar,-90); +penpos7(cap_bar,-90); +penstroke z3e--z4e{right}..tension.8..z5e..tension.8..{left}z6e--z7e; +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar(CYR_e,.8(10u#+.5s#),.8cap_height#,0); +x1=16/39w; x5=.5w; y1=0; y5=h; +y7=.5h; x7=w-.8*1/2cap_curve-s; +x9e=s; y9=0; +dl_drop(9,.8cap_drop_round,16/39w-s,.8*1.6cap_drop_round,slab); +y8=.09h-c; y6=.91h+c; x8=x9+8/16(x7-x9); x6=x5+8/16(x7-x5); +penpos5(cap_bar,-90); +penpos6(.8o,-150); +penpos7(.8cap_curve,-180); +penpos8(.8o,-210); +penpos1(cap_bar,-270); +penstroke z5e{right}..z6e..{down}z7e{down}..z8e..{left}z1e; +y2=y5; x2=x5-c; +S_serif(2,slab,x1+c,.8*1.5border_height); +x3=x7-.8*1/2cap_stem; y3=y4=.8cap_bar_height; x4=x2b-x1; +penpos3(cap_bar,90); penpos4(cap_bar,90); +penstroke z3e--z4e; fill z4r..z4l..cycle; +fill S_serif_edge2 reflectedabout(z5r,z5l); +fill dl_drop_edge9; +penlabels(1,2,3,4,5,6,7,8); +endchar; + +beginchar(CYR_yu,.8(16u#+s#),.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +y1c=h; y2c=0; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +penpos9(vair,90); +penpos10(.8o,30); +penpos3(.8cap_curve,0); +penpos4(.8o,-30); +penpos5(vair,-90); +penpos6(.8o,-150); +penpos7(.8cap_curve,-180); +penpos8(.8o,-210); +y3=y7=.5h; x7=w-.8*1/2cap_curve-s; x3=x7-.8cap_o_width; y9=0; y5=h; x7-x5=x5-x3; x9=x5; +y10=y8=.09h-c; y4=y6=.91h+c; x10=x4=x3+8/16(x5-x3); x6=x8=x5+8/16(x7-x5); +penstroke z9e..z10e..z3e..z4e..z5e..z6e..z7e..z8e..cycle; +x11=x1r; x12=x3-.8*1/3cap_stem; y11=y12=.8cap_bar_height; +penpos11(cap_bar,90); penpos12(cap_bar,90); +penstroke z11e--z12e; +penlabels(range 1 thru 12); +endchar; + +beginchar(CYR_ya,.8(11u#+s#),.8cap_height#,0); +x1=x2=w-.8cap_jut-.8*1/2cap_stem-s; +y6=y10=y7=.8cap_bar_height; y3=y4=h-1/2slab; x7=x2l; +y1c=h; y2c=0; x6=x4=x7-2.2u; x3=x1c; +y4-y5=y5-y6; x5=x8-1.8c; x9=s; y9=0; y6-y8=y8-y9; x7-x10=3(x10-x6); x10-x8=x8-x9; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +penpos3(cap_bar,90); +penpos4(cap_bar,90); +penpos5(.8cap_curve,180); +penpos7(cap_bar,270); +penpos6(cap_bar,270); +penpos8(.8cap_curve,0); +penpos9(cap_bar,-90); +penpos10(cap_bar,-90); +penstroke z3e--z4e{left}..tension.9..z5e..tension.9..{right}z6e--z7e; +penstroke z9e{right}..tension1..{up}z8e{up}..tension1..{right}z10e; +fill z9l..z9r..cycle; +penlabels(range 1 thru 10); +endchar; + +beginchar("A",13u#+s#,cap_height#,0); +z1=(.5w,h+1/13h); +x4l=w-x5r=s+cap_jut; y4l=y5r=slab; +numeric theta[]; +theta4=angle(z1-z4l); +theta5=angle(z1-z5r); +A_serif(4,1.3cap_bar,theta4,cap_jut,1.2cap_jut); +serif(5,cap_stem,theta5,cap_jut,cap_jut); +z0=z4r+whatever*dir theta4=z5l+whatever*dir theta5; +fill z1--A_serif_edge4--z0&z0--serif_edge5--z1&cycle; +penpos2(whatever,theta4); +penpos3(whatever,theta5); +y2r=y3r=20/52h; +y2l=y3l=y2r-cap_bar; +z2=whatever[z1,z4r]; +z3=whatever[z1,z5l]; +penstroke z2e--z3e; +y6=y7=h; z6=whatever[z1,z4l]; z7=whatever[z1,z5r]; +unfill z1..z6--z7..z1&cycle; +unfill z1..z6--z7..z1&cycle; +penlabels(range 0 thru 7); +endchar; + +beginchar("B",11u#+s#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +x3=x10=x1d; y3=y4=h-1/2slab; x4=x3+u; +y1c=h; y2c=0; +y6=y7=cap_bar_height; x6=x2r; x7=x9=x6+4.5u-cap_stem; +y7-y8=y8-y9; x8=w-1/2cap_curve-s; +y9=y10=y2h; +y4-y5=y5-y7; x5=x8-2/5cap_curve; y77=y7; x77=x4; +serif(1,cap_stem,-90,1/2cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +penpos3(slab,90); +penpos4(slab,90); +penpos5(cap_curve,0); +penpos77(slab,-90); +fill serif_edge2--reverse serif_edge1--cycle; +penpos6(cap_bar,90); +penpos7(cap_bar,90); +penpos8(cap_curve,0); +penpos9(cap_bar,-90); +penpos10(cap_bar,-90); +penstroke z3e--z4e{right}..tension.8..z5e..tension.8..{left}z77e; +penstroke z6e--z7e{right}..tension.8..z8e..tension.8..{left}z9e--z10e; +penlabels(range 1 thru 10,77); +endchar; + +beginchar("C",10u#+s#,cap_height#,0); +x1=x5=23/42w; y1=0; y5=h; +y3=.5h; x3=1/2cap_curve+s; +y2=0.1h-c; y4=0.9h+c; x2=x4=x3+7/16(x1-x3); +penpos1(cap_bar,90); +penpos2(o,30); +penpos3(cap_curve,0); +penpos4(o,-30); +penpos5(cap_bar,-90); +penstroke z1e{left}..z2e..z3e..z4e..{right}z5e; +z6=z5; y7=y1; x7e=w-s; y8=y1; x8=x1-.1w; +S_serif(6,slab,w-s-c-x1,1.5border_height); +S_serif(7,slab,w-s-x1,1.5border_height); +fill S_serif_edge6; fill S_serif_edge7 reflectedabout(z1,z8); +penlabels(range 1 thru 8); +endchar; + +beginchar("D",12u#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +y1c=h; y2c=0; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +penpos3(cap_bar,90); +penpos4(cap_bar,90); +penpos5(o,30); +penpos6(cap_curve,0); +penpos7(o,-30); +penpos8(cap_bar,-90); +penpos9(cap_bar,-90); +x3=x9=x1d; +x8=x4=.5w; y8=y9=1/2cap_bar; y4=y3=h-1/2cap_bar; +y6=.5h; x6=w-1/2cap_curve-s; +y7=0.1h-c+1/2cap_bar; y5=0.9h+c-1/2cap_bar; x5=x7=x4+5/8(x6-x4); +penstroke z3e--z4e{right}..z5e..z6e..z7e..{left}z8e--z9e; +penlabels(range 1 thru 10,77); +endchar; + +beginchar("E",10u#+s#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +y4=y3=h-1/2slab; x4=x1d; +y1c=h; y2c=0; +y5=y3; x5e=w-s-c; +y6=y7=y8=cap_bar_height;x6=x1r; x7=x8=x6+u; +T_serif(5,slab,border_height,1); +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +x3=x5a; +penpos3(cap_bar,-90); +penpos4(cap_bar,-90); +penstroke z3e--z4e; +fill T_edge5; +penpos6(cap_bar,90); +penpos7(cap_bar,90); +penstroke z6e--z7e; +T_serif(8,cap_bar,.8border_height,1); +fill T_edge8; +fill T_edge8 reflectedabout(z6,z7); +y9=y10=y11=y2h; x9=x2d; x11e=w-s; +T_serif(11,cap_bar,border_height,1); x10=x11; +penpos9(cap_bar,90); +penpos10(cap_bar,90); +penstroke z9e--z10e; +fill T_edge11 reflectedabout(z9,z10); +penlabels(range 1 thru 11); +endchar; + +beginchar("F",10u#+.5s#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +y4=y3=h-1/2slab; x4=x1d; +y1c=h; y2c=0; +y5=y3; x5e=w-s; +y6=y7=y8=cap_bar_height;x6=x1r; x7=x8=x6+u; +T_serif(5,slab,border_height,1); +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +x3=x5a; +penpos3(cap_bar,-90); +penpos4(cap_bar,-90); +penstroke z3e--z4e; +fill T_edge5; +penpos6(cap_bar,90); +penpos7(cap_bar,90); +penstroke z6e--z7e; +T_serif(8,cap_bar,.8border_height,1); +fill T_edge8; +fill T_edge8 reflectedabout(z6,z7); +penlabels(range 1 thru 8); +endchar; + +beginchar("G",10u#+cap_jut#+c#+s#,cap_height#,0); +x1=x5=23/42(w-cap_jut-c); y1=0; y5=h; +y3=.5h; x3=1/2cap_curve+s; +y2=.09h-c; y4=.91h+c; x2=x4=x3+8/16(x1-x3); +penpos1(cap_bar,90); +penpos2(o,30); +penpos3(1.1cap_curve,0); +penpos4(o,-30); +penpos5(cap_bar,-90); +penstroke z1e{left}..z2e..z3e..z4e..{right}z5e; +z6=z5; y7=y1; x7e=w-s-cap_jut-c; y8=y1; x8=x1-.1(w-cap_jut-c); +S_serif(6,slab,w-s-2c-x1-cap_jut,1.5border_height); +S_serif(7,slab,w-s-x1-cap_jut+c,7/4border_height); +fill S_serif_edge6; fill S_serif_edge7 reflectedabout(z1,z8); +x9r=x7e; y9r=7/4border_height-1/2cap_bar; +serif(9,cap_stem,-90,cap_jut,cap_jut); +x10=x9l; x11=x9r; y10=y11=3/4cap_bar; +fill reverse serif_edge9--z10--z11--cycle; +penlabels(range 1 thru 8); +endchar; + +beginchar("H",12u#+s#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +x3=x4=w-x1; x5=x1r; x6=x3l; +y1c=y3c=h; y2c=y4c=0; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +serif(3,cap_stem,-90,cap_jut,cap_jut); +serif(4,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +fill serif_edge4--reverse serif_edge3--cycle; +penpos5(cap_bar,90); penpos6(cap_bar,90); +y5=y6=cap_bar_height; penstroke z5e--z6e; +penlabels(1,2,3,4,5,6); +endchar; + +beginchar("I",2cap_jut#+cap_stem#+2s#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +y1c=h; y2c=0; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +endchar; + +beginchar("J",7u#+s#,cap_height#,0); +x1=x4=w-cap_jut-1/2cap_stem-s; +y1c=h; y2=y3=y4=13/53h; x2=x1r; x3=x1l; +y5=0; x5=x3-.6cap_stem; +serif(1,cap_stem,-90,1.2cap_jut,cap_jut); +fill z3--z2--reverse serif_edge1--cycle; +penpos4(cap_stem,0); +penpos5(cap_bar,-90); +penstroke z4e{down}..{left}z5e; +x6e=s; y6=0; +dl_drop(6,cap_drop_round,x5-s,1.3drop_round,cap_bar); +fill dl_drop_edge6; +penlabels(1,2,3,4,5,6); +endchar; + +beginchar("K",13u#-c#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +y1c=h; y2c=0; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +y7=cap_bar_height; x3l=w-cap_jut-.5cap_jut-cap_bar-s; y3l=h-cap_bar; +x5=x6=x1r; y5=cap_bar_height-cap_bar; y6=y5-1.2cap_bar; +numeric theta[]; +theta1=angle(z5-z3l); +A_serif(3,cap_bar,theta1,1.5cap_jut,.6cap_jut); +x4l=w-s-1.2cap_jut-cap_stem; y4l=cap_bar; +z7=z3r+whatever*dir theta1; +theta2=angle(z7-z4l); +serif(4,cap_stem,theta2,.8cap_jut,cap_jut); +z8=z3r+whatever*dir theta1=z4r+whatever*dir theta2; +fill z5--z6--z7--serif_edge4--z8--reverse A_serif_edge3--cycle; +penlabels(range 1 thru 8); +endchar; + +beginchar("L",10u#+c#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +y1c=h; y2c=0; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +y3=y4=y5=y2h; x3=x2d; x5e=w-s; +T_serif(5,cap_bar,border_height,1); x4=x5; +penpos3(cap_bar,90); +penpos4(cap_bar,90); +penstroke z3e--z4e; +fill T_edge5 reflectedabout(z3,z4); +penlabels(1,2,3,4,5); +endchar; + +beginchar("M",13u#+1.5s#,cap_height#,0); +x1g=s; y1c=0; y2=h-cap_bar; +A_serif(1,cap_bar,90,jut,jut); +x2=x1; serif(2,cap_bar,-90,jut,jut); +fill A_serif_edge1--reverse serif_edge2--cycle; +x3h=x4h=w-s; y3g=h-1/2cap_bar; y4c=0; +serif(3,cap_stem,-90,.51cap_bar, jut); +serif(4,cap_stem,90,jut,jut); +fill serif_edge4--reverse serif_edge3--cycle; +z5l=z3g; penpos5(bar,0); penpos6(bar,0); +z6=z5+whatever*dir -108; y6=0; +penstroke z5e--z6e; +z7l=z6l+whatever*dir 109; y7l=10/54h; +z8l=whatever[z6l,z7l]; y8l=h; +penpos7(cap_stem,0); penpos8(cap_stem,0); +penstroke z7e--z8e; fill z6l--z7l--z7r--cycle; +fill z6l..tension1.3..z6r..tension1.3..cycle; +penlabels(range 1 thru 8); +endchar; + +beginchar("N",12u#,cap_height#,0); +x1=x2=cap_jut+1/2cap_bar+s; +x3=w-x1; y1c=y3c=h; y2c=y4=y5=0; +x4=x3r; x5=x3l; +serif(1,cap_bar,-90,cap_jut,1.3cap_jut); +A_serif(2,cap_bar,90,cap_jut,cap_jut); +A_serif(3,cap_bar,-90,cap_jut,cap_jut); +fill A_serif_edge2--reverse serif_edge1--cycle; +numeric theta[]; y7=y1h; x7=x1h-1.1cap_stem; +theta1=angle(z5-z7); +z6=z3l+whatever*dir -90=z1h+whatever*dir theta1; +fill z6--z1h--z7--z5{down}..{up}z4--reverse A_serif_edge3--cycle; +unfill z1b--z1l--z1a--cycle; +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar("O",11u#+s#,cap_height#,0); +penpos1(vair,90); +penpos2(o,30); +penpos3(cap_curve,0); +penpos4(o,-30); +penpos5(vair,-90); +penpos6(o,-150); +penpos7(cap_curve,-180); +penpos8(o,-210); +x1=x5=.5w; y1=0; y5=h; +y3=y7=.5h; x3=1/2cap_curve+s; x7=w-1/2cap_curve-s; +y2=y8=0.1h-c; y4=y6=0.9h+c; x2=x4=x3+7/16(x5-x3); x6=x8=x5+9/16(x7-x5); +penstroke z1e..z2e..z3e..z4e..z5e..z6e..z7e..z8e..cycle; +penlabels(range 1 thru 8); +endchar; + +beginchar("P",10u#+s#,cap_height#,0); +x1=x2=x3=cap_jut+1/2cap_stem+s; +y3=y4=cap_bar2_height; y7=y6=h-1/2slab; x7=x3+c; +y1c=h; y2c=0; x6=x4=x3+3u; +y5-y4=y6-y5; x5=w-1/2cap_curve-s; +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +penpos3(cap_bar,-90); +penpos4(cap_bar,-90); +penpos5(cap_curve,0); +penpos7(cap_bar,90); +penpos6(cap_bar,90); +penstroke z3e--z4e{right}..tension.8..z5e..tension.8..{left}z6e--z7e; +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar("Q",11u#+s#,cap_height#,comma_depth#); +penpos1(vair,90); +penpos2(o,30); +penpos3(cap_curve,0); +penpos4(o,-30); +penpos5(vair,-90); +penpos6(o,-150); +penpos7(cap_curve,-180); +penpos8(o,-210); +x1=x5=.5w; y1=0; y5=h; +y3=y7=.5h; x3=1/2cap_curve+s; x7=w-1/2cap_curve-s; +y2=y8=0.1h-c; y4=y6=0.9h+c; x2=x4=x3+7/16(x5-x3); x6=x8=x5+9/16(x7-x5); +penstroke z1e..z2e..z3e..z4e..z5e..z6e..z7e..z8e..cycle; +x11=x12-1.5c; x12=x7l-c; y11=y12=-comma_depth; +y9=0; x9=x1-c; y9-y10=y10-y11; x11-x10=x10-x9; +penpos9(cap_bar,90); penpos10(cap_curve,0); +penpos11(cap_bar,90); penpos12(cap_bar,90); +penstroke z9e{dir -20}..tension.8..z10e..tension.8..{right}z11e--z12e; +fill z12r..z12l..cycle; +penlabels(range 1 thru 12); +endchar; + +beginchar("R",11u#+s#,cap_height#,0); +x1=x2=cap_jut+1/2cap_stem+s; +y6=y10=y7=cap_bar_height; y3=y4=h-1/2slab; x7=x2r; +y1c=h; y2c=0; x6=x4=x7+2.5u; x3=x1d; +y4-y5=y5-y6; x5=x8; x9=w-s-1/2cap_bar; y9=0; y6-y8=y8-y9; x10=x6; x9-x8=6/7(x8-x10); +serif(1,cap_stem,-90,cap_jut,cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +penpos3(cap_bar,90); +penpos4(cap_bar,90); +penpos5(cap_curve,0); +penpos7(cap_bar,-90); +penpos6(cap_bar,-90); +penpos8(cap_curve,-180); +penpos9(cap_bar,-90); +penpos10(cap_bar,-90); +penstroke z3e--z4e{right}..tension1..z5e..tension1..{left}z6e--z7e; +penstroke z9e{left}..tension.9..{up}z8e{up}..tension.9..{left}z10e; +fill z9l..z9r..cycle; +penlabels(range 1 thru 10); +endchar; + +beginchar("S",9u#+s#,cap_height#,0); +x6=x7=1/2w; y6=y7=0; +S_serif(7,cap_bar,x6-s,1.5border_height); +y5=11/53h; x5=w-s-1/2(1.9hair); +y4=28/53h; x4=18/38w; y3=42/53h; x3=s+c+1/2(1.9cap_bar); +x2=.5w-c; y2=h; z1=z2; +penpos6(cap_bar,-90); +penpos5(1.9hair,0); +penpos4(1.1cap_curve,80); +penpos3(1.9hair,0); +penpos2(cap_bar,-90); +penstroke z6e{right}..tension.9..z5e..tension.9..z4e..tension.9..z3e..tension.9..{right}z2e; +fill S_serif_edge7 rotatedaround(z6,180); +S_serif(1,cap_bar,x5-x2-cap_bar,1.2border_height); +fill S_serif_edge1; +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar("T",round (11u#+s#),cap_height#,0); +x1=x2=.5w; +y1c=h; y2c=0; +y3=y4=h-1/2slab; x3e=s; x1-x3e=x4e-x1; +serif(1,cap_stem,-90,1.2cap_jut,1.2cap_jut); +serif(2,cap_stem,90,cap_jut,cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +T_serif(3,cap_bar,round border_height,0); +T_serif(4,cap_bar,round border_height,1); +fill T_edge3; +fill T_edge4; +if x1c>x3: y5=y6=y7=y8=h-1/2cap_bar; x5=x3a; x6=x1c; x7=x1e; x8=x4a; +penpos5(cap_bar,90); penpos6(cap_bar,90); +penpos7(cap_bar,90); penpos8(cap_bar,90); +penstroke z5e--z6e; +penstroke z7e--z8e; fi +penlabels(range 1 thru 8); +endchar; + +beginchar("U",12u#+s#,cap_height#,0); +x1=cap_jut+1/2cap_stem+s; +x3=w-s-cap_jut-1/2cap_bar; +y1c=y3c=h; y2=y4=y5=y6=y24=y56=16/53h; x2=x1l; +x4=x1r; x5=x3l; x6=x3r; +serif(1,cap_stem,-90,cap_jut,cap_jut); +A_serif(3,cap_bar,-90,cap_jut,cap_jut); +fill z2--z4--reverse serif_edge1--cycle; +fill z5--z6--reverse A_serif_edge3--cycle; +x7=x1+.5(x3-x1); y7=0; x4-x24=x24-x2; x6-x56=x56-x5; +penpos24(cap_stem,-180); penpos7(vair,-90); +penpos56(cap_bar,0); +penstroke z24e{down}..tension.9..{right}z7e{right}..tension.9..{up}z56e; +penlabels(range 1 thru 7,24,56); +endchar; + +beginchar("V",12u#,cap_height#,0); +x1l=cap_jut+s; +x3r=w-s-cap_jut; +y1l=y3r=h-cap_bar; x4=.5w-1/2cap_bar; x5=.5w+1/2cap_bar; +y4=y5=1/2cap_bar; +numeric theta[]; +theta1=angle(z4-z1l); +theta2=angle(z5-z3r); +serif(1,cap_stem,theta1,cap_jut,cap_jut); +A_serif(3,cap_bar,theta2,1.3cap_jut,cap_jut); +z2=z1r+whatever*dir theta1=z3l+whatever*dir theta2; +fill z4{down}..{up}z5--reverse A_serif_edge3--z2--reverse serif_edge1--z4&cycle; +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar("W",17u#,cap_height#,0); +x9l=.5w-.3cap_stem; +x7r=w-s-cap_jut; +y9l=y7r=y1l=h-cap_bar; x5=x9l+.5(x7r-x9l)-1/2cap_bar; x6=x9l+.5(x7r-x9l)+1/2cap_bar; +y5=y6=y2=y3=1/2cap_bar; +numeric theta[]; +theta1=angle(z5-z9l); +theta2=angle(z6-z7r); +serif(9,cap_stem,theta1,cap_jut,cap_jut); +A_serif(7,cap_bar,theta2,1.3cap_jut,cap_jut); +z8=z9r+whatever*dir theta1=z7l+whatever*dir theta2; +x1l=s+cap_jut; +serif(1,cap_stem,theta1,cap_jut,cap_jut); +z2=z1l+whatever*dir theta1; x3=x2+cap_bar; +z4=z3+whatever*dir (theta2-180)=z9l+whatever*dir theta1; +y11=y8; z11=z1r+whatever*dir theta1; +z10=z11+whatever*dir (theta2-180)=z9l+whatever*dir theta1; +fill z5{down}..{up}z6--reverse A_serif_edge7--z8--reverse serif_edge9--z10--z11--reverse serif_edge1--z2{down}..{up}z3--z4--z5&cycle; +penlabels(range 1 thru 11); +endchar; + +beginchar("X",12u#+s#,cap_height#,0); +y3=y4=slab; x3=w-s-cap_jut-1/2cap_stem; x4=s+cap_jut+1/2slab; +y1=y2=h-slab; x1=s+cap_jut+1/2cap_stem+c; x2=w-s-1.5c-cap_jut-1/2slab; +numeric theta[]; +theta1 = angle(z1-z3); +theta2 = angle(z2-z4); +serif(1,cap_stem,theta1-180,cap_jut,cap_jut); +A_serif(2,1.2cap_bar,theta2-180,cap_jut,cap_jut); +serif(3,cap_stem,theta1,cap_jut,cap_jut); +A_serif(4,1.2cap_bar,theta2,cap_jut,cap_jut); +fill serif_edge3--reverse serif_edge1--cycle; +fill A_serif_edge4--reverse A_serif_edge2--cycle; +penlabels(1,2,3,4); +endchar; + +beginchar("Y",12u#,cap_height#,0); +x1l=cap_jut+s; +x3r=w-s-cap_jut; +y1l=y3r=h-cap_bar; x4=.5w; +y4=8/25h; +numeric theta[]; +theta1=angle(z4-z1l); +theta2=angle(z4-z3r); +serif(1,cap_stem,theta1,cap_jut,cap_jut); +A_serif(3,cap_bar,theta2,1.3cap_jut,cap_jut); +z2=z1r+whatever*dir theta1=z3l+whatever*dir theta2; +y5c=0; x5=.5w+.5c; +serif(5,cap_stem,90,cap_jut,cap_jut); +x6=x5l; x7=x5r; +z6=z1l+whatever*dir theta1; +z7=z3r+whatever*dir theta2; +fill z6--serif_edge5--z7--reverse A_serif_edge3--z2--reverse serif_edge1--z6&cycle; +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar("Z",9u#+1.5s#,cap_height#,0); +x6=s+1/2cap_bar; y6=y7=y8=1/2cap_bar; +x8e=w-s; x7=x8; +T_serif(8,cap_bar,border_height,1); +penpos6(cap_bar,90); +penpos7(cap_bar,90); +penstroke z6e--z7e; fill z6r..z6l..cycle; +fill T_edge8 reflectedabout(z6,z7); +x9=w-s-c; y9=y10=0; x10=w-s; z11=z8d reflectedabout(z6,z7); +unfill z11{down}..z9--z10--cycle; +y5l=y6r; x5l=x6r-1/4cap_bar; +x4r=w-s-1/4cap_bar; y4=h-cap_bar; +penpos4(cap_stem,0); +penpos5(cap_stem,0); +penstroke z4e--z5e; +y3=y2=y1=h-1/2cap_bar; +x3=w-s-1/2cap_bar; x1e=s+c; +T_serif(1,cap_bar,border_height,0); +x2=x1; +penpos3(cap_bar,90); +penpos2(cap_bar,90); +penstroke z2e--z3e; fill z3l..z3r..cycle; +fill T_edge1; +x12=x1e; y12=y13=h; x13=x1e+.5c; +unfill z1d{up}..z13--z12--cycle; +penlabels(range 1 thru 13); +endchar; + +beginchar("a",.8(13u#+s#),.8cap_height#,0); +z1=(.5w,h+1/13h); +x4l=w-x5r=s+.8cap_jut; y4l=y5r=slab; +numeric theta[]; +theta4=angle(z1-z4l); +theta5=angle(z1-z5r); +A_serif(4,.8*1.3cap_bar,theta4,.8cap_jut,.8*1.2cap_jut); +serif(5,.8cap_stem,theta5,.8cap_jut,.8cap_jut); +z0=z4r+whatever*dir theta4=z5l+whatever*dir theta5; +fill z1--A_serif_edge4--z0&z0--serif_edge5--z1&cycle; +penpos2(whatever,theta4); +penpos3(whatever,theta5); +y2r=y3r=20/52h; +y2l=y3l=y2r-cap_bar; +z2=whatever[z1,z4r]; +z3=whatever[z1,z5l]; +penstroke z2e--z3e; +y6=y7=h; z6=whatever[z1,z4b]; z7=whatever[z1,z5r]; +unfill z1..z6--z7..z1&cycle; +unfill z1..z6--z7..z1&cycle; +penlabels(range 0 thru 7); +endchar; + +beginchar("b",.8(11u#+s#),.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +x3=x10=x1d; y3=y4=h-1/2slab; x4=x3+u; +y1c=h; y2c=0; +y6=y7=.8cap_bar_height; x6=x2r; x7=x9=x6+.8*4.5u-.8cap_stem; +y7-y8=y8-y9; x8=w-.8*1/2cap_curve-s; y9=y10=y2h; +y4-y5=y5-y7; x5=x8-.8*2/5cap_curve; y77=y7; x77=x4; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +penpos3(slab,90); +penpos4(slab,90); +penpos5(.8cap_curve,0); +penpos77(slab,-90); +fill serif_edge2--reverse serif_edge1--cycle; +penpos6(cap_bar,90); +penpos7(cap_bar,90); +penpos8(.8cap_curve,0); +penpos9(cap_bar,-90); +penpos10(cap_bar,-90); +penstroke z3e--z4e{right}..tension.9..z5e..tension.9..{left}z77e; +penstroke z6e--z7e{right}..tension.8..z8e..tension.8..{left}z9e--z10e; +penlabels(range 1 thru 10,77); +endchar; + +beginchar("c",.8(10u#+s#),.8cap_height#,0); +x1=x5=23/42w; y1=0; y5=h; +y3=.5h; x3=.8*1/2cap_curve+s; +y2=.09h-c; y4=.91h+c; x2=x4=x3+8/16(x1-x3); +penpos1(cap_bar,90); +penpos2(.8o,30); +penpos3(.8cap_curve,0); +penpos4(.8o,-30); +penpos5(cap_bar,-90); +penstroke z1e{left}..z2e..z3e..z4e..{right}z5e; +z6=z5; y7=y1; x7e=w-s; y8=y1; x8=x1-.1w; +S_serif(6,slab,w-s-.7c-x1,.8*1.5border_height); +S_serif(7,slab,w-s-x1,.8*1.5border_height); +fill S_serif_edge6; fill S_serif_edge7 reflectedabout(z1,z8); +penlabels(1,2,3,4,5,6,7,8); +endchar; + +beginchar("d",.8*12u#,.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +y1c=h; y2c=0; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +penpos3(cap_bar,90); +penpos4(cap_bar,90); +penpos5(.8o,30); +penpos6(.8cap_curve,0); +penpos7(.8o,-30); +penpos8(cap_bar,-90); +penpos9(cap_bar,-90); +x3=x9=x1d; +x8=x4=.5w; y8=y9=1/2cap_bar; y4=y3=h-1/2cap_bar; +y6=.5h; x6=w-.8*1/2cap_curve-s; +y7=.12h-c; y5=.88h+c; x5=x7=x4+4.3/8(x6-x4); +penstroke z3e--z4e{right}..z5e..z6e..z7e..{left}z8e--z9e; +penlabels(range 1 thru 10,77); +endchar; + +beginchar("e",.8(10u#+s#),.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +y4=y3=h-1/2slab; x4=x1d; +y1c=h; y2c=0; +y5=y3; x5e=w-s-.7c; +y6=y7=y8=.8cap_bar_height;x6=x1r; x7=x8=x6+.8u; +T_serif(5,slab,.8border_height,1); +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +x3=x5a; +penpos3(cap_bar,-90); +penpos4(cap_bar,-90); +penstroke z3e--z4e; +fill T_edge5; +penpos6(cap_bar,90); +penpos7(cap_bar,90); +penstroke z6e--z7e; +T_serif(8,cap_bar,.8*.8border_height,1); +fill T_edge8; +fill T_edge8 reflectedabout(z6,z7); +y9=y10=y11=y2h; x9=x2d; x11e=w-s; +T_serif(11,cap_bar,.8border_height,1); x10=x11; +penpos9(cap_bar,90); +penpos10(cap_bar,90); +penstroke z9e--z10e; +fill T_edge11 reflectedabout(z9,z10); +penlabels(range 1 thru 11); +endchar; + +beginchar("f",.8(10u#+.5s#),.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +y4=y3=h-1/2slab; x4=x1d; +y1c=h; y2c=0; y5=y3; x5e=w-s; +y6=y7=y8=.8*cap_bar_height;x6=x1r; x7=x8=x6+.8u; +T_serif(5,slab,.8border_height,1); +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +x3=x5a; penpos3(cap_bar,-90); +penpos4(cap_bar,-90); +penstroke z3e--z4e; +fill T_edge5; +penpos6(cap_bar,90); +penpos7(cap_bar,90); +penstroke z6e--z7e; +T_serif(8,cap_bar,.8*.8border_height,1); +fill T_edge8; +fill T_edge8 reflectedabout(z6,z7); +penlabels(range 1 thru 8); +endchar; + +beginchar("g",.8(10u#+cap_jut#+c#+s#),.8cap_height#,0); +x1=x5=23/42(w-.8cap_jut-c); y1=0; y5=h; +y3=.5h; x3=.8*1/2cap_curve+s; +y2=.095h-c; y4=.905h+c; x2=x4=x3+8/16(x1-x3); +penpos1(cap_bar,90); +penpos2(.8o,30); +penpos3(.9cap_curve,0); +penpos4(.8o,-30); +penpos5(cap_bar,-90); +penstroke z1e{left}..z2e..z3e..z4e..{right}z5e; +z6=z5; y7=y1; x7e=w-s-.8cap_jut; y8=y1; x8=x1-.1(w-.8cap_jut-.8c); +S_serif(6,slab,w-s-.8*2c-x1-.8cap_jut,.8*1.5border_height); +S_serif(7,slab,w-s-x1-.8cap_jut+.8c,.8*7/4border_height); +fill S_serif_edge6; fill S_serif_edge7 reflectedabout(z1,z8); +x9r=x7e; y9r=.75*7/4border_height-1/2cap_bar; +serif(9,.8cap_stem,-90,.8cap_jut,.8cap_jut); +x10=x9l; x11=x9r; y10=y11=3/4cap_bar; +fill reverse serif_edge9--z10--z11--cycle; +penlabels(range 1 thru 8); +endchar; + +beginchar("h",.8(12u#+s#),.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +x3=x4=w-x1; x5=x1r; x6=x3l; +y1c=y3c=h; y2c=y4c=0; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +serif(3,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(4,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +fill serif_edge4--reverse serif_edge3--cycle; +penpos5(cap_bar,90); penpos6(cap_bar,90); +y5=y6=.8cap_bar_height; penstroke z5e--z6e; +penlabels(1,2,3,4,5,6); +endchar; + +beginchar("i",.8(2cap_jut#+cap_stem#+2s#),.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +y1c=h; y2c=0; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +endchar; + +beginchar("j",.8(7u#+s#),.8cap_height#,0); +x1=x4=w-.8cap_jut-.8*1/2cap_stem-s; +y1c=h; y2=y3=y4=13/53h; x2=x1r; x3=x1l; +y5=0; x5=x3-.8*.55cap_stem; +serif(1,.8cap_stem,-90,.8*1.2cap_jut,.8cap_jut); +fill z3--z2--reverse serif_edge1--cycle; +penpos4(.8cap_stem,0); +penpos5(cap_bar,-90); +penstroke z4e{down}..{left}z5e; +x6e=s; y6=0; +dl_drop(6,.8cap_drop_round,x5-s,.8*1.3drop_round,cap_bar); +fill dl_drop_edge6; +penlabels(1,2,3,4,5,6); +endchar; + +beginchar("k",.8(13u#-c#),.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +y1c=h; y2c=0; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +y7=.8cap_bar_height; x3l=w-.8cap_jut-.8*.5cap_jut-cap_bar-c; y3l=h-cap_bar; +x5=x6=x1r; y5=.8cap_bar_height-cap_bar; y6=y5-1.2cap_bar; +numeric theta[]; +theta1=angle(z5-z3l); +A_serif(3,cap_bar,theta1,.8*1.5cap_jut,.8*.6cap_jut); +x4l=w-s-.8*1.2cap_jut-.8cap_stem; y4l=cap_bar; +z7=z3r+whatever*dir theta1; +theta2=angle(z7-z4l); +serif(4,.8cap_stem,theta2,.8*.8cap_jut,.8cap_jut); +z8=z3r+whatever*dir theta1=z4r+whatever*dir theta2; +fill z5--z6--z7--serif_edge4--z8--reverse A_serif_edge3--cycle; +penlabels(range 1 thru 8); +endchar; + +beginchar("l",.8(10u#+c#),.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +y1c=h; y2c=0; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +y3=y4=y5=y2h; x3=x2d; x5e=w-s; +T_serif(5,cap_bar,.8border_height,1); x4=x5; +penpos3(cap_bar,90); +penpos4(cap_bar,90); +penstroke z3e--z4e; +fill T_edge5 reflectedabout(z3,z4); +penlabels(1,2,3,4,5); +endchar; + +beginchar("m",.8(13u#+s#),.8cap_height#,0); +x1g=s; y1c=0; y2=h-cap_bar; +A_serif(1,cap_bar,90,.8jut,.8jut); +x2=x1; serif(2,cap_bar,-90,jut,jut); +fill A_serif_edge1--reverse serif_edge2--cycle; +x3h=x4h=w-s; y3g=h-1/2cap_bar; y4c=0; +serif(3,.8cap_stem,-90,.51cap_bar,.8jut); +serif(4,.8cap_stem,90,.8jut,.8jut); +fill serif_edge4--reverse serif_edge3--cycle; +z5l=z3g; penpos5(bar,0); penpos6(bar,0); +z6=z5+whatever*dir -108; y6=0; +penstroke z5e--z6e; +z7l=z6l+whatever*dir 106; y7l=11/54h; +z8l=whatever[z6l,z7l]; y8l=h; +penpos7(.8cap_stem,0); penpos8(.8cap_stem,0); +penstroke z7e--z8e; fill z6l--z7l--z7r--cycle; +fill z6l..tension1.3..z6r..tension1.3..cycle; +penlabels(range 1 thru 8); +endchar; + +beginchar("n",.8*12u#,.8cap_height#,0); +x1=x2=.8cap_jut+1/2cap_bar+s; +x3=w-x1; y1c=y3c=h; y2c=y4=y5=0; +x4=x3r; x5=x3l; +serif(1,cap_bar,-90,.8cap_jut,.8*1.3cap_jut); +A_serif(2,cap_bar,90,.8cap_jut,.8cap_jut); +A_serif(3,cap_bar,-90,.8cap_jut,.8cap_jut); +fill A_serif_edge2--reverse serif_edge1--cycle; +numeric theta[]; y7=y1h; x7=x1h-.8*1.1cap_stem; +theta1=angle(z5-z7); +z6=z3l+whatever*dir -90=z1h+whatever*dir theta1; +fill z6--z1h--z7--z5{down}..{up}z4--reverse A_serif_edge3--cycle; +unfill z1b--z1l--z1a--cycle; +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar("o",.8(11u#+s#),.8cap_height#,0); +penpos1(vair,90); +penpos2(.8o,30); +penpos3(.8cap_curve,0); +penpos4(.8o,-30); +penpos5(vair,-90); +penpos6(.8o,-150); +penpos7(.8cap_curve,-180); +penpos8(.8o,-210); +x1=x5=.5w; y1=0; y5=h; +y3=y7=.5h; x3=.8*1/2cap_curve+s; x7=w-.8*1/2cap_curve-s; +y2=y8=.09h-c; y4=y6=.91h+c; x2=x4=x3+8/16(x5-x3); x6=x8=x5+8/16(x7-x5); +penstroke z1e..z2e..z3e..z4e..z5e..z6e..z7e..z8e..cycle; +penlabels(1,2,3,4,5,6,7,8); +endchar; + +beginchar("p",.8(10u#+s#),.8cap_height#,0); +x1=x2=x3=.8cap_jut+.8*1/2cap_stem+s; +y3=y4=.8cap_bar2_height; y7=y6=h-1/2slab; x7=x3+c; +y1c=h; y2c=0; x6=x4=x3+.8*3u; +y5-y4=y6-y5; x5=w-.8*1/2cap_curve-s; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +penpos3(cap_bar,-90); +penpos4(cap_bar,-90); +penpos5(.8cap_curve,0); +penpos7(cap_bar,90); +penpos6(cap_bar,90); +penstroke z3e--z4e{right}..tension.8..z5e..tension.8..{left}z6e--z7e; +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar("q",.8(11u#+s#),.8cap_height#,.8comma_depth#); +penpos1(vair,90); +penpos2(.8o,30); +penpos3(.8cap_curve,0); +penpos4(.8o,-30); +penpos5(vair,-90); +penpos6(.8o,-150); +penpos7(.8cap_curve,-180); +penpos8(.8o,-210); +x1=x5=.5w; y1=0; y5=h; +y3=y7=.5h; x3=.8*1/2cap_curve+s; x7=w-.8*1/2cap_curve-s; +y2=y8=.09h-c; y4=y6=.91h+c; x2=x4=x3+8/16(x5-x3); x6=x8=x5+8/16(x7-x5); +penstroke z1e..z2e..z3e..z4e..z5e..z6e..z7e..z8e..cycle; +x11=x12-1.5c; x12=x7l-c; y11=y12=-.8comma_depth; +y9=0; x9=x1-c; y9-y10=y10-y11; x11-x10=x10-x9; +penpos9(cap_bar,90); penpos10(.8cap_curve,0); +penpos11(cap_bar,90); penpos12(cap_bar,90); +penstroke z9e{dir -20}..tension.8..z10e..tension.8..{right}z11e--z12e; +fill z12r..z12l..cycle; +penlabels(range 1 thru 12); +endchar; + +beginchar("r",.8(11u#+s#),.8cap_height#,0); +x1=x2=.8cap_jut+.8*1/2cap_stem+s; +y6=y10=y7=.8cap_bar_height; y3=y4=h-1/2slab; x7=x2r; +y1c=h; y2c=0; x6=x4=x7+1.8u; x3=x1d; +y4-y5=y5-y6; x5=x8+.5c; x9=w-s-1/3cap_bar; y9=0; y6-y8=y8-y9; x10=x6-c; x9-x8=6/7(x8-x10); +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +penpos3(cap_bar,90); +penpos4(cap_bar,90); +penpos5(.8cap_curve,0); +penpos7(cap_bar,-90); +penpos6(cap_bar,-90); +penpos8(.8cap_curve,-180); +penpos9(cap_bar,-90); +penpos10(cap_bar,-90); +penstroke z3e--z4e{right}..tension.9..z5e..tension.9..{left}z6e--z7e; +penstroke z9e{left}..tension.9..{up}z8e{up}..tension.8..{left}z10e; +fill z9l..z9r..cycle; +penlabels(range 1 thru 10); +endchar; + +beginchar("s",.8(9u#+s#),.8cap_height#,0); +x6=x7=1/2w; y6=y7=0; +S_serif(7,cap_bar,x6-s,.8*1.5border_height); +y5=11/53h; x5=w-s-1/2(1.9hair); +y4=28/53h; x4=18/38w; y3=40/53h; x3=s+c+1/2(1.9cap_bar); +x2=.5w-c; y2=h; z1=z2; +penpos6(cap_bar,-90); +penpos5(.8*1.9hair,0); +penpos4(.8*1.1cap_curve,80); +penpos3(.8*1.9hair,0); +penpos2(cap_bar,-90); +penstroke z6e{right}..tension.9..z5e..tension.85..z4e..tension.85..z3e..tension.9..{right}z2e; +fill S_serif_edge7 rotatedaround(z6,180); +S_serif(1,cap_bar,x5-x2-.5cap_bar,.8*1.2border_height); +fill S_serif_edge1; +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar("t",round .8(11u#+s#),.8cap_height#,0); +x1=x2=.5w; y1c=h; y2c=0; +y3=y4=h-1/2slab; x3e=s; x1-x3e=x4e-x1; +serif(1,.8cap_stem,-90,.8*1.2cap_jut,.8*1.2cap_jut); +serif(2,.8cap_stem,90,.8cap_jut,.8cap_jut); +fill serif_edge2--reverse serif_edge1--cycle; +T_serif(3,cap_bar,round .8border_height,0); +T_serif(4,cap_bar,round .8border_height,1); +fill T_edge3; fill T_edge4; +if x1c>x3: y5=y6=y7=y8=h-1/2cap_bar; x5=x3a; x6=x1c; x7=x1e; x8=x4a; +penpos5(cap_bar,90); penpos6(cap_bar,90); +penpos7(cap_bar,90); penpos8(cap_bar,90); +penstroke z5e--z6e; +penstroke z7e--z8e; fi +penlabels(range 1 thru 8); +endchar; + +beginchar("u",.8(12u#+s#),.8cap_height#,0); +x1=.8cap_jut+.8*1/2cap_stem+s; +x3=w-s-.8cap_jut-1/2cap_bar; +y1c=y3c=h; y2=y4=y5=y6=y24=y56=16/53h; x2=x1l; +x4=x1r; x5=x3l; x6=x3r; +serif(1,.8cap_stem,-90,.8cap_jut,.8cap_jut); +A_serif(3,cap_bar,-90,.8cap_jut,.8cap_jut); +fill z2--z4--reverse serif_edge1--cycle; +fill z5--z6--reverse A_serif_edge3--cycle; +x7=x1+.5(x3-x1); y7=0; x4-x24=x24-x2; x6-x56=x56-x5; +penpos24(.8cap_stem,-180); penpos7(vair,-90); +penpos56(cap_bar,0); +penstroke z24e{down}..tension.9..{right}z7e{right}..tension.9..{up}z56e; +penlabels(range 1 thru 7,24,56); +endchar; + +beginchar("v",.8*12u#,.8cap_height#,0); +x1l=.8cap_jut+s; +x3r=w-s-.8cap_jut; +y1l=y3r=h-cap_bar; x4=.5w-1/2cap_bar; x5=.5w+1/2cap_bar; +y4=y5=1/2cap_bar; +numeric theta[]; +theta1=angle(z4-z1l); +theta2=angle(z5-z3r); +serif(1,.8cap_stem,theta1,.8cap_jut,.8cap_jut); +A_serif(3,cap_bar,theta2,.8*1.3cap_jut,.8cap_jut); +z2=z1r+whatever*dir theta1=z3l+whatever*dir theta2; +fill z4{down}..{up}z5--reverse A_serif_edge3--z2--reverse serif_edge1--z4&cycle; +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar("w",.8*17u#,.8cap_height#,0); +x9l=.5w-.8*.3cap_stem; +x7r=w-s-.8cap_jut; +y9l=y7r=y1l=h-cap_bar; x5=x9l+.5(x7r-x9l)-1/2cap_bar; x6=x9l+.5(x7r-x9l)+1/2cap_bar; +y5=y6=y2=y3=1/2cap_bar; +numeric theta[]; +theta1=angle(z5-z9l); +theta2=angle(z6-z7r); +serif(9,.8cap_stem,theta1,.8cap_jut,.8cap_jut); +A_serif(7,cap_bar,theta2,.8*1.3cap_jut,.8cap_jut); +z8=z9r+whatever*dir theta1=z7l+whatever*dir theta2; +x1l=s+.8cap_jut; +serif(1,.8cap_stem,theta1,.8cap_jut,.8cap_jut); +z2=z1l+whatever*dir theta1; x3=x2+cap_bar; +z4=z3+whatever*dir (theta2-180)=z9l+whatever*dir theta1; +y11=y8; z11=z1r+whatever*dir theta1; +z10=z11+whatever*dir (theta2-180)=z9l+whatever*dir theta1; +fill z5{down}..{up}z6--reverse A_serif_edge7--z8--reverse serif_edge9--z10--z11--reverse serif_edge1--z2{down}..{up}z3--z4--z5&cycle; +penlabels(range 1 thru 11); +endchar; + +beginchar("x",.8(12u#+s#),.8cap_height#,0); +y3=y4=slab; x3=w-s-.8cap_jut-.8*1/2cap_stem; x4=s+.8cap_jut+1/2slab; +y1=y2=h-slab; x1=s+.8cap_jut+.8*1/2cap_stem+c; x2=w-s-.8*1.5c-.8cap_jut-1/2slab; +numeric theta[]; +theta1 = angle(z1-z3); +theta2 = angle(z2-z4); +serif(1,.8cap_stem,theta1-180,.8cap_jut,.8cap_jut); +A_serif(2,.8*1.2cap_bar,theta2-180,.8cap_jut,.8cap_jut); +serif(3,.8cap_stem,theta1,.8cap_jut,.8cap_jut); +A_serif(4,.8*1.2cap_bar,theta2,.8cap_jut,.8cap_jut); +fill serif_edge3--reverse serif_edge1--cycle; +fill A_serif_edge4--reverse A_serif_edge2--cycle; +penlabels(1,2,3,4); +endchar; + +beginchar("y",.8*12u#,.8cap_height#,0); +x1l=.8cap_jut+s; x3r=w-s-.8cap_jut; +y1l=y3r=h-cap_bar; x4=.5w; +y4=8/25h; +numeric theta[]; +theta1=angle(z4-z1l); +theta2=angle(z4-z3r); +serif(1,.8cap_stem,theta1,.8cap_jut,.8cap_jut); +A_serif(3,cap_bar,theta2,.8*1.3cap_jut,.8cap_jut); +z2=z1r+whatever*dir theta1=z3l+whatever*dir theta2; +y5c=0; x5=.5w+.5c; +serif(5,.8cap_stem,90,.8cap_jut,.8cap_jut); +x6=x5l; x7=x5r; +z6=z1l+whatever*dir theta1; +z7=z3r+whatever*dir theta2; +fill z6--serif_edge5--z7--reverse A_serif_edge3--z2--reverse serif_edge1--z6&cycle; +penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar("z",.8(9u#+1.5s#),.8cap_height#,0); +x6=s+1/2cap_bar; y6=y7=y8=1/2cap_bar; x8e=w-s; x7=x8; +T_serif(8,cap_bar,.8border_height,1); +penpos6(cap_bar,90); penpos7(cap_bar,90); +penstroke z6e--z7e; fill z6r..z6l..cycle; +fill T_edge8 reflectedabout(z6,z7); +x9=w-s-.5c; y9=y10=0; x10=w-s; z11=z8d reflectedabout(z6,z7); +unfill z11{down}..z9--z10--cycle; +y5l=y6r; x5l=x6r-1/4cap_bar; +x4r=w-s-1/4cap_bar; y4=h-cap_bar; +penpos4(.8cap_stem,0); +penpos5(.8cap_stem,0); +penstroke z4e--z5e; +y3=y2=y1=h-1/2cap_bar; +x3=w-s-1/2cap_bar; x1e=s+c; +T_serif(1,cap_bar,.8border_height,0); x2=x1; +penpos3(cap_bar,90); penpos2(cap_bar,90); +penstroke z2e--z3e; fill z3l..z3r..cycle; +fill T_edge1; x12=x1e; y12=y13=h; x13=x1e+.5c; +unfill z1d{up}..z13--z12--cycle; +penlabels(range 1 thru 13); +endchar; + +beginchar(hex"30",9u#+s#,cap_height#,0); +penpos1(vair,90); +penpos2(o,30); +penpos3(cap_curve,0); +penpos4(o,-30); +penpos5(vair,-90); +penpos6(o,-150); +penpos7(cap_curve,-180); +penpos8(o,-210); +x1=x5=.5w; y1=0; y5=h; +y3=y7=.5h; x3=1/2cap_curve+s; x7=w-1/2cap_curve-s; +y2=y8=0.09h-c; y4=y6=0.91h+c; x2=x4=x3+8/16(x5-x3); x6=x8=x5+8/16(x7-x5); +penstroke z1e..z2e..z3e..z4e..z5e..z6e..z7e..z8e..cycle; +penlabels(1,2,3,4,5,6,7,8); +endchar; + +beginchar(hex"31",6u#+3/2c#,cap_height#,0); +y1c=0; x1h=w-s; +serif(1,cap_stem,90,cap_jut,cap_jut); +x6=x1f; y5=y6=h; x5=x1; x2=x1a; y2=45/53h; +penpos4(1.1cap_bar,theta1+45); +penpos3(1.1cap_bar,theta1+45); +x4l=s; y4=30/53h; numeric theta[]; theta1=angle(z5-z4l); +z3l=z5; penstroke z3e--z4e; fill z4l..z4r..cycle; +fill serif_edge1--z6{dir 110}..{dir 250}z5--z2--cycle; +penlabels(1,2,3,4,5,6); +endchar; + +beginchar(hex"32",9u#,cap_height#,0); +z4=(9/33w,14/53h); z5=(s+11/20cap_bar,0); +z3=(w-s-.5c-7/16cap_curve,40/53h); z2=(15/33w,h); +penpos2(cap_bar,90); +penpos3(cap_curve,0); +penpos4(1.1cap_bar,-45); +penpos5(1.1cap_bar,0); +x6=x5r; y6=y7=7/16cap_stem; y8=1/2cap_bar; +x8e=w-s; x7=x8e; +T_serif(8,cap_bar,3/5border_height,1); +penpos6(7/8cap_stem,90); +penpos7(7/8cap_stem,90); +penstroke z6e--z7e; %fill z6r..z6l..cycle; +fill T_edge8 reflectedabout(z6,z7); +x9=w-s-c; y9=y10=0; x10=w-s; z11=z8d reflectedabout(z6,z7); +unfill z11{down}..z9--z10--cycle; +unfill z11{down}..z9--z10--cycle; +penstroke z5e{up}..z4e..{up}z3e{up}..{left}z2e; +z1=z2; ul_drop(1,cap_drop_round,15/33w-3c,1.4cap_drop_round,slab); +fill ul_drop_edge1; +penlabels(1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(hex"33",9u#,cap_height#,0); +x7=18/39w; y7=0; y4=y5=y44=cap_bar_height+c; +x4=x6-3/2cap_stem; x5=x4-2u; +x6=w-s-1/2cap_curve; y4-y6=y6-y7; +x2=.45w; y2=h; x3=x6-1/3cap_curve; y2-y3=y3-y4; +x44=x2+.05w; z1=z2; +penpos2(cap_bar,90); +penpos3(cap_stem,0); +penpos44(cap_bar,-90); +penpos4(cap_bar,90); +penpos5(cap_bar,90); +penpos6(cap_curve,0); +penpos7(cap_bar,-90); +penstroke z2e{right}..{down}z3e{down}..{left}z44e; +penstroke z5e--z4e{right}..tension.9..{down}z6e{down}..tension.9..{left}z7e; +fill z5r..z5l..cycle; +ul_drop(1,cap_drop_round,17/39w-s-.05w,1.1cap_drop_round,slab); +fill ul_drop_edge1; +x8e=s; y8=0; +dl_drop(8,cap_drop_round,18/39w-s,1.3cap_drop_round,slab); +fill dl_drop_edge8; +penlabels(1,2,3,4,5,6,7,8,44); +endchar; + +beginchar(hex"34",9u#+c#,cap_height#,0); +y1=y2=33/53h; y4c=0; x4h=w-s; +serif(4,7/8cap_stem,90,cap_jut,cap_jut); +x1=x4r; x2=x1-bar; +x3=x4l; y3=28/53h; +numeric theta[]; theta1=angle(z2-z3); +fill z3{dir theta1}--z2{dir theta1}..{down}z1--reverse serif_edge4--z3&cycle; +y5=y6=15/53h; x5=x4e; x6=s+cap_bar; +penpos5(cap_bar,90); penpos6(cap_bar,90); +penstroke z5e--z6e; fill z5r..z5l..cycle; +y7=y6l; x7l=x6; z8=(6/36w, 21/53h); +z9=(2/3w,h); +penpos7(cap_bar,180); penpos8(cap_bar,150); +penpos9(cap_stem,180); +penstroke z7e{up}..z8e..{dir 70}z9e; +penlabels(1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(hex"35",9u#,cap_height#,0); +x7=x4=18/39w; y7=0; y5=cap_bar_height+c; y4=y5+s; +x8e=s; y8=0; x5=x8d; +dl_drop(8,cap_drop_round,18/39w-s,1.3cap_drop_round,slab); +x6=w-s-1/2cap_curve; y4-y6=y6-y7; +penpos4(cap_bar,90); +penpos5(cap_bar,90); +penpos6(cap_curve,0); +penpos7(cap_bar,-90); +penstroke z5e..z4e{right}..tension.85..{down}z6e{down}..tension.85..{left}z7e; +fill z5r..z5l..cycle; +fill dl_drop_edge8; +z3=z5; x2=x3; y2=h; +penpos3(cap_bar,0); penpos2(cap_bar,0); +penstroke z3e--z2e; fill z2l..tension 1.7..z2r..tension 1.7..cycle; +y1r=h; x1=x2r; x13=x6; y13=h; 2(x12-x1)=x13-x12; y12=h-.6cap_stem; +penpos1(7/8cap_stem,90); penpos13(1.1cap_bar,90); penpos12(3/4cap_stem,90); +penstroke z1e..z12e..z13e; fill z13r..tension 1.7..z13l..tension 1.7..cycle; +penlabels(1,2,3,4,5,6,7,8,12,13); +endchar; + +beginchar(hex"36",9u#,cap_height#,0); +penpos1(vair,-90); +penpos2(o,-30); +penpos3(cap_stem,0); +penpos4(o,30); +penpos5(vair,90); +penpos6(o,150); +penpos7(.9cap_stem,180); +penpos8(o,210); +penpos9(vair,270); +penpos10(.7o,330); +penpos11(hair,360); +x1=.42w; x5=x9=.45w; y1=0; y5=h; +y3=.5h; x3=w-1/2cap_stem-s; x7=9/20cap_stem+s; +y2=0.1h-c; y4=y6=0.9h+c; x8=x6=x7+11/32(x5-x7); x4=x10=x5+9/16(x3-x5); x2=x4-1/2c; +y9=20/53h; y5-y7=y7-y9; y8=y9+.1h-c; y11=y7; +x11l=x3l; y10=y8; +penstroke z1e..z2e..z3e..z4e..z5e..z6e..{down}z7e{down}..z8e..z9e..z10e..z11e; +z12 = z1; +dl_drop(12,cap_drop_round,.45w-4c,1.1cap_drop_round,slab); +fill dl_drop_edge12; +z13 = (.5w,.5h); +currentpicture := currentpicture rotatedaround(z13,180); +penlabels(1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(hex"37",9u#-c#,cap_height#,0); +x4=w-s-1/2cap_bar; y4=h-1/2cap_bar; +penpos4(cap_bar,0); +y3=y2=h-7/16cap_stem; y1=h-7/8cap_stem+1/2cap_bar; +x3=x4l; x1e=s; +T_serif(1,cap_bar,3/5border_height,0); +x2=x1e; +penpos3(7/8cap_stem,90); +penpos2(7/8cap_stem,90); +penstroke z2e--z3e; +fill T_edge1; z44=(x4,h); fill z4r{up}..{left}z44--z3r--z4l--cycle; +x10=s+c; x11=s; y10=y11=h; +unfill z1d{up}..z10--z11--cycle; +unfill z1d{up}..z10--z11--cycle; +x5r=x3; y5=h-7/8cap_stem; +x6=14/30w; y6=1/3cap_curve; +penpos5(cap_bar,0); penpos6(cap_curve,0); +penstroke z4e{dir -105}..z5e..{dir -95}z6e; fill z6l..z6r..cycle; +penlabels(1,2,3,4,5,6,10,11,12); +endchar; + +beginchar(hex"38",10u#-s#,cap_height#,0); +x6=x4=x2=x8=1/2w; y6=0; y2=h; +y5=11/53h; y7=13/53h; x5=w-s-1/2(1.9hair); +y4=y8=28/53h; y3=42/53h; y1=40/53h; x3=2s+1/2(1.9cap_bar); +x1=w-2s-1/2(1.9cap_bar); x7=w-x5; +penpos6(cap_bar,-90); +penpos5(2.5hair,0); +penpos4(cap_curve,80); +penpos3(2.5hair,0); +penpos2(cap_bar,-90); +penpos1(2.5hair,-180); +penpos7(2.5hair,-180); +penpos8(cap_bar,-270); +penstroke z6e{right}..tension.9..z5e..tension.85..z4e..tension.85..z3e..tension.9..{right}z2e{right}..tension.9..z1e{down}..tension.9..z8e..tension.9..{down}z7e..tension.9..{right}z6e; +penlabels(1,2,3,4,5,6,7,8); +endchar; + +beginchar(hex"39",9u#,cap_height#,0); +penpos1(vair,-90); +penpos2(o,-30); +penpos3(cap_stem,0); +penpos4(o,30); +penpos5(vair,90); +penpos6(o,150); +penpos7(.9cap_stem,180); +penpos8(o,210); +penpos9(vair,270); +penpos10(.7o,330); +penpos11(hair,360); +x1=.42w; x5=x9=.45w; y1=0; y5=h; +y3=.5h; x3=w-1/2cap_stem-s; x7=9/20cap_stem+s; +y2=0.1h-c; y4=y6=0.9h+c; x8=x6=x7+11/32(x5-x7); x4=x10=x5+9/16(x3-x5); x2=x4-1/2c; +y9=20/53h; y5-y7=y7-y9; y8=y9+.1h-c; y11=y7; +x11l=x3l; y10=y8; +penstroke z1e..z2e..z3e..z4e..z5e..z6e..{down}z7e{down}..z8e..z9e..z10e..z11e; +z12 = z1; +dl_drop(12,cap_drop_round,.45w-4c,1.1cap_drop_round,slab); +fill dl_drop_edge12; +penlabels(1,2,3,4,5,6,7,8,9,10,11); +endchar; + +beginchar(oct"56",cap_stem#+2s#,cap_stem#,0); + z1=(s,1/2cap_stem); z2=(w-s,1/2cap_stem); + fill z1..z2..cycle; +endchar; + +beginchar(oct"54",cap_stem#+2s#+c#,cap_stem#,comma_depth#); + z1=(s,1/2cap_stem); z2=(w-s,1/2cap_stem); + z6=(.5w-.5c,0); x5=x6+1/2bar+.5c; y5=y6-1/2bar; + x3=x6; y3=-d+c; x4=x3-bar*sind 45; y4=y3+bar*sind 45; + z7=(.5w-.5c,h); + fill z1..z7..z2{down}..{dir -135}z3..z4{dir 45}...{up}z5{up}..{left}z6{left}..z1&cycle; + penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar(hex"60",cap_stem#+2s#+c#,asc_height#,comma_depth#); + z1=(s,1/2cap_stem); z2=(w-s,1/2cap_stem); + z6=(.5w-.5c,0); x5=x6+1/2bar+.5c; y5=y6-1/2bar; + x3=x6; y3=-d+c; x4=x3-bar*sind 45; y4=y3+bar*sind 45; + z7=(.5w-.5c,cap_stem); z8=(.5w,.5h-1/2d+1/2c); + fill z1..z7..z2{down}..{dir -135}z3..z4{dir 45}...{up}z5{up}..{left}z6{left}..z1&cycle rotatedaround(z8,180); + penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar(oct"41", cap_stem#+2s#,cap_height#,0); "Exclamation mark"; + z1=(s,1/2cap_stem); z2=(w-s,1/2cap_stem); + fill z1..z2..cycle; + x3=.5w-1/2cap_bar; x4=.5w+1/2cap_bar; y3=y4=3/2cap_stem; + x6=x1; x5=x2; y5=y6=h; + fill z6--z3..z4--z5{up}..z6&cycle; +endchar; + +beginchar(hex"22",2cap_stem#+3s#+2c#,cap_height#,0); + z1=(s,h-1/2cap_stem); z2=(x1+cap_stem+c,h-1/2cap_stem); + z6=(s+.5(x2-x1)-.5c,h-cap_stem); x5=x6+1/2bar+.5c; y5=y6-1/2bar; + x3=x6; y3=h-cap_stem-comma_depth+c; x4=x3-bar*sind 45; y4=y3+bar*sind 45; + z7=(s+1/2cap_stem-.5c,h); + fill z1..z7..z2{down}..{dir -135}z3..z4{dir 45}...{up}z5{up}..{left}z6{left}..z1&cycle; + fill z1..z7..z2{down}..{dir -135}z3..z4{dir 45}...{up}z5{up}..{left}z6{left}..z1&cycle shifted(cap_stem+3c,0); + penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar(hex"5C",2cap_stem#+3s#+2c#,cap_height#,comma_depth#); + z1=(s,1/2cap_stem); z2=(x1+cap_stem+c,1/2cap_stem); + z6=(s+.5(x2-x1)-.5c,0); x5=x6+1/2bar+.5c; y5=y6-1/2bar; + x3=x6; y3=-d+c; x4=x3-bar*sind 45; y4=y3+bar*sind 45; + z7=(s+1/2cap_stem-.5c,cap_stem); z8=(.5w,.5h-1/2d+1/2c); + fill z1..z7..z2{down}..{dir -135}z3..z4{dir 45}...{up}z5{up}..{left}z6{left}..z1&cycle; + fill z1..z7..z2{down}..{dir -135}z3..z4{dir 45}...{up}z5{up}..{left}z6{left}..z1&cycle shifted(cap_stem+3c,0); + currentpicture := currentpicture rotatedaround(z8,180); + penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar(hex"7b",10u#-1.5c#,x_height#,0); "En dash"; + z1=(s+1/2bar,bar_height); z2=(w-s-1/2bar,bar_height); + penpos1(bar,90); penpos2(bar,90); + fill z1l{left}..{right}z1r--z2r{right}..{left}z2l--z1l&cycle; + penlabels(1,2); +endchar; + +beginchar(hex"3D",10u#+1.5c#,x_height#,0); + z1=(s+1/2bar,bar_height-3c); z2=(w-s-1/2bar,bar_height-3c); + penpos1(bar,90); penpos2(bar,90); + fill z1l{left}..{right}z1r--z2r{right}..{left}z2l--z1l&cycle; + z3=(s+1/2bar,bar_height+3c); z4=(w-s-1/2bar,bar_height+3c); + penpos3(bar,90); penpos4(bar,90); + fill z3l{left}..{right}z3r--z4r{right}..{left}z4l--z3l&cycle; + penlabels(1,2,3,4); +endchar; + +beginchar(hex"23",13u#,asc_height#,body_depth#); + z1=(s+1/2bar,bar_height-5c); z2=(w-s-1/2bar,bar_height-5c); + penpos1(1.5bar,90); penpos2(1.5bar,90); + fill z1l{left}..{right}z1r--z2r{right}..{left}z2l--z1l&cycle; + z3=(s+1/2bar,bar_height+5c); z4=(w-s-1/2bar,bar_height+5c); + penpos3(1.5bar,90); penpos4(1.5bar,90); + fill z3l{left}..{right}z3r--z4r{right}..{left}z4l--z3l&cycle; + z5=(.5w-5c,bar_height); z6=(.5w+5c,bar_height); + z7=z5+whatever*dir 76; y7=h; z8=whatever[z5,z7]; y8=-d; + penpos7(1.5bar,0); penpos8(1.5bar,0); + fill z7l{up}..{down}z7r--z8r{down}..{up}z8l--z7l&cycle; + z9=z6+whatever*dir 76; y9=h; z10=whatever[z6,z9]; y10=-d; + penpos9(1.5bar,0); penpos10(1.5bar,0); + fill z9l{up}..{down}z9r--z10r{down}..{up}z10l--z9l&cycle; + penlabels(1,2,3,4,5,6,7,8,9,10); +endchar; + +beginchar(hex"7c",14u#,x_height#,0); "Em dash"; + z1=(s+1/2bar,bar_height); z2=(w-s-1/2bar,bar_height); + penpos1(bar,90); penpos2(bar,90); + fill z1l{left}..{right}z1r--z2r{right}..{left}z2l--z1l&cycle; + penlabels(1,2); +endchar; + +beginchar(oct"55",2cap_jut#+cap_stem#+2s#,x_height#,0); "hyphen"; + x1=s+.9cap_bar; x2=w-s-.9cap_bar; + y1l=y2l=17/33h; + penpos1(1.8bar,90); penpos2(1.8bar,90); + penstroke z1e--z2e; + fill z1r..z1l..cycle; fill z2r..z2l..cycle; + penlabels(1,2); +endchar; + +beginchar(hex"5F",1.1stem#+2s#,x_height#+2.1stem#,0); + z1=(.5w,h); z2=(.5w,h-1.1stem); + fill z1..z2..cycle; + penlabels(1,2); +endchar; + +beginchar(hex"7E",7u#,body_height#,0); + pickup pencircle xscaled 1pt yscaled .2pt rotated 55; + z4=(w-s-c,h-s); x1=s+c; y1=y4-1/2cap_stem; + y2-y1=y4-y3=3(y4-y1); z2-z1=z4-z3=whatever * dir 55; + draw z1..controls z2 and z3..z4; + penlabels(1,2,3,4); +endchar; + +beginchar(hex"3C",7u#-2c#,x_height#,0); "looks like <<"; + x2l=x3l=s+1/2bar; y2l=.5h+1/2bar; y3l=.5h-1/2bar; + x1l=x4l=.5w; y1l=h-1/2bar; y4l=1/2bar; + penpos1(bar,0); penpos2(stem,0); + penpos3(stem,0); penpos4(bar,0); + numeric theta[]; + theta1=angle(z2l-z1l); theta2=angle(z4l-z3l); + theta3=theta1+180; theta4=theta2+180; + fill z1r{up}..{dir theta1}z1l--z2l{dir theta1}..{dir theta2}z3l--z4l{dir theta2}..{up}z4r--z3r{dir theta4}..{dir theta3}z2r--z1r&cycle; + x5r=x8r=w-s; y5r=h-2bar; y8r=2bar; x6r=x7r=w-s-.6stem; + y6r=y2l; y7r=y3l; + penpos5(bar,0); penpos6(.8stem,0); + penpos7(.8stem,0); penpos8(bar,0); + theta5=angle(z6r-z5r); theta6=angle(z8r-z7r); + theta7=theta5+180; theta8=theta6+180; + fill z5r{up}..{dir theta5}z5l--z6l{dir theta5}..{dir theta6}z7l--z8l{dir theta6}..{up}z8r--z7r{dir theta8}..{dir theta7}z6r--z5r&cycle; + penlabels(1,2,3,4,5,6,7,8); +endchar; + +beginchar(hex"3E",7u#-2c#,x_height#,0); + x2l=x3l=s+1/2bar; y2l=.5h+1/2bar; y3l=.5h-1/2bar; + x1l=x4l=.5w; y1l=h-1/2bar; y4l=1/2bar; + penpos1(bar,0); penpos2(stem,0); + penpos3(stem,0); penpos4(bar,0); + numeric theta[]; + theta1=angle(z2l-z1l); theta2=angle(z4l-z3l); + theta3=theta1+180; theta4=theta2+180; + fill z1r{up}..{dir theta1}z1l--z2l{dir theta1}..{dir theta2}z3l--z4l{dir theta2}..{up}z4r--z3r{dir theta4}..{dir theta3}z2r--z1r&cycle; + x5r=x8r=w-s; y5r=h-2bar; y8r=2bar; x6r=x7r=w-s-.6stem; + y6r=y2l; y7r=y3l; + penpos5(bar,0); penpos6(.8stem,0); + penpos7(.8stem,0); penpos8(bar,0); + theta5=angle(z6r-z5r); theta6=angle(z8r-z7r); + theta7=theta5+180; theta8=theta6+180; + z10=(.5w,.5h); + fill z5r{up}..{dir theta5}z5l--z6l{dir theta5}..{dir theta6}z7l--z8l{dir theta6}..{up}z8r--z7r{dir theta8}..{dir theta7}z6r--z5r&cycle; + currentpicture := currentpicture rotatedaround(z10,180); + penlabels(1,2,3,4,5,6,7,8); +endchar; + +beginchar(hex"3B",cap_stem#+2s#+c#,x_height#+c#,comma_depth#); + z1=(s,1/2cap_stem); z2=(w-s,1/2cap_stem); + z6=(.5w-.5c,0); x5=x6+1/2bar+.5c; y5=y6-1/2bar; + x3=x6; y3=-d+3/2c; x4=x3-bar*sind 45; y4=y3+bar*sind 45; + z7=(.5w-.5c,cap_stem); + fill z1..z7..z2{down}..{dir -135}z3..z4{dir 45}...{up}z5{up}..{left}z6{left}..z1&cycle; + z8=(s,h-1/2cap_stem); z9=(w-s,h-1/2cap_stem); + fill z8..z9..cycle; + penlabels(1,2,3,4,5,6,7,8,9); +endchar; + +beginchar(hex"3A",cap_stem#+2s#+c#,x_height#+c#,comma_depth#); + z1=(s,h-1/2cap_stem); z2=(w-s,h-1/2cap_stem); + fill z1..z2..cycle; + penlabels(1,2,3,4); + z3=(s,1/2cap_stem); z4=(w-s,1/2cap_stem); + fill z3..z4..cycle; + penlabels(1,2,3,4); +endchar; + +beginchar(hex"2B",2cap_jut#+cap_stem#+2s#,x_height#,0); "plus"; + x1=s+.9cap_bar; x2=w-s-.9cap_bar; + y1l=y2l=17/33h; + penpos1(1.8bar,90); penpos2(1.8bar,90); + penstroke z1e--z2e; + fill z1r..z1l..cycle; fill z2r..z2l..cycle; + x3=x4=.5w; y3=y2+1/2(x2-x1); y4=y2-1/2(x2-x1); + penpos3(1.8bar,0); penpos4(1.8bar,0); + penstroke z3e--z4e; + fill z3r..z3l..cycle; fill z4r..z4l..cycle; + penlabels(1,2,3,4); +endchar; + +beginchar(hex"2F",2s#+bar#,body_height#,body_depth#); + z1=(.5w,h-.5bar); z2=(.5w,-d+.5bar); + %pickup pencircle xscaled bar yscaled bar; + penpos1(bar,0); penpos2(bar,0); + penstroke z1e--z2e; fill z1r..z1l..cycle; + fill z2r..z2l..cycle; + penlabels(1,2); +endchar; + +beginchar(hex"27",cap_stem#+2s#+c#,x_height#+2.1stem#,0); + z1=(s,h-1/2cap_stem); z2=(w-s,h-1/2cap_stem); + z6=(.5w-.5c,h-cap_stem); x5=x6+1/2bar+.5c; y5=y6-1/2bar; + x3=x6; y3=h-stem-comma_depth+c; x4=x3-bar*sind 45; y4=y3+bar*sind 45; + z7=(.5w-.5c,h); + fill z1..z7..z2{down}..{dir -135}z3..z4{dir 45}...{up}z5{up}..{left}z6{left}..z1&cycle; + penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar(hex"28",5u#,body_height#,body_depth#); + x1=x3=w-s-bar*sind 45; y1=h-bar*sind 30; y3=-d+bar*sind 30; + x2=s+1/2stem; y2=-d+1/2(h+d); + penpos1(bar,150); penpos2(curve,180); + penpos3(bar,210); + penstroke z1e..z2e..z3e; + fill z1r..z1l..cycle; fill z3r..z3l..cycle; + penlabels(1,2,3); +endchar; + +beginchar(hex"29",5u#,body_height#,body_depth#); + x1=x3=w-s-bar*sind 45; y1=h-bar*sind 30; y3=-d+bar*sind 30; + x2=s+1/2stem; y2=-d+1/2(h+d); + penpos1(bar,150); penpos2(curve,180); + penpos3(bar,210); + penstroke z1e..z2e..z3e; + fill z1r..z1l..cycle; fill z3r..z3l..cycle; + z4=(.5w,-d+1/2(h+d)); + currentpicture := currentpicture rotatedaround(z4,180); + penlabels(1,2,3); +endchar; + +beginchar(hex"86",5u#,body_height#,body_depth#); + x1=x3=w-s-bar*sind 45; y1=h-bar*sind 30; y3=-d+bar*sind 30; + x2=s+1/2bar; y2=-d+1/2(h+d); + penpos1(bar,0); penpos2(bar,0); + penpos3(bar,0); + penstroke z1e--z2e--z3e; + fill z1r..z1l..cycle; fill z3r..z3l..cycle; + penlabels(1,2,3); +endchar; + +beginchar(hex"87",5u#,body_height#,body_depth#); + x1=x3=w-s-bar*sind 45; y1=h-bar*sind 30; y3=-d+bar*sind 30; + x2=s+1/2bar; y2=-d+1/2(h+d); + penpos1(bar,0); penpos2(bar,0); + penpos3(bar,0); + penstroke z1e--z2e--z3e; + fill z1r..z1l..cycle; fill z3r..z3l..cycle; + z4=(.5w,-d+1/2(h+d)); + currentpicture := currentpicture rotatedaround(z4,180); + penlabels(1,2,3); +endchar; + +beginchar(hex"5B",2s#+3cap_bar#,body_height#,body_depth#); + z1=(w-s-1/2cap_bar,h-1/2bar); z2=(s+1/2cap_bar,h-1/2cap_bar); + z3=(x2,h); z4=(x3,-d); z5=(x2,-d+1/2bar); + z6=(x1,y5); penpos1(bar,90); penpos2(bar,90); + penpos3(bar,0); penpos4(bar,0); + penpos5(bar,90); penpos6(bar,90); + penstroke z1e--z2e; penstroke z3e--z4e; penstroke z5e--z6e; + fill z1r..z1l..cycle; fill z6r..z6l..cycle; + penlabels(1,2,3,4,5,6); +endchar; + +beginchar(hex"5D",2s#+3cap_bar#,body_height#,body_depth#); + z1=(w-s-1/2cap_bar,h-1/2bar); z2=(s+1/2cap_bar,h-1/2cap_bar); + z3=(x1,h); z4=(x3,-d); z5=(x2,-d+1/2bar); + z6=(x1,y5); penpos1(bar,90); penpos2(bar,90); + penpos3(bar,0); penpos4(bar,0); + penpos5(bar,90); penpos6(bar,90); + penstroke z1e--z2e; penstroke z3e--z4e; penstroke z5e--z6e; + fill z2r..z2l..cycle; fill z5r..z5l..cycle; + penlabels(1,2,3,4,5,6); +endchar; + +beginchar(hex"B9",16u#,cap_height#,0); + x1=x2=cap_jut+1/2cap_bar+s+cap_stem; + x3=w-x1-1/2cap_stem; y1c=h; y4=y5=0; + x4=x3r; x5=x3l; y2=12/53h; y3=h-y2; + x8=x2-stem; y8=0; z9=z8; + dl_drop(9,cap_drop_round,x8-s,1.3drop_round,cap_bar); + fill dl_drop_edge9; penpos8(bar,-90); + serif(1,cap_bar,-90,cap_jut,1.3cap_jut); + penpos2(bar,0); penpos3(bar,0); + penstroke z2e{down}..{left}z8e; + fill z2l--z2r--reverse serif_edge1--cycle; + numeric theta[]; y7=y1h; x7=x1h-cap_stem; + theta1=angle(z5-z7); x10=x3+stem; y10=h; z11=z10; + penpos10(bar,-90); penstroke z3e{up}..{right}z10e; + ur_drop(11,cap_drop_round,x8-s,1.1drop_round,cap_bar); + fill ur_drop_edge11; + z6=z3l+whatever*dir -90=z1h+whatever*dir theta1; + fill z6--z1h--z7--z5{down}..{up}z4--z3r--z3l--cycle; + unfill z1b--z1l--z1a--cycle; + y12=y13=2cap_bar; x12=x4+2cap_bar+s; x13=w-2s; + penpos12(.4stem,90); penpos13(.4stem,90); + penstroke z12e--z13e; y16=y11d-5cap_bar; + x13-x14=x14-x12; x16=x14; y14=y13+5cap_bar; + x17=w-s-1/4stem; x17-x16=x16-x15; y16-y15=y15-y14; + y17=y15; penpos17(.6stem,0); penpos16(bar,90); + penpos15(.6stem,180); penpos14(bar,270); + penstroke z17e{up}..{left}z16e{left}..{down}z15e{down}..{right}z14e{right}..{up}z17e; + fill z12l..tension1.2..z12r..tension1.2..cycle; + fill z13l..tension1.2..z13r..tension1.2..cycle; + penlabels(range 1 thru 17); +endchar; + +beginchar(hex"24",9u#-s#,body_height#,body_height#-cap_height#); + x6=x7=1/2w-c; y6=y7=0; + dl_drop(7,cap_drop_round,x6-s,1.4cap_drop_round,cap_bar); + y5=10/53cap_height; x5=w-s-1/2(1.9hair); + y4=1/2cap_height; x4=19/38w; y3=42/53cap_height; x3=s+1/2(1.9cap_bar); + x2=.5w+c; y2=cap_height; z1=z2; + penpos6(cap_bar,-90); penpos5(1.9hair,0); + penpos4(1.1cap_curve,80); penpos3(1.9hair,0); + penpos2(cap_bar,-90); + penstroke z6e{right}..z5e..tension.9..z4e..tension.9..z3e..{right}z2e; + fill dl_drop_edge7; + ur_drop(1,cap_drop_round,w-s-x2,1.4cap_drop_round,cap_bar); + fill ur_drop_edge1; + z8=(.5w,h); z9=(.5w,-d); + penpos8(cap_bar,0); penpos9(cap_bar,0); + penstroke z8e--z9e; + fill z9r..z9l..cycle; fill z8r..z8l..cycle; + penlabels(1,2,3,4,5,6,7); +endchar; + +beginchar(hex"25",12u#,asc_height#,0); +penpos1(vair,90); penpos2(.6curve,0); +penpos3(vair,-90); penpos4(.6curve,-180); +y1=.55h; y3=h; y3-y4=y4-y1; y2=y4; x2=1/4curve+s; x4=5/2curve+s; +x4-x1=x1-x2; x3=x1; +penstroke z1e{left}..tension.9..{up}z2e{up}..tension1.2..{right}z3e..tension.9..{down}z4e{down}..tension1.2..{left}z1e..cycle; +penpos5(vair,90); penpos6(.6curve,0); +penpos7(vair,-90); penpos8(.6curve,-180); +y5=0; y7=.45h; y7-y8=y8-y5; y6=y8; x8=w-1/4curve-s; x6=w-5/2curve-s; +x8-x5=x5-x6; x7=x5; +penstroke z5e{left}..tension.9..{up}z6e{up}..tension1.2..{right}z7e..tension.9..{down}z8e{down}..tension1.2..{left}z5e..cycle; +x9l=x7; y9=h; x10r=x1; y10=0; +penpos9(1.2bar,0); penpos10(1.2bar,0); +penstroke z9e--z10e; +penlabels(1,2,3,4,5,6,7,8,9,10); +endchar; + +beginchar(hex"26",14u#,cap_height#,0); +x4=x8=x3+.5curve; y6=0; y2=h; x2=x3+1.3cap_curve; +y7=13/53h; y5=9/53h; x5=x7+3.5cap_curve; x6=x7+1.8cap_curve; +y4=y8=30/53h; y1=44/53h; y3=42/53h; x3=4s+curve; +x1=x3+2.1cap_curve; x7=s+1/2cap_curve; +x10=w-s; y10=9/53h; x10-x9=x9-x5; y9=1/5cap_curve; +th:=angle(z4-z5)+5; th1:=th-11; x11h=w-s-c; y11h=y1-4s; +A_serif(11,cap_bar,-110,cap_jut,cap_jut); z12l=z11a; +penpos6(cap_bar,-90); penpos5(cap_stem,45); +penpos4(cap_stem,45); penpos3(2.5hair,0); +penpos2(cap_bar,-90); penpos1(2hair,-180); +penpos7(cap_curve,-180); penpos8(cap_bar,-250); +penpos9(.5cap_curve,70); penpos10(cap_bar,150); +penpos12(cap_bar,0); +penstroke z10e..z9e..z5e{dir th}..{dir th1}z4e..tension.9..{up}z3e{up}..tension1..z2e{right}..tension.9..z1e{down}..tension.9..z8e..tension.9..{down}z7e..tension.9..{right}z6e{dir 8}..{dir 70}z12e; +fill z12l--z12r..reverse A_serif_edge11--cycle; +fill z10l..tension1.3..z10r..tension1.3..cycle; +penlabels(range 1 thru 12); +endchar; + +beginchar(hex"40",14u#,x_height#+2curve#,2curve#); +a_width:=9u+c-2s; +x1=2s+a_width-s-3/4stem+1.5curve; y1=x_height; y2=7/33x_height; z2=z1+whatever*dir -104; +x3=x2+1/2stem+c; y3=2epsilon; x4=3s+a_width+1.5curve; y4=15/33x_height; +penpos1(stem,180); penpos2(stem,180); +penpos3(1.2vair,270); penpos4(bar,360); +x5=x1-3/2stem; y5=x_height; z7=z5+whatever*dir -104; y7=-2epsilon; +x6=s+1/2curve+c+1.5curve; y6=.54x_height; y8=.46x_height; z8l=whatever[z1r,z2r]; +x13=x5; y13=h-1/2bar; x14=s+1/2bar; y14=y6; y15=-d+1/2bar; x15=x7; +x16=x4; y16=-d+3bar; penpos7(vair,270); penpos16(bar,270); +penpos13(bar,90); penpos14(bar,180); penpos15(bar,270); +penpos8(2bar,0); penpos5(vair,90); penpos6(curve,180); +penstroke z1e--z2e{down}..{right}z3e{right}..tension1.2..{dir 80}z4e..z13e{left}..z14e..{right}z15e..z16e; +penstroke z5e{left}..tension1.1..{dir 256}z6e{dir 256}..tension.9..{right}z7e..tension1.3..{dir 76}z8e{dir 76}..tension1..{dir 166}z5e..cycle; +z9=whatever[z1r,z2r]; y9=y12=x_height-c; z10=(x1r+c,x_height); z11=(x1l-c,x_height); +z12=whatever[z1l,z2l]; +unfill z9{up}..z10--z1r--z9..cycle; +unfill z11--z1l--z12{up}..z11..cycle; +fill z16r..z16l..cycle; +penlabels(range 1 thru 66); +endchar; + +beginchar(hex"12",2cap_stem#+s#,body_height#,0); +y1=h-.45cap_stem*cosd 45; x1=s+.45cap_stem*cosd 45; +x2=w-s+cap_bar*cosd 45; z2=z1+whatever*dir -45; +penpos1(.9cap_stem,45); penpos2(cap_bar,45); +penstroke z1e--z2e; +fill z1r..tension1.2..z1l..tension1.2..cycle; +fill z2r..tension1.2..z2l..tension1.2..cycle; +penlabels(range 1 thru 5); +endchar; + +beginchar(hex"13",2cap_stem#+s#,body_height#,0); +y1=h-.45cap_stem*cosd 45; x1=w-s-.45cap_stem*cosd 45; +x2=s-cap_bar*cosd 45; z2=z1+whatever*dir -135; +penpos1(.9cap_stem,135); penpos2(cap_bar,135); +penstroke z1e--z2e; +fill z1r..tension1.2..z1l..tension1.2..cycle; +fill z2r..tension1.2..z2l..tension1.2..cycle; +penlabels(range 1 thru 5); +endchar; + +beginchar(hex"3F",7u#+.7s#,cap_height#,0); + x1=s+4/5cap_stem; y1=1/2cap_stem; + penpos1(cap_stem,0); + fill z1r..z1l..cycle; + y2=cap_stem+cap_bar; x2=x1; + z3l=z2l+whatever*dir 96; y3l=25/53h; + penpos2(cap_bar,0); penpos3(cap_bar,0); + penstroke z2e--z3e; + z4l=z3l; penpos4(cap_bar,0); + y5=y4-2bar; x5=x4+3cap_bar; penpos7(cap_bar,-90); + x6=w-s-1/2cap_curve; y6=37/51h; x7=12/31w; y7=h; + penpos5(cap_bar,90); penpos6(cap_curve,180); z8=z7; + penstroke z4e{dir -69}..z5e{dir 10}..tension1..{up}z6e{up}..tension.9..{left}z7e; + ul_drop(8,.8cap_drop_round,x7-s,cap_curve,cap_bar); + fill ul_drop_edge8;. + fill z3r..tension1.2..z3l..tension1.2..cycle; + penlabels(1,2,3,4,5,6,7,8); +endchar; + +beginchar(hex"10",2jut#+stem#+2s#,x_height#,0); +x1g=x2g=s; y1c=x_height; y2c=0; +serif(1,stem,-90,jut,0); +serif(2,stem,90,jut,jut); +fill serif_edge2--reverse serif_edge1--cycle; +penlabels(1,2,3,4); +endchar; + +beginchar(hex"11",5u#,x_height#,desc_depth#); +x1h=w-s; y1c=x_height; y2=0; x2=x1; +serif(1,stem,-90,1.5jut,0); +penpos2(stem,0); +fill z2l--z2r--reverse serif_edge1--cycle; +y5=-1/4desc_depth; x5r=x2r; +y6=-d+1/2bar; x6=x2l-.45stem; +penpos5(.97stem,0); +penpos6(bar,-90); +penstroke z2e--z5e{down}..{left}z6e; +x7e=s; y7=-d+1/2bar; +dl_drop(7,stem,x6-x7e,drop_round,bar); +fill dl_drop_edge7; fill z7e..z7c..cycle; +penlabels(range 1 thru 7); +endchar; + +beginchar(hex"2A",3cap_stem#+3s#,body_height#,0); + x1=x2=x3=x4=.5w; y1=h-1/2stem; y2=y1-cap_stem; y3=y2-bar; y4=y3-bar; + penpos1(stem,0); penpos2(cap_bar,0); penpos3(2cap_bar,0); + fill z1l{down}..z2l{down}..z3l--z4--z3r..{up}z2r..{up}z1r{up}..{down}z1l..cycle; + fill z1l{down}..z2l{down}..z3l--z4--z3r..{up}z2r..{up}z1r{up}..{down}z1l..cycle rotatedaround(z4,60); + fill z1l{down}..z2l{down}..z3l--z4--z3r..{up}z2r..{up}z1r{up}..{down}z1l..cycle rotatedaround(z4,120); + fill z1l{down}..z2l{down}..z3l--z4--z3r..{up}z2r..{up}z1r{up}..{down}z1l..cycle rotatedaround(z4,180); + fill z1l{down}..z2l{down}..z3l--z4--z3r..{up}z2r..{up}z1r{up}..{down}z1l..cycle rotatedaround(z4,240); + fill z1l{down}..z2l{down}..z3l--z4--z3r..{up}z2r..{up}z1r{up}..{down}z1l..cycle rotatedaround(z4,300); + penlabels(range 1 thru 12); +endchar; + +beginchar(hex"0B",4jut#+2stem#+2c#+3s#,asc_height#,0); +w:=w+1; +numeric dist; dist := 2jut+2stem-3c; +x1g=x2g=s+dist; y1c=x_height; y2c=0; +serif(1,stem,-90,jut,jut); +serif(2,stem,90,jut,jut); +fill serif_edge2--reverse serif_edge1--cycle; +x3=x1; y3=x_height; x4r=x1l-.1stem; y4=x_height+1/2(asc_height-x_height); +x5l=x4l-.05stem; y5=y4+1.5bar; x6=round (x1r+.2stem); y6=h-1/2bar; +penpos3(stem,180); +penpos4(.75curve,180); +penpos5(.6curve,180); +penpos6(bar,90); +penstroke z3e{dir 95}...{up}z4e..z5e..{right}z6e; +y6=y7; x7e=w-s; +ur_drop(7,stem,x7e-x6,drop_round,bar); +fill ur_drop_edge7; fill z7e..z7c..cycle; +x11g=x12g=s; y11c=x_height; y12c=0; +serif(11,stem,-90,jut,jut); +serif(12,stem,90,jut,jut); +fill serif_edge12--reverse serif_edge11--cycle; +x13=x11; y13=x_height; x14l=x13l; y14=x_height+1/2(asc_height-x_height); +x15l=x14l; y15=y14+1.5bar; x16=x11r+.8stem; y16=h-1/2bar; +x17r=x5l; y17=y5; +penpos13(stem,180); +penpos14(.75curve,180); +penpos15(.6curve,180); +penpos16(bar,90); +penpos17(bar,0); +penstroke z13e{dir 95}...{up}z14e..z15e..{right}z16e{right}..{down}z17e; +fill z11d--z1c--z1b--z11e--cycle; +penlabels(1,2,3,4,5,6,7,11,12,13,14,15,16,17); +endchar; + +beginchar(hex"5E",6u#,body_height#,0); + x1=s+.45cap_bar*cosd 45; x2=w/2; y2=h-bar; + z1=z2+whatever*dir -135; x3=w-x1; z3=z2+whatever*dir -45; + penpos1(bar,135); penpos2(2bar,90); penpos3(bar,45); + penstroke z1e--z2e--z3e; + fill z1r..z1l..cycle; fill z3r..z3l..cycle; + penlabels(1,2,3); +endchar; + +beginchar(hex"16",6u#,body_height#,0); + x1=s; x2=w-x1; y1=y2=h-4bar; + penpos1(.8bar,90); penpos2(.8bar,90); + penstroke z1e--z2e; + fill z1r..z1l..cycle; fill z2r..z2l..cycle; + penlabels(1,2); +endchar; + +beginchar(hex"7F",2stem#+4s#,x_height#+2.1stem#,0); + z1=(s+.5stem,h); z2=(s+.5stem,h-stem); + fill z1..z2..cycle; + z3=(w-s-.5stem,h); z4=(w-s-.5stem,h-stem); + fill z3..z4..cycle; + penlabels(1,2,3,4); +endchar; + +ligtable CYR_A: "A": + CYR_O kern -k#, + CYR_ES kern -k#, + CYR_TE kern -kk#, + "T" kern -kk#, + CYR_U kern -kk#, + CYR_EF kern -k#, + CYR_CHE kern -kk#, + CYR_HARD_SIGN kern -k#, + CYR_te kern -k#, + "t" kern -k#, + CYR_u kern -kk#, + CYR_ef kern -k#, + CYR_che kern -kk#, + "W" kern -kkk#, + "V" kern -kkk#, + "Y" kern -kkk#, + "y" kern -kk#, + "w" kern -kk#, + "v" kern -kk#; + +ligtable CYR_GHE: CYR_TE: "T": + CYR_A kern -kk#, + "A" kern -kk#, + CYR_DE kern -k#, + CYR_EL kern -kk#, + CYR_a kern -kk#, + "a" kern -kk#, + CYR_de kern -k#, + CYR_el kern -kk#, + CYR_o kern -k#, + CYR_es kern -k#; + +ligtable CYR_O: CYR_E: CYR_YU: + CYR_U kern -k#, + CYR_ha kern -k#, + "X" kern -k#, + CYR_HA kern -k#; + +ligtable CYR_ER: "P": + CYR_A kern -kk#, + CYR_a kern -kk#, + CYR_el kern -k#; + +ligtable CYR_U: + CYR_A kern -kkk#, + "A" kern -kkk#, + CYR_a kern -kkk#, + "a" kern -kkk#, + CYR_O kern -k#, + CYR_ES kern -k#, + CYR_EL kern -k#, + CYR_el kern -kk#, + CYR_EF kern -k#; + +ligtable CYR_HA: "X": + CYR_O kern -k#, + "O" kern -k#, + "Q" kern -k#, + "C" kern -k#, + "G" kern -k#; + +ligtable CYR_a: "a": + CYR_O kern -k#, + CYR_ES kern -k#, + CYR_TE kern -kk#, + CYR_U kern -kk#, + CYR_EF kern -k#, + CYR_CHE kern -kk#, + CYR_HARD_SIGN kern -k#, + CYR_o kern -k#, + CYR_es kern -k#, + CYR_te kern -kk#, + CYR_u kern -kk#, + CYR_ef kern -k#, + CYR_che kern -kk#, + CYR_hard_sign kern -k#, + CYR_che kern -kk#, + "V" kern -kk#, + "W" kern -kk#, + "T" kern -kk#, + "y" kern -kk#, + "v" kern -kk#, + "w" kern -kk#, + "t" kern -kk#, + "u" kern -k#, + "Y" kern -kk#; + +ligtable CYR_ghe: CYR_te: "t": + CYR_A kern -kk#, + "A" kern -kk#, + CYR_DE kern -k#, + CYR_EL kern -kk#, + CYR_a kern -kk#, + "a" kern -kk#, + CYR_de kern -k#, + CYR_el kern -kk#, + CYR_o kern -k#, + CYR_es kern -k#; + +ligtable CYR_o: CYR_e: CYR_yu: "o": "d": + CYR_u kern -k#, + "x" kern -k#, + CYR_ha kern -k#, + "v" kern -k#, + "w" kern -k#, + "V" kern -k#, + "W" kern -k#; + +ligtable CYR_er: "p": + CYR_A kern -k#, + "A" kern -k#, + "a" kern -kk#, + CYR_a kern -kk#, + CYR_el kern -k#; + +ligtable CYR_u: + CYR_A kern -kk#, + "A" kern -kk#, + CYR_a kern -kkk#, + "a" kern -kkk#, + CYR_o kern -k#, + CYR_es kern -k#, + CYR_el kern -k#, + CYR_ef kern -k#; + +ligtable CYR_ha: "x": + "o" kern -k#, + CYR_o kern -k#; + +ligtable "D": "O": "Q": + "X" kern -k#; + +ligtable "L": "l": + "T" kern -kk#, + "Y" kern -kk#, + "t" kern -kk#, + CYR_TE kern -kk#, + CYR_te kern -kk#, + "y" kern -kk#; + +ligtable "V": "W": + "A" kern -kkk#, + "a" kern -kkk#, + CYR_A kern -kkk#, + CYR_a kern -kkk#; + +ligtable "Y": + CYR_A kern -kk#, + CYR_a kern -kk#, + "a" kern -kk#, + "A" kern -kk#; + +ligtable "v": "w": + "A" kern -kk#, + CYR_A kern -kk#, + CYR_a kern -kk#, + "o" kern -k#, + "c" kern -k#, + "a" kern -kk#; + +ligtable hex"37": + CYR_A kern -kk#, + CYR_a kern -kk#, + "a" kern -kk#, + "A" kern -kk#; +ligtable oct"55": + oct"55" =: hex"7b"; +ligtable hex"7b": + oct"55" =: hex"7c"; +end. |