($(outdir)/%.pdf): add DVIPS_FLAGS. This will

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

diff --git a/input/screech-boink.ly b/input/screech-boink.ly
index 63619238638861dd0fd4c012d87311cff83eaa63..2db75a5bd14617a2c1916f4481e73075e1e83e30 100644 (file)
--- a/input/screech-boink.ly
+++ b/input/screech-boink.ly
@@ -1,60 +1,63 @@
-
-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
+\version "2.1.22"
+\header {
+    title = "Screech and boink"
+    subtitle = "Random complex notation"
+    composer = "Han-Wen Nienhuys"
 }
+
 \score {
-\notes \context PianoStaff <
-  \context Staff = up {
-       \time 4/8
-    \key c \minor
+    \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 }
-       >
-  }
+           << {
+               \revert Stem #'direction
+               \change Staff = down
+               \set subdivideBeams =  ##t           
+               g16.[
+                   \change Staff = up
+                   c'''32      \change Staff = down
+                   g32 \change Staff = up
+                   c'''32      \change Staff = down
+                   g16]
+               \change Staff = up
+               \override Stem  #'direction = #1
+               \set 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 <<as b>>
-    <<g b>>
-    <<g cis>>-\stopCluster
-  } \\
- {
-\property Staff.Arpeggio \set #'arpeggio-direction =#-1
-<<cis, e, gis, b, cis>>4-\arpeggio  }
-  >
- }
->
+       \context Staff = down {
+           \clef bass
+           \key c \minor
+           \set subdivideBeams =  ##f
+           \override Stem  #'french-beaming =  ##t
+           \override Beam  #'thickness = #0.3
+           \override Stem  #'thickness = #4.0
+           g'16[ b16 fis16 g16]
+           << \apply #notes-to-clusters { 
+               as16 <as b>
+               <g b>
+               <g cis>
+           } \\
+              {
+                  \override Staff.Arpeggio  #'arpeggio-direction =#-1
+                  <cis, e, gis, b, cis>4\arpeggio  }
+          >>
+       }
+    >>
 
-\paper { linewidth = -1.0
+    \paper { linewidth = -1.0
 
-       \translator { \StaffContext \consists Horizontal_bracket_engraver }
-}
-\midi { \tempo 8 = 60 }
+            \translator {
+                \StaffContext
+                \consists Horizontal_bracket_engraver }
+
+        }
+    \midi { \tempo 8 = 60 }
 }