From: fred <fred>
Date: Wed, 27 Mar 2002 01:02:24 +0000 (+0000)
Subject: lilypond-1.3.129
X-Git-Tag: release/1.5.59~725
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d2590e0dc7b1e60fa2e039d9bc94d194fac805c4;p=lilypond.git

lilypond-1.3.129
---

diff --git a/input/features/GNUmakefile b/input/features/GNUmakefile
deleted file mode 100644
index 558771769c..0000000000
--- a/input/features/GNUmakefile
+++ /dev/null
@@ -1,6 +0,0 @@
-depth = ../..
-
-LOCALSTEPMAKE_TEMPLATES=mutopia
-include $(depth)/make/stepmake.make 
-
-
diff --git a/input/features/beam-count.ly b/input/features/beam-count.ly
deleted file mode 100644
index 89167f101e..0000000000
--- a/input/features/beam-count.ly
+++ /dev/null
@@ -1,20 +0,0 @@
-
-fragment = \notes {
-  f'32 g a b b a g f
-
-  \property Voice.autoBeamSettings
-    \set #'(end * * * *) = #(make-moment 1 4)
-  f32 g a b b a g f
-
-  f32 g a
-  \property Voice.stemRightBeamCount = #1 b
-  \property Voice.stemLeftBeamCount = #1 b
-  a g f
-}
-
-\paper { linewidth = -1.; } 
-
-\score {
-  \notes\relative c \fragment
-  \paper { }  
-}
diff --git a/input/features/beam-dir-function.ly b/input/features/beam-dir-function.ly
deleted file mode 100644
index d445468a09..0000000000
--- a/input/features/beam-dir-function.ly
+++ /dev/null
@@ -1,40 +0,0 @@
-\header{
-texidoc="
-There are several ways to calculate the direction of a beam
-
-@table @samp
-@item majority
-number count of up or down notes
-@item mean
-mean centre distance of all notes
-@item median
-mean centre distance weighted per note
-@end table
-
-We should see:
-
-  up down down
-
-  up up down
-";
-}
-
-\score {
-  \notes \relative c'' {
-    % the default
-    %\property Voice.Beam \set #'dir-function = #beam-dir-majority
-    [d8 a]
-    \property Voice.Beam \set #'dir-function = #beam-dir-mean
-    [d a] 
-    \property Voice.Beam \set #'dir-function = #beam-dir-median
-    [d a]
-    
-    \property Voice.Beam \set #'dir-function = #beam-dir-majority
-    \time 3/8;
-    [d8 a a]
-    \property Voice.Beam \set #'dir-function = #beam-dir-mean
-    [d a a] 
-    \property Voice.Beam \set #'dir-function = #beam-dir-median
-    [d a a] 
-  }
-}
diff --git a/input/features/beam-neutral-direction.ly b/input/features/beam-neutral-direction.ly
deleted file mode 100644
index f8e156810c..0000000000
--- a/input/features/beam-neutral-direction.ly
+++ /dev/null
@@ -1,13 +0,0 @@
-
-fragment = \notes {
-  [b''8 b]
-  \property Voice.Beam \set #'default-neutral-direction = #-1
-  [b b]
-}
-
-\paper { linewidth = -1.; } 
-
-\score {
-  \notes\relative c \fragment
-  \paper { }  
-}
diff --git a/input/features/beam-position.ly b/input/features/beam-position.ly
deleted file mode 100644
index b581904761..0000000000
--- a/input/features/beam-position.ly
+++ /dev/null
@@ -1,13 +0,0 @@
-
-fragment = \notes {
-  \property Voice.Beam \set #'staff-position = #2
-  \property Voice.Beam \set #'height = #-2
-  [c'8 c]
-}
-
-\paper { linewidth = -1.; } 
-
-\score {
-  \notes\relative c \fragment
-  \paper { }  
-}
diff --git a/input/features/beam-rest.ly b/input/features/beam-rest.ly
deleted file mode 100644
index 736a84708e..0000000000
--- a/input/features/beam-rest.ly
+++ /dev/null
@@ -1,17 +0,0 @@
-\header{
-texidoc="
-Beams over rests.
-";
-}
-
-\score{
-        \context Staff=one \notes\relative c''{
-	  r4 [r8 g a]
-	  [bes8 r16 f g a]
-	  [bes8 r16 \property Voice.stemLeftBeamCount = #1 f g a]
-    }
-
-    \paper{
-        linewidth =-1;
-    }
-}
diff --git a/input/features/beam-slope.ly b/input/features/beam-slope.ly
deleted file mode 100644
index 254a5cbc89..0000000000
--- a/input/features/beam-slope.ly
+++ /dev/null
@@ -1,13 +0,0 @@
-
-fragment = \notes {
-  \property Voice.Beam \set #'direction = #1
-  \property Voice.Beam \set #'height-hs = #0
-  [a''8 e' d c]
-}
-
-\paper { linewidth = -1.; } 
-
-\score {
-  \notes\relative c \fragment
-  \paper { }  
-}
diff --git a/input/features/crescendo-text.ly b/input/features/crescendo-text.ly
deleted file mode 100644
index b9b6edbf8a..0000000000
--- a/input/features/crescendo-text.ly
+++ /dev/null
@@ -1,15 +0,0 @@
-
-fragment = \notes {
-  \context Voice {
-    \property Voice.crescendoText = "cresc."
-    \property Voice.crescendoSpanner = #'dashed-line
-    a''2\mf\< a a \!a
-  }
-}
-
-\paper { linewidth = -1.; } 
-
-\score {
-  \notes\relative c \fragment
-  \paper { }  
-}
diff --git a/input/features/embedded-postscript.ly b/input/features/embedded-postscript.ly
deleted file mode 100644
index 9667149b14..0000000000
--- a/input/features/embedded-postscript.ly
+++ /dev/null
@@ -1,10 +0,0 @@
-\score {
-  \notes \relative c'' {
-    a-#"\\embeddedps{3 4 moveto 5 3 rlineto stroke}"
-    -#"\\embeddedps{ [ 0 1 ] 0 setdash 3 5 moveto 5 -3 rlineto stroke}"
-    b-#"\\embeddedps{3 4 moveto 0 0 1 2 8 4 20 3.5 rcurveto stroke}"
-    s2
-    a'1
-  }
-  \paper { linewidth = 70 * \staffspace; }
-}
diff --git a/input/features/embedded-tex.ly b/input/features/embedded-tex.ly
deleted file mode 100644
index 970e2fce41..0000000000
--- a/input/features/embedded-tex.ly
+++ /dev/null
@@ -1,11 +0,0 @@
-
-fragment = \notes {
-  a''^"3 $\\times$ \\`a deux"
-}
-
-\paper { linewidth = -1.; } 
-
-\score {
-  \notes\relative c \fragment
-  \paper { }  
-}
diff --git a/input/features/follow-thread.ly b/input/features/follow-thread.ly
deleted file mode 100644
index bf370780cc..0000000000
--- a/input/features/follow-thread.ly
+++ /dev/null
@@ -1,26 +0,0 @@
-\header{
-texidoc="
-Theads can be traced automagically when they switch staffs by setting
-property @code{followThread}.
-";
-}
-% followThread: connect note heads with line when thread switches staff 
-
-fragment = \notes {
-  \context PianoStaff <
-    \property PianoStaff.followThread = ##t
-    \context Staff \context Voice {
-      c'1
-      \translator Staff=two
-      b2 a
-    }
-    \context Staff=two {\clef bass; \skip 1*2;}
-  >
-}
-
-\paper { linewidth = -1.; } 
-
-\score {
-  \notes\relative c \fragment
-  \paper { }  
-}
diff --git a/input/features/fragment.ly b/input/features/fragment.ly
deleted file mode 100644
index 8e37abee63..0000000000
--- a/input/features/fragment.ly
+++ /dev/null
@@ -1,10 +0,0 @@
-fragment = \notes {
-
-}
-
-\paper { linewidth = -1.; } 
-
-\score {
-  \notes\relative c \fragment
-  \paper { }  
-}
diff --git a/input/features/metronome.ly b/input/features/metronome.ly
deleted file mode 100644
index 1b5bacfa58..0000000000
--- a/input/features/metronome.ly
+++ /dev/null
@@ -1,30 +0,0 @@
-
-\version "1.3.117";
-
-% Test scm markup text and kerning
-
-% Warning
-%  
-% This is not a feature, it is a hack.  If you change anything,
-% it will probably break (that's because scm markup text is a
-% bit broken and needs fixing).  Chances are, it's already
-% broken by the time you read this.  Don't complain.
-%
-% FIXME: put in an item, and typeset by an engraver.
-
-#(define note '(rows (music "noteheads-2" ((kern . -0.1) "flags-stem"))))
-#(define eight-note `(rows ,note ((kern . -0.1) (music ((raise . 3.5) "flags-u3")))))
-#(define dotted-eight-note `(rows ,eight-note (music "dots-dot")))
-
-\score {
-  \notes\relative c'' {
-    a1^#`(rows ,dotted-eight-note " = 64")
-  }
-  \paper {
-    linewidth = -1.;
-    \translator{
-      \ScoreContext
-      TextScript \override #'font-shape = #'upright
-    }
-  }
-}
diff --git a/input/features/mmrest-collision.ly b/input/features/mmrest-collision.ly
deleted file mode 100644
index 255b9e6fab..0000000000
--- a/input/features/mmrest-collision.ly
+++ /dev/null
@@ -1,24 +0,0 @@
-\score {
-  \context Staff \notes <
-    \context Voice=i {
-      \property Voice.MultiMeasureRest \override #'staff-position = #3
-      R1
-    }
-    \context Voice=ii {
-      \property Voice.MultiMeasureRest \override #'staff-position = #-3
-      R1
-    }
-  >
-  \paper {
-    \translator {
-      \StaffContext
-      \remove Multi_measure_rest_engraver;
-      \remove Bar_engraver;
-    }
-    \translator {
-      \VoiceContext
-      \consists Multi_measure_rest_engraver;
-      \consists Bar_engraver;
-    }
-  }
-}
diff --git a/input/features/move-notehead.ly b/input/features/move-notehead.ly
deleted file mode 100644
index 20d69836f9..0000000000
--- a/input/features/move-notehead.ly
+++ /dev/null
@@ -1,13 +0,0 @@
-
-fragment = \notes {
-    \outputproperty #(make-type-checker 'note-head-interface)
-      #'extra-offset = #'(2 . 3)
-    c''2 c
-}
-
-\paper { linewidth = -1.; } 
-
-\score {
-  \notes\relative c \fragment
-  \paper { }  
-}
diff --git a/input/features/move-specific-text.ly b/input/features/move-specific-text.ly
deleted file mode 100644
index 08c909a777..0000000000
--- a/input/features/move-specific-text.ly
+++ /dev/null
@@ -1,12 +0,0 @@
-#(define (make-text-checker text)
-   (lambda (grob) (equal? text (ly-get-elt-property grob 'text))))
-
-\score {
-  \notes\relative c''' {
-    \property Voice.Stem \set #'direction = #1
-    \outputproperty #(make-text-checker "m.d.")
-      #'extra-offset = #'(-3.5 . -4.5)
-    a^2^"m.d."
-  }
-  \paper { linewidth = -1.; }
-}
diff --git a/input/features/no-bar-lines.ly b/input/features/no-bar-lines.ly
deleted file mode 100644
index 6624407df6..0000000000
--- a/input/features/no-bar-lines.ly
+++ /dev/null
@@ -1,15 +0,0 @@
-\score {
-  \notes \relative c'' {
-    a b c d
-    d c b a
-  }
-  \paper {
-    linewidth = -1.;
-    \translator {
-      \StaffContext
-      whichBar = #""
-      \remove "Time_signature_engraver";
-    }
-  }
-}
-
diff --git a/input/features/no-staff.ly b/input/features/no-staff.ly
deleted file mode 100644
index 05eba6615a..0000000000
--- a/input/features/no-staff.ly
+++ /dev/null
@@ -1,13 +0,0 @@
-\score {
-  \notes { c4 c4 c8 c8 }
-  \paper {
-    linewidth = -1.;
-    \translator {
-      \StaffContext
-      \remove Staff_symbol_engraver;
-      \consists Pitch_squash_engraver;
-      \remove Clef_engraver;
-    }
-  }
-}
-
diff --git a/input/features/ophee-slurs.ly b/input/features/ophee-slurs.ly
deleted file mode 100644
index d32dd6c789..0000000000
--- a/input/features/ophee-slurs.ly
+++ /dev/null
@@ -1,18 +0,0 @@
-\header{
-texidoc="
-Slurs can be forced to always attach to note heads.
-";
-}
-
-fragment = \notes {
-  \property Voice.Slur \set #'direction = #1
-  \property Voice.Slur \set #'attachment = #'(head . head)
-  g''16()g()g()g()d'()d()d()d
-}
-
-\paper { linewidth = -1.; } 
-
-\score {
-  \notes\relative c \fragment
-  \paper { }  
-}
diff --git a/input/features/ottava.ly b/input/features/ottava.ly
deleted file mode 100644
index 513946dab5..0000000000
--- a/input/features/ottava.ly
+++ /dev/null
@@ -1,16 +0,0 @@
-
-fragment = \notes {
-  a'''' b c a
-  \property Voice.TextSpanner \set #'type = #'dotted-line
-  \property Voice.TextSpanner \set #'edge-height = #'(0 . 1.5)
-  \property Voice.TextSpanner \set #'edge-text = #'("8va " . "")
-  \property Staff.centralCPosition = #-13
-  a\spanrequest \start "text" b c a \spanrequest \stop "text"
-}
-
-\paper { linewidth = -1.; } 
-
-\score {
-  \notes\relative c \fragment
-  \paper { }  
-}
diff --git a/input/features/part-combine.ly b/input/features/part-combine.ly
deleted file mode 100644
index ec4262f3a8..0000000000
--- a/input/features/part-combine.ly
+++ /dev/null
@@ -1,37 +0,0 @@
-\header{
-texidoc="
-In orchestral scores and hymns, voices are traditionally combined onto
-one staff.  LilyPond has a part combiner, that combines or separates two
-voices according to actual rhythm and pitch.  User-defined texts such as
-``solo'' and ``@`a2'' are typeset automagically, as appropriate.
-";
-}
-
-\score{
-  \context Staff = flauti <
-    \time 4/4;
-    \context Voice=one \partcombine Voice
-    \context Thread=one \notes\relative c'' {
-      c4 d e f | b,4 d c d | r2 e4 f | c4 d e f |
-      c4 r e f | c4 r e f | c4 r a r | a a r a |
-      a2 \property Voice.soloADue = ##f a |
-    }
-    \context Thread=two \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 Voice.soloADue = ##f a |
-    }
-  >
-  \paper{
-    linewidth = 80 * \staffspace;
-    \translator{
-      \ThreadContext
-      \consists Rest_engraver;
-    }
-    \translator{
-      \VoiceContext
-      \remove Rest_engraver;
-    }
-  }
-}
-
diff --git a/input/features/reverse-music.ly b/input/features/reverse-music.ly
deleted file mode 100644
index 0d9fe6a522..0000000000
--- a/input/features/reverse-music.ly
+++ /dev/null
@@ -1,30 +0,0 @@
-\header {
-texidoc="
-Simple customised music apply.
-";
-}
-
-music = \notes { c'4 d'4( e'4 f'4 }
-
-#(define (reverse-music music)
-  (let* ((elements (ly-get-mus-property music 'elements))
-         (reversed (reverse elements))
-         (span-dir (ly-get-mus-property music 'span-direction)))
-
-    (ly-set-mus-property music 'elements reversed)
-
-    (if (dir? span-dir)
-        (ly-set-mus-property music 'span-direction (- span-dir)))
-
-    (map reverse-music reversed)
-
-    music))
-
-\score {
-  \context Voice {
-    \music
-    \apply #reverse-music \music
-  }
-  \paper { linewidth = -1.; }
-}
-
diff --git a/input/features/slur-attachment-override.ly b/input/features/slur-attachment-override.ly
deleted file mode 100644
index 67e7435a47..0000000000
--- a/input/features/slur-attachment-override.ly
+++ /dev/null
@@ -1,21 +0,0 @@
-\header{
-texidoc="
-In some cases, you may want to set slur attachments by hand.
-";
-}
-
-
-fragment = \notes {
-  \property Voice.Stem \set #'direction = #1
-  \property Voice.Slur \set #'direction = #1
-  d'32( d'4 )d8..
-  \property Voice.Slur \set #'attachment = #'(stem . stem)
-  d,32( d'4 )d8..
-}
-
-\paper { linewidth = -1.; } 
-
-\score {
-  \notes\relative c \fragment
-  \paper { }  
-}
diff --git a/input/features/slur-attachment.ly b/input/features/slur-attachment.ly
deleted file mode 100644
index 4182bb38c6..0000000000
--- a/input/features/slur-attachment.ly
+++ /dev/null
@@ -1,17 +0,0 @@
-
-fragment = \notes {
-  \property Voice.Slur \set #'direction = #1
-  \property Voice.Stem \set #'length = #5.5
-  g''8(g)g4
-  g4(g8)g
-  \property Voice.Slur \set #'attachment = #'(stem . stem)
-  g8(g)g4
-  g4(g8)g
-}
-
-\paper { linewidth = -1.; } 
-
-\score {
-  \notes\relative c \fragment
-  \paper { }  
-}
diff --git a/input/features/slur-ugly.ly b/input/features/slur-ugly.ly
deleted file mode 100644
index 7406ba233b..0000000000
--- a/input/features/slur-ugly.ly
+++ /dev/null
@@ -1,35 +0,0 @@
-\header {
-texidoc="You can get ugly slurs, if you want.
-";
-}
-
-baseWalk = \notes \relative c {
-  d,8( a' d f a d f d a f d )a
-}
-
-\score {
-  \notes \context PianoStaff <
-    \time 6/4;
-    \context Staff=up { s1 * 6/4 }
-    \context Staff=down <
-      \clef bass;
-      \autochange Staff \context Voice \baseWalk
-    >
-  >
-  \paper {
-    linewidth = -1.;
-    \translator {
-      \VoiceContext
-      Slur \override #'beautiful = #5.0
-      Slur \override #'direction = #1
-      Stem \override #'direction = #-1
-      autoBeamSettings \override #'(end * * * *)
-        = #(make-moment 1 2)
-    }
-    \translator {
-      \PianoStaffContext
-      VerticalAlignment \override #'threshold = #'(5 . 5)
-    }
-  }
-}
-
diff --git a/input/features/smart-transpose.ly b/input/features/smart-transpose.ly
deleted file mode 100644
index 697c54585e..0000000000
--- a/input/features/smart-transpose.ly
+++ /dev/null
@@ -1,90 +0,0 @@
-\header {
-texidoc="
-@example
-    Here's a copy of my feature request :
-@quotation
-        Your task, if you accept it is to implement a \smarttranspose
-        command> that would translate such oddities into more natural
-        notations. Double accidentals should be removed, as well as #E
-        (-> F), bC (-> B), bF (-> E), #B (-> C).
-@end quotation
-
-You mean like this. (Sorry 'bout the nuked indentation.)
-@end example
-";
-}
-
-% Btw, I've leant an el-neato trick for formatting code in email messages,
-% using inderect buffers.
-%
-% M-x make-indirect-buffer RET RET foo RET C-x b foo RET
-% Select region and then narrow: C-x n n
-% Set mode, eg: M-x sch TAB RET
-%
-
-#(define  (unhair-pitch p)
-  (let* ((o (pitch-octave p))
-         (a (pitch-alteration p))
-         (n (pitch-notename p)))
-
-    (cond
-     ((and (> a 0) (or (eq? n 6) (eq? n 2)))
-      (set! a (- a 1)) (set! n (+ n 1)))
-     ((and (< a 0) (or (eq? n 0) (eq? n 3)))
-      (set! a (+ a 1)) (set! n (- n 1))))
-
-    (cond
-     ((eq? a 2)  (set! a 0) (set! n (+ n 1)))
-     ((eq? a -2) (set! a 0) (set! n (- n 1))))
-
-    (if (< n 0) (begin (set!  o (- o 1)) (set! n (+ n 7))))
-    (if (> n 7) (begin (set!  o (+ o 1)) (set! n (- n 7))))
-
-    (make-pitch o n a)))
-
-#(define (smart-transpose music pitch)
-  (let* ((es (ly-get-mus-property music 'elements))
-         (e (ly-get-mus-property music 'element))
-         (p (ly-get-mus-property music 'pitch))
-         (body (ly-get-mus-property music 'body))
-         (alts (ly-get-mus-property music 'alternatives)))
-
-    (if (pair? es)
-        (ly-set-mus-property
-         music 'elements
-         (map (lambda (x) (smart-transpose x pitch)) es)))
-
-    (if (music? alts)
-        (ly-set-mus-property
-         music 'alternatives
-         (smart-transpose alts pitch)))
-
-    (if (music? body)
-        (ly-set-mus-property
-         music 'body
-         (smart-transpose body pitch)))
-
-    (if (music? e)
-        (ly-set-mus-property
-         music 'element
-         (smart-transpose e pitch)))
-
-    (if (pitch? p)
-        (begin
-          (set! p (unhair-pitch (Pitch::transpose p pitch)))
-          (ly-set-mus-property music 'pitch p)))
-
-    music))
-
-
-music = \notes \relative c' { c4 d  e f g a b  c }
-
-\score {
-  \notes \context Staff {
-    \transpose ais' \music
-    \apply #(lambda (x) (smart-transpose x (make-pitch 0 5 1)))
-      \music
-  }
-  \paper { linewidth = -1.; }
-}
-
diff --git a/mutopia/Coriolan/c-midi.ly b/mutopia/Coriolan/c-midi.ly
deleted file mode 100644
index 99e7919cc0..0000000000
--- a/mutopia/Coriolan/c-midi.ly
+++ /dev/null
@@ -1,94 +0,0 @@
-
-
-%%
-%% Hopefully, this can be junked when part-combiner+midi+dynamics work ok.
-%%
-
-\version "1.3.120";
-
-\include "global.ly"
-
-\include "flauto-1.ly"
-\include "flauto-2.ly"
-\include "oboe-1.ly"
-\include "oboe-2.ly"
-\include "clarinetto-1.ly"
-\include "clarinetto-2.ly"
-\include "fagotto-1.ly"
-\include "fagotto-2.ly"
-\include "corno-1.ly"
-\include "corno-2.ly"
-\include "trombo-1.ly"
-\include "trombo-2.ly"
-\include "timpani.ly"
-\include "violino-1.ly"
-\include "violino-2.ly"
-\include "viola-1.ly"
-\include "viola-2.ly"
-\include "violoncello.ly"
-\include "contrabasso.ly"
-
-
-
-\score{
-	<
-	\global;
-	\context Staff=flauti <
-		\property VoiceCombineStaff.midiInstrument = #"flute"
-		\flautoI
-		\flautoII
-	>
-	\context Staff=oboi <
-		\property VoiceCombineStaff.midiInstrument = #"oboe"
-		\oboeI
-		\oboeII
-	>
-	\context Staff=clarinetti <
-		\property VoiceCombineStaff.midiInstrument = #"clarinet"
-		\property VoiceCombineStaff.transposing = #-2
-		\clarinettoI
-		\clarinettoII
-	>
-	\context Staff=fagotti <
-		\property VoiceCombineStaff.midiInstrument = #"bassoon"
-		\fagottoI
-		\fagottoII
-	>
-	\context Staff=corni <
-		\property VoiceCombineStaff.midiInstrument = #"french horn"
-		\property VoiceCombineStaff.transposing = #3
-		\cornoI
-		\cornoII
-	>
-	\context Staff=trombe <
-		\property VoiceCombineStaff.midiInstrument = #"trumpet"
-		\tromboI
-		\tromboII
-	>
-	\context Staff=timpani <
-		\property Staff.midiInstrument = #"timpani"
-		\timpani
-	>
-	\context Staff=violini <
-		\property Staff.midiInstrument = #"violin"
-		\violinoI
-		\violinoII
-	>
-	\context Staff=viole <
-		\property VoiceCombineStaff.midiInstrument = #"viola"
-		\violaI
-		\violaII
-	>
-	\context Staff=violoncello <
-		\property StaffCombineStaff.midiInstrument = #"cello"
-		\violoncello
-	>
-	\context Staff=contrabasso <
-		\property StaffCombineStaff.midiInstrument = #"contrabass"
-        	\property StaffCombineStaff.transposing = #-12
-		\contrabasso
-	>
-	>
-	\include "coriolan-midi.ly"
-}
-
diff --git a/mutopia/Coriolan/coriolan-part-combine-paper.ly b/mutopia/Coriolan/coriolan-part-combine-paper.ly
deleted file mode 100644
index 74589e23ec..0000000000
--- a/mutopia/Coriolan/coriolan-part-combine-paper.ly
+++ /dev/null
@@ -1,75 +0,0 @@
-\version "1.3.120"
-\paper{
-
-	textheight = 295.0\mm;
-	linewidth = 180.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 
-		TimeSignature \override #'style = #'C
-		BarNumber \override #'padding = #3
-		RestCollision \override #'maximum-rest-count = #1
-	}
-}