OLD | NEW |
1 \version "2.16.0" | 1 \version "2.17.6" |
2 \header { | 2 \header { |
3 texidoc = "Concave beaming works for chords as well as monophonic | 3 texidoc = "Concave beaming works for chords as well as monophonic |
4 music. | 4 music. |
5 " | 5 " |
6 } | 6 } |
7 | 7 |
8 morgenliedBeam = \relative c'' \new Voice { | 8 morgenliedBeam = \relative c'' \new Voice { |
9 \time 3/8 | 9 \time 3/8 |
10 % morgenlied | 10 % morgenlied |
11 c16 b c e g <e b'> | | 11 c16 b c e g <e b'> | |
(...skipping 18 matching lines...) Expand all Loading... |
30 \rachmaninovBeams | 30 \rachmaninovBeams |
31 } | 31 } |
32 \layout { | 32 \layout { |
33 ragged-right = ##t | 33 ragged-right = ##t |
34 } | 34 } |
35 | 35 |
36 % cut & paste from beam-concave.ly | 36 % cut & paste from beam-concave.ly |
37 | 37 |
38 #(define (<> x y) (not (= x y))) | 38 #(define (<> x y) (not (= x y))) |
39 mustBeHorizontal = { | 39 mustBeHorizontal = { |
40 \override Staff.Beam #'positions = #(check-slope-callbacks =) | 40 \override Staff.Beam.positions = #(check-slope-callbacks =) |
41 } | 41 } |
42 mustNotBeHorizontal = { | 42 mustNotBeHorizontal = { |
43 \override Staff.Beam #'positions = #(check-slope-callbacks <>) | 43 \override Staff.Beam.positions = #(check-slope-callbacks <>) |
44 } | 44 } |
45 | 45 |
46 \new Voice { | 46 \new Voice { |
47 \mustBeHorizontal | 47 \mustBeHorizontal |
48 R1 | 48 R1 |
49 \horizontalBeams | 49 \horizontalBeams |
50 \mustNotBeHorizontal | 50 \mustNotBeHorizontal |
51 \nonHorizontalBeams | 51 \nonHorizontalBeams |
52 } | 52 } |
OLD | NEW |