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