input/proportional.ly

   1 \version "2.7.4"
   2
   3 \header
   4 {
   5   title  = "Proportional notation"
   6   copyright = "© 2005 Trevor Bača"
   7 }
   8
   9 \layout
  10 {
  11  indent = #0.0
  12  \context {
  13    \Voice
  14    \remove "Forbid_line_break_engraver"
  15    tupletNumberFormatFunction = #fraction-tuplet-formatter
  16    tupletFullLength = ##t
  17    allowBeamBreak = ##t
  18  }
  19  \context {
  20    \Score
  21    \override TupletBracket #'edge-text = #(cons
  22                                            (markup #:arrow-head X LEFT #f)
  23                                            (markup #:arrow-head X RIGHT #f))
  24    \override SpacingSpanner #'uniform-stretching = ##t
  25    \override SpacingSpanner #'strict-note-spacing = ##t
  26    proportionalNotationDuration = #(ly:make-moment 1 64)
  27    \override TimeSignature #'break-visibility = #end-of-line-invisible
  28    \override Beam #'break-overshoot = #'(-0.5 . 1.0)
  29  }
  30  \context {
  31    % we want over print if necessary.
  32    \RhythmicStaff
  33    \remove "Separating_line_group_engraver"
  34  }
  35 }
  36
  37 staffKind = "RhythmicStaff"
  38
  39 %staffKind = "Staff"
  40
  41 \relative c''
  42 \new StaffGroup <<
  43  \new \staffKind <<
  44    {
  45      \skip 2
  46      \skip 2
  47      \break \time 4/8
  48      \skip 1 \break \time 4/8
  49      \skip 1 \break \time 4/8
  50    }
  51
  52    {
  53    \time 4/8
  54
  55    \times 7/9 {
  56      \times 4/6 {
  57        r8 c32[ c c c c c c c] r4
  58        c32[ c32 c16 }
  59        \times 5/4 {
  60          c16 c c] c32[ c32 c16 c] r8 }
  61      }
  62
  63 \times 10/12 {
  64     \times 7/6 {
  65          c32[ c32 c8 c16] r4
  66          c16[ c16 c16. c32
  67     }
  68     \times 5/8 {
  69          c16 c16 c16. c32] r8 c8[ c8] r4.
  70     }
  71 }
  72
  73    \times 4/7 {
  74      r8
  75      c16[ c16
  76        \times 5/4 {
  77          c16 r16 c8 c c
  78        }
  79    }
  80
  81    \times 3/4 {
  82      c8]
  83      c16[ c
  84           \times  2/3 {
  85             c16 c16]
  86           r4 }
  87    }
  88  }
  89    >>
  90  \new \staffKind
  91  <<
  92  {
  93    \times 9/5 {
  94      r8. c16[ c c
  95               \grace {
  96                 \stemDown
  97                 c32[ c32]
  98                 \stemNeutral
  99               }
 100               c16 c c
 101      c
 102    }
 103    \times 4/7 {
 104      c16 c c c ]
 105      \times 5/4 {
 106        c16[ c32 c32]
 107        r4
 108        c32[ c c16
 109      }
 110    }
 111    \times 10/12 {
 112      \times 7/10 {
 113        c16 c16 c8] r4 c4
 114        c16[ c8 c16 c16 r8 c16
 115      }
 116      c16 c32 c32]
 117      r4.
 118      c16.[
 119      c32
 120    }
 121    c16 c16]
 122
 123  }
 124  { \skip 2 * 6 } % filler space.
 125  >>
 126 >>