Improvements in vertical skyline approximations (issue 2148).

[lilypond.git] / scm / output-lib.scm

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index af55cc8fde11557f70c010b2f827e073278275e8..5b7d441952b5fc7a6ed341b1fbfd292cb9332a83 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -574,6 +574,10 @@ and duration-log @var{log}."
 (define-public (accidental-interface::calc-alteration grob)
   (ly:pitch-alteration (ly:event-property (event-cause grob) 'pitch)))
 
+(define-public (accidental-interface::glyph-name grob)
+  (assoc-get (ly:grob-property grob 'alteration)
+             standard-alteration-glyph-name-alist))
+
 (define-public cancellation-glyph-name-alist
   '((0 . "accidentals.natural")))