init Subroutine

private subroutine init(self, group, kind, image, colored)

Draw under group (a CHAIN_* kind; markers with image, a vkf_image_read handle, for the image shape). Chunks made later are compiled once set_compile says so.

Type Bound

LineChain

Arguments

Type IntentOptional Attributes Name
class(LineChain), intent(inout) :: self
type(c_ptr), intent(in) :: group

the group node to draw under
integer, intent(in) :: kind

a CHAIN_* constant
type(c_ptr), intent(in), optional :: image

(markers: a vkf_image_read handle)
logical, intent(in), optional :: colored

(lines, markers: a color per point (color_slice))

Called by

proc~~init~~CalledByGraph proc~init LineChain%init proc~build_marker_nodes build_marker_nodes proc~build_marker_nodes->proc~init proc~chain_init ChainArtist%chain_init proc~chain_init->proc~init proc~segment_build SegmentArtist%segment_build proc~segment_build->proc~init proc~segments_build_contents CustomLineSegments%segments_build_contents proc~segments_build_contents->proc~init proc~chain_build ChainArtist%chain_build proc~chain_build->proc~chain_init proc~curve_init_chain CurveArtist%curve_init_chain proc~curve_init_chain->proc~chain_init proc~marker_build MarkerArtist%marker_build proc~marker_build->proc~build_marker_nodes proc~rebuild_markers rebuild_markers proc~rebuild_markers->proc~build_marker_nodes proc~write_changed write_changed proc~write_changed->proc~chain_init proc~chain_update ChainArtist%chain_update proc~chain_update->proc~write_changed proc~curve_update CurveArtist%curve_update proc~curve_update->proc~write_changed 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~rebuild_markers proc~set_marker_image MarkerArtist%set_marker_image proc~set_marker_image->proc~rebuild_markers

Source Code

    subroutine init(self, group, kind, image, colored)
        class(LineChain), intent(inout) :: self
        type(c_ptr), intent(in) :: group                !! the group node to draw under
        integer, intent(in) :: kind                     !! a CHAIN_* constant
        type(c_ptr), intent(in), optional :: image      !! (markers: a vkf_image_read handle)
        logical, intent(in), optional :: colored       !! (lines, markers: a color per point (color_slice))
        self%group = group
        self%kind = kind
        self%compile_new = .false.
        self%image = c_null_ptr
        if (present(image)) self%image = image
        self%colored = .false.
        if (present(colored)) self%colored = colored
    end subroutine init