1 files changed, 40 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/musictex/musicbrh.mf b/Master/texmf-dist/fonts/source/public/musictex/musicbrh.mf
new file mode 100644
index 00000000000..7a0abd2cfbd
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/musictex/musicbrh.mf
@@ -0,0 +1,40 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%  this is musicbrg.mf  from Stanislav Kneifl
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%
+% change firstbrace and lastbrace if you need smaller or larger braces
+%
+
+firstbrace:=20;  % smallest brace is 2*20 pt (\simeq 14mm)
+lastbrace:=99;   % largest brace is 2*99 pt (\simeq 69mm)
+
+def drawpianobracket (expr height) =
+  u# := 1nhh#/5pt# * 1pt#;
+  v# := (height/40) * 1pt#;
+  define_pixels (u, v);
+  beginchar (height-firstbrace, 1.25nhh#, 0, 0);
+    z1 = origin;
+    z2 = (4.7u, 7v);
+    z3 = (3.6u, 16.5v);
+    z4 = (1.9u, 25v);
+    z5 = (2.28u, 32v);
+    z6 = (w, 40v);
+    penpos1 (max(1,0.1u), 125);
+    penpos2 (1.2u, 180);
+    penpos3 (3.2u, 195);
+    penpos4 (2.5u, 180);
+    penpos5 (1.14u, 180);
+    penpos6 (max(2,0.3u), 150);
+    penstroke z1e{dir 35}..z2e..z3e..z4e..z5e..{dir 60}z6e;
+    currenttransform := identity reflectedabout ((0,0),(1,0));
+    penstroke z1e{dir 35}..z2e..z3e..z4e..z5e..{dir 60}z6e;
+    currenttransform := identity;
+  endchar;
+enddef;
+
+for v=firstbrace upto lastbrace :
+   drawpianobracket (v);
+endfor;