new_polyhedral_cone Function

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

A polyhedral cone named name, of color color (its sides and lines): 3 vertices at clock angles 0, 120 and 240 degrees, cone angles 45 degrees, 1 long (OpenFrames' defaults).

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


Calls

proc~~new_polyhedral_cone~~CallsGraph proc~new_polyhedral_cone new_polyhedral_cone proc~color~2 ReferenceFrame%color proc~new_polyhedral_cone->proc~color~2

Called by

proc~~new_polyhedral_cone~~CalledByGraph proc~new_polyhedral_cone new_polyhedral_cone interface~polyhedralcone PolyhedralCone interface~polyhedralcone->proc~new_polyhedral_cone

Source Code

    function new_polyhedral_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(PolyhedralCone) :: c
        c%ReferenceFrame = ReferenceFrame(name, color)
        c%cone_color_ = c%color()
        c%line_color_ = c%color()
        c%clock = [0.0_wp, 120.0_wp, 240.0_wp] * pi / 180.0_wp
        c%cone = [45.0_wp, 45.0_wp, 45.0_wp] * pi / 180.0_wp
    end function new_polyhedral_cone