remove_all_artists Subroutine

private subroutine remove_all_artists(self)

Remove all the artists.

Type Bound

DrawableTrajectory

Arguments

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

Calls

proc~~remove_all_artists~~CallsGraph proc~remove_all_artists DrawableTrajectory%remove_all_artists proc~remove_artist DrawableTrajectory%remove_artist proc~remove_all_artists->proc~remove_artist interface~vkf_node_delete vkf_node_delete proc~remove_artist->interface~vkf_node_delete interface~vkf_node_remove_child vkf_node_remove_child proc~remove_artist->interface~vkf_node_remove_child proc~artist_release TrajectoryArtist%artist_release proc~remove_artist->proc~artist_release proc~check_status check_status proc~remove_artist->proc~check_status

Source Code

    subroutine remove_all_artists(self)
        class(DrawableTrajectory), intent(inout) :: self
        do while (self%n_artists > 0)
            call self%remove_artist(self%artists(self%n_artists)%p)
        end do
    end subroutine remove_all_artists