segment_set_highlight Subroutine

private subroutine segment_set_highlight(self, mode, color, arrow_spacing, arrow_speed, band_width, pulse_period)

Highlight the segments (see set_highlight): the arrows run along each segment from its start to its end.

Type Bound

SegmentArtist

Arguments

Type IntentOptional Attributes Name
class(SegmentArtist), intent(inout) :: self
integer, intent(in) :: mode

HIGHLIGHT_* (added)
real(kind=wp), intent(in), optional :: color(:)

[r, g, b] or [r, g, b, a] (0 to 1)
real(kind=wp), intent(in), optional :: arrow_spacing

between arrows (window units; default 40)
real(kind=wp), intent(in), optional :: arrow_speed

(window units per second; default 50)
real(kind=wp), intent(in), optional :: band_width

of the arrows' band (window units; default 12)
real(kind=wp), intent(in), optional :: pulse_period

(s; default 1.5)

Calls

proc~~segment_set_highlight~~CallsGraph proc~segment_set_highlight SegmentArtist%segment_set_highlight proc~apply_highlight apply_highlight proc~segment_set_highlight->proc~apply_highlight proc~update_highlight update_highlight proc~segment_set_highlight->proc~update_highlight proc~set_highlight LineChain%set_highlight proc~apply_highlight->proc~set_highlight proc~set_rgba set_rgba proc~update_highlight->proc~set_rgba proc~apply_style apply_style proc~set_highlight->proc~apply_style interface~vkf_line_set_dash_mode vkf_line_set_dash_mode proc~apply_style->interface~vkf_line_set_dash_mode interface~vkf_line_set_highlight vkf_line_set_highlight proc~apply_style->interface~vkf_line_set_highlight interface~vkf_line_set_trail vkf_line_set_trail proc~apply_style->interface~vkf_line_set_trail proc~check_status check_status proc~apply_style->proc~check_status proc~line_set_pattern line_set_pattern proc~apply_style->proc~line_set_pattern proc~line_set_style line_set_style proc~apply_style->proc~line_set_style proc~marker_set_style marker_set_style proc~apply_style->proc~marker_set_style interface~vkf_line_style vkf_line_style proc~line_set_pattern->interface~vkf_line_style interface~vkf_line_style_changed vkf_line_style_changed proc~line_set_pattern->interface~vkf_line_style_changed proc~line_set_style->interface~vkf_line_style proc~line_set_style->interface~vkf_line_style_changed proc~marker_set_style->interface~vkf_line_style proc~marker_set_style->interface~vkf_line_style_changed

Source Code

    subroutine segment_set_highlight(self, mode, color, arrow_spacing, arrow_speed, band_width, pulse_period)
        class(SegmentArtist), intent(inout) :: self
        integer, intent(in) :: mode                         !! HIGHLIGHT_* (added)
        real(wp), intent(in), optional :: color(:)          !! [r, g, b] or [r, g, b, a] (0 to 1)
        real(wp), intent(in), optional :: arrow_spacing     !! between arrows (window units; default 40)
        real(wp), intent(in), optional :: arrow_speed       !! (window units per second; default 50)
        real(wp), intent(in), optional :: band_width        !! of the arrows' band (window units; default 12)
        real(wp), intent(in), optional :: pulse_period      !! (s; default 1.5)
        call update_highlight(self%highlight_, mode, color, arrow_spacing, arrow_speed, band_width, pulse_period)
        call apply_highlight(self%highlight_, self%chain)
    end subroutine segment_set_highlight