]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/slur-script.ly
* scm/define-grob-properties.scm (avoid-slur): New property.
[lilypond.git] / input / regression / slur-script.ly
1
2 \header {
3
4     texidoc = "A slur avoids collisions with scripts.  Articulations
5     go inside the slur, dynamic markings go outside the slur.
6     Fingerings and texts are placed either inside or outside.
7
8     For different configurations, the defaults can be changed, and
9     scripts can be moved manually."
10   }
11
12 \version "2.6.0"
13 \layout {
14     indent = 0\mm
15     raggedright = ##t
16 }
17 \relative
18 {
19     b4-.( b-. b-.)
20     b(-.  d-.)
21
22     b_1( f'_1_2_3 c_3_4_5 a)
23     b( f'\p b,)
24     
25     %% Do not force dynamics outside slur, only avoid collisions.
26     \override DynamicLineSpanner #'avoid-slur = #'around
27     \override DynamicLineSpanner #'padding = #0.4
28     b( e\p e\f b)
29     
30     %% Do not avoid collisions.
31     \override DynamicLineSpanner #'avoid-slur = #'()
32     \revert DynamicLineSpanner #'padding
33     b( d\p d\f b)
34     
35     c_\markup { \italic {"cresc."}}( c c)
36     \once \override Script #'padding = #1.2
37     b-.( b-.
38     \once \override Script #'padding = #1.2
39     b-.)
40     e='16[-.( f-.)]
41 }