input/proportional.ly

   1 \version "2.9.11"
   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   \override  TupletNumber #'text = #tuplet-number::calc-fraction-text
  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 = #3.5
  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   >>
 128 >>