% +AMDG font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "TS1"; pixels_per_inch:=1200; mode_setup; %%%% Define Dimensions for Whole Boxes %%%% phi=(1+sqrt5)/2; cap#=5pt#; u#=2cap#/3; em#=cap#; ex#=0.6cap#; exw# = ex#; define_pixels(exw); dep#=cap#/3; ss#=0.2pt#; asch#=12cap#/12; digwid#=1ex#; 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 %%%% lserc#=0.08u#; 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#; loopgap#=0.7pt#; thinstroke#=0.3pt#; o#=0.1thinstroke#; hair#=0.2pt#; ssslant#=0.1u#; dotwidth#=userw#-o#; pwid#=3userw#; accwid# = pwid#/8; theight#=8asch#/8; define_pixels(theight); thinwid# = 0.4pt#; define_pixels(thinwid); 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 drmlowmac.mf input drmsymbols.mf input drmacc.mf input drmoldstynums.mf input drmoldstyfracs.mf input drmdigs.mf input drmromannums.mf; input drmornaments.mf; end;