set_lod Subroutine

private subroutine set_lod(self, enabled)

Level of detail on (the default: seen from far away, a strip is drawn from fewer points, within half a pixel of all of them) or off (every point drawn).

Type Bound

LineChain

Arguments

Type IntentOptional Attributes Name
class(LineChain), intent(inout) :: self
logical, intent(in) :: enabled

level of detail on (false: every point drawn)

Calls

proc~~set_lod~~CallsGraph proc~set_lod LineChain%set_lod proc~send_lod send_lod proc~set_lod->proc~send_lod interface~vkf_line_set_lod vkf_line_set_lod proc~send_lod->interface~vkf_line_set_lod proc~check_status check_status proc~send_lod->proc~check_status proc~lod_error~2 LineChain%lod_error proc~send_lod->proc~lod_error~2

Source Code

    subroutine set_lod(self, enabled)
        class(LineChain), intent(inout) :: self
        logical, intent(in) :: enabled          !! level of detail on (false: every point drawn)
        integer :: j
        self%lod = enabled
        if (self%kind /= CHAIN_STRIP) return
        do j = 1, self%n_chunks
            call send_lod(self, j)
        end do
    end subroutine set_lod