drawn_segment Subroutine

private subroutine drawn_segment(self, s, a, b)

Segment s (at point 1 + (s-1) stride; first_drawn to first_drawn + num_drawn - 1 drawn) as written: read back from the line buffers.

Type Bound

SegmentArtist

Arguments

Type IntentOptional Attributes Name
class(SegmentArtist), intent(in) :: self
integer, intent(in) :: s

the segment (first_drawn to first_drawn + num_drawn - 1)
real(kind=wp), intent(out) :: a(3)

the segment's start (frame coordinates)
real(kind=wp), intent(out) :: b(3)

its end

Calls

proc~~drawn_segment~~CallsGraph proc~drawn_segment SegmentArtist%drawn_segment proc~point LineChain%point proc~drawn_segment->proc~point proc~line_buffer line_buffer proc~point->proc~line_buffer interface~vkf_line_points vkf_line_points proc~line_buffer->interface~vkf_line_points

Called by

proc~~drawn_segment~~CalledByGraph proc~drawn_segment SegmentArtist%drawn_segment proc~segment_artist_pick segment_artist_pick proc~segment_artist_pick->proc~drawn_segment proc~drawable_pick DrawableTrajectory%drawable_pick proc~drawable_pick->proc~segment_artist_pick

Source Code

    subroutine drawn_segment(self, s, a, b)
        class(SegmentArtist), intent(in) :: self
        integer, intent(in) :: s                    !! the segment (first_drawn to first_drawn + num_drawn - 1)
        real(wp), intent(out) :: a(3)               !! the segment's start (frame coordinates)
        real(wp), intent(out) :: b(3)               !! its end
        a = self%chain%point(2 * s - 1)
        b = self%chain%point(2 * s)
    end subroutine drawn_segment