-\version "1.5.68"
-%{
- Test of how to make an ``incipit'' to indicate scordatora
- tuning of a violin part, using the clefStyle property.
- The two first bars of Biber's Rosary sonata III.
+\version "2.1.28"
+\header { texidoc = "@cindex Incipit
+This example shows how to make an ``incipit'' to indicate
+scordatora tuning of a violin part, by overriding the @code{style} of
+a @code{TimeSignature}.
+Here are the two first bars of Biber's Rosary sonata III. " }
- /Mats B
-%}
-violinincipit = \notes\relative c''{
+violinincipit = \notes\relative c''{
\clef "french"
\time 2/2
- \property Staff.TimeSignature \override #'style = #'old
+ \override Staff.TimeSignature #'style = #'old
a4. b8 c4 fis |
-% <b1 fis' b d>
- \property Staff.TimeSignature \override #'style = #'C
+% <b fis' b d>1
+ \override Staff.TimeSignature #'style = #'C
}
-bcincipit = \notes\relative c{
+bcincipit = \notes\relative c{
\clef bass
- \property Staff.TimeSignature \override #'style = #'old
+ \override Staff.TimeSignature #'style = #'old
b2. cis4 |
- \property Staff.TimeSignature \override #'style = #'C
+ \override Staff.TimeSignature #'style = #'C
}
-violin = \notes\relative c''{
+violin = \notes\relative c''{
% Key signatures with different alterations in different octaves
% are broken since 1.3.58!
% \specialkey \keysignature f' fis'' g' gis''
\clef treble
a4. b8 c4 fis |
- gis~ gis8 fis16^\trill ()e b8 c \context Staff<{\voiceOne a d}{\voiceTwo es,4}>|
+ gis~ gis8 fis16^\trill (e) b8 c
+ <<{ a d}\\ { es,4}>>|
}
-BC = \notes\relative c{
+BC = \notes\relative c{
\key d \major
\time 2/2
\clef "bass"
}
\score{
- <
+ <<
\context Staff = violin {\notes{
- \property Staff.Clef \override #'transparent = ##t
+ \override Staff.Clef #'transparent = ##t
\violinincipit \bar ".|"
- \property Staff.Clef \revert #'transparent
+ \revert Staff.Clef #'transparent
\endincipit
\violin
}}
- \context Staff = BC{\notes{
- \property Staff.Clef \override #'transparent = ##t
+ \new Staff {\notes{
+ \override Staff.Clef #'transparent = ##t
\bcincipit \bar ".|"
- \property Staff.Clef \revert #'transparent
+ \revert Staff.Clef #'transparent
\endincipit
\BC
}}
- >
+ >>
+ \paper { raggedright = ##t }
}
+