-%{
- 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 "1.7.18"
+\header { texidoc = "@cindex Incipit
+This shows 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. " }
- /Mats B
-%}
-\version "1.3.42";
-incipit = \notes\relative c'{
- <b1 fis' b d>
+
+violinincipit = \notes\relative c''{
+ \clef "french"
+ \time 2/2
+ \property Staff.TimeSignature \override #'style = #'old
+ a4. b8 c4 fis |
+% <<b fis' b d>>1
+ \property Staff.TimeSignature \override #'style = #'C
+}
+
+bcincipit = \notes\relative c{
+ \clef bass
+ \property Staff.TimeSignature \override #'style = #'old
+ b2. cis4 |
+ \property Staff.TimeSignature \override #'style = #'C
}
-violin = \notes\relative c''{
- \specialkey \keysignature f' fis'' g' gis'';
- \time 2/2;
- \clef "treble";
+violin = \notes\relative c''{
+% Key signatures with different alterations in different octaves
+% are broken since 1.3.58!
+% \specialkey \keysignature f' fis'' g' gis''
+ \key d \major
+ \time 2/2
+ \clef treble
- \key;
a4. b8 c4 fis |
- gis~ gis8 fis16^\trill ()e b8 c \context Staff<{\voiceone a d}{\voicetwo es,4}>|
+V gis~ gis8 fis16^\trill (e-) b8 c
+ <{ a d}\\ { es,4}>|
}
BC = \notes\relative c{
- \key d;
- \time 2/2;
- \clef "bass";
+ \key d \major
+ \time 2/2
+ \clef "bass"
- \key;
+ \key \default
b2. cis4 |
d e fis g |
}
\score{
- \notes{
- \context Staff=violin
- \property Staff.clefStyle = "transparent"
- \incipit
- < \context Staff=violin {
- \bar ".|"; \endincipit
- \violin}
- \context Staff=cb { \property Staff.clefStyle = "transparent"
- \bar ".|"; \endincipit
- \BC}>
- }
- \paper{
- \translator{\StaffContext
- timeSignatureStyle = "C";
- }
- }
+ <
+ \context Staff = violin {\notes{
+ \property Staff.Clef \override #'transparent = ##t
+ \violinincipit \bar ".|"
+ \property Staff.Clef \revert #'transparent
+ \endincipit
+ \violin
+ }}
+ \context Staff = BC{\notes{
+ \property Staff.Clef \override #'transparent = ##t
+ \bcincipit \bar ".|"
+ \property Staff.Clef \revert #'transparent
+ \endincipit
+ \BC
+ }}
+ >
+ \paper { raggedright = ##t }
}
+