cone_color Function

private pure function cone_color(self) result(c)

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

Type Bound

Arguments

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

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

Source Code

    pure function cone_color(self) result(c)
        class(PolyhedralCone), intent(in) :: self
        real(wp) :: c(4)
        c = self%cone_color_
    end function cone_color