X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fbeam-concave.ly;h=c45dec6c362951a2bd3004c61972386c8d785d0e;hb=2b1e4fd89d57bfecd23afbdeb55293792398f826;hp=50131ff88329c32cf4ff75fbcbe2acdb1eda83c0;hpb=384418d15b6559a2cc5faf059e24084e774dea96;p=lilypond.git

diff --git a/input/regression/beam-concave.ly b/input/regression/beam-concave.ly
index 50131ff883..c45dec6c36 100644
--- a/input/regression/beam-concave.ly
+++ b/input/regression/beam-concave.ly
@@ -1,24 +1,23 @@
-
-\version "2.3.4"
+\version "2.19.21"
 \header{
 
-texidoc = "Concave beams should be horizontal. Informally spoken,
+  texidoc = "Fully concave beams should be horizontal. Informally spoken,
   concave refers to the shape of the notes that are opposite a
   beam. If an up-beam has high notes on its center stems, then we call
-  it concave. If a beam is fails a test, the desired slope is printed
-  next to it."
+  it concave.
 
+  If a beam fails a test, the desired slope is printed next to it.
 
+" 
 }
 
 
-#(ly:set-option 'debug-beam #t)
-resetMeasure = \set Score.measurePosition = #(ly:make-moment 0 1)
+resetMeasure = \set Score.measurePosition = #(ly:make-moment 0/1)
 
-% examples from 
-rossFourBeams =\relative c'' {
+%% examples from Ross.
+rossFourBeams =\relative {
   \time 2/4
-  c8[ e b c]
+  c''8[ e b c]
   b[ c d b]
   c[ f b, c]
 
@@ -26,16 +25,15 @@ rossFourBeams =\relative c'' {
   a[ d, e g] a[ f f g]
   c,[ b f' e]
   b[ e g, e']
-  g[ d a' b]
-  c[ c, c c]
+  c'[ c, c c]
   c[ c c c']
   f,,[ b a g]
   f[g g e]
   a[ d, b' g]
-  }
-rossThreeBeams = \relative c'' {
+}
+rossThreeBeams = \relative {
   \time 6/8
-  e[ a, c] f[ d g]
+  e''[ a, c] f[ d g]
   f,[ b g] a[ b f]
   d'[ c b a b e]
   c[ b a c b a]
@@ -48,31 +46,19 @@ rossThreeBeams = \relative c'' {
 rossBeams = \relative c'' {
   \rossFourBeams
   \rossThreeBeams
-  }
+}
 
-nonHorizBeams = \relative c'' {
-   \time 3/4
-   f[ e d c g b]
-   b,16[ f' g a]
-   \stemUp b,8[  \stemDown d'8 bes8]  
+\layout{
+  ragged-right = ##t
+  #(define debug-beam-quanting #t)
 }
 
 
 
+
 #(define (<> x y) (not (= x  y)))
-\score{
-   \new Voice {
-     \override Beam #'position-callbacks = #(check-slope-callbacks =)
-     \rossBeams
-     \override Beam #'position-callbacks = #(check-slope-callbacks <>)
-  \resetMeasure
-     \nonHorizBeams
-     
-   }
-  \paper{
-    raggedright = ##t
-  }
+\new Voice {
+  \override Beam.positions = #(check-slope-callbacks =)
+  \rossBeams
+  
 }
-
-#(ly:set-option 'debug-beam #f)
-