point_color Function

private pure function point_color(self) result(c)

The vertices' color [r, g, b, a].

Type Bound

Arguments

Type	Intent	Optional	Attributes		Name
class(Polyhedron),	intent(in)			::	self

Return Value real(kind=wp), (4)

Source Code

    pure function point_color(self) result(c)
        class(Polyhedron), intent(in) :: self
        real(wp) :: c(4)
        c = self%point_color_
    end function point_color