input/proportional.ly

   1 \version "2.12.0"
   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    \override Beam #'breakable = ##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  }
  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   >>
 127 >>