ribbon_set_color Subroutine

private subroutine ribbon_set_color(self, color)

The surface's color: [r, g, b] (alpha unchanged) or [r, g, b, a]; its alpha is the surface's opacity (also with the trajectory's colors).

Type Bound

RibbonArtist

Arguments

Type IntentOptional Attributes Name
class(RibbonArtist), intent(inout) :: self
real(kind=wp), intent(in) :: color(:)

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

Calls

proc~~ribbon_set_color~~CallsGraph proc~ribbon_set_color RibbonArtist%ribbon_set_color is_colored is_colored proc~ribbon_set_color->is_colored proc~ribbon_style RibbonArtist%ribbon_style proc~ribbon_set_color->proc~ribbon_style proc~set_rgba set_rgba proc~ribbon_set_color->proc~set_rgba proc~ribbon_style->is_colored proc~check_status check_status proc~ribbon_style->proc~check_status proc~line_set_style line_set_style proc~ribbon_style->proc~line_set_style set_style set_style proc~ribbon_style->set_style interface~vkf_line_style vkf_line_style proc~line_set_style->interface~vkf_line_style interface~vkf_line_style_changed vkf_line_style_changed proc~line_set_style->interface~vkf_line_style_changed

Source Code

    subroutine ribbon_set_color(self, color)
        class(RibbonArtist), intent(inout) :: self
        real(wp), intent(in) :: color(:)                    !! [r, g, b] or [r, g, b, a] (0 to 1)
        call set_rgba(self%color_, color)
        call ribbon_style(self)
        if (self%chain%is_colored()) self%seen_generation = -1    ! (points without colors redrawn)
    end subroutine ribbon_set_color