ribbon_style Subroutine

private subroutine ribbon_style(self)

The style: the artist's color, or white with its alpha if the points' colors are drawn (the shader multiplies them by it).

Type Bound

RibbonArtist

Arguments

Type IntentOptional Attributes Name
class(RibbonArtist), intent(inout) :: self

Calls

proc~~ribbon_style~~CallsGraph proc~ribbon_style RibbonArtist%ribbon_style is_colored is_colored 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

Called by

proc~~ribbon_style~~CalledByGraph proc~ribbon_style RibbonArtist%ribbon_style proc~ribbon_set_color RibbonArtist%ribbon_set_color proc~ribbon_set_color->proc~ribbon_style

Source Code

    subroutine ribbon_style(self)
        class(RibbonArtist), intent(inout) :: self
        real(wp) :: rgba(4)
        rgba = self%color_
        if (self%chain%is_colored()) rgba(1:3) = 1.0_wp
        call self%chain%set_style(rgba, 1.0_wp)
        if (c_associated(self%tail)) &
            call check_status(line_set_style(self%tail, real(rgba, c_float), 1.0_c_float), 'trajectory artists')
    end subroutine ribbon_style