1 files changed, 48 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/musictex/musicd13.mf b/Master/texmf-dist/fonts/source/public/musictex/musicd13.mf
new file mode 100644
index 00000000000..5c814a43c00
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/musictex/musicd13.mf
@@ -0,0 +1,48 @@
+%%%
+%  this is musicd13.mf
+%%%
+
+% input modes
+% input local
+
+mode_setup;
+
+%blacker:=0; %uncomment to override
+
+font_size 13pt#;
+
+nhh#:=1/4designsize; %noteheadheight
+nhw#:=1.2nhh#;       %noteheadwidth
+
+thin#:=1/50designsize;
+med#:=1/33designsize;
+thick#:=1/16designsize;
+
+thinwidth := 0.1pt;
+s := 0.80pt;
+S := 1/16designsize;
+
+beamht#:=0.48nhh#; %beamthickness
+
+% use pixelmacros from plain
+define_pixels(nhh,nhw,beamht);
+define_blacker_pixels(thin,med,thick);
+
+% pair constants
+pair ne,se,sw,nw; %northeast,southeast,southwest,northwest
+ne = up+right; se = down+right; sw = down+left; nw = up+left;
+
+% displaying:=2; %uncomment to see characters immediatly on screen
+
+def clear =
+    numeric x[],y[],x[]l,y[]l,x[]r,y[]r,dx[],dy[];
+    pair    sh[];
+enddef;
+
+% this macro might be deleted
+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;