Run `make grand-replace'.

[lilypond.git] / lily / box.cc

diff --git a/lily/box.cc b/lily/box.cc
index 1d69b6ecfb0b95139833702a141bffc050ea3d3a..5cce139fd4154b28625de8eb571bfb8f64034d4f 100644 (file)
--- a/lily/box.cc
+++ b/lily/box.cc
@@ -3,11 +3,10 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1996--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1996--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
 */
 
 #include "box.hh"
-#include "array.hh"
 
 void
 Box::translate (Offset o)
@@ -23,18 +22,15 @@ Box::unite (Box b)
     interval_a_[i].unite (b[i]);
 }
 
-/**
-  Initialize to empty.
- */
 Box::Box ()
-{        
+{
 }
 
 void
 Box::set_empty ()
 {
   interval_a_[X_AXIS].set_empty ();
-  interval_a_[Y_AXIS].set_empty (); 
+  interval_a_[Y_AXIS].set_empty ();
 }
 
 Box::Box (Interval ix, Interval iy)
@@ -44,13 +40,13 @@ Box::Box (Interval ix, Interval iy)
 }
 
 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];
 }
@@ -66,14 +62,14 @@ void
 Box::add_point (Offset o)
 {
   interval_a_[X_AXIS].add_point (o[X_AXIS]);
-  interval_a_[Y_AXIS].add_point (o[Y_AXIS]);  
+  interval_a_[Y_AXIS].add_point (o[Y_AXIS]);
 }
 
 Offset
 Box::center () const
 {
   return Offset (interval_a_[X_AXIS].center (),
-                interval_a_[Y_AXIS].center ()); 
+                interval_a_[Y_AXIS].center ());
 }
 
 void
@@ -82,3 +78,26 @@ Box::widen (Real x, Real y)
   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;
+}