*** empty log message ***

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

diff --git a/input/test/incipit.ly b/input/test/incipit.ly
index febbe7127cf253aa026755f6da9b9afe46a8071c..8524b2301da21adf7393cc7b967d68f2a07bc409 100644 (file)
--- a/input/test/incipit.ly
+++ b/input/test/incipit.ly
@@ -1,58 +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.117";
 
-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
 }
 
-emptyincipit =  \notes{
- s1
+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;
-  \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}>|
+  gis~ gis8 fis16^\trill (e) b8 c
+  <<{ a d}\\ { es,4}>>|
 }
 
-BC  = \notes\relative c{
-  \key d \major;
-  \time 2/2;
-  \clef "bass";
+BC = \notes\relative c{
+  \key d \major
+  \time 2/2
+  \clef "bass"
 
- \key;
+ \key \default
   b2. cis4 | 
   d e fis g |
 }
 
 \score{
-  <
+  <<
     \context Staff = violin {\notes{
-      \property Staff.clefStyle = "transparent" 
-      \incipit \bar ".|"; \endincipit
+      \override Staff.Clef  #'transparent = ##t
+      \violinincipit \bar ".|" 
+      \revert Staff.Clef #'transparent 
+      \endincipit
       \violin
     }}
-    \context Staff = BC{\notes{
-      \property Staff.clefStyle = "transparent" 
-      \emptyincipit \bar ".|"; \endincipit
+    \new Staff {\notes{
+      \override Staff.Clef  #'transparent = ##t
+      \bcincipit \bar ".|" 
+      \revert Staff.Clef #'transparent 
+      \endincipit
       \BC
     }}
-  >
-  \paper{
-    \translator{\StaffContext
-      timeSignatureStyle = "C";
-    }
-  }
+  >>
+       \paper { raggedright = ##t }
 }  
 
+