input/test/trills.ly

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