% GMCHARS.MF % Metafont source file of the Gurmukhi font % % Author: Amarjit Singh % E-mail: asingh@evolving.com % % This program is free software; you can redistribute it and/or modify % it under the terms of the GNU General Public License as published by % the Free Software Foundation; either version 1, or (at your option) % any later version. % % This program is distributed in the hope that it will be useful, % but WITHOUT ANY WARRANTY; without even the implied warranty of % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the % GNU General Public License for more details. % % You should have received a copy of the GNU General Public License % along with this program; if not, write to the Free Software % Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. % %________________________________________________________________________ beginchar(0,0,ht#,0); "sub-u"; % 0x0 pickup frame_pen; x1=-1/2uwidth; y1=mb-(penwd+1/4uwidth); z2=(1/4uwidth, y1); draw z1{down}..tension4.0..z2; endchar; beginchar(1,0,ht#,0); "sub-U"; % 0x1 pickup frame_pen; x1=-1/2uwidth; y1=mb-(penwd+1/4uwidth); z2=(1/4uwidth, y1); x3=x1; y3=mb-(penwd+3/5uwidth); z4=(x2, y3); draw z1{down}..tension4.0..z2; draw z3{down}..tension4.0..z4; endsav; beginchar(3,.9twd#+brm#,1.5ht#,0); "sup-e"; % 0x3 pickup frame_pen; z1=(w-brm,ht+1.5penwd); z2=(0,1.5ht); draw z1{curl.5}..{left}z2; endchar; beginchar(11,1.1twd#+brm#,ht#,0); ".g"; % 0xb italcorr brm#; path p; z11=(.6(w-brm),.5penwd); sqdot(z11); frame; z5=(.25(w-brm),h); z6=(x5,.3h); z7=2/3[z5,z6]; z8=z7 shifted (.1(w-brm),0); z9= (1/2penwd,y6+.08h); p = z5..z8{down}..z6{left}..z9{up}; z10 = point 2.4 of p; draw p..z10; endchar; beginchar(12,1.1twd#+brm#,ht#,0); ".kh"; % 0xc italcorr brm#; tframe; path p; z5=(1/2penwd,.55h); z6=(x3,.55h); z7=(0,h); draw z5{dir-70}..tension.95..z6; p = z5{right}..tension.95..z7; draw p; z12=(.65(w-brm),0); sqdot(z12); z8 = point .22 of p; x9 = x3; y9 = y8; pickup sub_pen; draw z8--z9; endchar; beginchar(20,twd#,ht#,0); "period"; % 0x14 z1=(1/2w,1/2penwd); sqdot(z1); endchar; beginchar(26,1.15twd#+rm#,ht#,0); "'n"; % 0x1a italcorr rm#+.5twd#; pickup frame_pen; z1=(0,h); z2=(w,h); draw z1--z2; lm := w-rm; x3=good.x .25lm; y3=h; z4=(x3,.68h); z5=(lm,.47h); z6=(.3lm,.1h); z7=(3/2penwd,.23h); draw z3--z4{right}..tension.9..{down}z5..tension.9..{left}z6..z7; z8=(.6lm,-1/7h); draw z7{right}..tension.8..z8; endchar; beginchar(27,1.07twd#+rm#,ht#,0); "front-o"; % 0x1b pickup frame_pen; z1=(0,h); z2=(w,h); lm:=w-rm; z3=(.84lm,h); z4=(.4lm,.55h); z5=(.64lm,y4); z6=(x5,1/2penwd); z7=(1/2penwd,h); draw z1--z2; draw z4--z5{right}..tension1.1..z3; draw z5..z6{left}..{curl.4}z7; x8=.42lm+1/4penwd; y8=1.5h; x9=lm; y9 = 1.6h; draw z7{up}..z8..z9; % z8=(0,1.1h); % z9=(w-.5rm+.6twd,1.8h); % draw z7..z8..z9; % % curl over small e matra % frame % z5=(x3,1.35ht); % z6=(w-.5rm+.6twd,1.35ht); % x7=.3[x5,x6]; y7=1.5ht; % draw z3--z5{up}..z7{right}..{curl0}z6; % very intersting curve % x8 = good.x w-brm; y8 = 1.35h; % z9=(w-.5rm+.6twd,2.35h); % x10=0; y10=1.5h; % z11=(0,h); % draw z11..z10{left}..z9; % perfect curve but too big % z8=(0,1.5h); % z9=(w-.5rm+.6twd,2.35h); % draw z7..z8..tension.95..z9; endchar; beginchar(" ",0,1.5ht#,0); "candrabindu"; % 0x20 lm := .7twd; z1=(.55lm,1.48ht); sqdot(z1); pickup sub_pen; z5=(lm,1.5ht); z6=(.66lm,1.25ht); z7=(0,1.5ht); draw z5..tension1.1..z6{left}..z7; endchar; beginchar(38,0,ht#,0); "/v"; % 0x26 path p; pickup sub_pen; z1 = (2/14uwidth,mb-penwd); z2 = (-9/28uwidth,mb-(penwd+.18uwidth)); z3 = (9/28uwidth,mb-(penwd+.36uwidth)); p = z1{left}..tension1.2..z2{down}..tension1.1..{curl.2}z3; draw p; z4 = point 1.5 of p; z5 = (-8/28uwidth,mb-(penwd+.57uwidth)); z6 = (3/7uwidth,mb-(penwd+.68uwidth)); draw z4..tension1.1..z5{down}..tension1.2..{curl.3}z6; endchar; beginchar("'",1.1twd#+rm#,ht#,0); "f"; % 0x27 italcorr rm#+.3twd#; path p; pickup frame_pen; z1=(0,h); z2=(w,h); draw z1--z2; x3=good.x .85(w-rm); y3=h; z4=(x3,.72h); z5=(1/2penwd,.47h); z6=(.7(w-rm),1/2penwd); z7=(w-rm,.23h); draw z3--z4; p=z4{left}..tension.9..{down}z5..tension.9..{right}z6..{up}z7; draw p..z6; z12=(1/2penwd,0); sqdot(z12); endchar; beginchar(")",1.1twd#+brm#,ht#,0); "z"; % 0x29 italcorr brm#; frame; x5=.25w; y5=.1h; x6=x5; y6=good.y .65h; x7=x3; y7=y6-penwd; z8=(x6-penwd,y6-penwd); draw z7--z8{up}..z6--z5; z11=(.6(w-brm),.5penwd); sqdot(z11); endchar; beginchar(",",0,ht#,0); "visarga"; % 0x2c z1=(0,1.45h); sqdot(z1); endchar; beginchar(".",twd#,ht#,0); "|"; % 0x2e pickup frame_pen; x1=good.x w; y1=0; z2=(x1,h); draw z1--z2; endchar; beginchar("0",.5ht#+rm#,ht#,0); "0"; % 0x30 pickup frame_pen; z1 =(1/4h+1/2penwd,1/2h); draw fullcircle scaled 1/2h shifted z1; endchar; beginchar("1",5/8twd#+rm#,ht#,0); "1"; % 0x31 pickup frame_pen; path p; z1=(3/2penwd,.33h); z2=(w-rm,0); z3=(x2-.75penwd,-.07h); z4=(w-rm,.75h); z5=(.6(w-rm),h); z6=(3/2penwd,.8h); draw z1--z2; draw z2--z3; p=z1{curl0}..tension1.2..z4{up}..z5{left}; z7=point .8 of p; draw p..z6{down}..tension1.1..z7; endchar; beginchar("2",twd#+rm#,ht#,0); "2"; % 0x32 pickup frame_pen; z1=(1/2penwd,.9h); z2=(w-rm,.7h); z3=(.25(w-rm),.35h); z4=(x3,.45h); z5=(w-rm,0); draw z1{curl0}..tension1.1..z2{down}..z3{left}..z4..tension2..{curl0}z5; endchar; beginchar("3",.85twd#+rm#,ht#,0); "3"; % 0x33 pickup frame_pen; z1=(1/2penwd,.95h); z2=(.95(w-rm),.82h); z3=(.65(w-rm),.65h); z4=(.2(w-rm),.65h); z5=(w-rm,.4h); z6=(.3(w-rm),.2h); z7=(x6,.3h); z8=(w-rm,0); draw z1{right}..tension1.1..z2{down}..{left}z3..tension1.2..{curl0}z4; draw z3..z5{down}..z6{left}..z7..tension2..{curl0}z8; endchar; beginchar("4",4/3twd#+rm#,ht#,0); "4"; % 0x34 pickup frame_pen; z1=(1/2penwd,h); z2=(w-rm,h); z3=(1/2(w-rm),.2h); z4=(1/2(w-rm),.64h); draw z1..z4..tension.9..z3{left}..tension.9..z4..z2; endchar; beginchar("5",1.1twd#+rm#,ht#,0); "5"; % 0x35 italcorr brm#; pickup frame_pen; z3=(.8(w-rm),h); z4=(x3,0); draw z3--z4; z5=(1/2penwd,.55h); z6=(x3,.55h); z7=(.3x3,h); draw z5{dir-70}..tension.95..z6; draw z5{right}..tension.95..z7; endchar; beginchar("6",.85twd#+rm#,ht#,0); "6"; % 0x36 pickup frame_pen; lm:=w-.5rm; z1=(.85lm,1/2penwd); z2=(1/2penwd,.22h); z3=(.35lm,.4h); z4=(.8lm,.4h); z5=(1/2penwd,.65h); z6=(.7lm,.85h); z7=(x6,.75h); z8=(x6,1.2h); draw z1{left}..tension1.1..z2{up}..{right}z3..tension1.2..{curl0}z4; draw z3..z5{up}..z6{right}..z7{left}..{right}z8; endchar; beginchar("7",twd#+rm#,ht#,0); "7"; % 0x37 pickup frame_pen; lm:=w-rm; z1 = (.5lm,.8h); z2 = (lm,.8h); z3 = (1/2penwd, penwd); draw z1{up}...{down}z2{down}..z3; endchar; beginchar("8",1.15twd#+rm#,ht#,0); "8"; % 0x38 italcorr rm#+.5twd#; pickup frame_pen; path p; lm := w-rm; z4=(.9lm,.66h); z7=(.25w, .6h); x5=x7-3/4penwd; y5 = y4; x6=x7; y6=y4+3/4penwd; z8=(lm,.1h); draw z4--z5{up}..z6--z7; draw z7{down}..tension.95..z8; endchar; beginchar("9",1.15twd#+rm#,ht#,0); "9"; % 0x39 italcorr rm#+.5twd#; pickup frame_pen; path p; lm := w-rm; z1=(.8lm,.7h); z2=(.8lm,h); draw z1{left}..{right}z2; z4=(.9lm,.66h); z7=(.25w, .6h); x5=x7-3/4penwd; y5 = y4; x6=x7; y6=y4+3/4penwd; z8=(lm,.1h); draw z4--z5{up}..z6--z7; draw z7{down}..tension.95..z8; endchar; beginchar(":",1.07twd#+rm#,ht#,0); "OM"; % 0x3a pickup frame_pen; lm:=w-rm; z1=(0,h); z2=(lm,h); z3=(.84lm,h); z4=(.4lm,.55h); z5=(.64lm,y4); z6=(x5,1/2penwd); z7=(1/2penwd,h); draw z1--z2; draw z4--z5{right}..tension1.1..z3; draw z5..z6{left}..{curl.4}z7; x8=.52lm+1/4penwd; y8=1.26h; draw z7{up}..z8; z9=(w,1.5h); draw z8{up}..z9; endchar; beginchar(";",1.2twd#,ht#,0); "||"; % 0x3b pickup frame_pen; x1=good.x w-2.5penwd; y1=0; z2=(x1,h); x3=good.x w; y3=0; z4=(x3,h); draw z1--z2; draw z3--z4; endchar; beginchar("A",2rm#,ht#,0); "A"; % 0x41 pickup frame_pen; z1=(0,h); z2=(w,h); x3=good.x w-brm; y3=h; z4=(x3,.4h); draw z1--z2; draw z3--z4; endchar; beginchar("B",1.07twd#+rm#,ht#,0); "B"; % 0x42 pickup frame_pen; z1=(0,h); z2=(w,h); lm:=w-rm; z3=(.84lm,h); z4=(rm,.4h); z5=(rm,.7h); z6=(.84lm,.35h); z7=(1/2penwd,.2h); draw z1--z2; draw z3{down}..tension1.3..{left}z4{left}..z5; draw z5{right}..z6{down}..tension1.5..{up}z7; endchar; beginchar("C",1.25twd#+rm#+penwd#,ht#,-.1ht#); "C"; % 0x43 italcorr rm#+.5twd#; pickup frame_pen; z1=(0,h); z2=(w,h); x3=good.x w-rm-penwd; y3=h; z4=(x3,.74h); z5=(.2twd+1/2penwd,.6h); z6=(x3+1/2penwd,.37h); % z7=(1/2(.25twd+x3),1/7h); z7=(1/2(.25twd+x3),1/2penwd); z8=(.15w,.45h); draw z1--z2; draw z3--z4; draw z4{left}..z5{down}..z6{down}..z7{left}..z8{right}..tension.95..z7; endsav; beginchar("D",1.1twd#+brm#,ht#,0); "dh"; % 0x44 italcorr brm#; frame; z5=(1/2penwd,.55h); z6=(x3,.55h); z7=(.3x3,h); draw z5{dir-70}..tension.95..z6; draw z5{right}..tension.95..z7; endchar; beginchar("E",1.6rm#,1.5ht#,0); "i"; % 0x45 pickup frame_pen; z1 = (0,ht); z2 = (w,ht); x3 = good.x w-rm; y3 = ht; z4 = (x3,0); draw z1--z2; draw z3--z4; z5=(x3,1.35ht); z6=(w-.5rm+.6twd,1.35ht); x7=.3[x5,x6]; y7=1.5ht; draw z3--z5{up}..z7{right}..{curl0}z6; endchar; beginchar("F",2rm#,1.5ht#,0); "I"; % 0x46 frame; z5=(-1.5rm-penwd,1.25ht); z6=(1/2x5,1.5ht); draw z3{curl0}..{left}z6...z5; endchar; beginchar("G",1.45twd#+brm#,ht#,0); "gh"; % 0x47 italcorr brm#; tframe; path p; z5=(1/2penwd,.55h); z7=(0,h); draw z5{right}..tension.95..z7; x6 = .6[x5,x3]; y6=.25h; draw z5{dir-70}..tension.95..z6; x8 = x6; y8=.75h; draw z6--z8; z9=(x3-1/2penwd, .35h); draw z6{dir-40}..tension.95..z9; endchar; beginchar("H",0,ht#,.25ht#); "/h"; % 0x48 pickup sub_pen; z1=(.1twd,mb-1/2penwd); z2=(.1twd,mb-.54h); z3=(-.35twd,mb-.35h); draw z1--z2; draw z2{left}..z3; endchar; beginchar("J",1.15twd#+rm#,ht#,0); "J"; % 0x4a italcorr rm#+.5twd#; pickup frame_pen; z1=(0,h); z2=(w,h); draw z1--z2; lm := w-rm; z11 = (lm, h); z12 = (.1lm, .65h); draw z11{down}..tension1.5..z12; x3=good.x .45lm; y3=h; z4=(x3,.68h); z5=(lm,.47h); z6=(.3lm,.1h); z7=(penwd,.23h); draw z3{left}..z4{right}..tension.9..{down}z5..tension.9..{left}z6..z7; z8=(.5lm,-1/7h); draw z7{right}..tension.8..z8; endchar; beginchar("K",1.1twd#+brm#,ht#,0); "kh"; % 0x4b italcorr brm#; tframe; path p; z5=(1/2penwd,.55h); z6=(x3,.55h); z7=(0,h); draw z5{dir-70}..tension.95..z6; p = z5{right}..tension.95..z7; draw p; z8 = point .22 of p; x9 = x3; y9 = y8; pickup sub_pen; draw z8--z9; endchar; beginchar("O",0,1ht#,0); "O"; % 0x4f pickup frame_pen; path p; z1=(-1.1twd,1.5h); z3=(x1+.9twd-.1brm,h+penwd); x2 = .4 [x1,x3]; y2 = 1.3h; p = z1{down}..z2..{down}z3; draw p; z4=point .95 of p; z5=(x4, h); draw z4--z5; endchar; beginchar("P",1.1twd#+rm#,ht#,0); "ph"; % 0x50 italcorr rm#+.3twd#; path p; pickup frame_pen; z1=(0,h); z2=(w,h); draw z1--z2; x3=good.x .85(w-rm); y3=h; z4=(x3,.72h); z5=(1/2penwd,.47h); z6=(.7(w-rm),1/2penwd); z7=(w-rm,.23h); draw z3--z4; p=z4{left}..tension.9..{down}z5..tension.9..{right}z6..{up}z7; draw p..z6; endchar; beginchar("R",1.15twd#+rm#,ht#,.4ht#); "gn"; % 0x52 italcorr rm#+.5twd#; path p; pickup frame_pen; z1=(0,h); z2=(w,h); draw z1--z2; lm := w-rm; x3 = good.x .7lm; y3=h; z4 = (x3,.72h); z6 = (.55lm,.4h); z7 = (.8lm,.45h); draw z3--z4; vardef dwn(expr y) = xpart direction 1 of (z4{curl0}..tension1.1.. (1/2penwd,y)..z6{right}..{curl0}z7) < 0 enddef; z55 = (1/2penwd,solve dwn(y4,y6)); z8 = (x7, y6); p = z4{curl0}..tension1.1..z55..z6{right}..{curl0}z7; draw p; z9 = p intersectionpoint ((.25lm,.65h)--(.25lm,0)); z10 = (x7,penwd); draw z9{down}..tension.95..z10; z56 = point .2 of p; draw p; % pickup penrazor scaled subthick; draw (1/2penwd,h)--(x56,y56-1/2penwd); endchar; beginchar("T",1.1twd#+brm#,ht#,0); "th"; % 0x54 italcorr brm#; frame; path p; z5=(1/2penwd,.55h); z6=(x3,.55h); z7=(0,h); draw z5{dir-70}..tension.95..z6; p = z5{right}..tension.95..z7; draw p; z8 = point .22 of p; x9 = x3; y9 = y8; pickup sub_pen; draw z8--z9; endchar; beginchar("V",1.15twd#+rm#,ht#,0); ".t"; % 0x56 italcorr rm#+.5twd#; pickup frame_pen; z1=(0,h); z2=(w,h); draw z1--z2; lm := w-rm; x3=good.x .7lm; y3=h; z4=(x3,.66h); z6=(.55lm,.1h); z7=(lm,.2h); draw z3--z4; vardef dwn(expr y) = xpart direction 1 of (z4{curl0}..(1/2penwd,y) ..z6{right}..{curl0}z7) < 0 enddef; z55=(1/2penwd,solve dwn(y4,y6)); draw z4{curl0}..z55..z6{right}..{curl0}z7; endchar; beginchar("W",1.15twd#+rm#,ht#,0); ".th"; % 0x57 italcorr rm#+.5twd#; pickup frame_pen; z1=(0,h); z2=(w,h); draw z1--z2; lm:= w-rm; x3=good.x .75lm; y3=h; z4=(x3,.66h); z6=(.55lm,.1h); z7=(lm,y5); z8=(x4+penwd,y4-penwd); draw z3--z4; vardef dwn(expr y) = xpart direction 1 of (z4{curl0}..(1/2penwd,y) ..{right}z6) < 0 enddef; z5 = (1/2penwd,solve dwn(y4,y6)); draw z4{curl0}..z5..z6{right}..z7{up}..{curl0}z8; endchar; beginchar("X",1.07twd#+rm#,ht#,0); ".d"; % 0x58 pickup frame_pen; path p; z1=(0,h); z2=(w,h); lm:=w-rm; z3=(.84lm,h); z4=(.3lm,.65h); z5=(.64lm,y4); z6=(.84lm,.2h); z7=(.24lm,1/2penwd); draw z1--z2; draw z4--z5{right}..tension1.1..z3; p = z5..tension1.1..z6{down}..tension1.8..z7; z8=(x7,.32h); z9=point .97 of p; draw p{left}..z8{right}..z9; endchar; beginchar("Y",1.15twd#+rm#,ht#,0); ".dh"; % 0x59 italcorr rm#+.5twd#; pickup frame_pen; path p; z1=(0,h); z2=(w,h); draw z1--z2; lm := w-rm; x3=good.x .9lm; y3=h; z4=(x3,.66h); z7=(.25w, .6h); x5=x7-3/4penwd; y5 = y4; x6=x7; y6=y4+3/4penwd; z8=(.8lm,1/2penwd); z9=(lm,.23h); draw z3--z4; draw z4--z5{up}..z6--z7; p = z7{down}..tension.9..{right}z8..{up}z9; draw p..z8; endchar; beginchar("Z",1.15twd#+rm#,ht#,.4ht#); ".n"; % 0x5a italcorr rm#+.5twd#; path p; pickup frame_pen; z1=(0,h); z2=(w,h); draw z1--z2; lm := w-rm; x3 = good.x .7lm; y3=h; z4 = (.3lm, h); z5 = (lm, .7h); p = z4{down}..tension2.5..z5; draw p; z8 = p intersectionpoint ((x3,h)--(x3,.5h)); hdif := y3-y8; z9 = (x8,.72h-hdif); z11 = (.55lm,.3h-hdif); z12 = (lm,.4h-hdif); vardef dwn(expr y) = xpart direction 1 of (z9{curl0}..tension1.1.. (1/2penwd,y)..z11{right}..{curl0}z12) < 0 enddef; z55 = (1/2penwd,solve dwn(y9,y11)); draw z8--z9; draw z9{curl0}..tension1.1..z55..z11{right}..{curl0}z12; endchar; beginchar("\",0,ht#,0); "anusvara"; % 0x5c pickup frame_pen; z1=(0,1.25h); draw (reverse halfcircle rotated 0 scaled 2usthick shifted z1); endchar; beginchar("^",0,ht#,.25ht#); "virama"; % 0x5e pickup frame_pen; z1=(1.35rm,mb-.5h); z2=(0,mb-.3h); draw z1..{left}z2; endchar; beginchar("_",0,1.5ht#,0); "adhak"; % 0x5f pickup sub_pen; lm := .7twd; z5=(lm,1.5ht); z6=(.66lm,1.25ht); z7=(0,1.5ht); draw z5..tension1.1..z6{left}..z7; endchar; beginchar("a",1.45twd#+brm#,ht#,0); "front-a"; % 0x61 italcorr brm#; path p; path q; tframe; pickup frame_pen; z5=(1/2penwd,h); z6=(.2w,.3h); z7=2/3[z5,z6]; z8=z7 shifted (.08w,0); z9= (.1w,y6+.1h); p = z5..z8{down}..z6{left}..z9{up}; offs=.2w+.1w; z15=(offs+1/2penwd,.8h); z16=(offs+.1w,.1h); z17=2/3[z15,z16]; z18=z7 shifted (offs+.08w,0); z19= (offs+.1w,y16+.1h); q = z15..z18{down}..z16{left}..z19{up}; z21=(x3,.9h); draw p..z15..q..z21; endchar; beginchar("b",1.1twd#+brm#,ht#,0); "b"; % 0x62 italcorr brm#; frame; path p; z5=(x3,.5h); z6=(.65x3,.65h); z10=(.18x3,.5h); p=z5{curl0}..z10{up}...{right}z6; draw p; z7= point 1.7 of p; z8=(.26x3,h); vardef yup(expr y)= xpart direction 1 of (z7{curl0}..(1/2penwd,y)..{right}z 8) < 0 enddef; z9=(1/2penwd,solve yup(y7,y8)); draw z7{curl0}..z9..{right}z8; endchar; beginchar("c",1.15twd#+rm#,ht#,0); "c"; % 0x63 italcorr rm#+.5twd#; pickup frame_pen; path p; z1=(0,h); z2=(w,h); draw z1--z2; lm := w-rm; x3=good.x .9lm; y3=h; z4=(x3,.66h); z7=(.25w, .6h); x5=x7-3/4penwd; y5 = y4; x6=x7; y6=y4+3/4penwd; z8=(.8lm,1/2penwd); draw z3--z4; draw z4--z5{up}..z6--z7; p = z7{down}..tension.9..{right}z8; draw p{dir-20}..tension5.5..z4; endchar; beginchar("d",1.15twd#+rm#,ht#,0); "d"; % 0x64 italcorr rm#+.5twd#; pickup frame_pen; path p; z1=(0,h); z2=(w,h); draw z1--z2; lm := w-rm; x3=good.x .9lm; y3=h; z4=(x3,.66h); z7=(.25w, .6h); x5=x7-3/4penwd; y5 = y4; x6=x7; y6=y4+3/4penwd; z8=(lm,.1h); draw z3--z4; draw z4--z5{up}..z6--z7; draw z7{down}..tension.95..z8; endchar; beginchar("f",1.1twd#+brm#,ht#,0); "sh"; % 0x66 italcorr brm#; frame; x5=good.x 3/2penwd; y5=h; z6=(x5,y7-penwd); y7=good.y .35h+penwd; x7=x3; z8=(x6-1/2penwd,y6+1/2penwd); draw z5--z6; draw (reverse halfcircle rotated rot scaled usthick shifted z8)--z7; z11=(.6(w-brm),.5penwd); sqdot(z11); endchar; beginchar("g",1.1twd#+brm#,ht#,0); "g"; % 0x67 italcorr brm#; path p; frame; z5=(.25(w-brm),h); z6=(x5,.3h); z7=2/3[z5,z6]; z8=z7 shifted (.1(w-brm),0); z9= (1/2penwd,y6+.08h); p = z5..z8{down}..z6{left}..z9{up}; z10 = point 2.4 of p; draw p..z10; endchar; beginchar("h",1.1twd#+.5rm#,ht#,0); "h"; % 0x68 pickup frame_pen; z1 = (0,h); z2 = (w,h); z5=(.55w,h); z6=(x5,.2h); z7= (.1w,.45h); draw z1--z2; draw z5--z6{down}..tension1.5..z7; endchar; beginchar("i",1.15twd#+rm#,ht#,0); "front-i"; % 0x69 italcorr rm#+.5twd#; pickup frame_pen; path p; z1=(0,h); z2=(w,h); draw z1--z2; lm := w-rm; x3=good.x .7lm; y3=h; z4=(x3,.66h); z6=(.55lm,.1h); z7=(lm,.2h); draw z3--z4; vardef dwn(expr y) = xpart direction 1 of (z4{curl0}..(1/2penwd,y) ..z6{right}..{curl0}z7) < 0 enddef; z55=(1/2penwd,solve dwn(y4,y6)); p = z4{curl0}..z55..z6{right}..{curl0}z7; z56 = point .2 of p; draw p; pickup penrazor scaled subthick; draw (1/2penwd,h)--(x56,y56-1/2penwd); endchar; beginchar("j",1.1twd#+brm#,ht#,0); "j"; % 0x6a italcorr brm#; frame; x5=.25w; y5=.1h; x6=x5; y6=good.y .65h; x7=x3; y7=y6-penwd; z8=(x6-penwd,y6-penwd); draw z7--z8{up}..z6--z5; endchar; beginchar("k",.8twd#+1.5rm#,ht#,0); "k"; % 0x6b italcorr 1.5rm#; path p; z1=(0,h); z2=(w,h); pickup frame_pen; draw z1--z2; z3=(w-rm,h); z4=(rm,.35h); z5=(rm,.65h); z6=(w-rm,0); draw z3{curl0}..tension1.1..{left}z4{left}..z5; pickup penrazor scaled subthick; draw z5--z6; endsav; beginchar("l",1.25twd#+rm#,ht#,0); "l"; % 0x6c path p; path q; lm := (w-rm); z3=(.5lm, .5h); pickup penrazor scaled subthick; p = (.2lm,h)--z3; q = (.8lm,h)--z3; draw p; draw q; pickup frame_pen; z1=(0,h); z2=(w,h); draw z1--z2; z6 = point .7 of p; z7 = point .7 of q; z4 = (.15lm, 1/2penwd); z5 = (.85lm, 1/2penwd); draw z6{left}..z4; draw z7{right}..z5; endchar; beginchar("m",1.1twd#+brm#,ht#,0); "m"; % 0x6d italcorr brm#; tframe; z5=(0,h); z6=(3/2penwd+.1twd,.76h); z7=(3/2penwd+.1twd,.34h); z8=(x3,y7+penwd); z9=(x7-1/2penwd,y7+1/2penwd); draw z5{right}..tension.95..z6---z7; draw (reverse halfcircle rotated rot scaled usthick shifted z9)--z8; endchar; beginchar("n",1.25twd#+rm#,ht#,0); "n"; % 0x6e path p; path q; lm := (w-rm); pickup frame_pen; z1=(0,h); z2=(w,h); draw z1--z2; z3=(.5lm, h); z4 = (.15lm, 1/2penwd); z5 = (.85lm, 1/2penwd); z6=(.5lm, .7h); draw z4{up}..z6..{down}z5{left}; draw z4{right}; draw z3--z6; endchar; beginchar("o",0,1ht#,0); "o"; % 0x6f pickup frame_pen; z1=(-1.1twd,1.5h); z3=(x1+.9twd-.1brm,h+penwd); x2 = .4 [x1,x3]; y2 = 1.3h; draw z1{down}..z2..{down}z3; endchar; beginchar("p",1.1twd#+brm#,ht#,0); "p"; % 0x70 italcorr brm#; tframe; z5=(1/2penwd,.55h); z6=(x3,.55h); z7=(.3x3,h); draw z5{dir-70}..tension.95..z6; draw z5{right}..tension.95..z7; endchar; beginchar("r",1.1twd#+.5rm#,ht#,0); "r"; % 0x72 pickup frame_pen; z1 = (0,h); z2 = (w,h); z5=(.55w,h); z6=(x5,.2h); z7= (.15w,.45h); z8= (x5,y7); draw z1--z2; draw z5--z6{down}..tension1.5..z7{dir10}..tension1.5..z8; endchar; beginchar("s",1.1twd#+brm#,ht#,0); "s"; % 0x73 italcorr brm#; frame; x5=good.x 3/2penwd; y5=h; z6=(x5,y7-penwd); y7=good.y .35h+penwd; x7=x3; z8=(x6-1/2penwd,y6+1/2penwd); draw z5--z6; draw (reverse halfcircle rotated rot scaled usthick shifted z8)--z7; endchar; beginchar("t",1.07twd#+rm#,ht#,0); "t"; % 0x74 pickup frame_pen; z1=(0,h); z2=(w,h); lm:=w-rm; z3=(.84lm,h); z4=(.4lm,.55h); z5=(.64lm,y4); z6=(x5,1/2penwd); z7=(1/2penwd,.2h); draw z1--z2; draw z4--z5{right}..tension1.1..z3; draw z5..z6{left}..{curl.4}z7; endchar; beginchar("u",1.07twd#+rm#,ht#,0); "front-u"; % 0x75 pickup frame_pen; z1=(0,h); z2=(w,h); lm:=w-rm; z3=(.84lm,h); z4=(.4lm,.55h); z5=(.64lm,y4); z6=(x5,1/2penwd); z7=(1/2penwd,h); x8=.42lm+1/4penwd; y8=1.5h; draw z1--z2; draw z4--z5{right}..tension1.1..z3; draw z5..z6{left}..{curl.4}z7; draw z7{up}..z8..z3; endchar; beginchar("v",1.15twd#+rm#,ht#,.4ht#); "v"; % 0x76 italcorr rm#+.5twd#; path p; pickup frame_pen; z1=(0,h); z2=(w,h); draw z1--z2; lm := w-rm; x3 = good.x .7lm; y3=h; z4 = (x3,.72h); z6 = (.55lm,.4h); z7 = (.8lm,.45h); draw z3--z4; vardef dwn(expr y) = xpart direction 1 of (z4{curl0}..tension1.1.. (1/2penwd,y)..z6{right}..{curl0}z7) < 0 enddef; z55 = (1/2penwd,solve dwn(y4,y6)); z8 = (x7, y6); p = z4{curl0}..tension1.1..z55..z6{right}..{curl0}z7; draw p; z9 = p intersectionpoint ((.25lm,.65h)--(.25lm,0)); z10 = (x7,penwd); draw z9{down}..tension.95..z10; endchar; beginchar("w",1.07twd#+rm#,ht#,0); "R"; % 0x77 pickup frame_pen; path p; z1=(0,h); z2=(w,h); lm:=w-rm; z3=(.84lm,h); z4=(.3lm,.65h); z5=(.64lm,y4); draw z1--z2; draw z4--z5{right}..tension1.1..z3; z6=(lm,.47h); z7=(.3lm,.1h); z8=(penwd,.23h); z9=(.5lm,-1/7h); p = z5..{down}z6..tension.9..{left}z7..z8; draw p; draw z8{right}..tension.8..z9; % z10=point .97 of p; z10=(.7lm,.1h); z11=(.84lm,y9); draw z10..z11; endchar; beginchar("y",1.45twd#+brm#,ht#,0); "y"; % 0x79 italcorr brm#; frame; path p; z5=(1/2penwd,.55h); z7=(0,h); draw z5{right}..tension.95..z7; x6 = .6[x5,x3]; y6=.25h; p = z5{dir-70}..tension.95..z6; x8 = x6; y8=.6h; x9 = x3; y9 = y8; draw p--(x6,y8) ; draw z8--z9; endchar; beginchar("{",.9twd#+brm#,1.5ht#,0); "sup-ai"; % 0x7b pickup frame_pen; z1=(w-brm,ht+1.5penwd); z2=(0,1.35ht); z3=(penwd,1.55ht); draw z1{curl.5}..{left}z2; draw z1{curl.5}..{left}z3; endchar; beginchar("}",0,ht#,0); "r-stroke"; % 0x7d pickup sub_pen; z1= (0,mb-(penwd+3/8uwidth)); lft z2= (-1/2uwidth,mb-(penwd+1/8uwidth)); z3= (0,mb-penwd); z4= (1/2uwidth,mb-(penwd+1/2uwidth)); draw z1..tension1.2..z2..z3..{curl0}z4; endsav; beginchar(127,.5ht#+2rm#,ht#,0); "abbrev"; % 0x7f pickup sub_pen; z1=(1/2w,.8h-1/2penwd); draw fullcircle scaled .4h shifted z1; endchar; ligtable "." : "." =: ";"; end.