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

diff --git a/ChangeLog b/ChangeLog
index d884af600a20ed2ab94d40f286f571e0d2158c2f..21d0d619c1b64e1f26b61cd2a49ca7a3d729e248 100644 (file)
--- 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 574239c92faae987ba43c08ff2aa057e3b59dfbc..1c68ad79d6d80f5ed27acc52dc57ac84b7037a15 100644 (file)
--- 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 b1d53fe7ed5100225ad77959d4ad9668b2ff6568..4ae00c0c0cf65cffb77c7c7a16b405f6493673ee 100644 (file)
--- 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 8807466b90403c721041c638fb8574ecc0dafe3c..9f63f11b8bd7c46655a7948968efeaaa55134af3 100644 (file)
--- 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 f7ae93d122456fb4c2fc9fd63092ca0aba97e8a0..839355dd2597af733cf5a0ad0121b1da68ecd3df 100644 (file)
--- 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 5bfe8736875c5c7916b16cc329ee68b26630c702..496227962379cccd6b287b2f207dad11cb01f160 100644 (file)
--- 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.")