Imported sources

[lilypond.git] / scm / bass-figure.scm

diff --git a/scm/bass-figure.scm b/scm/bass-figure.scm
index e65b116e49b446486b6c836b2ffa565664cc22c3..9c72b95ed07977e162df4e8bf7d372433aa6be81 100644 (file)
--- a/scm/bass-figure.scm
+++ b/scm/bass-figure.scm
@@ -15,6 +15,7 @@
        )))
 
 (define-public (make-bass-figure-markup figures context)
+  
   (define (no-end-bracket? f1 f2)
     (eq? (ly:get-mus-property f1 'bracket-stop) '())
     )
@@ -25,22 +26,24 @@
   ;; TODO: support slashed numerals here.
   (define (fig-to-markup fig-music)
     (let*
-       (
+       ((align-accs (eq? #t (ly:get-context-property context 'alignBassFigureAccidentals)))
         (fig  (ly:get-mus-property fig-music 'figure))
         (acc  (ly:get-mus-property fig-music 'alteration))
         (acc-markup #f)
         (fig-markup
-         (if (number? fig)
-             (make-number-markup (number->string fig))
-             (make-simple-markup " ")
-             ))
-        )
+         (if (string? fig)
+             (make-simple-markup fig)
+             (if align-accs (make-simple-markup " ")
+                 (if (not (eq? acc '()))
+                     (make-simple-markup "")
+                     (make-strut-markup)))
+             )))
 
-    (if (number? acc)
-       (make-line-markup (list fig-markup
-                               (alteration->text-accidental-markup acc)))
-       fig-markup)
-    ))
+      (if (number? acc)
+         (make-line-markup (list fig-markup
+                                 (alteration->text-accidental-markup acc)))
+         fig-markup)
+      ))
   
   (define (fig-seq-to-markup figs)
     (let*