source file of the GNU LilyPond music typesetter
- (c) 1996--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1996--2006 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 &
-Box::operator[] (Axis a)
+Box::operator [] (Axis a)
{
return interval_a_[a];
}
Interval
-Box::operator[] (Axis a) const
+Box::operator [] (Axis a) const
{
return interval_a_[a];
}
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)
+{
+ (void)x;
+ return SCM_EOL;
+}
+
+int
+Box::print_smob (SCM x, SCM p, scm_print_state*)
+{
+ (void)x;
+ scm_puts ("#<Box>", p);
+ return 1;
+}