]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/lookup.cc
Run `make grand-replace'.
[lilypond.git] / lily / lookup.cc
index 62e0d9731786d78c03da4f7bcefe0cc3ae8cf4e7..4cef41f0616a44a85adaf238d18aa15127220eb9 100644 (file)
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1997--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  (c) 1997--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
   Jan Nieuwenhuizen <janneke@gnu.org>
 */
@@ -18,11 +18,9 @@ using namespace std;
 #include "warn.hh"
 #include "dimensions.hh"
 #include "bezier.hh"
-#include "string-convert.hh"
 #include "file-path.hh"
 #include "main.hh"
 #include "lily-guile.hh"
-#include "font-metric.hh"
 
 Stencil
 Lookup::dot (Offset p, Real radius)
@@ -461,207 +459,6 @@ Lookup::bezier_sandwich (Bezier top_curve, Bezier bottom_curve)
   return Stencil (b, horizontal_bend);
 }
 
-/*
-  TODO: junk me.
-*/
-Stencil
-Lookup::accordion (SCM s, Real staff_space, Font_metric *fm)
-{
-  Stencil m;
-  string sym = ly_scm2string (scm_car (s));
-  string reg = ly_scm2string (scm_car (scm_cdr (s)));
-
-  if (sym == "Discant")
-    {
-      Stencil r = fm->find_by_name ("accordion.accDiscant");
-      m.add_stencil (r);
-      if (reg.substr (0, 1) == "F")
-       {
-         Stencil d = fm->find_by_name ("accordion.accDot");
-         d.translate_axis (staff_space * 2.5 PT, Y_AXIS);
-         m.add_stencil (d);
-         reg = reg.substr (1);
-       }
-      int eflag = 0x00;
-      if (reg.substr (0, 3) == "EEE")
-       {
-         eflag = 0x07;
-         reg = reg.substr (3);
-       }
-      else if (reg.substr (0, 2) == "EE")
-       {
-         eflag = 0x05;
-         reg = reg.substr (2);
-       }
-      else if (reg.substr (0, 2) == "Eh")
-       {
-         eflag = 0x04;
-         reg = reg.substr (2);
-       }
-      else if (reg.substr (0, 1) == "E")
-       {
-         eflag = 0x02;
-         reg = reg.substr (1);
-       }
-      if (eflag & 0x02)
-       {
-         Stencil d = fm->find_by_name ("accordion.accDot");
-         d.translate_axis (staff_space * 1.5 PT, Y_AXIS);
-         m.add_stencil (d);
-       }
-      if (eflag & 0x04)
-       {
-         Stencil d = fm->find_by_name ("accordion.accDot");
-         d.translate_axis (staff_space * 1.5 PT, Y_AXIS);
-         d.translate_axis (0.8 * staff_space PT, X_AXIS);
-         m.add_stencil (d);
-       }
-      if (eflag & 0x01)
-       {
-         Stencil d = fm->find_by_name ("accordion.accDot");
-         d.translate_axis (staff_space * 1.5 PT, Y_AXIS);
-         d.translate_axis (-0.8 * staff_space PT, X_AXIS);
-         m.add_stencil (d);
-       }
-      if (reg.substr (0, 2) == "SS")
-       {
-         Stencil d = fm->find_by_name ("accordion.accDot");
-         d.translate_axis (0.5 * staff_space PT, Y_AXIS);
-         d.translate_axis (0.4 * staff_space PT, X_AXIS);
-         m.add_stencil (d);
-         d.translate_axis (-0.8 * staff_space PT, X_AXIS);
-         m.add_stencil (d);
-         reg = reg.substr (2);
-       }
-      if (reg.substr (0, 1) == "S")
-       {
-         Stencil d = fm->find_by_name ("accordion.accDot");
-         d.translate_axis (0.5 * staff_space PT, Y_AXIS);
-         m.add_stencil (d);
-         reg = reg.substr (1);
-       }
-    }
-  else if (sym == "Freebase")
-    {
-      Stencil r = fm->find_by_name ("accordion.accFreebase");
-      m.add_stencil (r);
-      if (reg.substr (0, 1) == "F")
-       {
-         Stencil d = fm->find_by_name ("accordion.accDot");
-         d.translate_axis (staff_space * 1.5 PT, Y_AXIS);
-         m.add_stencil (d);
-         reg = reg.substr (1);
-       }
-      if (reg == "E")
-       {
-         Stencil d = fm->find_by_name ("accordion.accDot");
-         d.translate_axis (staff_space * 0.5 PT, Y_AXIS);
-         m.add_stencil (d);
-       }
-    }
-  else if (sym == "Bayanbase")
-    {
-      Stencil r = fm->find_by_name ("accordion.accBayanbase");
-      m.add_stencil (r);
-      if (reg.substr (0, 1) == "T")
-       {
-         Stencil d = fm->find_by_name ("accordion.accDot");
-         d.translate_axis (staff_space * 2.5 PT, Y_AXIS);
-         m.add_stencil (d);
-         reg = reg.substr (1);
-       }
-      /* include 4' reed just for completeness. You don't want to use this. */
-      if (reg.substr (0, 1) == "F")
-       {
-         Stencil d = fm->find_by_name ("accordion.accDot");
-         d.translate_axis (staff_space * 1.5 PT, Y_AXIS);
-         m.add_stencil (d);
-         reg = reg.substr (1);
-       }
-      if (reg.substr (0, 2) == "EE")
-       {
-         Stencil d = fm->find_by_name ("accordion.accDot");
-         d.translate_axis (staff_space * 0.5 PT, Y_AXIS);
-         d.translate_axis (0.4 * staff_space PT, X_AXIS);
-         m.add_stencil (d);
-         d.translate_axis (-0.8 * staff_space PT, X_AXIS);
-         m.add_stencil (d);
-         reg = reg.substr (2);
-       }
-      if (reg.substr (0, 1) == "E")
-       {
-         Stencil d = fm->find_by_name ("accordion.accDot");
-         d.translate_axis (staff_space * 0.5 PT, Y_AXIS);
-         m.add_stencil (d);
-         reg = reg.substr (1);
-       }
-    }
-  else if (sym == "Stdbase")
-    {
-      Stencil r = fm->find_by_name ("accordion.accStdbase");
-      m.add_stencil (r);
-      if (reg.substr (0, 1) == "T")
-       {
-         Stencil d = fm->find_by_name ("accordion.accDot");
-         d.translate_axis (staff_space * 3.5 PT, Y_AXIS);
-         m.add_stencil (d);
-         reg = reg.substr (1);
-       }
-      if (reg.substr (0, 1) == "F")
-       {
-         Stencil d = fm->find_by_name ("accordion.accDot");
-         d.translate_axis (staff_space * 2.5 PT, Y_AXIS);
-         m.add_stencil (d);
-         reg = reg.substr (1);
-       }
-      if (reg.substr (0, 1) == "M")
-       {
-         Stencil d = fm->find_by_name ("accordion.accDot");
-         d.translate_axis (staff_space * 2 PT, Y_AXIS);
-         d.translate_axis (staff_space PT, X_AXIS);
-         m.add_stencil (d);
-         reg = reg.substr (1);
-       }
-      if (reg.substr (0, 1) == "E")
-       {
-         Stencil d = fm->find_by_name ("accordion.accDot");
-         d.translate_axis (staff_space * 1.5 PT, Y_AXIS);
-         m.add_stencil (d);
-         reg = reg.substr (1);
-       }
-      if (reg.substr (0, 1) == "S")
-       {
-         Stencil d = fm->find_by_name ("accordion.accDot");
-         d.translate_axis (staff_space * 0.5 PT, Y_AXIS);
-         m.add_stencil (d);
-         reg = reg.substr (1);
-       }
-    }
-  /* ugh maybe try to use regular font for S.B. and B.B and only use one font
-     for the rectangle */
-  else if (sym == "SB")
-    {
-      Stencil r = fm->find_by_name ("accordion.accSB");
-      m.add_stencil (r);
-    }
-  else if (sym == "BB")
-    {
-      Stencil r = fm->find_by_name ("accordion.accBB");
-      m.add_stencil (r);
-    }
-  else if (sym == "OldEE")
-    {
-      Stencil r = fm->find_by_name ("accordion.accOldEE");
-      m.add_stencil (r);
-    }
-  else if (sym == "OldEES")
-    {
-      Stencil r = fm->find_by_name ("accordion.accOldEES");
-      m.add_stencil (r);
-    }
-  return m;
-}
-
 Stencil
 Lookup::repeat_slash (Real w, Real s, Real t)
 {