set_end_relative Subroutine

private subroutine set_end_relative(self, relative)

Relative ends (default false): each segment ends at its start plus the end sources' values (a vector drawn from each point), not at them.

Type Bound

SegmentArtist

Arguments

Type IntentOptional Attributes Name
class(SegmentArtist), intent(inout) :: self
logical, intent(in) :: relative

true: the ends are offsets from the starts

Source Code

    subroutine set_end_relative(self, relative)
        class(SegmentArtist), intent(inout) :: self
        logical, intent(in) :: relative                     !! true: the ends are offsets from the starts
        if (relative .eqv. self%end_relative_) return
        self%end_relative_ = relative
        self%seen_generation = -1                   ! (all segments written again)
    end subroutine set_end_relative