From: fred <fred>
Date: Tue, 26 Mar 2002 23:24:05 +0000 (+0000)
Subject: lilypond-1.3.67
X-Git-Tag: release/1.5.59~1516
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c0dbf7e876b6e643a5ba68ae0431f4be733b0828;p=lilypond.git

lilypond-1.3.67
---

diff --git a/lily/rest.cc b/lily/rest.cc
index f76968aaa0..a8264b0ef6 100644
--- a/lily/rest.cc
+++ b/lily/rest.cc
@@ -15,23 +15,23 @@
 #include "staff-symbol-referencer.hh"
 
 // -> offset callback
-GLUE_SCORE_ELEMENT(Rest,after_line_breaking);
+MAKE_SCHEME_SCORE_ELEMENT_CALLBACK(Rest,after_line_breaking);
 SCM
-Rest::member_after_line_breaking ()
+Rest::after_line_breaking (SCM smob)
 {
-  if (balltype_i () == 0)
+  Score_element *me = unsmob_element (smob);
+  int bt = gh_scm2int (me->get_elt_property ("duration-log"));
+  if (bt == 0)
     {
-      Staff_symbol_referencer_interface si (this);
-      si.set_position (si.position_f () + 2);
+      Staff_symbol_referencer_interface si (me);
+      me->translate_axis (si.staff_space() , Y_AXIS);
     }
-  Item * d = dots_l ();
-  if (d && balltype_i () > 4) // UGH.
+
+  Score_element * d = unsmob_element (me->get_elt_pointer ("dot"));
+  if (d && bt > 4) // UGH.
     {
-      /*
-	UGH. 
-       */
-      staff_symbol_referencer (d)
-	.set_position ((balltype_i () == 7) ? 4 : 3);
+      d->set_elt_property ("staff-position",
+			   gh_int2scm ((bt == 7) ? 4 : 3));
     }
 
   return SCM_UNDEFINED;
@@ -39,7 +39,6 @@ Rest::member_after_line_breaking ()
 
 
 MAKE_SCHEME_SCORE_ELEMENT_CALLBACK(Rest,brew_molecule)
-
 SCM 
 Rest::brew_molecule (SCM smob) 
 {
@@ -69,10 +68,3 @@ Rest::brew_molecule (SCM smob)
   return sc-> lookup_l ()->afm_find (idx).create_scheme();
 }
 
-
-
-Rest::Rest (SCM s)
-  : Rhythmic_head (s)
-{
-}
-