curve_init_chain Subroutine

private subroutine curve_init_chain(self)

The chain (ChainArtist's), with the curve's level of detail.

Type Bound

CurveArtist

Arguments

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

Calls

proc~~curve_init_chain~~CallsGraph proc~curve_init_chain CurveArtist%curve_init_chain proc~chain_init ChainArtist%chain_init proc~curve_init_chain->proc~chain_init set_lod set_lod proc~curve_init_chain->set_lod chain_kind chain_kind proc~chain_init->chain_kind proc~init LineChain%init proc~chain_init->proc~init proc~set_compile LineChain%set_compile proc~chain_init->proc~set_compile proc~uses_colors uses_colors proc~chain_init->proc~uses_colors num_colors num_colors proc~uses_colors->num_colors

Source Code

    subroutine curve_init_chain(self)
        class(CurveArtist), intent(inout) :: self
        call chain_init(self)
        call self%chain%set_lod(self%lod_)
    end subroutine curve_init_chain