2 clusterSneeuwbal =\notes {
3 \property Thread.NoteHead \set #'transparent = ##t
4 \property Voice.Stem \set #'transparent = ##t
5 \property Voice.Beam \set #'transparent = ##t
6 % \property Staff.Accidental \set #'transparent = ##t
7 \property Voice.Cluster \set #'padding = #0.25
8 \property Voice.Cluster \set #'style = #'ramp
11 \notes \context PianoStaff <
17 < { \property Voice.Stem \override #'direction = #'() \translator Staff = down
18 \property Voice.subdivideBeams = ##t
20 \translator Staff = up
21 c'''32 \translator Staff = down
22 g32 \translator Staff = up
23 c'''32 \translator Staff = down
25 \translator Staff = up
26 \property Voice.Stem \revert #'direction
27 \property Voice.followVoice = ##t
28 c'''32-(-[ b''16 a''16 gis''16 g''32-)-] } \\
29 { s4 \times 2/3 { d'16-[ f' g'-] } as'32-[ b''32 e'' d''-] } \\
30 { s4 \autoBeamOff d''8.. f''32 } \\
35 \context Staff = down {
38 \property Voice.subdivideBeams = ##f
39 \property Voice.Stem \set #'french-beaming = ##t
40 \property Voice.Beam \set #'thickness = #0.3
41 \property Voice.Stem \set #'thickness = #4.0
44 as16-\startCluster <<as b>>
46 <<g cis>>-\stopCluster
49 \property Staff.Arpeggio \set #'arpeggio-direction =#-1
50 <<cis, e, gis, b, cis>>4-\arpeggio }
55 \paper { linewidth = -1.0
57 \translator { \StaffContext \consists Horizontal_bracket_engraver }
59 \midi { \tempo 8 = 60 }