From: hanwen Date: Tue, 20 Jan 2004 21:49:20 +0000 (+0000) Subject: (all-grob-descriptions): less padding. X-Git-Tag: release/2.1.14~10 X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=e6392bc854100d125a33ad87516a76561340d861;p=lilypond.git (all-grob-descriptions): less padding. --- diff --git a/ChangeLog b/ChangeLog index 8f70984aca..c952238b38 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,16 @@ +2004-01-20 Han-Wen Nienhuys + + * lily/system.cc (set_loose_columns): use the right prebroken cols + for interpolating loose column position. + + * lily/text-spanner.cc (brew_molecule): default to no vertical + lines. + + * lily/ottava-bracket.cc (brew_molecule): vertical line doesn't + take space. + + * scm/define-grobs.scm (all-grob-descriptions): less padding. + 2004-01-20 Jan Nieuwenhuizen * lily/axis-group-engraver.cc: Include warn.hh (compile fix). @@ -5,11 +18,11 @@ 2004-01-20 Han-Wen Nienhuys * lily/axis-group-engraver.cc (finalize): extra check; if - process_music() is never called, then staffline_ == 0. + process_music () is never called, then staffline_ == 0. * lily/simultaneous-music-iterator.cc (pending_moment): don't check run_always (). - + * VERSION: release 2.1.13 * input/regression/note-head-style.ly (pattern): cleanup. diff --git a/Documentation/user/introduction.itely b/Documentation/user/introduction.itely index 483e8161a5..f52b1fe6ee 100644 --- a/Documentation/user/introduction.itely +++ b/Documentation/user/introduction.itely @@ -423,12 +423,12 @@ require them to be twice the thickness of the staff lines. The same mechanism can be used to adjust a setting globally. By issuing the following command, the entire piece is now formatted with thicker stems: @example - \property Score.Stem \override #'thickness = #2.0 + \property Score.Stem \override #'thickness = #3.0 @end example @lilypond \score { \notes \relative c'' { - \property Score.Stem \override #'thickness = #2.0 + \property Score.Stem \override #'thickness = #3.0 \once\property Voice. DynamicLineSpanner \override #'padding = #4.0 \stemUp a4_\f f,8 @@ -450,7 +450,7 @@ example above is calculated by the function this function by a more advanced one, we could issue @example \property Voice.DynamicLineSpanner \override #'Y-offset-callbacks - = #`(,gee-whiz-gadget) + = #(list gee-whiz-gadget) @end example @noindent diff --git a/input/no-notation/recording.ly b/input/no-notation/recording.ly index 5956919c96..a9e2c47327 100644 --- a/input/no-notation/recording.ly +++ b/input/no-notation/recording.ly @@ -7,7 +7,6 @@ how to skip the rendering and outputting step of the process, using @code{ly:run-translator}." } -\include "english.ly" theMusic = \context Staff \notes { c4 d8-. } diff --git a/input/regression/custos.ly b/input/regression/custos.ly index a38d2c8def..d47c124ee6 100644 --- a/input/regression/custos.ly +++ b/input/regression/custos.ly @@ -6,23 +6,21 @@ \score { \notes { \property Staff.Custos \set #'neutral-position = #4 - \property Staff.Custos \set #'neutral-direction = #-1 - \property Staff.Custos \set #'adjust-if-on-staffline = ##t \property Staff.Custos \set #'style = #'hufnagel - c'1^"Custos style = \#'hufnagel" + c'1^"hufnagel" \break < d' a' f''>1 \property Staff.Custos \set #'style = #'medicaea - c'1^"Custos style = \#'medicaea" + c'1^"medicaea" \break < d' a' f''>1 \property Staff.Custos \set #'style = #'vaticana - c'1^"Custos style = \#'vaticana" + c'1^"vaticana" \break < d' a' f''>1 \property Staff.Custos \set #'style = #'mensural - c'1^"Custos style = \#'mensural" + c'1^"mensural" \break < d' a' f''>1 } \paper { diff --git a/input/regression/ottava.ly b/input/regression/ottava.ly index d8011816eb..bf6e3cc7b0 100644 --- a/input/regression/ottava.ly +++ b/input/regression/ottava.ly @@ -58,6 +58,11 @@ with @code{Staff.ottavation}. #(set-octavation -1) \property Staff.ottavation = #"8" c,,16 + #(set-octavation 0) + c'16 + #(set-octavation -1) + \property Staff.ottavation = #"8" + g,,16 } } diff --git a/input/regression/tie-busy-grobs.ly b/input/regression/tie-busy-grobs.ly index 85e58d0030..9016f3f44b 100644 --- a/input/regression/tie-busy-grobs.ly +++ b/input/regression/tie-busy-grobs.ly @@ -2,7 +2,10 @@ \header { texidoc = "Tie engraver uses @code{busyGrobs} to keep track of -note heads. Test if this queue works by throwing many mixed tuplets at it." +note heads. Test if this queue works by throwing many mixed tuplets at it. + +This test may show collisions between tie and beam. +" } diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm index e1f168011f..4c9a5ff024 100644 --- a/scm/define-grobs.scm +++ b/scm/define-grobs.scm @@ -1082,7 +1082,7 @@ (text-repeat-if-broken . #t) (shorten-pair . (0.0 . -0.6)) (staff-padding . 1.0) - (padding . 1.0) + (padding . 0.5) (enclose-bounds . #t) (minimum-length . 1.0) (dash-fraction . 0.3) diff --git a/scm/music-functions.scm b/scm/music-functions.scm index ba78fc0ed7..24986145f0 100644 --- a/scm/music-functions.scm +++ b/scm/music-functions.scm @@ -791,3 +791,12 @@ Rest can contain a list of beat groupings (ly:set-grob-property! grob 'balloon-text-props '((font-family . roman))) )))) + + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; + + +(define-public (determine-split-list ev1 ev2 state) + +#f ) diff --git a/scm/paper.scm b/scm/paper.scm index 2b5e18024f..80a0724bfb 100644 --- a/scm/paper.scm +++ b/scm/paper.scm @@ -51,6 +51,8 @@ (define (set-paper-dimensions m w h) + "M is a module (ie. paper->scope_ )" + (let* ( (mm (eval 'mm m)) )