input/test/trills.ly

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