point_between Function

private pure function point_between(self, k, k2, t, sources) result(v)

The point at time t between points k and k2 (components from sources): linear in time, within the two (time_fraction). Point k if k2 isn't a point (beyond the ends, or more times than data).

Type Bound

Trajectory

Arguments

Type IntentOptional Attributes Name
class(Trajectory), intent(in) :: self
integer, intent(in) :: k

a point (1 to num_points(sources))
integer, intent(in) :: k2

the other point (e.g. k + 1)
real(kind=wp), intent(in) :: t

the time
type(DataSource), intent(in) :: sources(3)

where the components come from

Return Value real(kind=wp), (3)


Calls

proc~~point_between~~CallsGraph proc~point_between Trajectory%point_between proc~num_points Trajectory%num_points proc~point_between->proc~num_points proc~point~2 Trajectory%point proc~point_between->proc~point~2 proc~time_fraction Trajectory%time_fraction proc~point_between->proc~time_fraction

Called by

proc~~point_between~~CalledByGraph proc~point_between Trajectory%point_between proc~art_point_between art_point_between proc~art_point_between->proc~point_between proc~to_shown to_shown proc~art_point_between->proc~to_shown proc~interpolate_position interpolate_position proc~interpolate_position->proc~point_between proc~point_at Trajectory%point_at proc~point_at->proc~point_between proc~intermediates_by_time intermediates_by_time proc~intermediates_by_time->proc~art_point_between proc~state_at TrajectoryFollower%state_at proc~state_at->proc~interpolate_position proc~trajectory_path_position TrajectoryPath%trajectory_path_position proc~trajectory_path_position->proc~point_at proc~update_ribbon_tail RibbonArtist%update_ribbon_tail proc~update_ribbon_tail->proc~art_point_between proc~art_point art_point proc~update_ribbon_tail->proc~art_point proc~update_tail CurveArtist%update_tail proc~update_tail->proc~art_point_between proc~update_tail->proc~art_point proc~add_intermediates add_intermediates proc~add_intermediates->proc~intermediates_by_time proc~intermediates_by_data intermediates_by_data proc~add_intermediates->proc~intermediates_by_data proc~intermediates_by_distance intermediates_by_distance proc~add_intermediates->proc~intermediates_by_distance proc~followed_pose followed_pose proc~followed_pose->proc~state_at proc~world_matrix_at ReferenceFrame%world_matrix_at proc~followed_pose->proc~world_matrix_at proc~update~2 TrajectoryFollower%update proc~update~2->proc~state_at proc~local_matrix_at ReferenceFrame%local_matrix_at proc~local_matrix_at->proc~followed_pose proc~marker_update MarkerArtist%marker_update proc~marker_update->proc~add_intermediates proc~marker_point marker_point proc~marker_update->proc~marker_point proc~update_bounds update_bounds proc~marker_update->proc~update_bounds proc~update ReferenceFrame%update proc~update->proc~followed_pose proc~update->proc~update~2 proc~drawable_update DrawableTrajectory%drawable_update proc~drawable_update->proc~update proc~fm_update FrameManager%fm_update proc~fm_update->proc~update proc~sphere_update Sphere%sphere_update proc~sphere_update->proc~update proc~terrain_update TerrainBody%terrain_update proc~terrain_update->proc~update proc~world_matrix_at->proc~local_matrix_at proc~world_matrix_at->proc~world_matrix_at proc~data_to_shown data_to_shown proc~data_to_shown->proc~world_matrix_at proc~to_shown->proc~data_to_shown proc~to_shown_at to_shown_at proc~to_shown_at->proc~to_shown proc~art_point->proc~to_shown_at proc~art_points art_points proc~art_points->proc~to_shown_at proc~marker_point->proc~to_shown_at proc~marker_point->proc~art_point proc~write_segments write_segments proc~write_segments->proc~to_shown_at proc~curve_pick curve_pick proc~curve_pick->proc~art_point proc~intermediates_by_data->proc~art_point proc~intermediates_by_distance->proc~art_point proc~segment_update SegmentArtist%segment_update proc~segment_update->proc~write_segments proc~update_bounds->proc~art_points proc~write_curve CurveArtist%write_curve proc~write_curve->proc~art_points proc~write_ribbon RibbonArtist%write_ribbon proc~write_ribbon->proc~art_points proc~drawable_pick DrawableTrajectory%drawable_pick proc~drawable_pick->proc~curve_pick

Source Code

    pure function point_between(self, k, k2, t, sources) result(v)
        class(Trajectory), intent(in) :: self
        integer, intent(in) :: k                            !! a point (1 to num_points(sources))
        integer, intent(in) :: k2                           !! the other point (e.g. k + 1)
        real(wp), intent(in) :: t                           !! the time
        type(DataSource), intent(in) :: sources(3)          !! where the components come from
        real(wp) :: v(3)
        v = self%point(k, sources)
        if (k2 < 1 .or. k2 > self%num_points(sources)) return
        v = v + self%time_fraction(k, k2, t) * (self%point(k2, sources) - v)
    end function point_between