From: fred <fred>
Date: Fri, 29 Nov 1996 19:52:04 +0000 (+0000)
Subject: lilypond-0.0.13
X-Git-Tag: release/1.5.59~6725
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5b937e1aa035abbb7700573f45b00634e6bdb2b3;p=lilypond.git

lilypond-0.0.13
---

diff --git a/src/beam.cc b/src/beam.cc
index f8ca8b5ab8..6eb4d07813 100644
--- a/src/beam.cc
+++ b/src/beam.cc
@@ -92,15 +92,6 @@ Beam::solve_slope()
     left_pos *= dir;    
     slope *= dir;
     
-    {
-	Real inter =paper()->internote();
-	Real unitslope = slope*inter;
-
-	// set beamslope, for setting stems correctly
-	// ignoring return.
-	Symbol sy = paper()->lookup_->beam(unitslope, width().length());
-	slope =unitslope / inter;
-    }
 }
 
 void
@@ -122,7 +113,6 @@ Beam::calculate()
 	set_default_dir();
 
     solve_slope();
-    set_stemlens();
 }
 
 void
@@ -130,6 +120,7 @@ Beam::process()
 {
     calculate();
     brew_molecule();
+    set_stemlens();
 }
 
 
@@ -169,7 +160,8 @@ Beam::brew_molecule()
     Real sl = slope*inter;
     Real w =  width().length() + paper()->rule_thickness();
     Symbol s = paper()->lookup_->beam(sl,w);
-
+    slope = sl / inter;
+    
     Atom a(s);
     
     Real dx = width().min -left->hpos;