Imported Upstream version 2.14.2

[lilypond.git] / lily / easy-notation.cc

diff --git a/lily/easy-notation.cc b/lily/easy-notation.cc
deleted file mode 100644 (file)
index 8838efe..0000000
--- a/lily/easy-notation.cc
+++ /dev/null
@@ -1,104 +0,0 @@
-/*
-  easy-notation.cc --  implement easy notation heads
-
-  source file of the GNU LilyPond music typesetter
-
-  (c) 2005--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
-*/
-
-#include "note-head.hh"
-
-#include <cctype>
-using namespace std;
-
-#include "font-interface.hh"
-#include "grob.hh"
-#include "music.hh"
-#include "output-def.hh"
-#include "staff-symbol-referencer.hh"
-#include "stem.hh"
-#include "stream-event.hh"
-#include "text-interface.hh"
-#include "rhythmic-head.hh"
-
-/*
-
-TODO: move to scheme
-
-*/
-MAKE_SCHEME_CALLBACK (Note_head, brew_ez_stencil, 1);
-SCM
-Note_head::brew_ez_stencil (SCM smob)
-{
-  Grob *me = unsmob_grob (smob);
-  int log = Rhythmic_head::duration_log (me);
-
-  SCM cause = me->get_property ("cause");
-  SCM spitch = unsmob_stream_event (cause)->get_property ("pitch");
-  Pitch *pit = unsmob_pitch (spitch);
-
-  SCM idx = scm_from_int (pit->get_notename ());
-  SCM names = me->get_property ("note-names");
-  SCM charstr = SCM_EOL;
-  if (scm_is_vector (names))
-    charstr = scm_vector_ref (names, idx);
-  else
-    {
-      char s[2] = "a";
-      s[0] = char ((pit->get_notename () + 2) % 7 + 'a');
-      s[0] = char (toupper (s[0]));
-      charstr = scm_from_locale_string (s);
-    }
-
-  SCM letter
-    = Text_interface::interpret_string (me->layout ()->self_scm (),
-                                       Font_interface::text_font_alist_chain (me),
-                                       charstr);
-
-  Stencil l (*unsmob_stencil (letter));
-  l.align_to (X_AXIS, CENTER);
-  l.align_to (Y_AXIS, CENTER);
-
-  l = Stencil (Box (), l.expr ());
-  Real ss = Staff_symbol_referencer::staff_space (me);
-  Real lt = Staff_symbol_referencer::line_thickness (me);
-
-  Real radius = (ss + lt) / 2.0;
-  Real stem_thick = 1.3 * lt;
-  if (Grob *stem = unsmob_grob (me->get_object ("stem")))
-    stem_thick = Stem::thickness (stem);
-
-  int black = (log >= 2);
-
-  Stencil head;
-  Box extent (Interval (-radius, radius),
-             Interval (-radius, radius));
-
-  Stencil black_head (extent,
-                     scm_list_4 (ly_symbol2scm ("circle"),
-                                 scm_from_double (radius),
-                                 scm_from_double (0.0),
-                                 SCM_BOOL_T));
-  Stencil white_head;
-  if (black)
-    l = l.in_color (1, 1, 1);
-  else
-    {
-      white_head = Stencil (extent,
-                           scm_list_4 (ly_symbol2scm ("circle"),
-                                       scm_from_double (radius - stem_thick),
-                                       scm_from_double (0.0),
-                                       SCM_BOOL_T));
-
-      white_head = white_head.in_color (1, 1, 1);
-    }
-
-  Stencil total;
-  total.add_stencil (l);
-  total.add_stencil (white_head);
-  total.add_stencil (black_head);
-  total.translate_axis (radius, X_AXIS);
-
-  return total.smobbed_copy ();
-}
-