]> git.donarmstrong.com Git - lilypond.git/commitdiff
patch::: 1.3.125.jcn3
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 28 Jan 2001 11:10:58 +0000 (12:10 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 28 Jan 2001 11:10:58 +0000 (12:10 +0100)
1.3.125.jcn3
============

* Clef workarounds for Coriolan.

CHANGES
VERSION
input/bugs/clef-staff.ly [new file with mode: 0644]
input/test/part-combine-score.ly
mutopia/Coriolan/bassi.ly
mutopia/Coriolan/fagotti.ly
mutopia/Coriolan/fagotto-1.ly
mutopia/Coriolan/fagotto-2.ly
mutopia/Coriolan/violi.ly
mutopia/J.S.Bach/Solo-Cello-Suites/header.ly

diff --git a/CHANGES b/CHANGES
index 200fdcb3194652d7b518c62a1af9608073a9d01d..69539bb20c3b5d7a24abd3d26c67b596c06f98ba 100644 (file)
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,8 @@
+1.3.125.jcn3
+============
+
+* Clef workarounds for Coriolan.
+
 1.3.125.jcn2
 ============
 
diff --git a/VERSION b/VERSION
index 12fd5a4e59bd4d0b3cefab160ee2ceea36f3e656..461ff6f30bee025cb1e9d80a054d40e3a8a55862 100644 (file)
--- a/VERSION
+++ b/VERSION
@@ -2,7 +2,7 @@ PACKAGE_NAME=LilyPond
 MAJOR_VERSION=1
 MINOR_VERSION=3
 PATCH_LEVEL=125
-MY_PATCH_LEVEL=jcn2
+MY_PATCH_LEVEL=jcn3
 
 # use the above to send patches: MY_PATCH_LEVEL is always empty for a
 # released version.
diff --git a/input/bugs/clef-staff.ly b/input/bugs/clef-staff.ly
new file mode 100644 (file)
index 0000000..bb1e8e2
--- /dev/null
@@ -0,0 +1,279 @@
+% Bugs:
+% * CLef has `Staff' hardcoded
+% * Dynamics into staff: pp/ff at first note cello/contrabass
+
+\header {
+texidoc="Template for part-combining orchestral scores";
+}
+  
+\include "paper16.ly"; 
+% \include "mutopia/Coriolan/coriolan-paper.ly";
+
+
+
+flautoI = \notes\relative c'' {
+  c4 d e f
+  b,4 d c d
+  r2 e4 f
+  \break
+  c4 d e f
+  c4 r e f
+  c4 r e f
+  \break
+  c4 r a r
+  a a r a
+  a2 \property VoiceCombineThread.soloADue = ##f a
+}
+
+flautoII = \notes\relative c'' {
+  g4 b d f
+  r2 c4 d
+  a c c d
+  a4. b8 c4 d
+  c r e r
+  r2 s2
+  a,4 r a r
+  a r r a
+  a2 \property VoiceCombineThread.soloADue = ##f a
+}
+          
+flautiStaff =  \notes \context VoiceCombineStaff = flauti <
+  \property VoiceCombineStaff.midiInstrument = #"flute"
+  \property VoiceCombineStaff.instrument = #"2 Flauti"
+  \property VoiceCombineStaff.instr = #"Fl."
+  %\global
+  \context VoiceCombineVoice=one \partcombine VoiceCombineVoice
+    \context VoiceCombineThread=one \flautoI
+    \context VoiceCombineThread=two \flautoII
+>
+
+legniGroup =  \context StaffGroup = legni_group <
+  \flautiStaff
+  %\oboiStaff
+  %\clarinettiStaff
+  %\fagottiStaff
+>
+
+violinoI = \notes\relative c'' {
+  c4 d e f
+  c d e f
+  c d e f
+  c d e f
+  c d e f
+  c d e f
+  c4 d e f
+  a8 a a a b b b b
+  d1
+}      
+
+violinoII = \notes\relative c'' { 
+  c4 d e f
+  c d e f
+  c d e f
+  c2 e2
+  c4 d e f
+  c2 e2
+  c,4 d e f
+  a8 a a a b b b b
+  b1
+}
+
+violinoIStaff =  \context Staff = oneViolino <
+ \property Staff.midiInstrument = #"violin"
+  \property Staff.instrument = #"Violino I"
+  \property Staff.instr = #"Vl. I"
+  %\notes < 
+    %\global
+    %\context Voice=oneViolino
+    %\context Thread=oneViolino
+    \violinoI
+ % >
+>
+
+violinoIIStaff =  \context Staff = twoViolino <
+  % MIDI hoort geeneens verschil tussen een
+  % eerste en tweede viool ;-)
+  \property Staff.midiInstrument = #"violin"
+  \property Staff.instrument = #"Violino II"
+  \property Staff.instr = #"Vl. II"
+  %\notes < 
+    %\global
+    %\context Voice=twoViolino
+    %\context Thread=twoViolino
+    \violinoII
+ % >
+>
+
+violaI = \notes\transpose c, \violinoI
+
+violaII = \notes\transpose c, \violinoII
+
+violiGroup =  \notes \context VoiceCombineStaff = oneVioli <
+  \property VoiceCombineStaff.midiInstrument = #"viola"
+  \property VoiceCombineStaff.instrument = #"Viola"
+  \property VoiceCombineStaff.instr = #"Vla."
+  \clef "alto";
+
+  \key f \major;
+  \skip 1*314; 
+  \bar "|.";
+
+  \context VoiceCombineVoice=oneVioli \partcombine VoiceCombineVoice
+    \context VoiceCombineThread=oneVioli \violaI
+    \context VoiceCombineThread=twoVioli \violaII
+>
+
+violoncello = \notes\relative c {
+  c1\ff d e f c d e f c
+}
+
+contrabasso = \notes\relative c {
+  c1\pp
+  d4 e d e
+  e1
+  f4 g f g
+  c1
+  d4 e d e
+  e1
+  f4 g f g
+  c1
+}
+
+
+bassiGroup =  \context PianoStaff = bassi_group \notes <
+  \context StaffCombineStaff=oneBassi {
+    \property StaffCombineStaff.midiInstrument = #"cello"
+    %\property StaffCombineStaff.instrument = #"Violoncello\ne\nContrabasso"
+    \property StaffCombineStaff.instrument = #'(lines "Violoncello" "e" "Contrabasso")
+    \property StaffCombineStaff.instr = #"Vc."
+    
+    \clef "bass";
+    \key es \major;
+    \skip 1*314; 
+    \bar "|.";
+  }
+  \context StaffCombineStaff=twoBassi {
+    \property StaffCombineStaff.midiInstrument = #"contrabass"
+    \property StaffCombineStaff.instrument = #"Contrabasso"
+    \property StaffCombineStaff.instr = #"Cb."
+    
+    \clef "bass";
+    \key as \major;
+    \skip 1*314; 
+    \bar "|.";
+  }
+
+  \context StaffCombineStaff=oneBassi \partcombine StaffCombineStaff
+    \context StaffCombineVoice=oneBassi \violoncello
+    \context StaffCombineVoice=twoBassi \contrabasso
+>
+
+
+violiniGroup =  \context GrandStaff = violini_group <
+  \violinoIStaff
+  \violinoIIStaff
+>
+
+archiGroup =  \context StaffGroup = archi_group <
+  \violiniGroup
+  \violiGroup
+  \bassiGroup
+>
+
+
+\score{
+  <
+    \legniGroup
+    %\ottoniGroup
+    %\timpaniGroup
+    \archiGroup
+  >
+  \header {
+    title = "Coriolan";
+    subtitle = "Ouverture"; 
+    opus = "Opus 62";
+    composer = "Ludwig van Beethoven (1770-1827)";
+    enteredby = "JCN";
+    copyright = "public domain";
+  }
+  %\paper {}
+  \paper{
+    \paperSixteen
+
+    %textheight = 290.0\mm;
+    %linewidth = 195.0\mm;
+    textheight = 285.0\mm;
+    linewidth = 190.0\mm;
+
+    \translator{ \HaraKiriStaffContext }
+    %
+    % The Voice combine hierarchy
+    %
+    \translator{
+      \ThreadContext
+      \name "VoiceCombineThread";
+      \consists "Rest_engraver";
+    }
+    \translator{
+      \VoiceContext
+      \name "VoiceCombineVoice";
+      soloText = #"I."
+      soloIIText = #"II."
+      \remove "Rest_engraver";
+      \accepts "VoiceCombineThread";
+    }
+    \translator{
+      \HaraKiriStaffContext
+      \consists "Mark_engraver";
+      \name "VoiceCombineStaff";
+      \accepts "VoiceCombineVoice";
+    }
+
+    %
+    % The Staff combine hierarchy
+    %
+    \translator{
+      \ThreadContext
+      \name "StaffCombineThread";
+    }
+    \translator{
+      \VoiceContext
+      \name "StaffCombineVoice";
+      \accepts "StaffCombineThread";
+      \consists "Thread_devnull_engraver";
+    }
+    \translator {
+      \HaraKiriStaffContext
+      \name "StaffCombineStaff";
+      \accepts "StaffCombineVoice";
+
+      soloADue = ##t
+      soloText = #""
+      soloIIText = #""
+      % This is non-conventional, but currently it is
+      % the only way to tell the difference.
+      aDueText = #"\\`a2"
+      splitInterval = #'(1 . 0)
+      changeMoment = #`(,(make-moment 1 1) . ,(make-moment 1 1))
+    }
+    \translator {
+      \StaffGroupContext
+      \accepts "VoiceCombineStaff";
+      \accepts "StaffCombineStaff";
+    }
+    \translator{ \HaraKiriStaffContext }
+
+    \translator {
+      %\ScoreContext
+      \OrchestralScoreContext
+      \accepts "VoiceCombineStaff";
+      \accepts "StaffCombineStaff";
+      skipBars = ##t 
+
+      markScriptPadding = #4.0
+
+      BarNumber \override #'padding = #3
+      RestCollision \override #'maximum-rest-count = #1
+    }
+  }
+}
index 591343f6e093c1eec4d95759bb1903bbdffa8d84..319154c2c52f26c67a2e6d647d9f3285aa20cb61 100644 (file)
@@ -8,10 +8,13 @@ texidoc="Template for part-combining orchestral scores";
 
 
 flautoI = \notes\relative c'' {
-  c4 d e f
+  c4\pp d e f
   b,4 d c d
   r2 e4 f
   \break
+ \context Score \outputproperty #(make-type-checker 'paper-column-interface)
+ #'between-system-string = #"\\eject"
+
   c4 d e f
   c4 r e f
   c4 r e f
@@ -22,7 +25,7 @@ flautoI = \notes\relative c'' {
 }
 
 flautoII = \notes\relative c'' {
-  g4 b d f
+  g4\ff b d f
   r2 c4 d
   a c c d
   a4. b8 c4 d
@@ -74,57 +77,50 @@ violinoII = \notes\relative c'' {
   b1
 }
 
-violinoIStaff =  \context Staff = violino1 <
 \property Staff.midiInstrument = #"violin"
+violinoIStaff =  \context Staff = oneViolini <
+ \property Staff.midiInstrument = #"violin"
   \property Staff.instrument = #"Violino I"
   \property Staff.instr = #"Vl. I"
-  \notes< 
-    %\global
-    \context Voice=violinoi
-      \violinoI
-  >
+  \violinoI
+  { \skip 1*9; \bar "|."; }
 >
 
-violinoIIStaff =  \context Staff = violino2 <
+violinoIIStaff =  \context Staff = twoViolini <
   % MIDI hoort geeneens verschil tussen een
   % eerste en tweede viool ;-)
   \property Staff.midiInstrument = #"violin"
   \property Staff.instrument = #"Violino II"
   \property Staff.instr = #"Vl. II"
-  \notes< 
-    %\global
-    \context Voice=violinoii
-      \violinoII
-  >
+  \violinoII
+  { \skip 1*9; \bar "|."; }
 >
 
 violaI = \notes\transpose c, \violinoI
 
 violaII = \notes\transpose c, \violinoII
 
-violiGroup =  \notes \context VoiceCombineStaff = violi <
-  \context VoiceCombineStaff=violi {
-    \property VoiceCombineStaff.midiInstrument = #"viola"
-    \property VoiceCombineStaff.instrument = #"Viola"
-    \property VoiceCombineStaff.instr = #"Vla."
-    \clef "alto"; 
-    \key es \major;
-    \skip 1*314; 
-    \bar "|."; 
-  }
-  \context VoiceCombineVoice=one \partcombine VoiceCombineVoice
-    \context VoiceCombineThread=one \violaI
-    \context VoiceCombineThread=two \violaII
+violeGroup =  \notes \context VoiceCombineStaff = oneViole <
+  \property VoiceCombineStaff.midiInstrument = #"viola"
+  \property VoiceCombineStaff.instrument = #"Viola"
+  \property VoiceCombineStaff.instr = #"Vla."
+  %\clef "alto";
+  % Ugh, clef broken in 1.3.125
+  \property VoiceCombineStaff.clefGlyph = #"clefs-C"
+  \property VoiceCombineStaff.clefPosition = #0
+  \key f \major;
+  { \skip 1*9; \bar "|."; }
+
+  \context VoiceCombineVoice=oneViole \partcombine VoiceCombineVoice
+    \context VoiceCombineThread=oneViole \violaI
+    \context VoiceCombineThread=twoViole \violaII
 >
 
 violoncello = \notes\relative c {
-  \clef bass;
-  c1 d e f c d e f c
+  c1\ff d e f c d e f c
 }
 
 contrabasso = \notes\relative c {
-  \clef bass;
-  c1
+  c1\pp
   d4 e d e
   e1
   f4 g f g
@@ -142,19 +138,29 @@ bassiGroup =  \context PianoStaff = bassi_group \notes <
     %\property StaffCombineStaff.instrument = #"Violoncello\ne\nContrabasso"
     \property StaffCombineStaff.instrument = #'(lines "Violoncello" "e" "Contrabasso")
     \property StaffCombineStaff.instr = #"Vc."
-    \clef "bass"; 
+    
+    %\clef "bass";
+    % Ugh, clef broken in 1.3.125
+    \property StaffCombineStaff.clefGlyph = #"clefs-F"
+    \property StaffCombineStaff.clefPosition = #2
+
     \key es \major;
-    \skip 1*314
-    \bar "|."; 
+    \skip 1*9
+    \bar "|.";
   }
   \context StaffCombineStaff=twoBassi {
     \property StaffCombineStaff.midiInstrument = #"contrabass"
     \property StaffCombineStaff.instrument = #"Contrabasso"
     \property StaffCombineStaff.instr = #"Cb."
-    \clef "bass"; 
-    \key es \major;
-    \skip 1*314; 
-    \bar "|."; 
+    
+    %\clef "bass";
+    % Ugh, clef broken in 1.3.125
+    \property StaffCombineStaff.clefGlyph = #"clefs-F"
+    \property StaffCombineStaff.clefPosition = #2
+    
+    \key as \major;
+    \skip 1*9; 
+    \bar "|.";
   }
 
   \context StaffCombineStaff=oneBassi \partcombine StaffCombineStaff
@@ -170,7 +176,7 @@ violiniGroup =  \context GrandStaff = violini_group <
 
 archiGroup =  \context StaffGroup = archi_group <
   \violiniGroup
-  \violiGroup
+  \violeGroup
   \bassiGroup
 >
 
@@ -190,7 +196,6 @@ archiGroup =  \context StaffGroup = archi_group <
     enteredby = "JCN";
     copyright = "public domain";
   }
-  %\paper {}
   \paper{
     \paperSixteen
 
index 8507de159897550e8176cbf6d198213322119cda..ecaa2dd769547b7b9b9f5a6e576457a179fc7cc4 100644 (file)
@@ -20,7 +20,11 @@ bassiGroup =  \context PianoStaff = bassi_group \notes <
                %\property StaffCombineStaff.instrument = #"Violoncello\ne\nContrabasso"
                \property StaffCombineStaff.instrument = #'(lines "Violoncello" "e" "Contrabasso")
                \property StaffCombineStaff.instr = #"Vc."
-               \clef "bass"; 
+               %\clef "bass";
+               % Ugh, clef broken in 1.3.125
+               \property StaffCombineStaff.clefGlyph = #"clefs-F"
+               \property StaffCombineStaff.clefPosition = #2
+
                \key es \major;
                \skip 1*314; 
                \bar "|."; 
@@ -30,7 +34,10 @@ bassiGroup =  \context PianoStaff = bassi_group \notes <
                \property StaffCombineStaff.instrument = #"Contrabasso"
                \property StaffCombineStaff.instr = #"Cb."
 %              \property StaffCombineStaff.transposing = #-12
-               \clef "bass"; 
+               %\clef "bass"; 
+               % Ugh, clef broken in 1.3.125
+               \property StaffCombineStaff.clefGlyph = #"clefs-F"
+               \property StaffCombineStaff.clefPosition = #2
                \key es \major;
                \skip 1*314; 
                \bar "|."; 
index 4a50c25d5bcc5ed57bf1021ec70e3817234b818b..1eba7d32f4e59d8d9b5507b963d500ed7c752abc 100644 (file)
@@ -16,7 +16,10 @@ fagottiStaff =  \context VoiceCombineStaff = fagotti <
        \property VoiceCombineStaff.midiInstrument = #"bassoon"
        \property VoiceCombineStaff.instrument = #"2 Fagotti"
        \property VoiceCombineStaff.instr = #"Fg."
-       \clef "bass";
+       %\clef "bass";
+       % Ugh, clef broken in 1.3.125
+       \property VoiceCombineStaff.clefGlyph = #"clefs-F"
+       \property VoiceCombineStaff.clefPosition = #2
        \global
        \context VoiceCombineVoice=one \partcombine VoiceCombineVoice
                \context VoiceCombineThread=one \fagottoI
index b5c09cd867c8cd98bcb21bc5575444ed9c7d0a86..6ec3d680fe65e35d96a6731d3afde49bd914aa03 100644 (file)
@@ -51,12 +51,22 @@ fagottoI =  \notes \relative c {
        )d2. es4\sf(|
        )d4 r r2|
        R1*9|
-       \clef "tenor";
+       
+       %\clef "tenor";
+       % Ugh, clef broken in 1.3.125
+       \property VoiceCombineStaff.clefGlyph = #"clefs-C"
+       \property VoiceCombineStaff.clefPosition = #2
+
        \property VoiceCombineVoice.crescendoText = "cresc."
        \property VoiceCombineVoice.crescendoSpanner = "dashed-line"
        g'2.(as4 \p\<|
        g f d)bes
-       \clef "bass";
+
+       %\clef "bass";
+       % Ugh, clef broken in 1.3.125
+       \property VoiceCombineStaff.clefGlyph = #"clefs-F"
+       \property VoiceCombineStaff.clefPosition = #2
+       
        |
        \!bes2\ff as|
        g c~|
@@ -220,10 +230,22 @@ fagottoI =  \notes \relative c {
        r4 r8 es\< es4. es8|
        r4 r8 es es4. es8|
        r4 r8 %
-       \clef "tenor"; %
+
+       %\clef "tenor"; %
+       % Ugh, clef broken in 1.3.125
+       \property VoiceCombineStaff.clefGlyph = #"clefs-C"
+       \property VoiceCombineStaff.clefPosition = #2
+
+       
        f f4. f8|
        r4 r8 g g4. g8 %
-       \clef "bass"; %
+       
+       %\clef "bass"; %
+       % Ugh, clef broken in 1.3.125
+       \property VoiceCombineStaff.clefGlyph = #"clefs-F"
+       \property VoiceCombineStaff.clefPosition = #2
+
+       
        |
        \!f2.\ff()es4|
        d(c d)c|
index 9817c4e4882c10377b789a4a709b1e6e1506f6d5..3c7013fd9ed07e75cdc8b09071e6711606814b35 100644 (file)
@@ -42,13 +42,23 @@ fagottoII =  \notes \relative c {
        )d2. es4\sf(|
        )d4 r r2|
        R1*9|
-       \clef "tenor";
+       
+       %\clef "tenor";
+       % Ugh, clef broken in 1.3.125
+       \property VoiceCombineStaff.clefGlyph = #"clefs-C"
+       \property VoiceCombineStaff.clefPosition = #2
+
+       
        \property VoiceCombineVoice.crescendoText = "cresc."
        \property VoiceCombineVoice.crescendoSpanner = "dashed-line"
        g''2.(as4 \p\<||
        g f d)bes||
-       \clef "bass";
-       
+
+       %\clef "bass";
+        % Ugh, clef broken in 1.3.125
+       \property VoiceCombineStaff.clefGlyph = #"clefs-F"
+       \property VoiceCombineStaff.clefPosition = #2
+
        \!g2\ff f|
        e c~|
        c1\p~|
@@ -225,10 +235,21 @@ fagottoII =  \notes \relative c {
        \property VoiceCombineVoice.crescendoSpanner = "dashed-line"
        r4 r8 c\< c4. c8|
        r4 r8 c c4. c8|
-       \clef "tenor";
+
+       %\clef "tenor";
+       % Ugh, clef broken in 1.3.125
+       \property VoiceCombineStaff.clefGlyph = #"clefs-C"
+       \property VoiceCombineStaff.clefPosition = #2
+
+       
        r4 r8 d d4. d8|
        r4 r8 es es4. es8|
-       \clef "bass"; 
+       
+       %\clef "bass";
+       % Ugh, clef broken in 1.3.125
+       \property VoiceCombineStaff.clefGlyph = #"clefs-F"
+       \property VoiceCombineStaff.clefPosition = #2
+
        \!f,2.\ff()es4|
        d(c d)c|
        f2.\ff()es4|
index 7c0a726e6b2391135cf9d6925c8093260b5cf0d6..2e95f3e9258b98d0352a76c0cfe1fffdb92c86b2 100644 (file)
@@ -19,7 +19,12 @@ violiGroup =  \context PianoStaff = violi_group \notes <
                \property StaffCombineStaff.midiInstrument = #"viola"
                \property StaffCombineStaff.instrument = #"Viola"
                \property StaffCombineStaff.instr = #"Vla."
-               \clef "alto"; 
+               
+               %\clef "alto";
+               % Ugh, clef broken in 1.3.125
+               \property StaffCombineStaff.clefGlyph = #"clefs-C"
+               \property StaffCombineStaff.clefPosition = #0
+
                \key es \major;
                \skip 1*314; 
                \bar "|."; 
@@ -28,7 +33,12 @@ violiGroup =  \context PianoStaff = violi_group \notes <
                \property StaffCombineStaff.midiInstrument = #"viola"
                \property StaffCombineStaff.instrument = #"Viola II"
                \property StaffCombineStaff.instr = #"Vla. II"
-               \clef "alto"; 
+               
+               %\clef "alto"; 
+               % Ugh, clef broken in 1.3.125
+               \property StaffCombineStaff.clefGlyph = #"clefs-C"
+               \property StaffCombineStaff.clefPosition = #0
+
                \key es \major;
                \skip 1*314; 
                \bar "|."; 
@@ -45,7 +55,12 @@ violiGroup =  \notes \context VoiceCombineStaff = violi <
                \property VoiceCombineStaff.midiInstrument = #"viola"
                \property VoiceCombineStaff.instrument = #"Viola"
                \property VoiceCombineStaff.instr = #"Vla."
-               \clef "alto"; 
+
+               %\clef "alto"; 
+               % Ugh, clef broken in 1.3.125
+               \property VoiceCombineStaff.clefGlyph = #"clefs-C"
+               \property VoiceCombineStaff.clefPosition = #0
+
                \key es \major;
                \skip 1*314; 
                \bar "|."; 
index d075dca779a565f210a5e2a011bc4926186a4b15..fbac2107eaf069364e46463739ff674664572f6f 100644 (file)
@@ -27,5 +27,5 @@ information is taken to the extreme.
   copyright =    "\\\\This music is part of the Mutopia project, http://sca.uwaterloo.ca/Mutopia/\\\\It has been typeset and placed in the public domain by " +  \maintainername + ".\\\\Unrestricted modification and redistribution is permitted and encouraged - copy this music and share it!";
   maintainer = "janneke@gnu.org";
 
-  lastupdated = "1999/Oct/16";
+  lastupdated = "2001/Jan/28";
 }