input/test/trills.ly

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