new_rectangular_cone Function

private function new_rectangular_cone(name, color) result(c)

A rectangular cone named name, of color color.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name

the frame's name
real(kind=wp), intent(in), optional :: color(:)

[r, g, b] or [r, g, b, a] (0 to 1)

Return Value type(RectangularCone)


Calls

proc~~new_rectangular_cone~~CallsGraph proc~new_rectangular_cone new_rectangular_cone proc~rect_vertices rect_vertices proc~new_rectangular_cone->proc~rect_vertices

Called by

proc~~new_rectangular_cone~~CalledByGraph proc~new_rectangular_cone new_rectangular_cone interface~rectangularcone RectangularCone interface~rectangularcone->proc~new_rectangular_cone

Source Code

    function new_rectangular_cone(name, color) result(c)
        character(len=*), intent(in) :: name                !! the frame's name
        real(wp), intent(in), optional :: color(:)          !! [r, g, b] or [r, g, b, a] (0 to 1)
        type(RectangularCone) :: c
        c%PolyhedralCone = PolyhedralCone(name, color)
        call rect_vertices(c)
    end function new_rectangular_cone