input/test/incipit.ly

   1 #(ly:set-option 'old-relative)
   2 \version "1.9.8"
   3 \header { texidoc = "@cindex Incipit
   4 This shows how to make an ``incipit'' to indicate scordatora
   5 tuning of a violin part, using the clefStyle property.
   6 The two first bars of Biber's Rosary sonata III. " }
   7
   8
   9
  10
  11 violinincipit =  \notes\relative c''{
  12   \clef "french"
  13   \time 2/2
  14   \property Staff.TimeSignature \override #'style = #'old
  15   a4. b8 c4 fis |
  16 %  <b fis' b d>1
  17   \property Staff.TimeSignature \override #'style = #'C
  18 }
  19
  20 bcincipit =  \notes\relative c{
  21   \clef bass
  22   \property Staff.TimeSignature \override #'style = #'old
  23   b2. cis4 |
  24   \property Staff.TimeSignature \override #'style = #'C
  25 }
  26
  27 violin =  \notes\relative c''{
  28 % Key signatures with different alterations in different octaves
  29 % are broken since 1.3.58!
  30 %  \specialkey \keysignature f' fis'' g' gis''
  31   \key d \major
  32   \time 2/2
  33   \clef treble
  34
  35   a4. b8 c4 fis |
  36   gis~ gis8 fis16^\trill (e) b8 c
  37   <<{ a d}\\ { es,4}>>|
  38 }
  39
  40 BC  = \notes\relative c{
  41   \key d \major
  42   \time 2/2
  43   \clef "bass"
  44
  45  \key \default
  46   b2. cis4 |
  47   d e fis g |
  48 }
  49
  50 \score{
  51   <<
  52     \context Staff = violin {\notes{
  53       \property Staff.Clef \override #'transparent = ##t
  54       \violinincipit \bar ".|"
  55       \property Staff.Clef \revert #'transparent
  56       \endincipit
  57       \violin
  58     }}
  59     \new Staff {\notes{
  60       \property Staff.Clef \override #'transparent = ##t
  61       \bcincipit \bar ".|"
  62       \property Staff.Clef \revert #'transparent
  63       \endincipit
  64       \BC
  65     }}
  66   >>
  67         \paper { raggedright = ##t }
  68 }
  69
  70