From: fred <fred>
Date: Sun, 24 Mar 2002 19:41:55 +0000 (+0000)
Subject: lilypond-0.0.58
X-Git-Tag: release/1.5.59~4808
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=7cffeb02699f7eb9a45b939da336f8ca1dfbc12d;p=lilypond.git

lilypond-0.0.58
---

diff --git a/lily/calcideal.cc b/lily/calcideal.cc
index 92720e7611..fa015012b3 100644
--- a/lily/calcideal.cc
+++ b/lily/calcideal.cc
@@ -41,7 +41,8 @@ Score::calc_idealspacing()
 		}
 		Moment delta_desired = j->when() - (d+i->when());
 		dist += paper_p_->duration_to_dist(delta_desired);
-		
+		if (!j->musical_b())
+		    dist += 1 PT; // ugh
 		pscore_p_->connect(i->pcol_l_, j->pcol_l_, dist, strength);
 	    }
 	} else if (j.ok()) {
diff --git a/lily/stem-beam-reg.cc b/lily/stem-beam-reg.cc
index dae02480b9..95f8979803 100644
--- a/lily/stem-beam-reg.cc
+++ b/lily/stem-beam-reg.cc
@@ -79,7 +79,7 @@ Stem_beam_register::process_requests()
     }
 
     if (stem_req_l_) {
-	stem_p_ = new Stem(4);
+	stem_p_ = new Stem(10);
 	if (current_grouping)
 	    current_grouping->add_child(
 		get_staff_info().time_C_->whole_in_measure_,
diff --git a/lily/stem.cc b/lily/stem.cc
index f775c20b25..a14ce880f9 100644
--- a/lily/stem.cc
+++ b/lily/stem.cc
@@ -130,7 +130,7 @@ Stem::set_default_stemlen()
     
     // ugh... how about non 5-line staffs?
     if ((max_head_i() < -2 && dir_i_ == 1 )
-	||(min_head_i() > staff_size_i_ + 2 && dir_i_ == -1) ){
+	||(min_head_i() > staff_size_i_ && dir_i_ == -1) ){
 	set_stemend(    staff_size_i_ /2 );
     } else {
 	set_stemend( (dir_i_ > 0) ? max_head_i() + STEMLEN :