From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 18 Aug 2002 23:28:09 +0000 (+0000)
Subject: * lily/regular-spacing-engraver.cc: Add regular-distance-to.
X-Git-Tag: release/1.6.0~17
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d407f5e32b97e183281f0dd4099beed3c6cf9331;p=lilypond.git

* lily/regular-spacing-engraver.cc: Add regular-distance-to.
---

diff --git a/ChangeLog b/ChangeLog
index d884af600a..21d0d619c1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2002-08-19  Jan Nieuwenhuizen  <janneke@gnu.org>
+
+	* lily/regular-spacing-engraver.cc: Add regular-distance-to.
+
+	* input/test/orchestscore.ly:  
+
+	* input/test/part-combine-moments.ly:
+	* input/test/part-combine-staff.ly: markScriptPadding ->
+	RehearsalMark #'padding.
+
 2002-08-19  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
 	* Documentation/user/introduction.itely: small corrections.
diff --git a/input/test/orchestscore.ly b/input/test/orchestscore.ly
index 574239c92f..1c68ad79d6 100644
--- a/input/test/orchestscore.ly
+++ b/input/test/orchestscore.ly
@@ -103,10 +103,10 @@ c1 | c2 c | c c | R1*5
     \translator {
       \OrchestralScoreContext
       skipBars = ##t 
-      markScriptPadding = #4.0
+      RehearsalMark \override #'padding = #4
       BarNumber \override #'padding = #3
       RestCollision \override #'maximum-rest-count = #1
-      marginScriptHorizontalAlignment = #1
+      %% FIXME marginScriptHorizontalAlignment = #1
     }
     \translator { \HaraKiriStaffContext
     }
diff --git a/input/test/part-combine-moments.ly b/input/test/part-combine-moments.ly
index b1d53fe7ed..4ae00c0c0c 100644
--- a/input/test/part-combine-moments.ly
+++ b/input/test/part-combine-moments.ly
@@ -84,11 +84,9 @@
 			\accepts "StaffCombineStaff"
 			skipBars = ##t 
 
-			barScriptPadding = #2.0 % dimension \pt
-			markScriptPadding = #4.0
-
-			%% urg: in pt?
-			barNumberScriptPadding = #15
+			%%FIXME barScriptPadding = #2.0 % dimension \pt
+			RehearsalMark \override #'padding = #4
+			BarNumber \override #'padding = #3
 			%% URG: this changes dynamics too
 			%%textStyle = #"italic"
 			TimeSignature \override #'style = #'C
diff --git a/input/test/part-combine-staff.ly b/input/test/part-combine-staff.ly
index 8807466b90..9f63f11b8b 100644
--- a/input/test/part-combine-staff.ly
+++ b/input/test/part-combine-staff.ly
@@ -94,11 +94,10 @@
 			\accepts "StaffCombineStaff"
 			skipBars = ##t 
 
-			barScriptPadding = #2.0 % dimension \pt
-			markScriptPadding = #4.0
-
-			%% urg: in pt?
-			barNumberScriptPadding = #15
+			%%% FIXME barScriptPadding = #2.0 % dimension \pt
+			RehearsalMark \override #'padding = #4
+			BarNumber \override #'padding = #3
+			
 			%% URG: this changes dynamics too
 			%%textStyle = #"italic"
 			TimeSignature \override #'style = #'C
diff --git a/lily/regular-spacing-engraver.cc b/lily/regular-spacing-engraver.cc
index f7ae93d122..839355dd25 100644
--- a/lily/regular-spacing-engraver.cc
+++ b/lily/regular-spacing-engraver.cc
@@ -55,10 +55,10 @@ Regular_spacing_engraver::process_music ()
 }
 
 
-ENTER_DESCRIPTION(Regular_spacing_engraver,
+ENTER_DESCRIPTION (Regular_spacing_engraver,
 /* descr */       ".",
 /* creats*/       "",
 /* acks  */       "",
 /* reads */       "regularSpacingDelta",
-/* write */       "");
+/* write */       "regular-distance-to");
 
diff --git a/scm/grob-property-description.scm b/scm/grob-property-description.scm
index 5bfe873687..4962279623 100644
--- a/scm/grob-property-description.scm
+++ b/scm/grob-property-description.scm
@@ -575,7 +575,8 @@ columns.
 -- can be stored for debugging")
 (grob-property-description 'least-squares-dy number? 
  "ideal beam slope, without damping.")
-(grob-property-description 'ligature-primitive-callback procedure? "FIXME")
+(grob-property-description 'ligature-primitive-callback number? "DOCME")
+(grob-property-description 'regular-distance-to ly-grob? "DOCME")
 (grob-property-description 'stem-info pair? "caching of stem parameters")
 (grob-property-description 'note-columns pair? "list of NoteColumn grobs.")