summaryrefslogtreecommitdiff
path: root/fonts/musixtex-fonts/source/xdrawzl.mf
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/musixtex-fonts/source/xdrawzl.mf')
-rw-r--r--fonts/musixtex-fonts/source/xdrawzl.mf25
1 files changed, 25 insertions, 0 deletions
diff --git a/fonts/musixtex-fonts/source/xdrawzl.mf b/fonts/musixtex-fonts/source/xdrawzl.mf
new file mode 100644
index 0000000000..50ef6cfd6f
--- /dev/null
+++ b/fonts/musixtex-fonts/source/xdrawzl.mf
@@ -0,0 +1,25 @@
+%(c)
+
+min_bow:= .4nhh;
+max_bow:= 1.75nhh;
+slope:= 10/100;
+
+code=-1;
+
+for i=1 upto numslurs:
+ beginchar(incr code, 0, 0, 0);
+ mw:=(minwidth+code*delwidth)*pt;
+ x3= -x1= .5mw; x2= y1= y3 = 0;
+ y2= max(min_bow, slope*mw);
+ y2:= min(y2, max_bow);
+ penpos1(.15thick,90); penpos2(thick,90); penpos3(.15thick,90);
+ penstroke (flex(z1e,z2e,z3e));
+ currentpen:= pencircle; draw (flex(z1,z2,z3));
+ p:=currentpicture;
+ endchar;
+
+ beginchar(code+54, 0, 0, 0);
+ currentpicture:=p reflectedabout (origin, right);
+ endchar;
+endfor
+end