X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fgrob-description.scm;h=e673a0d4dc7ed192961d158a57ef3705fba16ae7;hb=19125bf1;hp=dc0fbd7a07376d092adad860f9620478da6a05d0;hpb=d4ccda2bdfd21f3694d8a37d4088f8fe9acd6de8;p=lilypond.git

diff --git a/scm/grob-description.scm b/scm/grob-description.scm
index dc0fbd7a07..e673a0d4dc 100644
--- a/scm/grob-description.scm
+++ b/scm/grob-description.scm
@@ -8,6 +8,16 @@
 ; distances are given in stafflinethickness (thicknesses) and
 ; staffspace (distances)
 
+(define default-alteration-alist
+  '(
+    (0 . ((raise . 0.5) (music "accidentals-0")))
+    (-1 . ((raise . 0.5) (music "accidentals--1")))
+    (-2 . ((raise . 0.5) (music "accidentals--2")))
+    (1 . ((raise . 0.5) (music  "accidentals-1")))
+    (2 . ((raise . 0.5) (music "accidentals-2")))
+    ))
+
+
 (define all-grob-descriptions
   `(
     (Accidentals . (
@@ -66,6 +76,15 @@
 			text-interface  font-interface break-aligned-interface))
 	))
 
+	(BassFigure . (
+		       (molecule-callback . ,Text_item::brew_molecule)
+		       (Y-offset-callbacks . (,Side_position_interface::aligned_on_self))
+		       (direction . 0)
+		       (accidental-alist . ,default-alteration-alist)
+		       (font-family . number)
+		       (font-relative-size . -1)
+		       (meta . ,(grob-description "BassFigure" text-interface font-interface ))
+	))
 	(Beam . (
 		 ;; todo: clean this up a bit: the list is getting
 		 ;; rather long.
@@ -302,6 +321,16 @@
 		(meta . ,(grob-description "LyricText" lyric-syllable-interface text-interface font-interface ))
 	))
 	
+	(Porrectus . (
+		(style . mensural)
+		(solid . #f)
+		(add-stem . #t)
+		(stem-direction . 1)
+		(molecule-callback . ,Porrectus::brew_molecule)
+		(meta . ,(grob-description "Porrectus"
+					   porrectus-interface))
+	))
+
 	(RehearsalMark . (
 		(molecule-callback . ,Text_item::brew_molecule)
 		(X-offset-callbacks . (,Side_position_interface::aligned_on_self))
@@ -689,7 +718,6 @@
 
 	(TupletBracket . (
 		(number-gap . 2.0)   
-		(delta-y . 0)
 		(thick . 1.0)
 		(after-line-breaking-callback . ,Tuplet_bracket::after_line_breaking)
 		(molecule-callback . ,Tuplet_bracket::brew_molecule)