From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Wed, 18 Dec 2002 22:03:02 +0000 (+0000)
Subject: * scm/grob-description.scm (all-grob-descriptions): small bass figures.
X-Git-Tag: release/1.7.10~13
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1ad9f0dc0e5d199bc76bb7601a43f064273b64b9;p=lilypond.git

* 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 da3b051432..e6de39984a 100644
--- 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 b6230ee53b..7fffa874e5 100644
--- 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 843d127f16..00682057b0 100644
--- 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)