* scm/define-grobs.scm (all-grob-descriptions): remove arch-*

properties. Add font-interface.

* scm/define-grob-properties.scm (all-user-grob-properties):
remove old bracket properties.

diff --git a/ChangeLog b/ChangeLog
index e9af8fbcc7da6776cb2ee8c3131f40cb44e15b05..82ca907f23a4b7ec0d8a397f55eb26da4adc5ff1 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2005-06-06  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+       * scm/define-grobs.scm (all-grob-descriptions): remove arch-*
+       properties. Add font-interface. 
+
+       * scm/define-grob-properties.scm (all-user-grob-properties):
+       remove old bracket properties.
+
        * scm/x11-color.scm: reformat. 
 
        * lily/ledger-line-engraver.cc (acknowledge_grob): create new

diff --git a/lily/system-start-delimiter.cc b/lily/system-start-delimiter.cc
index 6c1649d7fa0ed9f1b2539d4b20a270d31b5b2cc1..9192c7acf358f46d0980c5bd907ffe91a9a66e5e 100644 (file)
--- a/lily/system-start-delimiter.cc
+++ b/lily/system-start-delimiter.cc
@@ -192,4 +192,4 @@ ADD_INTERFACE (System_start_delimiter, "system-start-delimiter-interface",
               "The brace, bracket or bar in front of the system. "
               "It is implemented as a spanner.",
               "collapse-height thickness "
-              "arch-height arch-angle arch-thick arch-width bracket-thick glyph");
+              "glyph");

diff --git a/scm/define-grob-properties.scm b/scm/define-grob-properties.scm
index 6fbbdc6cc18e573d7571bf7a83c516f61e8d7c2b..e45f4bb914dba9565b36e5b66f52c4c7f996fc91 100644 (file)
--- a/scm/define-grob-properties.scm
+++ b/scm/define-grob-properties.scm
@@ -40,10 +40,6 @@ called first.  The functions take a grob and axis argument. ")
     
      (align-dir ,ly:dir? "Which side to align? @code{-1}: left side,
 @code{0}: around center of width, @code{1}: right side.")
-     (arch-angle ,number? "Turning angle of the hook of a system brace" )
-     (arch-height ,ly:dimension? "Height of the hook of a system brace.")
-     (arch-thick ,number? "Thickness of the hook of system brace.")
-     (arch-width ,ly:dimension? "Width of the hook of a system brace.")
      (arpeggio-direction ,ly:dir? "If set, put an
 arrow on the arpeggio squiggly line.")
   
@@ -94,7 +90,6 @@ potential line breaks.")
      (bracket-flare ,number-pair? "A pair of numbers specifying how
 much edges of brackets should slant outward.  Value 0.0 means straight
 edges")
-     (bracket-thick ,number? "width of a system start bracket.")
      (break-align-symbol ,symbol? "This key is used for aligning and
 spacing breakable items.")
      (break-align-orders ,vector? " Defines the order in which

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index eee6d11c2ea9846843a8243518a4a2139eba4317..d30edcfa7e5f7c29317baf670e6fe3af1531cf14 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -942,8 +942,7 @@
                               ,Rest::polyphonic_offset_callback
                               ))
        (minimum-distance . 0.25)
-       (meta . (
-                (interfaces . (font-interface
+       (meta . ((interfaces . (font-interface
                                rhythmic-head-interface
                                rhythmic-grob-interface
                                staff-symbol-referencer-interface
@@ -1202,13 +1201,10 @@
        (X-offset-callbacks . (,(lambda (g a) -0.8)))
        (print-function . ,System_start_delimiter::print)
        (glyph . "bracket")
-       (arch-height . 1.5)
-       (arch-angle . 50.0)
-       (arch-thick . 0.25)
-       (arch-width . 1.5)
        (collapse-height . 1)
        (thickness . 0.45)
-       (meta . ((interfaces . (system-start-delimiter-interface spanner-interface))))
+       (meta . ((interfaces . (font-interface system-start-delimiter-interface
+                                              spanner-interface))))
        ))
 
     (SystemStartBar