From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Wed, 24 Jul 2002 15:17:52 +0000 (+0000)
Subject: Add
X-Git-Tag: release/1.5.70~30
X-Git-Url: https://git.donarmstrong.com/?p=lilypond.git;a=commitdiff_plain;h=a5b5eb3ed7d47730d199dd678121e2d28ebacffc

Add
forcedBreak options and fix measure count comments.
---

diff --git a/ChangeLog b/ChangeLog
index 19bb8425f2..8ca1df5e00 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2002-07-24  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+	* input/mutopia/J.S.Bach/baerenreiter-sarabande.ly: Add
+	forcedBreak options and fix measure count comments.
+
 	* GNUmakefile.in: Junk intl.
 
 	* config.make.in (prefix): Prepend $(DESTDIR) to allow install
diff --git a/ROADMAP b/ROADMAP
index 59661c7018..223fbe9bbc 100644
--- a/ROADMAP
+++ b/ROADMAP
@@ -34,7 +34,6 @@ LilyPond's source files.
      E.Satie/
      F.Schubert/
      J.S.Bach/
-   intl/			library for gettext
    po/				translations
    ports/                       access to mutopia archive
    ps/				postscript library files
diff --git a/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly b/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly
index 7c1a780c08..c6e1724e45 100644
--- a/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly
+++ b/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly
@@ -1,19 +1,11 @@
 
-%% #(set! point-and-click line-column-location)
-
-%% We want this to perfectly match the Baerenreiter spacing.
-%% If we're not using 6 systems, there's definately a problem.
-#(define (assert-system-count smob n)
-  (let ((systems (length (Spanner::get_broken_into
-			  (Grob::original_scm
-			   (Grob::line_scm smob))))))
-    (if (not (equal? n systems))
-	;; Can't use error yet, as we know that we're not using 6...
-	;;(error
-	(warn
-	(string-append "Got " (number->string systems)
-			     " systems (expecting " (number->string n))))))
-            
+#(set! point-and-click line-column-location)
+
+forcedBreak = \notes { }
+%%forcedBreak = \notes { \break }
+forcedLastBreak = \notes { \break }
+%%forcedLastBreak = \notes { }
+
 \header {
   title = "Solo Cello Suite II"
   piece ="Sarabande"
@@ -61,18 +53,20 @@ sarabandeA =  \context Voice \notes \relative c {
       f4. [d8 e f] }
     \\
     { <a,4 f> a2 <a4. d,4.>  } > |
-  %%5
 
+  %%7
   g8 bes16()a c()bes a()g d'8 f, |
   <  e4.-\trill
   \\ <c,4 g'> >
   [d8 c bes]
-  %%8
+
+  %%9
   < { f'8 g16()a a4. g16()f  |
       g8 a16()bes bes4. c16()d }
     \\
     { a,4 <bes4. d4. > r8 bes4 <g2 f'2>  }
   > |
+  \forcedBreak
 
   %% 11
   [e,8 f] [c, g'] [f' e] |
@@ -85,12 +79,16 @@ sarabandeA =  \context Voice \notes \relative c {
   [bes g']
   [a, fis']
   [es' d] |
+  \forcedBreak
+  
   %%16
   < bes4.-\trill d, g, > [a8 g f!] |
   e bes a f' g a |
   d, as g es' f g |
   [cis, bes'] [a g16 f] [e!8 f16 d] |
   cis8 e16 a a,8. g'16 f8()e |
+  \forcedBreak
+  
   %%21
   < { d e16()f f4. e16()d |
       e8 f16()g g4. a16()bes |
@@ -102,7 +100,7 @@ sarabandeA =  \context Voice \notes \relative c {
   \stemUp
   d4 d,16 a'( b cis d e f )g |
   \stemBoth
-  \break
+  \forcedLastBreak
   %%25
   < { a16(b c)b c4. b16()a |
       b cis d cis d4. e16()f | }
@@ -114,12 +112,7 @@ sarabandeA =  \context Voice \notes \relative c {
   [a,8 e']
   \oneVoice
   [d' cis] |
-  %%  d4 d,,2 |
-  d4
-  \property Thread.NoteHead
-  \override #'after-line-breaking-callback
-  = #(lambda (smob) (assert-system-count smob 6))
-  d,,2 |
+  d4 d,,2 |
 }