% +AMDG

font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1";
pixels_per_inch:=2400;
mode_setup;

%%%% Define Dimensions for Whole Boxes %%%%

phi=(1+sqrt5)/2;
cap#=4pt#;
u#=2.5cap#/3;
em#=1.4cap#;
ex#=0.7cap#;
exw# = 1.1ex#; define_pixels(exw);
dep#=cap#/3;
ss#=0.25pt#;
asch#=12cap#/12;
digwid#=1.2ex#;
slant = 0;
font_slant slant;
font_normal_space 0.7u#;
font_normal_stretch 0.2u#;
font_normal_shrink 0.1u#;
font_x_height cap#/phi;
font_quad em#;
font_extra_space 0.5u#;

penwidth#=0.01pt#;

%%%% Define Dimensions for Letters %%%%

curlw#=0.2u#;
curlh#=0.2u#;
define_pixels(curlw,curlh);
lserc#=0.09u#;
lserh#=lserc#+lserstep#;
lhigh#=0.3u#;
lserstep#=0.05u#;
userc#=0.08u#;
userh#=userc#+userstep#;
lserw#=0.2u#;
userw#=0.2u#;
userstep#=0.05u#;
bulbsh#=0.10u#;
curvwid#=0.7pt#;
slantwid#=0.7pt#;
thickstroke#=0.7pt#;
thinstroke#=0.3pt#;
loopgap#=0.6pt#;
o#=0.1thinstroke#;
hair#=0.2pt#;
ssslant#=0.1u#;
dotwidth#=userw#-o#;
pwid#=3userw#;
accwid# = pwid#/16;
theight#=8asch#/8;
define_pixels(theight);

define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth);
define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair);
define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair);

pickup pencircle scaled penwidth; cappen:=savepen;
equalize=thickstroke/2-thinstroke/2;

input drmcap.mf;
input drmitcap.mf;
input drmlowmac.mf;
input drmitlow.mf;
input drmpunct.mf;
input drmacc.mf;
input drmitacclet.mf;
input drmitpunct.mf;
input drmitdigs.mf;
input drmitoldstydigs.mf;
input drmitligs.mf;

end;
