Merge pull request #8 from dbenjaminmiller/main

Adjust grace note slash and dot handling
tr-igem · Jul 17, 2024 · 9fb5a90 · 9fb5a90
2 parents 10233dd + e1d85a3
commit 9fb5a90
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/ly/esmufl.ily b/ly/esmufl.ily
@@ -1175,11 +1175,11 @@ ekmMakeClusters =
     (let cat ((c (max count 0))
               (r (if pad point-stencil empty-stencil)))
       (if (zero? c) r
-        (cat (1- c) (ly:stencil-stack r X RIGHT dot ext))))))
+        (cat (1- c) (ly:stencil-stack r X RIGHT dot 0))))))
 
 #(define (ekm-dots grob)
   (ekm-cat-dots
-    (ly:grob-property grob 'dot-count)
+    1
     (ekm-cchar grob 0 #xE1E7)
     #t))
 
@@ -3418,7 +3418,7 @@ ekmSmuflOn =
       \override NoteHead.stencil = #ekm-notehead
     #})
     (on 'dot #{
-      \override Dots.stencil = #ekm-dots
+      \override Dots.dot-stencil = #ekm-dots
     #})
     (on 'flag #{
       \override Stem.details.lengths = #(ekm-stemlength 'default)
@@ -3507,7 +3507,7 @@ ekmSmuflOff =
       \revert NoteHead.stencil
     #})
     (on 'dot #{
-      \revert Dots.stencil
+      \revert Dots.dot-stencil
     #})
     (on 'flag #{
       \revert Stem.details.lengths