input/proportional.ly

   1 \version "2.7.4"
   2
   3 \header
   4 {
   5   title  = "Proportional notation"
   6   copyright = "© 2005 Trevor Bača - verbatim reproduction permitted."
   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    \override TupletBracket #'break-overshoot = #'(-0.5 . 1.0)
  30    \override PaperColumn #'used = ##t
  31  }
  32  \context {
  33    % we want over print if necessary.
  34    \RhythmicStaff
  35    \remove "Separating_line_group_engraver"
  36  }
  37 }
  38
  39 staffKind = "RhythmicStaff"
  40
  41 %staffKind = "Staff"
  42
  43 \relative c''
  44 \new StaffGroup <<
  45  \new \staffKind <<
  46    {
  47      \skip 2
  48      \skip 2
  49      \break \time 4/8
  50      \skip 1 \break \time 4/8
  51      \skip 1 \break \time 4/8
  52    }
  53
  54    {
  55    \time 4/8
  56
  57    \times 7/9 {
  58      \times 4/6 {
  59        r8 c32[ c c c c c c c] r4
  60        c32[ c32 c16 }
  61        \times 5/4 {
  62          c16 c c] c32[ c32 c16 c] r8 }
  63      }
  64
  65 \times 10/12 {
  66     \times 7/6 {
  67          c32[ c32 c8 c16] r4
  68          c16[ c16 c16. c32
  69     }
  70     \times 5/8 {
  71          c16 c16 c16. c32] r8 c8[ c8] r4.
  72     }
  73 }
  74
  75    \times 4/7 {
  76      r8
  77      c16[ c16
  78        \times 5/4 {
  79          c16 r16 c8 c c
  80        }
  81    }
  82
  83    \times 3/4 {
  84      c8]
  85      c16[ c
  86           \times  2/3 {
  87             c16 c16]
  88           r4 }
  89    }
  90  }
  91    >>
  92  \new \staffKind
  93  <<
  94  {
  95    \times 9/5 {
  96      r8. c16[ c c
  97               \grace {
  98                 \stemDown
  99                 c32[ c32]
 100                 \stemNeutral
 101               }
 102               c16 c c
 103      c
 104    }
 105    \times 4/7 {
 106      c16 c c c ]
 107      \times 5/4 {
 108        c16[ c32 c32]
 109        r4
 110        c32[ c c16
 111      }
 112    }
 113    \times 10/12 {
 114      \times 7/10 {
 115        c16 c16 c8] r4 c4
 116        c16[ c8 c16 c16 r8 c16
 117      }
 118      c16 c32 c32]
 119      r4.
 120      c16.[
 121      c32
 122    }
 123    c16 c16]
 124
 125  }
 126  { \skip 2 * 6 } % filler space.
 127  >>
 128 >>