(conv): dashes rule.

[lilypond.git] / input / screech-boink.ly

diff --git a/input/screech-boink.ly b/input/screech-boink.ly
index 63619238638861dd0fd4c012d87311cff83eaa63..1a7e14423db5c64c4765548a564a5bbdc355685d 100644 (file)
--- a/input/screech-boink.ly
+++ b/input/screech-boink.ly
@@ -1,12 +1,10 @@
+\version "1.9.1"
+\header {
+    title = "Screech and boink"
+    subtitle = "Random complex notation"
+    composer = "Han-Wen Nienhuys"
+    }
 
-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 #'style = #'ramp
-}
 \score {
 \notes \context PianoStaff <
   \context Staff = up {
@@ -16,17 +14,17 @@ clusterSneeuwbal =\notes {
 
 < { \property Voice.Stem \override #'direction = #'()          \translator Staff = down
     \property Voice.subdivideBeams = ##t            
-       g16.-[
+       g16.[
        \translator Staff = up
        c'''32  \translator Staff = down
        g32 \translator Staff = up
        c'''32  \translator Staff = down
-        g16-]
+        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''-] } \\
+       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 }
        >
@@ -39,15 +37,15 @@ clusterSneeuwbal =\notes {
     \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 <<as b>>
+    g'16[ b16 fis16 g16]
+< \apply #notes-to-clusters { 
+    as16 <<as b>>
     <<g b>>
-    <<g cis>>-\stopCluster
+    <<g cis>>
   } \\
  {
 \property Staff.Arpeggio \set #'arpeggio-direction =#-1
-<<cis, e, gis, b, cis>>4-\arpeggio  }
+<<cis, e, gis, b, cis>>4\arpeggio  }
   >
  }
 >