/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 1997--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 1997--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
}
SCM
-Stencil::mark_smob ()
+Stencil::mark_smob () const
{
return expr_;
}
-const char Stencil::type_p_name_[] = "ly:stencil?";
+const char * const Stencil::type_p_name_ = "ly:stencil?";
Interval
Stencil::extent (Axis a) const
bool
Stencil::is_empty () const
{
- return (expr_ == SCM_EOL
+ return (scm_is_null (expr_)
|| dim_.is_empty ());
}
* *this = rotated()
*/
- expr_ = scm_list_n (ly_symbol2scm ("rotate-stencil"),
+ expr_ = scm_list_3 (ly_symbol2scm ("rotate-stencil"),
scm_list_2 (scm_from_double (a),
scm_cons (scm_from_double (x), scm_from_double (y))),
- expr_, SCM_UNDEFINED);
+ expr_);
/*
* Calculate the new bounding box
}
if (!scm_is_null (expr_))
- expr_ = scm_list_n (ly_symbol2scm ("translate-stencil"),
+ expr_ = scm_list_3 (ly_symbol2scm ("translate-stencil"),
ly_offset2scm (o),
- expr_, SCM_UNDEFINED);
+ expr_);
dim_.translate (o);
}