From 2d0f3458ff34d5ec9496cca0073103f580e80395 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Mon, 19 Jan 1998 23:56:08 +0100 Subject: [PATCH] partial: 0.1.41.jcn --- mf/feta-beum.mf | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 mf/feta-beum.mf diff --git a/mf/feta-beum.mf b/mf/feta-beum.mf new file mode 100644 index 0000000000..53c8cc4f24 --- /dev/null +++ b/mf/feta-beum.mf @@ -0,0 +1,23 @@ +% +% feta-beum.mf -- implement runtime MF beams +% +% source file of LilyPond's pretty-but-neat music font +% +% (c) 1997 Jan Nieuwenhuizen +% +mode_setup; + +def drawbeam(expr widths,slope,thicks) = + beginchar(0,0,0,0) "Embedded mf"; + width#:=widths*1pt#; + thick#:=thicks*1pt#; + height#:=slope*width#; + % do separately, to identify "value too large" + define_pixels(height); + define_pixels(thick); + define_pixels(width); + fill (0, - thick/2)--(width,height - thick/2)--(width,height+thick/2)--(0,thick/2) + -- cycle; + endchar; + enddef; + -- 2.39.5