set_trail Subroutine

private subroutine set_trail(self, values)

For strips, the trail (see vkf_line_set_trail: 20 values; the third 0: none), given to every chunk (changed every frame the time does: a few floats per chunk uploaded).

Type Bound

LineChain

Arguments

Type IntentOptional Attributes Name
class(LineChain), intent(inout) :: self
real(kind=c_float), intent(in) :: values(20)

the trail (see vkf_line_set_trail)

Calls

proc~~set_trail~2~~CallsGraph proc~set_trail~2 LineChain%set_trail interface~vkf_line_set_trail vkf_line_set_trail proc~set_trail~2->interface~vkf_line_set_trail proc~check_status check_status proc~set_trail~2->proc~check_status

Source Code

    subroutine set_trail(self, values)
        class(LineChain), intent(inout) :: self
        real(c_float), intent(in) :: values(20) !! the trail (see vkf_line_set_trail)
        integer :: j
        self%trail = values
        if (self%kind /= CHAIN_STRIP) return
        do j = 1, self%n_chunks
            call check_status(vkf_line_set_trail(self%chunks(j)%line, self%trail), 'trajectory artists')
        end do
    end subroutine set_trail