Patch, was: input/test/incipit.ly doesn't work

[Mats Bengtsson]

Here's a patch to solve some of the problems.

> >>>>> "Mats" == Mats Bengtsson <address@hidden> writes:
> 
>     >> ly2dvi: LilyPond failed: lilypond  incipit.ly 2>&1
> 
>     Mats> I know! The main problem with this example is that the
>     Mats> support for special key signatures with different keys 
>     Mats> in different octaves broke in 1.3.59.
> 
> So is that on the list of bugs that should be fixed before there's a
> stable version?

So far, it has only been in the list in my own head.

> Is there such a list?

Click on `To do' on the lilypond WWW page. 

> Can I get fullSizeChanges onto it?

Yes, this time I tested my answer:
If you want in the full document, do

  \paper{
    ...
    \translator{
      \StaffContext
       Clef \override #'full-size-change = ##t
    }
  }

if you just want it at a specific place in the score, do

\context Staff \outputproperty #(make-type-checker 'clef-interface) 
#'full-size-change = ##t

The reason for this complicated version of the property setting is
that the clef object already has been created.

   /Mats

Generated by (address unknown),
>From = lilypond-1.3.128, To = lilypond-1.3.128.mb1

usage 

    cd lilypond-source-dir; patch -E -p1 < lilypond-1.3.128.mb1.diff

Patches do not contain automatically generated files 
or (urg) empty directories, 
i.e., you should rerun autoconf, configure

diff -urN ../lilypond-1.3.128/CHANGES ./CHANGES
--- ../lilypond-1.3.128/CHANGES Sun Feb  4 23:57:49 2001
+++ ./CHANGES   Wed Feb  7 00:06:48 2001
@@ -1,3 +1,8 @@
+1.3.128.mb1
+============
+* updated \endincipit macro and the examples input/test/incipit.ly and
+  input/regression/clefs.ly
+
 1.3.127.jcn3
 ============
 * Mutopia preparations and Coriolan fixes.
diff -urN ../lilypond-1.3.128/Documentation/user/fdl.itexi 
./Documentation/user/fdl.itexi
--- ../lilypond-1.3.128/Documentation/user/fdl.itexi    Sun Jan 28 15:19:16 2001
+++ ./Documentation/user/fdl.itexi      Mon Feb  5 23:27:26 2001
@@ -1,6 +1,8 @@
 
 @node GNU Free Documentation License
address@hidden GNU Free Documentation License
address@hidden @appendixsec GNU Free Documentation License
address@hidden Hmm, only have one section in appendix: move up to chapter level
address@hidden GNU Free Documentation License
 
 @cindex FDL, GNU Free Documentation License
 @center Version 1.1, March 2000
diff -urN ../lilypond-1.3.128/VERSION ./VERSION
--- ../lilypond-1.3.128/VERSION Sun Feb  4 23:59:10 2001
+++ ./VERSION   Tue Feb  6 23:56:45 2001
@@ -2,7 +2,7 @@
 MAJOR_VERSION=1
 MINOR_VERSION=3
 PATCH_LEVEL=128
-MY_PATCH_LEVEL=
+MY_PATCH_LEVEL=mb1
 
 # use the above to send patches: MY_PATCH_LEVEL is always empty for a
 # released version.
diff -urN ../lilypond-1.3.128/input/regression/clefs.ly 
./input/regression/clefs.ly
--- ../lilypond-1.3.128/input/regression/clefs.ly       Fri Jan 26 16:56:27 2001
+++ ./input/regression/clefs.ly Wed Feb  7 00:05:46 2001
@@ -26,12 +26,17 @@
          \clef "G^8";c'1^"{sup 8?}" c'1 \bar "||";
          \clef "bass";c'1^"{bass}" \bar "||";
          \clef "subbass";c'1^"{subbass}" \bar "||";
-       \property Staff.clefStyle="transparent"
-         \clef "treble"; c'1^"clefStyle=\"transparent\"" \bar "||";
-       \property Staff.clefStyle="fullSizeChanges"
-         \clef "treble"; c'1^"clefStyle=\"fullSizeChanges\"" \bar "|.";
+        \property Staff.Clef \override #'transparent = ##t
+         \clef "treble"; c'1^"transparent=\#t" \bar "||";
+        \property Staff.Clef \override #'transparent = ##f
+        \context Staff \outputproperty #(make-type-checker 'clef-interface) 
#'full-size-change = ##t
+         \clef "french"; c'1^"full-size-change = \#t" \bar "|.";
          }
          \paper{
+          \translator{
+            \StaffContext
+%           Clef \override #'full-size-change = ##t
+          }
          }
 }
 
diff -urN ../lilypond-1.3.128/input/test/coriolan-margin.ly 
./input/test/coriolan-margin.ly
--- ../lilypond-1.3.128/input/test/coriolan-margin.ly   Sun Feb  4 23:48:56 2001
+++ ./input/test/coriolan-margin.ly     Mon Feb  5 23:19:27 2001
@@ -119,7 +119,7 @@
        }
 
   \paper {
-       \paper_sixteen
+       \paperSixteen
        indent=100.0\mm;
        linewidth=150.0\mm;
     \translator {
diff -urN ../lilypond-1.3.128/input/test/incipit.ly ./input/test/incipit.ly
--- ../lilypond-1.3.128/input/test/incipit.ly   Sun Dec 17 18:54:32 2000
+++ ./input/test/incipit.ly     Tue Feb  6 23:58:25 2001
@@ -8,20 +8,30 @@
 
 \version "1.3.117";
 
-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 |
+%  <b1 fis' b d>
+  \property Staff.TimeSignature \override #'style = #'C
 }
 
-emptyincipit =  \notes{
- s1
+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'';
+% 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";
+  \clef treble;
 
-  \key;
   a4. b8 c4 fis |
   gis~ gis8 fis16^\trill ()e b8 c \context Staff<{\voiceOne a d}{\voiceTwo 
es,4}>|
 }
@@ -39,20 +49,19 @@
 \score{
   <
     \context Staff = violin {\notes{
-      \property Staff.clefStyle = "transparent" 
-      \incipit \bar ".|"; \endincipit
+      \property Staff.Clef \override #'transparent = ##t
+      \violinincipit \bar ".|"; 
+      \property Staff.Clef \revert #'transparent 
+      \endincipit
       \violin
     }}
     \context Staff = BC{\notes{
-      \property Staff.clefStyle = "transparent" 
-      \emptyincipit \bar ".|"; \endincipit
+      \property Staff.Clef \override #'transparent = ##t
+      \bcincipit \bar ".|"; 
+      \property Staff.Clef \revert #'transparent 
+      \endincipit
       \BC
     }}
   >
-  \paper{
-    \translator{\StaffContext
-      timeSignatureStyle = "C";
-    }
-  }
 }  
 
diff -urN ../lilypond-1.3.128/input/test/mark.ly ./input/test/mark.ly
--- ../lilypond-1.3.128/input/test/mark.ly      Sun Feb  4 22:47:16 2001
+++ ./input/test/mark.ly        Mon Feb  5 23:28:01 2001
@@ -17,8 +17,4 @@
 
 \score{
 \context Staff < \global \one >
-       \paper {
-               \translator { \OrchestralPartStaffContext 
-               }
-       }
 }
diff -urN ../lilypond-1.3.128/ly/property.ly ./ly/property.ly
--- ../lilypond-1.3.128/ly/property.ly  Sun Jan 21 23:22:26 2001
+++ ./ly/property.ly    Tue Feb  6 23:55:54 2001
@@ -75,7 +75,8 @@
 % End the incipit and print a ``normal line start''.
 endincipit = \notes{
     \partial 16; s16  % Hack to handle e.g. \bar ".|"; \endincipit
-    \property Staff.clefStyle = #"fullSizeChanges" 
+    \context Staff \outputproperty #(make-type-checker 'clef-interface) 
#'full-size-change = ##t
+    \context Staff \outputproperty #(make-type-checker 'clef-interface) 
#'non-default = ##t
     \bar "";
 }