2002-07-28 Rune Zedeler <rune@zedeler.dk>

	* lily/note-spacing.cc (stem_dir_correction) Add property
	knee_spacing_correction controlling the amount of optical spacing
	added to knees.

diff --git a/lily/note-spacing.cc b/lily/note-spacing.cc
index 2d3e7b19d321245f291da6aa6b0b033f05c5c59a..e7256e8bbe038858ffbb6bdb2269fe9fb4e4b5cc 100644 (file)
--- a/lily/note-spacing.cc
+++ b/lily/note-spacing.cc
@@ -314,7 +314,8 @@ Note_spacing::stem_dir_correction (Grob*me, Item * rcolumn,
          */
          
          correction = increment* stem_dirs[LEFT];
-         *fixed += increment* stem_dirs[LEFT];
+         correction *= gh_scm2double (me->get_grob_property ("knee-spacing-correction"));
+         *fixed += correction;
        }
       else
        {
@@ -389,5 +390,5 @@ Note_spacing::stem_dir_correction (Grob*me, Item * rcolumn,
 
 ADD_INTERFACE (Note_spacing,"note-spacing-interface",
   "",
-  "left-items right-items stem-spacing-correction");
+  "left-items right-items stem-spacing-correction knee-spacing-correction");
 

diff --git a/scm/grob-description.scm b/scm/grob-description.scm
index 27ae0417239835add8616223c97a25a330bad1b7..1826b1b03906cbe3df16d22e6ae5e7dc22bd6863 100644 (file)
--- a/scm/grob-description.scm
+++ b/scm/grob-description.scm
@@ -768,11 +768,13 @@
      . (
        (breakable . #t)
        (stem-spacing-correction . 0.4)
+       (knee-spacing-correction . 0.75)
        (meta . ((interfaces . (spacing-interface staff-spacing-interface item-interface ))))
        ))
     (NoteSpacing
      . (
        (stem-spacing-correction . 0.5)
+       (knee-spacing-correction . 0.75)
        (meta . ((interfaces . (spacing-interface note-spacing-interface item-interface ))))
        ))
 

diff --git a/scm/grob-property-description.scm b/scm/grob-property-description.scm
index 66af41fad13831751cd324bbae022362b2a74423..84c3eae75d1c5ae6b63045470b5fe36a69a74317 100644 (file)
--- a/scm/grob-property-description.scm
+++ b/scm/grob-property-description.scm
@@ -236,6 +236,7 @@ beaming style: stems stop at innermost beams.")
 For text,  this is `relative'(?) to the current alignment.
 
 For barline, space after a thick line.")
+(grob-property-description 'knee-spacing-correction number? "optical correction amount for knees. 0: no correction; 1: full correction.")
 (grob-property-description 'layer number? "The output layer [0..2].  The default is 1.")
 
 (grob-property-description 'left-position number? "position of left part of spanner.")

diff --git a/scm/translator-property-description.scm b/scm/translator-property-description.scm
index aaaf427981938f070ce8bc486f1b3d60b6ff5448..de72887856e6886cc05355738e48e036af09b591 100644 (file)
--- a/scm/translator-property-description.scm
+++ b/scm/translator-property-description.scm
@@ -248,7 +248,7 @@ signature before a key signature change.")
 (translator-property-description 'localKeySignature list? "the key
 signature at this point in the measure.  The format is the same as for keySignature. Is reset at every bar line."
 ) 
-(translator-property-description 'localKeySignatureChanges list? "??
+(translator-property-description 'localKeySignatureChanges list? "Experimental.
  [DOCME]")
 (translator-property-description 'measureLength moment? "Length of one
 measure in the current time signature last?")