+Dots*
+Rhythmic_head::dots_l () const
+{
+ SCM s = get_elt_property ("dot");
+ return dynamic_cast<Dots*> (unsmob_element (s));
+}
+
+Stem*
+Rhythmic_head::stem_l () const
+{
+ SCM s = get_elt_property ("stem");
+ return dynamic_cast<Stem*> (unsmob_element (s));
+}