drawable_set_highlight Subroutine

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

Highlight all the frame's curve and segment artists (see set_highlight; HIGHLIGHT_NONE: none of them).

Type Bound

DrawableTrajectory

Arguments

Type IntentOptional Attributes Name
class(DrawableTrajectory), 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~~drawable_set_highlight~~CallsGraph proc~drawable_set_highlight DrawableTrajectory%drawable_set_highlight set_highlight set_highlight proc~drawable_set_highlight->set_highlight

Source Code

    subroutine drawable_set_highlight(self, mode, color, arrow_spacing, arrow_speed, band_width, pulse_period)
        class(DrawableTrajectory), 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)
        integer :: k
        do k = 1, self%n_artists
            select type (a => self%artists(k)%p)
            class is (CurveArtist)
                call a%set_highlight(mode, color, arrow_spacing, arrow_speed, band_width, pulse_period)
            class is (SegmentArtist)
                call a%set_highlight(mode, color, arrow_spacing, arrow_speed, band_width, pulse_period)
            end select
        end do
    end subroutine drawable_set_highlight