From b36b54c7edcd66271da3034e2f40fd37554e823d Mon Sep 17 00:00:00 2001 From: fred Date: Sun, 24 Mar 2002 20:04:36 +0000 Subject: [PATCH] lilypond-0.1.41 --- mf/feta-beum.mf | 23 +++++++++++++++++++++++ mf/feta-generic.mf | 4 ++-- tex/lily-ps-defs.tex | 9 ++++----- 3 files changed, 29 insertions(+), 7 deletions(-) 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; + diff --git a/mf/feta-generic.mf b/mf/feta-generic.mf index 98390a6713..9891168c1e 100644 --- a/mf/feta-generic.mf +++ b/mf/feta-generic.mf @@ -28,7 +28,7 @@ else: % input feta-bolletjes; % input feta-banier; % input feta-eindelijk; -% input feta-klef; + input feta-klef; % input feta-toevallig; - input feta-schrift; +% input feta-schrift; fi diff --git a/tex/lily-ps-defs.tex b/tex/lily-ps-defs.tex index 9b0ed425a5..92d9825afe 100644 --- a/tex/lily-ps-defs.tex +++ b/tex/lily-ps-defs.tex @@ -37,14 +37,14 @@ 1 setlinecap /draw_beam { - /beam_thick exch def + 2 div /beam_thick exch def /beam_slope exch def /beam_wd exch def beam_slope beam_wd mul /beam_ht exch def - 0 0 moveto + 0 beam_thick neg moveto beam_wd beam_ht rlineto - 0 beam_thick rlineto - 0 beam_thick lineto + 0 beam_thick 2 mul rlineto + 0 beam_thick lineto closepath fill } bind def % PS helper: convert (0.2pt) to the token 0.2 @@ -125,7 +125,6 @@ def slur_indent slur_ht slur_b slur_indent sub slur_ht slur_b 0 - % pstack rcurveto % slur_indent neg slur_ht slur_dir slur_thick mul sub -- 2.39.5