curve_update Subroutine

private subroutine curve_update(self, t)

Write the points added (all of them on a redraw), and draw them all, or in trace mode those passed and the tail to the point at time t, or with a trail the window about time t.

Type Bound

CurveArtist

Arguments

Type IntentOptional Attributes Name
class(CurveArtist), intent(inout) :: self
real(kind=wp), intent(in) :: t

the current time

Calls

proc~~curve_update~~CallsGraph proc~curve_update CurveArtist%curve_update proc~draw_trail draw_trail proc~curve_update->proc~draw_trail proc~draw_written draw_written proc~curve_update->proc~draw_written proc~write_changed write_changed proc~curve_update->proc~write_changed distance distance proc~draw_trail->distance draw_range draw_range proc~draw_trail->draw_range interface~vkf_line_set_range vkf_line_set_range proc~draw_trail->interface~vkf_line_set_range proc~check_status check_status proc~draw_trail->proc~check_status proc~decreasing_times decreasing_times proc~draw_trail->proc~decreasing_times set_trail set_trail proc~draw_trail->set_trail draw_tail draw_tail proc~draw_written->draw_tail proc~draw_written->interface~vkf_line_set_range proc~chain_points_per_point chain_points_per_point proc~draw_written->proc~chain_points_per_point proc~draw_written->proc~check_status proc~draw LineChain%draw proc~draw_written->proc~draw proc~draw_range LineChain%draw_range proc~draw_written->proc~draw_range proc~tail_ends tail_ends proc~draw_written->proc~tail_ends proc~trace_range trace_range proc~draw_written->proc~trace_range apply_style apply_style proc~write_changed->apply_style points points proc~write_changed->points proc~chain_init ChainArtist%chain_init proc~write_changed->proc~chain_init proc~write_changed->proc~chain_points_per_point proc~data_changed data_changed proc~write_changed->proc~data_changed proc~detach LineChain%detach proc~write_changed->proc~detach proc~is_built LineChain%is_built proc~write_changed->proc~is_built proc~is_colored LineChain%is_colored proc~write_changed->proc~is_colored proc~reserve LineChain%reserve proc~write_changed->proc~reserve proc~uses_colors uses_colors proc~write_changed->proc~uses_colors write_points write_points proc~write_changed->write_points proc~chain_init->proc~uses_colors chain_kind chain_kind proc~chain_init->chain_kind proc~init LineChain%init proc~chain_init->proc~init proc~set_compile LineChain%set_compile proc~chain_init->proc~set_compile proc~chain_points_per_point->chain_kind proc~generation Trajectory%generation proc~data_changed->proc~generation proc~motion_changed motion_changed proc~data_changed->proc~motion_changed proc~revision~2 Trajectory%revision proc~data_changed->proc~revision~2 proc~detach->proc~check_status interface~vkf_node_remove_child vkf_node_remove_child proc~detach->interface~vkf_node_remove_child proc~release~2 LineChain%release proc~detach->proc~release~2 proc~draw->proc~draw_range proc~draw_range->interface~vkf_line_set_range proc~draw_range->proc~check_status proc~reserve->proc~check_status interface~vkf_compile_node vkf_compile_node proc~reserve->interface~vkf_compile_node interface~vkf_line_create vkf_line_create proc~reserve->interface~vkf_line_create interface~vkf_line_create_colored vkf_line_create_colored proc~reserve->interface~vkf_line_create_colored interface~vkf_marker_create vkf_marker_create proc~reserve->interface~vkf_marker_create interface~vkf_node_add_child vkf_node_add_child proc~reserve->interface~vkf_node_add_child interface~vkf_ribbon_create vkf_ribbon_create proc~reserve->interface~vkf_ribbon_create proc~apply_style apply_style proc~reserve->proc~apply_style proc~line_set_segments line_set_segments proc~reserve->proc~line_set_segments proc~move_chunks move_chunks proc~reserve->proc~move_chunks proc~tail_ends->proc~decreasing_times proc~trace_range->proc~decreasing_times num_colors num_colors proc~uses_colors->num_colors proc~apply_style->proc~check_status interface~vkf_line_set_dash_mode vkf_line_set_dash_mode proc~apply_style->interface~vkf_line_set_dash_mode interface~vkf_line_set_highlight vkf_line_set_highlight proc~apply_style->interface~vkf_line_set_highlight interface~vkf_line_set_trail vkf_line_set_trail proc~apply_style->interface~vkf_line_set_trail proc~line_set_pattern line_set_pattern proc~apply_style->proc~line_set_pattern proc~line_set_style line_set_style proc~apply_style->proc~line_set_style proc~marker_set_style marker_set_style proc~apply_style->proc~marker_set_style interface~vkf_line_style vkf_line_style proc~line_set_segments->interface~vkf_line_style interface~vkf_line_style_changed vkf_line_style_changed proc~line_set_segments->interface~vkf_line_style_changed proc~motion_key ReferenceFrame%motion_key proc~motion_changed->proc~motion_key proc~same_pointer same_pointer proc~motion_changed->proc~same_pointer proc~transformed transformed proc~motion_changed->proc~transformed interface~vkf_node_delete vkf_node_delete proc~release~2->interface~vkf_node_delete proc~line_set_pattern->interface~vkf_line_style proc~line_set_pattern->interface~vkf_line_style_changed proc~line_set_style->interface~vkf_line_style proc~line_set_style->interface~vkf_line_style_changed proc~marker_set_style->interface~vkf_line_style proc~marker_set_style->interface~vkf_line_style_changed proc~motion_key->proc~motion_key proc~data_revision TrajectoryFollower%data_revision proc~motion_key->proc~data_revision proc~motion_stamp TrajectoryFollower%motion_stamp proc~motion_key->proc~motion_stamp proc~data_revision->proc~generation proc~data_revision->proc~revision~2

Source Code

    subroutine curve_update(self, t)
        class(CurveArtist), intent(inout) :: self
        real(wp), intent(in) :: t                           !! the current time
        logical :: changed
        if (.not. write_changed(self, changed)) return
        if (self%trail_%on) then                           ! a trail: the window about time t
            if (.not. changed .and. t == self%tail_time) return
            call draw_trail(self, t)
            self%tail_time = t
            return
        end if
        call draw_written(self, t, changed)
    end subroutine curve_update