marker_release Subroutine

private subroutine marker_release(self)

Forget the render nodes (see artist_release).

Type Bound

MarkerArtist

Arguments

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

Calls

proc~~marker_release~~CallsGraph proc~marker_release MarkerArtist%marker_release proc~artist_release TrajectoryArtist%artist_release proc~marker_release->proc~artist_release proc~redraw_markers redraw_markers proc~marker_release->proc~redraw_markers proc~release~2 LineChain%release proc~marker_release->proc~release~2 interface~vkf_node_delete vkf_node_delete proc~release~2->interface~vkf_node_delete

Source Code

    subroutine marker_release(self)
        class(MarkerArtist), intent(inout) :: self
        call self%start_node%release()
        call self%end_node%release()
        call self%inter%release()
        self%group = c_null_ptr
        self%start_shown = .false.
        self%end_shown = .false.
        self%n_inter_drawn = 0
        self%inter_first = 1
        call redraw_markers(self)
        call artist_release(self)
    end subroutine marker_release