*** empty log message ***

[lilypond.git] / input / test / incipit.ly

diff --git a/input/test/incipit.ly b/input/test/incipit.ly
index 3d06b9be56e314ecb2c63032e11d76c4a7f294b3..8524b2301da21adf7393cc7b967d68f2a07bc409 100644 (file)
--- a/input/test/incipit.ly
+++ b/input/test/incipit.ly
@@ -1,50 +1,70 @@
-%{
- 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
-%}
 
-\version "1.3.5";
 
-incipit = \notes\relative c'{
-  <b1 fis' b d>
+
+violinincipit = \notes\relative c''{
+  \clef "french"
+  \time 2/2
+  \override Staff.TimeSignature  #'style = #'old
+  a4. b8 c4 fis |
+%  <b fis' b d>1
+  \override Staff.TimeSignature  #'style = #'C
+}
+
+bcincipit = \notes\relative c{
+  \clef bass
+  \override Staff.TimeSignature  #'style = #'old
+  b2. cis4 | 
+  \override Staff.TimeSignature  #'style = #'C
 }
 
 violin = \notes\relative c''{
-  \specialkey \keysignature f' fis'' g' gis'';
-  \time 2/2;
+% 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
 
   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{
-  \key D;
-  \time 2/2;
-  \clef "bass";
+BC = \notes\relative c{
+  \key d \major
+  \time 2/2
+  \clef "bass"
 
+ \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{
+      \override Staff.Clef  #'transparent = ##t
+      \violinincipit \bar ".|" 
+      \revert Staff.Clef #'transparent 
+      \endincipit
+      \violin
+    }}
+    \new Staff {\notes{
+      \override Staff.Clef  #'transparent = ##t
+      \bcincipit \bar ".|" 
+      \revert Staff.Clef #'transparent 
+      \endincipit
+      \BC
+    }}
+  >>
+       \paper { raggedright = ##t }
 }  
 
+