From 320107be585c79f30fcc7f2752f0eaea085430fc Mon Sep 17 00:00:00 2001 From: Mats Bengtsson Date: Sun, 27 Sep 1998 16:49:51 +0200 Subject: [PATCH] patch::: 1.0.11.mb1: Re: Old time signatures in LilyPond pl 11.mb1 - Added feta-timesig.mf, font for C and alla breve. --- NEWS | 2 ++ VERSION | 2 +- lily/VERSION | 2 +- make/STATE-VECTOR | 1 + mf/feta-generic.mf | 2 ++ mf/feta-timesig.mf | 54 ++++++++++++++++++++++++++++++++++++++++++++++ 6 files changed, 61 insertions(+), 2 deletions(-) create mode 100644 mf/feta-timesig.mf diff --git a/NEWS b/NEWS index 3991eaa09e..9a84d2b855 100644 --- a/NEWS +++ b/NEWS @@ -1,3 +1,5 @@ +pl 11.mb1 + - Added feta-timesig.mf, font for C and alla breve. pl 10.uu2 - plet-spanner fix. diff --git a/VERSION b/VERSION index a4af69fcb5..e728e14d1f 100644 --- a/VERSION +++ b/VERSION @@ -2,7 +2,7 @@ PACKAGE_NAME=LilyPond MAJOR_VERSION=1 MINOR_VERSION=0 PATCH_LEVEL=11 -MY_PATCH_LEVEL= +MY_PATCH_LEVEL=mb1 # use the above to send patches: MY_PATCH_LEVEL is always empty for a # released version. diff --git a/lily/VERSION b/lily/VERSION index a4af69fcb5..e728e14d1f 100644 --- a/lily/VERSION +++ b/lily/VERSION @@ -2,7 +2,7 @@ PACKAGE_NAME=LilyPond MAJOR_VERSION=1 MINOR_VERSION=0 PATCH_LEVEL=11 -MY_PATCH_LEVEL= +MY_PATCH_LEVEL=mb1 # use the above to send patches: MY_PATCH_LEVEL is always empty for a # released version. diff --git a/make/STATE-VECTOR b/make/STATE-VECTOR index 273ae744b2..77e2d04833 100644 --- a/make/STATE-VECTOR +++ b/make/STATE-VECTOR @@ -87,3 +87,4 @@ 1.0.10.uu1 1.0.10.uu2 1.0.11 +1.0.11.mb1 diff --git a/mf/feta-generic.mf b/mf/feta-generic.mf index e9803f5dff..6b3bdda090 100644 --- a/mf/feta-generic.mf +++ b/mf/feta-generic.mf @@ -32,6 +32,7 @@ if test = 0: input feta-schrift; input feta-banier; input feta-klef; + input feta-timesig; else: % input feta-bolletjes; % input feta-banier; @@ -41,4 +42,5 @@ else: % input feta-schrift; % input feta-schrift; % input feta-haak; +% input feta-timesig; fi diff --git a/mf/feta-timesig.mf b/mf/feta-timesig.mf new file mode 100644 index 0000000000..509903ad0a --- /dev/null +++ b/mf/feta-timesig.mf @@ -0,0 +1,54 @@ +% +% feta-timesig.mf -- implement Time Signatures +% +% source file of the Feta (Font-En-Tja) music font +% +% (c) 1998 Mats Bengtsson + +fet_begingroup("timesig"); + +def draw_C = + save hair, bulb_rad; + hair# := .5 stafflinethickness#; + bulb_rad# := (interline# - stafflinethickness#) / 4; + define_pixels(hair, bulb_rad); + + x1r = x5; + y1r = interline / 3; + z2r = (0, interline); + z3r = (-b, 0); + z4r = (0, -interline); + z5r = (w, -stafflinethickness); + + penpos1(1.5 stafflinethickness, 0); + penpos2(stafflinethickness, 90); + penpos3(3 stafflinethickness, 180); + penpos4(stafflinethickness, -90); + penpos5(hair, -5); + + draw_bulb(-1, z1l, z1r, bulb_rad, .8); + + fill z1l{up} .. z2l{left} .. z3l{down} .. z4l{right} .. + simple_serif(z5l, z5r, -90) .. + z4r{left} .. z3r{up} .. z2r{right} .. z1r -- cycle; + +% labels(1,2,3,4,5); + penlabels(1,2,3,4,5); +enddef; + +fet_beginchar ("4/4 meter", "C", "fourfourmeter") + set_char_box(.8 interline#, .7 interline#, interline#, interline#); + + draw_C; +fet_endchar; + +fet_beginchar ("4/4 meter", "C2", "allabreve") + set_char_box(.8 interline#, .7 interline#, 1.4 interline#, 1.4 interline#); + + draw_C; + draw_block((-stafflinethickness, -d), (0, h)); +fet_endchar; + + + +fet_endgroup("timesig"); -- 2.39.2