trace_end Function

private function trace_end(self, v)

In trace mode, the end of the line (the point at the current time) as drawn; false if no tail is drawn.

Type Bound

CurveArtist

Arguments

Type IntentOptional Attributes Name
class(CurveArtist), intent(in) :: self
real(kind=wp), intent(out) :: v(3)

the tail's end (frame coordinates)

Return Value logical


Calls

proc~~trace_end~~CallsGraph proc~trace_end CurveArtist%trace_end proc~line_buffer line_buffer proc~trace_end->proc~line_buffer interface~vkf_line_points vkf_line_points proc~line_buffer->interface~vkf_line_points

Source Code

    logical function trace_end(self, v)
        class(CurveArtist), intent(in) :: self
        real(wp), intent(out) :: v(3)               !! the tail's end (frame coordinates)
        real(c_float), dimension(:,:,:), pointer :: p
        v = 0.0_wp
        trace_end = self%tail_shown
        if (.not. trace_end) return
        call line_buffer(self%tail, p)
        if (associated(p)) v = real(p(1:3, 1, 2), wp) + real(p(1:3, 2, 2), wp)
    end function trace_end