knee spacing

[Rune Zedeler]

Index: ChangeLog
===================================================================
RCS file: /cvsroot/lilypond/lilypond/ChangeLog,v
retrieving revision 1.352
diff -u -r1.352 ChangeLog
--- ChangeLog   28 Jul 2002 10:46:29 -0000      1.352
+++ ChangeLog   28 Jul 2002 12:25:47 -0000
@@ -1,3 +1,9 @@
+2002-07-28  Rune Zedeler <address@hidden>
+       
+       * lily/note-spacing.cc (stem_dir_correction) Add property
+       knee_spacing_correction controlling the amount of optical spacing
+       added to knees.
+       
 2002-07-28  Glen Prideaux  <address@hidden>
        
        * lily/syllable-group.cc (set_lyric_align): Only fiddle with
Index: lily/note-spacing.cc
===================================================================
RCS file: /cvsroot/lilypond/lilypond/lily/note-spacing.cc,v
retrieving revision 1.17
diff -u -r1.17 note-spacing.cc
--- lily/note-spacing.cc        26 Jul 2002 00:23:28 -0000      1.17
+++ lily/note-spacing.cc        28 Jul 2002 12:25:49 -0000
@@ -314,7 +314,8 @@
          */
          
          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 @@
 
 ADD_INTERFACE (Note_spacing,"note-spacing-interface",
   "",
-  "left-items right-items stem-spacing-correction");
+  "left-items right-items stem-spacing-correction knee-spacing-correction");
 
Index: scm/grob-description.scm
===================================================================
RCS file: /cvsroot/lilypond/lilypond/scm/grob-description.scm,v
retrieving revision 1.117
diff -u -r1.117 grob-description.scm
--- scm/grob-description.scm    23 Jul 2002 18:46:33 -0000      1.117
+++ scm/grob-description.scm    28 Jul 2002 12:25:51 -0000
@@ -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 ))))
        ))
 
Index: scm/grob-property-description.scm
===================================================================
RCS file: /cvsroot/lilypond/lilypond/scm/grob-property-description.scm,v
retrieving revision 1.100
diff -u -r1.100 grob-property-description.scm
--- scm/grob-property-description.scm   25 Jul 2002 14:09:38 -0000      1.100
+++ scm/grob-property-description.scm   28 Jul 2002 12:25:54 -0000
@@ -236,6 +236,7 @@
 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.")
Index: scm/translator-property-description.scm
===================================================================
RCS file: /cvsroot/lilypond/lilypond/scm/translator-property-description.scm,v
retrieving revision 1.42
diff -u -r1.42 translator-property-description.scm
--- scm/translator-property-description.scm     7 Jul 2002 13:41:23 -0000       
1.42
+++ scm/translator-property-description.scm     28 Jul 2002 12:25:54 -0000
@@ -248,7 +248,7 @@
 (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?")