* lily/my-lily-lexer.cc (start_main_input): define input-file-name

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

diff --git a/input/regression/beam-concave.ly b/input/regression/beam-concave.ly
index ac8b48e492bbc0c7d0788bb004973ca8f00e4b21..46be76e827f2b42fab2daf55dc1990e05ca627d4 100644 (file)
--- a/input/regression/beam-concave.ly
+++ b/input/regression/beam-concave.ly
@@ -1,18 +1,27 @@
+#(ly:set-option 'old-relative)
+\version "1.9.1"
 \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 #'concaveness-threshold = #0.08
-    \property Voice.Beam \set #'concaveness-bt2 = #2.0
-    
+
 %% This case seems easy: second beam should be horizontal.
     
     %% SCS-I Menuet I, m15
@@ -38,30 +47,35 @@ beams this way."
     %% sloped
     %% concaveness: 0.00
     \stemUp
-    [d,16 a' b cis]
+     d,16[ a' b cis]
 
     %% Sarabande: m25
     %% horizontal
     %% concaveness:a: 0.12
-    [a'16^"horiz." b c b]
+     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]
+%%% 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
   }
 }