From 2a79b7b9f41bf21f515a05e1b32653fc421c9d2b Mon Sep 17 00:00:00 2001 From: Rune Zedeler Date: Mon, 29 Jul 2002 12:24:53 +0000 Subject: [PATCH] 2002-07-28 Rune Zedeler * lily/note-spacing.cc (stem_dir_correction) Add property knee_spacing_correction controlling the amount of optical spacing added to knees. --- lily/note-spacing.cc | 5 +++-- scm/grob-description.scm | 2 ++ scm/grob-property-description.scm | 1 + scm/translator-property-description.scm | 2 +- 4 files changed, 7 insertions(+), 3 deletions(-) diff --git a/lily/note-spacing.cc b/lily/note-spacing.cc index 2d3e7b19d3..e7256e8bbe 100644 --- 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 27ae041723..1826b1b039 100644 --- 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 66af41fad1..84c3eae75d 100644 --- 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 aaaf427981..de72887856 100644 --- 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?") -- 2.39.5