X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fbeam-concave.ly;h=c45dec6c362951a2bd3004c61972386c8d785d0e;hb=f40aa7dc7410285fc904612941b1909144c01c2f;hp=cb3cd9b1b6852863bd05ac6b27ce732a33dd48c5;hpb=5fa6f3fc33ca85903f16ef38f1cba304e1af655a;p=lilypond.git

diff --git a/input/regression/beam-concave.ly b/input/regression/beam-concave.ly
index cb3cd9b1b6..c45dec6c36 100644
--- a/input/regression/beam-concave.ly
+++ b/input/regression/beam-concave.ly
@@ -1,66 +1,64 @@
+\version "2.19.21"
 \header{
-  texidoc = "Concave beams should be horizontal.  However, what exactly
-it is that makes a beam concave is still unclear.
 
-Beams 1 and 3 should be sloped, 2 and 4 should be horizontal.  Two
-sane attempts of calculating concaveness of a beam fail to distinguish
-beams this way."
+  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 fails a test, the desired slope is printed next to it.
+
+" 
 }
 
-\score{
-  \notes\relative c'{
-    \property Voice.Beam \set #'concaveness-threshold = #0.08
-    
-%% This case seems easy: second beam should be horizontal.
-    
-    %% SCS-I Menuet I, m15
-    %% sloped
-    %% slope = -0.5ss
-    %% concaveness: 0.06
-    \clef bass
-    \time 3/4
-    \key g\major
-    a8 g fis e b dis
-    
-    %% SCS-I Menuet II, m20
-    %% horizontal
-    %% slope = 0
-    %% concaveness: 0.09
-    \key f\major
-    fis,^"horiz." a c es d c
 
-%%% Sarabande: the first beam, obviously more concave, is not horizontal,
-%%% but is matched with the next beam in the piece: context.
-    
-    %% Sarabande: m24
-    %% sloped
-    %% concaveness: 0.00
-    \stemUp
-    [d,16 a' b cis]
+resetMeasure = \set Score.measurePosition = #(ly:make-moment 0/1)
+
+%% examples from Ross.
+rossFourBeams =\relative {
+  \time 2/4
+  c''8[ e b c]
+  b[ c d b]
+  c[ f b, c]
+
+  a[ f a f] a[ a' a, a']
+  a[ d, e g] a[ f f g]
+  c,[ b f' e]
+  b[ e g, e']
+  c'[ c, c c]
+  c[ c c c']
+  f,,[ b a g]
+  f[g g e]
+  a[ d, b' g]
+}
+rossThreeBeams = \relative {
+  \time 6/8
+  e''[ a, c] f[ d g]
+  f,[ b g] a[ b f]
+  d'[ c b a b e]
+  c[ b a c b a]
+  d,[ g a g f e ]
+  a[ g f a g f]
+  d'[ g, a b c d]
+  f[ e d c b f']
+}
 
-    %% Sarabande: m25
-    %% horizontal
-    %% concaveness:a: 0.12
-    [a'16^"horiz." b c b]
-    
-% Hmm.  Concaveness of both: 1.75
-%     %% SCS-VI Prelude, m81
-%     %% slope = 0.0
-%     \stemBoth
-%     \key d\major
-%     [e,8 cis a']
-    
-%     %% SCS-VI Prelude, m82
-%     %% slope = 0.1ss (possibly b.o. context?)
-%     [g, e' cis]
-    
-  }
-  \paper{
-    linewidth = -1.0
-  }
+rossBeams = \relative c'' {
+  \rossFourBeams
+  \rossThreeBeams
 }
 
-%% Local variables:
-%% LilyPond-indent-level:2
-%% End:
+\layout{
+  ragged-right = ##t
+  #(define debug-beam-quanting #t)
+}
+
+
+
+
+#(define (<> x y) (not (= x  y)))
+\new Voice {
+  \override Beam.positions = #(check-slope-callbacks =)
+  \rossBeams
+  
+}