% this is musicdef.mf
%
% input modes
% input local
mode_setup;  % This to use modes.mf N. Brouard
%
%fontmaking:=1;
turningcheck:=1;
displaying:=2;
designsize:=16;
nhh#:=1/4designsize; %noteheadheight
nhw#:=1.2nhh#; %noteheadwidth
beamht#:=0.48nhh#; %Balkenst"arke
nhh:=nhh#*pt; %noteheadheight *pt
nhw:=nhw#*pt; %noteheadwidth  *pt
thinwidth := 0.1pt;
beamht := beamht#*pt;
s := 1.0pt;
S := 1/16designsize;
%pair constants
pair ne,se,sw,nw; %northeast,southeast,southwest,northwest
ne = up+right; se = down+right; sw = down+left; nw = up+left;
openit;
def clear =
  numeric x[],y[],x[]l,y[]l,x[]r,y[]r,dx[],dy[];
  pair    sh[];
enddef;
%
pickup pencircle scaled (0.1pt);
def penstrike text t =
 forsuffixes e = l,r: path_.e:=t; endfor
 if cycle path_.l: cyclestroke_
 else: filldraw path_.l -- reverse path_.r -- cycle fi enddef;
%