apply_style Subroutine

private subroutine apply_style(self, line)

Give the chain's style (color, width or size, pattern, highlight, marker shape) to the node line.

Arguments

Type IntentOptional Attributes Name
type(LineChain), intent(in) :: self
type(c_ptr), intent(in) :: line

line or marker node

Calls

proc~~apply_style~~CallsGraph proc~apply_style apply_style 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~check_status check_status proc~apply_style->proc~check_status 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_pattern->interface~vkf_line_style interface~vkf_line_style_changed vkf_line_style_changed 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

Called by

proc~~apply_style~~CalledByGraph proc~apply_style apply_style proc~reserve LineChain%reserve proc~reserve->proc~apply_style proc~set_dash_mode LineChain%set_dash_mode proc~set_dash_mode->proc~apply_style proc~set_highlight LineChain%set_highlight proc~set_highlight->proc~apply_style proc~set_marker_style LineChain%set_marker_style proc~set_marker_style->proc~apply_style proc~set_pattern LineChain%set_pattern proc~set_pattern->proc~apply_style proc~set_style LineChain%set_style proc~set_style->proc~apply_style proc~style_node LineChain%style_node proc~style_node->proc~apply_style proc~apply_highlight apply_highlight proc~apply_highlight->proc~set_highlight proc~apply_style~2 apply_style proc~apply_style~2->proc~set_pattern proc~apply_style~2->proc~set_style proc~build_marker_nodes build_marker_nodes proc~build_marker_nodes->proc~reserve proc~marker_style marker_style proc~build_marker_nodes->proc~marker_style proc~chain_build ChainArtist%chain_build proc~chain_build->proc~reserve proc~marker_style->proc~set_marker_style proc~segment_build SegmentArtist%segment_build proc~segment_build->proc~reserve proc~segment_build->proc~set_pattern proc~segment_build->proc~set_style proc~segment_set_color SegmentArtist%segment_set_color proc~segment_set_color->proc~set_style proc~segment_set_dash_mode SegmentArtist%segment_set_dash_mode proc~segment_set_dash_mode->proc~set_dash_mode proc~segment_set_pattern SegmentArtist%segment_set_pattern proc~segment_set_pattern->proc~set_pattern proc~segment_set_width SegmentArtist%segment_set_width proc~segment_set_width->proc~set_style proc~segment_update SegmentArtist%segment_update proc~segment_update->proc~reserve proc~segments_build_contents CustomLineSegments%segments_build_contents proc~segments_build_contents->proc~reserve proc~segments_build_contents->proc~apply_style~2 proc~write_changed write_changed proc~write_changed->proc~reserve proc~write_intermediates write_intermediates proc~write_intermediates->proc~reserve proc~write_segments~2 write_segments proc~write_segments~2->proc~reserve proc~add_intermediates add_intermediates proc~add_intermediates->proc~write_intermediates proc~chain_update ChainArtist%chain_update proc~chain_update->proc~write_changed proc~curve_style CurveArtist%curve_style proc~curve_style->proc~apply_highlight proc~curve_update CurveArtist%curve_update proc~curve_update->proc~write_changed proc~marker_build MarkerArtist%marker_build proc~marker_build->proc~build_marker_nodes proc~new_segment_artist new_segment_artist proc~new_segment_artist->proc~segment_set_color proc~rebuild_markers rebuild_markers proc~rebuild_markers->proc~build_marker_nodes proc~segment_set_highlight SegmentArtist%segment_set_highlight proc~segment_set_highlight->proc~apply_highlight proc~segments_late_update CustomLineSegments%segments_late_update proc~segments_late_update->proc~write_segments~2 proc~set_auto_attenuate MarkerArtist%set_auto_attenuate proc~set_auto_attenuate->proc~marker_style proc~set_line_width CustomLineSegments%set_line_width proc~set_line_width->proc~apply_style~2 proc~set_marker_color MarkerArtist%set_marker_color proc~set_marker_color->proc~marker_style proc~set_marker_shape~2 MarkerArtist%set_marker_shape proc~set_marker_shape~2->proc~marker_style proc~set_marker_size~2 MarkerArtist%set_marker_size proc~set_marker_size~2->proc~marker_style proc~set_pattern~2 CustomLineSegments%set_pattern proc~set_pattern~2->proc~apply_style~2 proc~update_bounds update_bounds proc~update_bounds->proc~marker_style interface~segmentartist SegmentArtist interface~segmentartist->proc~new_segment_artist proc~curve_set_color CurveArtist%curve_set_color proc~curve_set_color->proc~curve_style proc~curve_set_highlight CurveArtist%curve_set_highlight proc~curve_set_highlight->proc~curve_style proc~curve_set_pattern CurveArtist%curve_set_pattern proc~curve_set_pattern->proc~curve_style proc~curve_set_width CurveArtist%curve_set_width proc~curve_set_width->proc~curve_style proc~marker_set_point_colors MarkerArtist%marker_set_point_colors proc~marker_set_point_colors->proc~rebuild_markers proc~marker_update MarkerArtist%marker_update proc~marker_update->proc~add_intermediates proc~marker_update->proc~rebuild_markers proc~marker_update->proc~update_bounds proc~new_marker_artist new_marker_artist proc~new_marker_artist->proc~set_marker_color proc~set_marker_image MarkerArtist%set_marker_image proc~set_marker_image->proc~rebuild_markers interface~markerartist MarkerArtist interface~markerartist->proc~new_marker_artist proc~new_curve_artist new_curve_artist proc~new_curve_artist->proc~curve_set_color interface~curveartist CurveArtist interface~curveartist->proc~new_curve_artist

Source Code

    subroutine apply_style(self, line)
        type(LineChain), intent(in) :: self
        type(c_ptr), intent(in) :: line         !! line or marker node
        if (self%kind == CHAIN_MARKERS) then
            call check_status(marker_set_style(line, self%color, self%width, self%shape, self%radius), 'trajectory artists')
        else
            call check_status(line_set_style(line, self%color, self%width), 'trajectory artists')
            call check_status(line_set_pattern(line, self%pattern_factor, self%pattern), 'trajectory artists')
            if (self%kind /= CHAIN_RIBBON) &
                call check_status(vkf_line_set_highlight(line, self%highlight), 'trajectory artists')
            if (self%kind == CHAIN_STRIP) call check_status(vkf_line_set_trail(line, self%trail), 'trajectory artists')
            if (self%kind /= CHAIN_RIBBON) call check_status(vkf_line_set_dash_mode(line, &
                                                             int(self%dash_mode, c_int), real(self%dash_length, c_double)), &
                                                             'trajectory artists')
        end if
    end subroutine apply_style