#include "string-convert.hh"
#include "warn.hh"
-#include "ly-smobs.icc"
Stencil::Stencil ()
{
dim_ = b;
}
-int
-Stencil::print_smob (SCM, SCM port, scm_print_state *)
-{
- scm_puts ("#<Stencil ", port);
- scm_puts (" >", port);
- return 1;
-}
-
SCM
-Stencil::mark_smob (SCM smob)
+Stencil::mark_smob ()
{
- Stencil *s = (Stencil *) SCM_CELL_WORD_1 (smob);
- return s->expr_;
+ return expr_;
}
-IMPLEMENT_SIMPLE_SMOBS (Stencil);
-IMPLEMENT_TYPE_P (Stencil, "ly:stencil?");
-IMPLEMENT_DEFAULT_EQUAL_P (Stencil);
+const char Stencil::type_p_name_[] = "ly:stencil?";
Interval
Stencil::extent (Axis a) const
expr_ = scm_list_n (ly_symbol2scm ("translate-stencil"),
ly_offset2scm (o),
expr_, SCM_UNDEFINED);
- if (!is_empty ())
- dim_.translate (o);
+ dim_.translate (o);
}
void