]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/easy-notation.cc
Run `make grand-replace'.
[lilypond.git] / lily / easy-notation.cc
index 6ddc00e1d39418be0c9c628388b61f3f6df8e134..87325342306af13ab39f75ea4f41fee56b40590c 100644 (file)
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  (c) 2005--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
 */
 
 #include "note-head.hh"
@@ -15,11 +15,11 @@ using namespace std;
 #include "grob.hh"
 #include "music.hh"
 #include "output-def.hh"
-#include "pitch.hh"
 #include "staff-symbol-referencer.hh"
 #include "stem.hh"
 #include "stream-event.hh"
 #include "text-interface.hh"
+#include "rhythmic-head.hh"
 
 /*
 
@@ -31,7 +31,7 @@ SCM
 Note_head::brew_ez_stencil (SCM smob)
 {
   Grob *me = unsmob_grob (smob);
-  int log = Note_head::get_balltype (me);
+  int log = Rhythmic_head::duration_log (me);
 
   SCM cause = me->get_property ("cause");
   SCM spitch = unsmob_stream_event (cause)->get_property ("pitch");
@@ -45,9 +45,9 @@ Note_head::brew_ez_stencil (SCM smob)
   else
     {
       char s[2] = "a";
-      s[0] = (pit->get_notename () + 2) % 7 + 'a';
-      s[0] = toupper (s[0]);
-      charstr = scm_makfrom0str (s);
+      s[0] = char ((pit->get_notename () + 2) % 7 + 'a');
+      s[0] = char (toupper (s[0]));
+      charstr = scm_from_locale_string (s);
     }
 
   SCM letter