* scm/grob-description.scm (all-grob-descriptions): small bass figures.

* scm/bass-figure.scm (brew-bass-figure): make stack direction
settable.

diff --git a/ChangeLog b/ChangeLog
index da3b051432cb343d27e69fb8d3954aa11a19f468..e6de39984a37929a6d04c0f050727495ec585588 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2002-12-18  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
+
+       * scm/grob-description.scm (all-grob-descriptions): small bass figures.
+
+       * scm/bass-figure.scm (brew-bass-figure): make stack direction
+       settable.
+
 2002-12-18  Heikki Junes <hjunes@cc.hut.fi>
 
        * lilypond-mode.el (LilyPond-command): propose 2midi if midi is

diff --git a/scm/bass-figure.scm b/scm/bass-figure.scm
index b6230ee53b784416d02de2cc826b4ab667a9f5e5..7fffa874e54229b6448cadacd17966ea47219492 100644 (file)
--- a/scm/bass-figure.scm
+++ b/scm/bass-figure.scm
@@ -44,6 +44,7 @@
                     (ly:get-paper-variable grob 'linethickness)
                     (ly:get-grob-property grob 'thickness))
                    )
+        (dir (ly:get-grob-property grob 'direction))
         )
 
     (define (brew-complete-figure grob figs mol)
@@ -62,24 +63,24 @@
                       (lambda (x) (brew-one-figure grob x))
                       (reverse! (car gather-todo) '())))
                     (br-mol (bracketify-molecule
-                             (stack-molecules Y UP kerning unbr-mols)
+                             (stack-molecules Y dir kerning unbr-mols)
                              Y thickness (* 2 padding) padding))
                     )
                (brew-complete-figure
                 grob (cdr gather-todo)
-                (ly:combine-molecule-at-edge mol Y UP br-mol kerning)
+                (ly:combine-molecule-at-edge mol Y dir br-mol kerning)
                 )
                )
              (brew-complete-figure
               grob (cdr figs)
-              (ly:combine-molecule-at-edge mol Y UP (brew-one-figure grob (car figs))
+              (ly:combine-molecule-at-edge mol Y dir (brew-one-figure grob (car figs))
                                            kerning))
              )
          ))
 
     
     (set! mol (brew-complete-figure grob (reverse figs) mol))
-    (ly:align-to! mol Y DOWN)
+    (ly:align-to! mol Y (- dir))
     mol
     ))
 
@@ -87,4 +88,4 @@
 (ly:add-interface
 'bass-figure-interface
  "A bass figure, including bracket"
- '(padding thickness ))
+ '(padding thickness direction))

diff --git a/scm/grob-description.scm b/scm/grob-description.scm
index 843d127f163cc23934475cca62b04dc3477774bf..00682057b037ac46a497eeb29124c8046a8cb803 100644 (file)
--- a/scm/grob-description.scm
+++ b/scm/grob-description.scm
@@ -119,7 +119,7 @@
        (Y-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
        (direction . 0)
        (font-family . number)
-       (font-relative-size . -1)
+       (font-relative-size . -3)
        (padding . 0.1)
        (kern . 0.2)
        (thickness . 1.0)