release: 1.3.141

[lilypond.git] / lily / molecule.cc

diff --git a/lily/molecule.cc b/lily/molecule.cc
index 9ea0eb0a6ac520d68b4142402cd34a87c1561e13..5f1ced7f4975288518cf265a6b7d8a51b24909e8 100644 (file)
--- a/lily/molecule.cc
+++ b/lily/molecule.cc
@@ -201,9 +201,22 @@ Molecule::ly_molecule_combined_at_edge (SCM first, SCM axis, SCM direction,
 }
 
 
+SCM
+make_molecule (SCM expr, SCM xext, SCM yext)
+{
+  /*
+    TODO: typechecking. 
+   */
+  Box b (ly_scm2interval (xext), ly_scm2interval(yext));
+  Molecule m (b, expr);
+  return m.smobbed_copy ();
+}
+
+
 static void
 molecule_init ()
 {
+  scm_make_gsubr ("ly-make-molecule", 3, 0, 0, (Scheme_function_unknown) make_molecule);
   scm_make_gsubr ("ly-combine-molecule-at-edge", 5 , 0, 0, (Scheme_function_unknown) Molecule::ly_molecule_combined_at_edge);
   scm_make_gsubr ("ly-set-molecule-extent!", 3 , 0, 0, (Scheme_function_unknown) Molecule::ly_set_molecule_extent_x);
   scm_make_gsubr ("ly-get-molecule-extent", 2 , 0, 0, (Scheme_function_unknown) Molecule::ly_get_molecule_extent);