* input/regression/rehearsal-mark-number.ly: new file.

[lilypond.git] / lily / lookup.cc

diff --git a/lily/lookup.cc b/lily/lookup.cc
index caa1996ed4e928c0134f1bcffa0064a363fdcb91..0e8a40acb8bd597f10739d5b72ffeebe10319ebc 100644 (file)
--- a/lily/lookup.cc
+++ b/lily/lookup.cc
@@ -40,22 +40,20 @@ Lookup::dot (Offset p, Real radius)
 }
 
 Molecule 
-Lookup::beam (Real slope, Real width, Real thick) 
+Lookup::beam (Real slope, Real width, Real thick, Real blot) 
 {
   Real height = slope * width; 
   Real min_y = (0 <? height) - thick/2;
   Real max_y = (0 >? height) + thick/2;
 
-  
-
   Box b (Interval (0, width),
         Interval (min_y, max_y));
-
   
   SCM at = scm_list_n (ly_symbol2scm ("beam"),
                    gh_double2scm (width),
                    gh_double2scm (slope),
                    gh_double2scm (thick),
+                   gh_double2scm (blot),
                    SCM_UNDEFINED);
   return Molecule (b, at);
 }