From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 6 Jun 2005 18:44:50 +0000 (+0000)
Subject: * scm/define-grobs.scm (all-grob-descriptions): remove arch-*
X-Git-Tag: release/2.5.28~4
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ddd9f36c7550e064b4b6acef2f7fe491cdb5216d;p=lilypond.git

* 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 e9af8fbcc7..82ca907f23 100644
--- 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 6c1649d7fa..9192c7acf3 100644
--- 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 6fbbdc6cc1..e45f4bb914 100644
--- 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 eee6d11c2e..d30edcfa7e 100644
--- 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