new_elliptic_cone Function

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

An elliptic cone named name, of color color (sides and base outline drawn).

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(EllipticCone)


Calls

proc~~new_elliptic_cone~~CallsGraph proc~new_elliptic_cone new_elliptic_cone proc~elliptic_vertices elliptic_vertices proc~new_elliptic_cone->proc~elliptic_vertices clock clock proc~elliptic_vertices->clock cone cone proc~elliptic_vertices->cone

Called by

proc~~new_elliptic_cone~~CalledByGraph proc~new_elliptic_cone new_elliptic_cone interface~ellipticcone EllipticCone interface~ellipticcone->proc~new_elliptic_cone

Source Code

    function new_elliptic_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(EllipticCone) :: c
        c%PolyhedralCone = PolyhedralCone(name, color)
        c%mode = ior(CONE_SIDES, CONE_BASE_OUTLINE)
        call elliptic_vertices(c)
    end function new_elliptic_cone