(brew-one-figure): bugfix for large bass figures

diff --git a/ChangeLog b/ChangeLog
index 8448e2ecc3316844cfbee8137f0481283f242712..ea2ce2696fff7e54e03b5a589ffd03e8dc24f768 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2003-03-05  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
+       * scm/bass-figure.scm (brew-one-figure): bugfix for large bass figures 
+
        * scm/new-markup.scm (brew-new-markup-molecule): robustness: don't
        crash when processing '() markup
 

diff --git a/input/regression/figured-bass.ly b/input/regression/figured-bass.ly
index 7bfcbd4be654867f4d479ed641d3e571fb174128..ddfe89032dd1d23376411d371f2d90c01dd88d40 100644 (file)
--- a/input/regression/figured-bass.ly
+++ b/input/regression/figured-bass.ly
@@ -25,5 +25,3 @@ numbers, like @code{<4 6+>}.
 >
  }
 %% new-chords-done %%
-%% new-chords-done %%
-%% new-chords-done %%

diff --git a/scm/bass-figure.scm b/scm/bass-figure.scm
index 4c7c969239bd3bf3b2b559f72fc1e3469482731a..90b293f5d0e95b6aca16786a3c1d8f23a4ed6345 100644 (file)
--- a/scm/bass-figure.scm
+++ b/scm/bass-figure.scm
@@ -5,12 +5,13 @@
 (define (brew-one-figure grob fig-music)
   "Brew a single column for a music figure"
   (let* (
+        (chain (Font_interface::get_property_alist_chain grob))
         (mf (ly:get-font grob (cons  '((font-family . music))
-                                     Font_interface::get_property_alist_chain
+                                     chain 
                                      )))
         (nf (ly:get-font grob
-                         (cons  '((font-family . number))
-                                Font_interface::get_property_alist_chain)))
+                         (cons '((font-family . number))
+                               chain)))
         (mol (ly:make-molecule  '() '(0 . 0) '(0 . 1.0)))
         (fig  (ly:get-mus-property fig-music 'figure))
         (acc  (ly:get-mus-property fig-music 'alteration))

diff --git a/scm/grob-description.scm b/scm/grob-description.scm
index c397889c0feef35030036813fd79aaab59cc51c7..8501bed6efec8f212b88a8a1784c8663dccf93b2 100644 (file)
--- a/scm/grob-description.scm
+++ b/scm/grob-description.scm
@@ -119,8 +119,7 @@
        (Y-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
        (direction . 1)
        (font-family . number)
-       (font-magnification . 0.6)
-       (font-relative-size . -3)
+       (font-relative-size . -1)
        (padding . 0.1)
        (kern . 0.2)
        (thickness . 1.0)