From 08f820819f392708e440f5e357ded2c73ccf5073 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Mon, 24 Mar 2003 00:18:16 +0000 Subject: [PATCH] new file. --- input/screech-boink.ly | 60 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 60 insertions(+) create mode 100644 input/screech-boink.ly diff --git a/input/screech-boink.ly b/input/screech-boink.ly new file mode 100644 index 0000000000..2ceccd9695 --- /dev/null +++ b/input/screech-boink.ly @@ -0,0 +1,60 @@ + +clusterSneeuwbal =\notes { + \property Thread.NoteHead \set #'transparent = ##t + \property Voice.Stem \set #'transparent = ##t + \property Voice.Beam \set #'transparent = ##t +% \property Staff.Accidental \set #'transparent = ##t + \property Voice.Cluster \set #'padding = #0.25 + \property Voice.Cluster \set #'shape = #'ramp +} +\score { +\notes \context PianoStaff < + \context Staff = up { + \time 4/8 + \key c \minor + + +< { \property Voice.Stem \override #'direction = #'() \translator Staff = down + \property Voice.subdivideBeams = ##t + g16.-[ + \translator Staff = up + c'''32 \translator Staff = down + g32 \translator Staff = up + c'''32 \translator Staff = down + g16-] + \translator Staff = up +\property Voice.Stem \revert #'direction + \property Voice.followVoice = ##t + c'''32-(-[ b''16 a''16 gis''16 g''32-)-] } \\ + { s4 \times 2/3 { d'16-[ f' g'-] } as'32-[ b''32 e'' d''-] } \\ + { s4 \autoBeamOff d''8.. f''32 } \\ + { s4 es''4 } + > + } + + \context Staff = down { + \clef bass + \key c \minor + \property Voice.subdivideBeams = ##f + \property Voice.Stem \set #'french-beaming = ##t +\property Voice.Beam \set #'thickness = #0.3 +\property Voice.Stem \set #'thickness = #4.0 + [g'16 b16 fis16 g16] +< { \clusterSneeuwbal + as16-\startCluster <> + <> + <>-\stopCluster + } \\ + { +\property Staff.Arpeggio \set #'arpeggio-direction =#-1 +<>4-\arpeggio } + > + } +> + +\paper { linewidth = -1.0 + + \translator { \StaffContext \consists Horizontal_bracket_engraver } +} +\midi { \tempo 8 = 60 } +} -- 2.39.5