* lily/horizontal-bracket.cc (make_bracket): new function.

[lilypond.git] / scm / define-grobs.scm

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 575781f335293c52357e2ecc1d5f6cf7737dc939..d5f68bb60681b43022cbc8423db633ecbca9a90f 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -204,6 +204,47 @@
                                bass-figure-interface
                                self-alignment-interface
                                font-interface))))))
+
+    (NewBassFigure
+     . (
+       (print-function . ,Text_interface::print)
+       (meta . ((class . Item)
+                (interfaces . (text-interface
+                               rhythmic-grob-interface
+                               bass-figure-interface
+                               font-interface))))))
+
+    (BassFigureBracket
+     . ((print-function . ,Figured_bass_bracket::print)
+       (edge-height . (0.2 . 0.2))
+       (meta . ((class . Item)
+                (interfaces . (figured-bass-bracket-interface)) ))
+       ))
+    (BassFigureContinuation
+     . (
+       (print-function . ,Figured_bass_continuation::print)
+       (Y-offset-callbacks . (,Figured_bass_continuation::center_on_figures))
+       (meta . ((class . Spanner)
+                (interfaces . (figured-bass-continuation-interface))
+                ))))
+    (BassFigureLine
+     . (
+       (axes . (,Y))
+       (Y-extent-callback . ,Axis_group_interface::group_extent_callback)
+       (meta . ((class . Spanner)
+                (interfaces . (axis-group-interface
+                               ))))))
+
+    (BassFigureAlignment
+     . (
+       (axes . (,Y))
+       (threshold . (2.4 . 1000))
+       (Y-extent-callback . ,Axis_group_interface::group_extent_callback)
+       (stacking-dir . -1)
+       (meta . ((class . Spanner)
+                (interfaces . (align-interface
+                               axis-group-interface))))))
+    
     (Beam
      . (
        ;; todo: clean this up a bit: the list is getting