]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/easy-notation.cc
sort commits, and use .git-commits-done file.
[lilypond.git] / lily / easy-notation.cc
index 90e6accd98a48fafbcd64171ca90e175e0f552d8..6ddc00e1d39418be0c9c628388b61f3f6df8e134 100644 (file)
 #include <cctype>
 using namespace std;
 
-#include "text-interface.hh"
+#include "font-interface.hh"
 #include "grob.hh"
-#include "output-def.hh"
 #include "music.hh"
+#include "output-def.hh"
 #include "pitch.hh"
-#include "font-interface.hh"
 #include "staff-symbol-referencer.hh"
 #include "stem.hh"
+#include "stream-event.hh"
+#include "text-interface.hh"
+
+/*
 
+TODO: move to scheme
+
+*/
 MAKE_SCHEME_CALLBACK (Note_head, brew_ez_stencil, 1);
 SCM
 Note_head::brew_ez_stencil (SCM smob)
@@ -28,7 +34,7 @@ Note_head::brew_ez_stencil (SCM smob)
   int log = Note_head::get_balltype (me);
 
   SCM cause = me->get_property ("cause");
-  SCM spitch = unsmob_music (cause)->get_property ("pitch");
+  SCM spitch = unsmob_stream_event (cause)->get_property ("pitch");
   Pitch *pit = unsmob_pitch (spitch);
 
   SCM idx = scm_from_int (pit->get_notename ());