chain_release Subroutine

private subroutine chain_release(self)

Forget the render nodes: the chain and the tail (see artist_release).

Type Bound

ChainArtist

Arguments

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

Calls

proc~~chain_release~~CallsGraph proc~chain_release ChainArtist%chain_release interface~vkf_node_delete vkf_node_delete proc~chain_release->interface~vkf_node_delete proc~artist_release TrajectoryArtist%artist_release proc~chain_release->proc~artist_release proc~release~2 LineChain%release proc~chain_release->proc~release~2 proc~release~2->interface~vkf_node_delete

Source Code

    subroutine chain_release(self)
        class(ChainArtist), intent(inout) :: self
        call self%chain%release()
        if (c_associated(self%tail)) call vkf_node_delete(self%tail)
        self%tail = c_null_ptr
        self%group = c_null_ptr
        self%n_written = 0
        self%n_drawn = 0
        self%n_colored = 0
        self%tail_shown = .false.
        call artist_release(self)
    end subroutine chain_release