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