% blackboard typefaces by Anthony Phan.
% file: mbbcrklo.mf (Cork roman lowercase)
% last modification: 25.10.2001.

% some new instructions (eg. begincorkchar)
% and new measures (eg. accent_height#)
% are defined in the driver file `bbcrkdrv.mf'.

use_rule1;

begincorkchar("a","grave",hex"E0",accent_height#,0);
italcorr cork_ic[a];
complete_grave(lshift,rshift);
endcorkchar;

begincorkchar("a","acute",hex"E1",accent_height#,0);
italcorr cork_ic[a];
complete_acute(lshift,rshift);
endcorkchar;

begincorkchar("a","circumflex",hex"E2",accent_height#,0);
italcorr cork_ic[a];
complete_hat(lshift,rshift);
endcorkchar;

begincorkchar("a","tilde",hex"E3",accent_height#,0);
italcorr cork_ic[a];
complete_tilde(lshift,rshift);
endcorkchar;

begincorkchar("a","umlaut",hex"E4",accent_height_ter#,0);
italcorr cork_ic[a];
complete_umlaut(lshift,rshift);
endcorkchar;

begincorkchar("a","circ",hex"E5",accent_height#,0);
italcorr cork_ic[a];
complete_circ(lshift,rshift);
endcorkchar;

begincorkchar("a","breve",hex"A0",accent_height#,0);
italcorr cork_ic[a];
complete_breve(lshift,rshift);
endcorkchar;

begincorkchar("a","ogonek",hex"A1",0,desc_depth#);
italcorr cork_ic[a];
pickup circle.nib; rt x0=w-apprr;
complete_ogonek(x0,0);
endcorkchar;

begincorkchar("c","acute",hex"A2",accent_height#,0);
italcorr cork_ic[a];
complete_acute(lshift,rshift);
endcorkchar;

begincorkchar("c","hacheck",hex"A3",accent_height#,0);
italcorr cork_ic[a];
complete_hacheck(lshift,rshift);
endcorkchar;

begincorkchar("c","cedilla",hex"E7",0,desc_depth#);
italcorr cork_ic[a];
pickup circle.nib; lft x0l=apprl; rt x0r=w-apprr;
complete_cedilla(0.527[x0l,x0r],-oo);
endcorkchar;

begincorkchar("d","bar",hex"9E",0,0);
italcorr cork_ic[a];
pickup circle.nib;
y1=y2=y3=y4=good.y 0.5[x_height,h];
rt x1=w-apprr+hround u; x2=w-apprr; x3=x2-hthick-thin;
rt x1-lft x4=slash_width; pickup square.nib;
draw z1..z2; draw z3..z4; labels(1,2,3,4);
endcorkchar;

begincorkchar("d","hacheck",hex"A4",0,0);
italcorr cork_ic[a];
correct_width_by(0,7.5u#-hthick#-thin#);
pickup circle.nib;
top y1=x_height; top y4=h; rt x3=w-apprr; x3-x5=hthick;
lft x1=hround min(apprl+9u,x5-thin); complete_comma;
endcorkchar;

begincorkchar("e","grave",hex"E8",accent_height#,0);
italcorr cork_ic[a];
complete_grave(lshift,rshift);
endcorkchar;

begincorkchar("e","acute",hex"E9",accent_height#,0);
italcorr cork_ic[a];
complete_acute(lshift,rshift);
endcorkchar;

begincorkchar("e","circumflex",hex"EA",accent_height#,0);
italcorr cork_ic[a];
complete_hat(lshift,rshift);
endcorkchar;

begincorkchar("e","umlaut",hex"EB",accent_height_ter#,0);
italcorr cork_ic[a];
complete_umlaut(lshift,rshift);
endcorkchar;

begincorkchar("e","hacheck",hex"A5",accent_height#,0);
italcorr cork_ic[a];
complete_hacheck(lshift,rshift);
endcorkchar;

begincorkchar("e","ogonek",hex"A6",0,desc_depth#);
italcorr cork_ic[a];
complete_ogonek(0.5[apprl,w-apprr],-oo);
endcorkchar;

begincorkchar(bbdotless_i,"grave",hex"EC",accent_height#,0);
italcorr cork_ic[a];
complete_grave(lshift,rshift);
endcorkchar;

begincorkchar(bbdotless_i,"acute",hex"ED",accent_height#,0);
italcorr cork_ic[a];
complete_acute(lshift,rshift);
endcorkchar;

begincorkchar(bbdotless_i,"circumflex",hex"EE",accent_height#,0);
italcorr cork_ic[a];
complete_hat(lshift,rshift);
endcorkchar;

begincorkchar(bbdotless_i,"umlaut",hex"EF",accent_height_ter#,0);
italcorr cork_ic[a];
complete_umlaut(lshift,rshift);
endcorkchar;

begincorkchar("i","j",hex"BC",0,desc_depth#);
italcorr cork_ic[a+1];
currentpicture:=currentpicture+cork_picture[a+1] shifted (w,0);
correct_width_by(0,cork_wd[a+1]);
endcorkchar;

begincorkchar("g","breve",hex"A7",accent_height#,0);
italcorr cork_ic[a];
complete_breve(lshift,rshift);
endcorkchar;

begincorkchar("l","acute",hex"A8",accent_height#,0);
italcorr cork_ic[a];
complete_acute(lshift,rshift);
endcorkchar;

begincorkchar("l","hacheck",hex"A9",0,0);
italcorr cork_ic[a];
correct_width_by(0,7.5u#+2appr#-charwd);
pickup circle.nib; top y1=x_height; top y4=h;
rt x3=w-apprr; x3-x5=hthick;
lft x1=hround min(apprl+hthick+thin+u,x5-thin);
complete_comma;
endcorkchar;

begincorkchar("l","cross",hex"AA",0,0);
italcorr cork_ic[a];
correct_width_by(0.5u#,0.5u#);
x2l=vround(0.5[apprl,w-apprr]-0.5(hthick+thin))+0.5thin;
x3l-x2l=hthick; x0-x3l=0.5thin; x2l-x1l=x4l-x3l=hround 1.25u+0.5thin;
y0=x_height; y4l-y0=vround 1.25u;
a:=thin/cosd angle((z4l-z0)slanted slant);
forsuffixes $=1,2,3: z$l=whatever[z0,z4l]; endfor
penpos1(a,-90); penpos2(a,-90); penpos3(a,-90); penpos4(a,-90);
penstroke z1e..z2e; penstroke z3e..z4e;
labels(0); penlabels(1,2,3,4);
endcorkchar;

begincorkchar("n","acute",hex"AB",accent_height#,0);
italcorr cork_ic[a];
complete_acute(lshift,rshift);
endcorkchar;

begincorkchar("n","hacheck",hex"AC",accent_height#,0);
italcorr cork_ic[a];
complete_hacheck(lshift,rshift);
endcorkchar;

begincorkchar("n","tilde",hex"F1",accent_height#,0);
italcorr cork_ic[a];
complete_tilde(lshift,rshift);
endcorkchar;

begincorkchar("o","grave",hex"F2",accent_height#,0);
italcorr cork_ic[a];
complete_grave(lshift,rshift);
endcorkchar;

begincorkchar("o","acute",hex"F3",accent_height#,0);
italcorr cork_ic[a];
complete_acute(lshift,rshift);
endcorkchar;

begincorkchar("o","circumflex",hex"F4",accent_height#,0);
italcorr cork_ic[a];
complete_hat(lshift,rshift);
endcorkchar;

begincorkchar("o","tilde",hex"F5",accent_height#,0);
italcorr cork_ic[a];
complete_tilde(lshift,rshift);
endcorkchar;

begincorkchar("o","umlaut",hex"F6",accent_height_ter#,0);
italcorr cork_ic[a];
complete_umlaut(lshift,rshift);
endcorkchar;

begincorkchar("o","long umlaut",hex"AE",accent_height#,0);
italcorr cork_ic[a];
complete_long_umlaut(lshift,rshift);
endcorkchar;

begincorkchar("r","acute",hex"AF",accent_height#,0);
italcorr cork_ic[a];
complete_acute(lshift,rshift);
endcorkchar;

begincorkchar("r","hacheck",hex"B0",accent_height#,0);
italcorr cork_ic[a];
complete_hacheck(lshift,rshift);
endcorkchar;

begincorkchar("s","acute",hex"B1",accent_height#,0);
italcorr cork_ic[a];
complete_acute(lshift,rshift);
endcorkchar;

begincorkchar("s","hacheck",hex"B2",accent_height#,0);
italcorr cork_ic[a];
complete_hacheck(lshift,rshift);
endcorkchar;

begincorkchar("s","cedilla",hex"B3",0,desc_depth#);
italcorr cork_ic[a];
complete_cedilla(0.5[apprl,w-apprr],-oo);
endcorkchar;

begincorkchar("t","hacheck",hex"B4",
  asc_height#-cork_ht[byte "t"],0);
italcorr cork_ic[a];
correct_width_by(0,1.5u#);
pickup circle.nib;
bot y1=x_height+max(thin,vround 0.1x_height);
top y4=h; rt x3=w-apprr; x3-x5=hthick;
lft x1=hround min(apprl+hthick+thin+u,x5-thin);
complete_comma;
endcorkchar;

begincorkchar("t","cedilla",hex"B5",0,desc_depth#);
italcorr cork_ic[a];
complete_cedilla(0.5[apprl,w-apprr],-oo);
endcorkchar;

begincorkchar("u","grave",hex"F9",accent_height#,0);
italcorr cork_ic[a];
complete_grave(lshift,rshift);
endcorkchar;

begincorkchar("u","acute",hex"FA",accent_height#,0);
italcorr cork_ic[a];
complete_acute(lshift,rshift);
endcorkchar;

begincorkchar("u","circumflex",hex"FB",accent_height#,0);
italcorr cork_ic[a];
complete_hat(lshift,rshift);
endcorkchar;

begincorkchar("u","umlaut",hex"FC",accent_height_ter#,0);
italcorr cork_ic[a];
complete_umlaut(lshift,rshift);
endcorkchar;

begincorkchar("u","long umlaut",hex"B6",accent_height#,0);
italcorr cork_ic[a];
complete_long_umlaut(lshift,rshift);
endcorkchar;

begincorkchar("u","circ",hex"B7",accent_height#,0);
italcorr cork_ic[a];
complete_circ(lshift,rshift);
endcorkchar;

begincorkchar("y","acute",hex"FD",accent_height#,0);
italcorr cork_ic[a];
complete_acute(lshift,rshift);
endcorkchar;

begincorkchar("y","umlaut",hex"B8",accent_height_ter#,0);
italcorr cork_ic[a];
complete_umlaut(lshift,rshift);
endcorkchar;

begincorkchar("z","acute",hex"B9",accent_height#,0);
italcorr cork_ic[a];
complete_acute(lshift,rshift);
endcorkchar;

begincorkchar("z","hacheck",hex"BA",accent_height#,0);
italcorr cork_ic[a];
complete_hacheck(lshift,rshift);
endcorkchar;

begincorkchar("z","dot",hex"BB",accent_height_bis#,0);
italcorr cork_ic[a];
complete_dot(lshift,rshift);
endcorkchar;