source file of the GNU LilyPond music typesetter
- (c) 1996--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1996--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "box.hh"
-#include "array.hh"
void
Box::translate (Offset o)
interval_a_[i].unite (b[i]);
}
-/**
- Initialize to empty.
-*/
Box::Box ()
{
}
interval_a_[X_AXIS].widen (x);
interval_a_[Y_AXIS].widen (y);
}
+
+/****************************************************************/
+
+#include "ly-smobs.icc"
+
+IMPLEMENT_SIMPLE_SMOBS (Box);
+IMPLEMENT_TYPE_P (Box, "ly:box?");
+IMPLEMENT_DEFAULT_EQUAL_P (Box);
+
+SCM
+Box::mark_smob (SCM /* x */)
+{
+ return SCM_EOL;
+}
+
+int
+Box::print_smob (SCM /* x */, SCM p, scm_print_state*)
+{
+ scm_puts ("#<Box>", p);
+ return 1;
+}