set_intermediate_direction Subroutine

private subroutine set_intermediate_direction(self, direction)

Count intermediate markers from the start (MARKER_START, default) or from the end (MARKER_END; recomputed whenever points are added).

Type Bound

MarkerArtist

Arguments

Type IntentOptional Attributes Name
class(MarkerArtist), intent(inout) :: self
integer, intent(in) :: direction

MARKER_START or MARKER_END

Calls

proc~~set_intermediate_direction~~CallsGraph proc~set_intermediate_direction MarkerArtist%set_intermediate_direction proc~redraw_markers redraw_markers proc~set_intermediate_direction->proc~redraw_markers

Source Code

    subroutine set_intermediate_direction(self, direction)
        class(MarkerArtist), intent(inout) :: self
        integer, intent(in) :: direction                    !! MARKER_START or MARKER_END
        if (direction == self%direction_) return
        self%direction_ = merge(MARKER_END, MARKER_START, direction == MARKER_END)
        call redraw_markers(self)
    end subroutine set_intermediate_direction