chain_points_per_point Function

private pure function chain_points_per_point(self) result(m)

Chain points per trajectory point: 1, or 2 for a surface (a pair each).

Arguments

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

Return Value integer


Calls

proc~~chain_points_per_point~~CallsGraph proc~chain_points_per_point chain_points_per_point chain_kind chain_kind proc~chain_points_per_point->chain_kind

Called by

proc~~chain_points_per_point~~CalledByGraph proc~chain_points_per_point chain_points_per_point proc~chain_build ChainArtist%chain_build proc~chain_build->proc~chain_points_per_point proc~draw_written draw_written proc~draw_written->proc~chain_points_per_point proc~write_changed write_changed proc~write_changed->proc~chain_points_per_point proc~chain_update ChainArtist%chain_update proc~chain_update->proc~draw_written proc~chain_update->proc~write_changed proc~curve_update CurveArtist%curve_update proc~curve_update->proc~draw_written proc~curve_update->proc~write_changed

Source Code

    pure integer function chain_points_per_point(self) result(m)
        class(ChainArtist), intent(in) :: self
        m = merge(2, 1, self%chain_kind() == CHAIN_RIBBON)
    end function chain_points_per_point