8
return this->expolygon.area();
12
Surface::is_solid() const
14
return this->surface_type == stTop
15
|| this->surface_type == stBottom
16
|| this->surface_type == stBottomBridge
17
|| this->surface_type == stInternalSolid;
21
Surface::is_external() const
23
return this->surface_type == stTop
24
|| this->surface_type == stBottom
25
|| this->surface_type == stBottomBridge;
29
Surface::is_bottom() const
31
return this->surface_type == stBottom
32
|| this->surface_type == stBottomBridge;
36
Surface::is_bridge() const
38
return this->surface_type == stBottomBridge
39
|| this->surface_type == stInternalBridge;
44
REGISTER_CLASS(Surface, "Surface");
47
Surface::from_SV_check(SV* surface_sv)
49
if (!sv_isa(surface_sv, perl_class_name(this)) && !sv_isa(surface_sv, perl_class_name_ref(this)))
50
CONFESS("Not a valid %s object", perl_class_name(this));
51
// a XS Surface was supplied
52
*this = *(Surface *)SvIV((SV*)SvRV( surface_sv ));