input/test/trills.ly

   1 \version "1.7.18"
   2
   3 \header {
   4   texidoc="@cindex Trills
   5 Document trills, pralls and turns."
   6
   7 }
   8
   9 %{
  10
  11 taken from :
  12
  13 title="Marques des agr\\'ements et leur signification"
  14   composer="D'Anglebert"
  15   year="1689"
  16
  17 %}
  18
  19 invisible = \property Voice.NoteHead \override #'transparent = ##t
  20 visible = \property Voice.NoteHead \revert #'transparent
  21
  22 % Ugly hack to get reasonable position of the pincé and Cheute
  23 startHorizScript = {
  24   \property Voice.scriptHorizontal = ##t
  25   \property Voice.Script \override #'padding = #0.3
  26   \property Voice.Script \override #'extra-offset = #'(-.6 . 0)
  27   % Avoid collision with the dots of dotted notes
  28   \property Voice.Dots \override #'extra-X-extent = #'(-0.7 . 0)
  29 }
  30 endHorizScript = {
  31   \property Voice.scriptHorizontal \unset
  32   \property Voice.Dots \revert #'padding
  33   \property Voice.Script \revert #'padding
  34   \property Voice.Script \revert #'extra-offset
  35 }
  36
  37
  38 \score {
  39   <
  40     \context GrandStaff <
  41       \context Staff=upper \notes\relative c'' {
  42         \time 1/4
  43         c4-\prall
  44         \time 3/8
  45         c4.^\lineprall
  46         c4.-\downprall
  47         c4.-\upprall
  48         \time 5/8
  49         c4-\turn c4.-\upprall
  50         d4-\turn b4.-\downprall
  51         \time 3/4
  52         b4 c^\turn d
  53         \time 1/4
  54         <\context Voice=upper{\voiceOne d4}
  55          \context Voice=lower{\voiceTwo
  56            \property Voice.Script \override #'extra-offset = #'(-0.8 . 2.0)
  57            b_\turn}>
  58         \startHorizScript
  59 %{ FIXME  \comma does not exist
  60
  61         c^\comma
  62         \time 3/8
  63         c4.^\comma
  64         b8 c4_\comma
  65         c8 b4_\comma
  66         b8 c4^\comma _\comma
  67 %}
  68         \endHorizScript
  69         \time  2/2 \slurDown
  70         <{c2}{s4 \invisible d1*1/4 ( \visible }>  e2-)
  71         <{a,2}{s4 \invisible b1*1/4 ( \visible }>  d2-)
  72         <{a2}{s4 \invisible b1*1/4 ( \visible }>  d2-)
  73         \time 3/4
  74         d2^\prallup e4
  75       }
  76       \context Lyrics=one \lyrics {
  77         "Tremblement"4
  78         "Tremblement"4.
  79         "Cadence"
  80         "autre"
  81         "Double"4 "cadence"4.
  82         "autre"4 _4.
  83         _4 "sans tremblement"2
  84         "sur une tierce"4
  85         "Pinc\\'e"4
  86         "autre"4.
  87         "Cheute ou Port de"
  88         "en descendant"
  89         "Cheute et pinc\\'e"
  90         "Coul\\'e Sur 2 notes"1
  91         "autre"
  92         "autre"
  93         "Double cadence"2.
  94       }
  95       \context Lyrics=two \lyrics {
  96         "simple"4
  97         "appuy\'e"4.
  98         \skip 1*3
  99         \skip 4 \skip 4.
 100         "voix et montant"
 101         \skip 2.
 102         "de suite"1
 103       }
 104       \context Staff=lower \notes\relative c'' {
 105         % autobeamer has som problems here
 106         d32-[  \repeat unfold 3 { c d } c-]
 107         d8 ~  d32-[\repeat unfold 3 { d32  } c-]
 108         d32 c b c \repeat unfold 4 { d32 c }
 109         b32 c d c \repeat unfold 4 { d32 c }
 110         c32-[-( b a16 b  c-)-]
 111         b32-[ \repeat unfold 5 { c d32 } c-]
 112       }
 113     >
 114   >
 115         \paper{ }
 116 }
 117 %% new-chords-done %%