X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fsystem-scheme.cc;fp=lily%2Fsystem-scheme.cc;h=0000000000000000000000000000000000000000;hb=941dff9d2a67080e0dd8474f1e70f0c72ace6424;hp=37ec8b05496a22ac1531ce90a6e81ea5a22ac11a;hpb=5a22d6233a39d3164e1ca043244794c268be4ad0;p=lilypond.git

diff --git a/lily/system-scheme.cc b/lily/system-scheme.cc
deleted file mode 100644
index 37ec8b0549..0000000000
--- a/lily/system-scheme.cc
+++ /dev/null
@@ -1,43 +0,0 @@
-/*
-  system-scheme.cc -- implement scheme bindings to System
-
-  source file of the GNU LilyPond music typesetter
-
-  (c) 2007--2009 Joe Neeman <joeneeman@gmail.com>
-*/
-
-#include "align-interface.hh"
-#include "pointer-group-interface.hh"
-#include "system.hh"
-
-
-LY_DEFINE (ly_system_print, "ly:system-print",
-	   1, 0, 0, (SCM system),
-	   "Draw the system and return the prob containing its"
-	   " stencil.")
-{
-  Grob *me = unsmob_grob (system);
-  System *me_system = dynamic_cast<System*> (me);
-  SCM_ASSERT_TYPE (me, system, SCM_ARG1, __FUNCTION__, "grob");
-
-  return me_system->get_paper_system ();
-}
-
-LY_DEFINE (ly_system_stretch, "ly:system-stretch",
-	   2, 0, 0, (SCM system, SCM amount_scm),
-	   "Stretch the system vertically by the given amount."
-	   "  This must be called before the system is drawn (for example"
-	   " with @code{ly:system-print}).")
-{
-  Grob *me = unsmob_grob (system);
-  Real amount = robust_scm2double (amount_scm, 0.0);
-  
-  extract_grob_set (me, "elements", elts);
-  for (vsize i = 0; i < elts.size (); i++)
-    if (Align_interface::has_interface (elts[i]))
-      {
-	Align_interface::stretch (elts[i], amount, Y_AXIS);
-	break;
-      }
-  return SCM_UNDEFINED;
-}