From 7831acdea3df3cb6579f02efa54de2752f26d7c4 Mon Sep 17 00:00:00 2001 From: Maximilian Albert Date: Thu, 25 Jan 2007 14:57:56 +0100 Subject: [PATCH] New glyph (black diamond) and two harmonic-like notehead styles using it. --- mf/parmesan-heads.mf | 7 +++++++ scm/output-lib.scm | 3 +++ 2 files changed, 10 insertions(+) diff --git a/mf/parmesan-heads.mf b/mf/parmesan-heads.mf index da64dbeb4b..551e3e3bd2 100644 --- a/mf/parmesan-heads.mf +++ b/mf/parmesan-heads.mf @@ -192,6 +192,13 @@ fet_beginchar("Harmonic notehead (Neo-mensural open)", charwy := 0; fet_endchar; +fet_beginchar("Harmonic notehead (Neo-mensural black)", + "s2harmonic") + draw_neomensural_black_head (1.3 staff_space#, 1.3 noteheight#); + charwx := head_width#; + charwy := 0; +fet_endchar; + fet_beginchar("Neo-mensural semibrevis head","s0neomensural") draw_neomensural_open_head (staff_space#, noteheight#); fet_endchar; diff --git a/scm/output-lib.scm b/scm/output-lib.scm index f66a78bcbc..11f427bcec 100644 --- a/scm/output-lib.scm +++ b/scm/output-lib.scm @@ -168,6 +168,9 @@ ;; statement. -- jr ((xcircle) "2xcircle") ((harmonic) "0harmonic") + ((harmonic-black) "2harmonic") + ((harmonic-mixed) (if (<= log 1) "0harmonic" + "2harmonic")) ((baroque) ;; Oops, I actually would not call this "baroque", but, for ;; backwards compatibility to 1.4, this is supposed to take -- 2.39.2