send_lod Subroutine

private subroutine send_lod(self, j)

Give chunk j's level of detail to the renderer (none if switched off).

Arguments

Type IntentOptional Attributes Name
type(LineChain), intent(in) :: self
integer, intent(in) :: j

the chunk

Calls

proc~~send_lod~~CallsGraph proc~send_lod 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

Called by

proc~~send_lod~~CalledByGraph proc~send_lod send_lod proc~set_lod LineChain%set_lod proc~set_lod->proc~send_lod proc~update_lod update_lod proc~update_lod->proc~send_lod proc~written LineChain%written proc~written->proc~update_lod proc~write_intermediates write_intermediates proc~write_intermediates->proc~written proc~write_marker write_marker proc~write_marker->proc~written proc~write_segments write_segments proc~write_segments->proc~written proc~write_segments~2 write_segments proc~write_segments~2->proc~written proc~add_intermediates add_intermediates proc~add_intermediates->proc~write_intermediates proc~marker_update MarkerArtist%marker_update proc~marker_update->proc~write_marker proc~marker_update->proc~add_intermediates proc~segment_update SegmentArtist%segment_update proc~segment_update->proc~write_segments proc~segments_late_update CustomLineSegments%segments_late_update proc~segments_late_update->proc~write_segments~2

Source Code

    subroutine send_lod(self, j)
        type(LineChain), intent(in) :: self
        integer, intent(in) :: j                !! the chunk
        associate (c => self%chunks(j))
            call check_status(vkf_line_set_lod(c%line, 0.5_wp * (c%box_lo + c%box_hi), 0.5_wp * norm2(c%box_hi - c%box_lo), &
                                        self%lod_error(j), merge(int(lod_levels, c_int), 0_c_int, self%lod)), 'trajectory artists')
        end associate
    end subroutine send_lod