* scm/bass-figure.scm (make-bass-figure-markup): add

[lilypond.git] / input / regression / beam-concave.ly

diff --git a/input/regression/beam-concave.ly b/input/regression/beam-concave.ly
index 1cf0fa5420d19b95ebf621ff599e8742fe2c396e..665decca6709b7e925ccfa190a0b0478b8c09e9c 100644 (file)
--- a/input/regression/beam-concave.ly
+++ b/input/regression/beam-concave.ly
@@ -1,39 +1,32 @@
+\version "1.7.18"
 \header{
-  texidoc = "Concave beams should be horizontal.  However, what exactly
+
+texidoc = "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.  This example shows borderline cases. Only the beams
+  that are marked `horiz' should be printed horizontally.  " }
+
+
+%{
+ 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."
+%}
 
-}
 
 \score{
   \notes\relative c'{
-    \property Voice.Beam \set #'debug-concave = ##t
-
-%%%  \property Voice.Beam \set #'concaveness = #0.8
-%%%  \property Voice.Beam \set #'concaveness-no-slope = ##f
-%%%  \property Voice.Beam \set #'concaveness-square = ##f
 
-    
-    
-    \property Voice.Beam \set #'concaveness-no-slope = ##t
-    %%\property Voice.Beam \set #'concaveness = #0.25
-    
-    %% this gives what baerenreiter does, but it's too kludgy
-    %% to make much sense
-    \property Voice.Beam \set #'concaveness-square = ##t
-    \property Voice.Beam \set #'concaveness = #0.08
-    
 %% This case seems easy: second beam should be horizontal.
     
     %% SCS-I Menuet I, m15
     %% sloped
     %% slope = -0.5ss
-    %% concaveness: 0.50
-    %% concaveness-no-slope: 0.25
-    %% concaveness-no-slope^2: 0.06
+    %% concaveness: 0.06
     \clef bass
     \time 3/4
     \key g\major
@@ -42,9 +35,7 @@ beams this way."
     %% SCS-I Menuet II, m20
     %% horizontal
     %% slope = 0
-    %% concaveness: 1.12
-    %% concaveness-no-slope: 0.38
-    %% concaveness-no-slope^2: 0.09
+    %% concaveness: 0.09
     \key f\major
     fis,^"horiz." a c es d c
 
@@ -53,33 +44,37 @@ beams this way."
     
     %% Sarabande: m24
     %% sloped
-    %% concaveness: 0.75
-    %% concaveness-no-slope: 0.00
-    %% concaveness-no-slope^2: 0.00
+    %% concaveness: 0.00
     \stemUp
-    [d,16 a' b cis]
+     d,16-[ a' b cis]
 
     %% Sarabande: m25
     %% horizontal
-    %% concaveness: 0.50
-    %% concaveness-no-slope: 0.25
-    %% concaveness-no-slope^2: 0.12
-    [a'16^"horiz." b c b]
+    %% 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']
+%      e,8-[ cis a']
     
 %     %% SCS-VI Prelude, m82
 %     %% slope = 0.1ss (possibly b.o. context?)
-%     [g, e' cis]
+%      g,-[ e' cis]
+
     
+%%% Han-Wen: this should be concave
+     a,16-[^"horiz." a' a a]
+
+    \clef treble
+
+%%%% This should not be concave (hwn)
+    [\stemUp bes8  \stemDown d'8 bes8]  
   }
   \paper{
-    linewidth = -1.0
+    raggedright = ##t
   }
 }