DragHandle Derived Type

type, public, abstract, extends(ReferenceFrame) :: DragHandle

A handle the mouse drags (see the module documentation): extensions give its point and draw it.


Inherits

type~~draghandle~~InheritsGraph type~draghandle DragHandle type~referenceframe ReferenceFrame type~draghandle->type~referenceframe type~referenceframe->type~referenceframe follow_frame_ c_ptr c_ptr type~referenceframe->c_ptr light_node, light_switch, node_, contents_node, axis_node, axis_label_node, axis_arrow, axis_text, name_label_node, name_text type~framepointer FramePointer type~referenceframe->type~framepointer children, parents type~trajectoryfollower TrajectoryFollower type~referenceframe->type~trajectoryfollower follower_ type~framepointer->type~referenceframe p type~datasource DataSource type~trajectoryfollower->type~datasource sources_ type~trajectorypointer TrajectoryPointer type~trajectoryfollower->type~trajectorypointer trajs type~trajectory Trajectory type~trajectorypointer->type~trajectory p

Inherited by

type~~draghandle~~InheritedByGraph type~draghandle DragHandle type~timehandle TimeHandle type~timehandle->type~draghandle type~vectorhandle VectorHandle type~vectorhandle->type~draghandle type~windowproxy WindowProxy type~windowproxy->type~draghandle hovered_handle, dragged_handle

Components

Type Visibility Attributes Name Initial
real(kind=wp), private :: axis_(3) = [0.0_wp, 0.0_wp, 1.0_wp]

the plane's normal or the line's direction (frame coordinates)

integer, private :: constraint_ = HANDLE_FREE

HANDLE_*

logical, private :: draggable_ = .true.

the mouse may grab it

logical, private :: dragged_ = .false.

grabbed, until released

logical, private :: far_side = .false.

(HANDLE_SPHERE) grabbed on the far side

logical, private :: hovered_ = .false.

under the cursor

real(kind=wp), private :: offset(3) = 0.0_wp

the point's offset from the cursor's

integer, private :: priority_ = 0

over other handles on the same spot (higher first)

real(kind=wp), private :: radius = 0.0_wp

(HANDLE_SPHERE) the sphere's radius

real(kind=wp), private :: ref_axis(3) = 0.0_wp

the plane's normal or the line's direction then

real(kind=wp), private :: ref_point(3) = 0.0_wp

the point when grabbed


Type-Bound Procedures

procedure, public :: add_child

  • private function add_child(self, child) result(ok)

    Add child to this frame's children. Returns false (and does nothing) for this frame itself or an ancestor of it; true if it is already a child.

    Read more…

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout), target :: self
    class(ReferenceFrame), intent(inout), target :: child

    the frame to add (not owned)

    Return Value logical

procedure, public :: attitude

  • private pure function attitude(self) result(q)

    Attitude relative to the parent frame, a quaternion [x, y, z, w].

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

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

procedure, public :: axes_labels_shown

procedure, public :: axes_shown

  • private pure function axes_shown(self)

    Which axes vectors are shown (NO_AXES, or X_AXIS, Y_AXIS, Z_AXIS combined).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

    Return Value integer

procedure, public :: axis_label

  • private function axis_label(self, axis) result(text)

    The label text of axis X_AXIS, Y_AXIS or Z_AXIS.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self
    integer, intent(in) :: axis

    X_AXIS, Y_AXIS or Z_AXIS (else: '')

    Return Value character(len=:), allocatable

procedure, public :: bound

  • private subroutine bound(self, center, radius)

    The bounding sphere of what the frame draws, in its own coordinates (radius 0 if it draws nothing; extensions override it). Views use it for their default distance.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self
    real(kind=wp), intent(out) :: center(3)

    frame's coordinates

    real(kind=wp), intent(out) :: radius

    frame's coordinates

procedure, public :: build_contents

  • private subroutine build_contents(self, viewer, group)

    Add what this frame draws to group (a node handle). ReferenceFrame draws nothing itself (its axes and labels come later); extensions such as Sphere and Model override this.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    type(c_ptr), intent(in) :: viewer

    (viewer: as realize's)

    type(c_ptr), intent(in) :: group

    (viewer: as realize's)

procedure, public :: child

  • private function child(self, i) result(c)

    Child i (1 to num_children).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self
    integer, intent(in) :: i

    1 to num_children

    Return Value class(ReferenceFrame), pointer

procedure, public :: child_index

  • private function child_index(self, frame)

    Index of frame among the children, or 0.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self
    class(ReferenceFrame), intent(in), target :: frame

    the frame to find

    Return Value integer

procedure, public :: color

  • private pure function color(self) result(c)

    The color of the frame's decorations, [r, g, b, a] (0 to 1).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

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

procedure, public :: constraint

  • private pure function constraint(self)

    The handle's constraint (HANDLE_*).

    Arguments

    Type IntentOptional Attributes Name
    class(DragHandle), intent(in) :: self

    Return Value integer

procedure, public :: constraint_axis

  • private pure function constraint_axis(self) result(axis)

    The constraint's normal or direction (unit vector, frame coordinates).

    Arguments

    Type IntentOptional Attributes Name
    class(DragHandle), intent(in) :: self

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

procedure, public :: contents_shown

  • private pure function contents_shown(self)

    Whether what the frame draws is shown (show_contents).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

    Return Value logical

procedure, public :: detach

  • private subroutine detach(self)

    Remove this frame from all its parents and children (before it goes out of scope or is deallocated while in a tree).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout), target :: self

procedure, public :: drag

  • private function drag(self, origin, dir) result(moved)

    Drag the grabbed handle to the cursor's ray (origin, unit dir; root frame), held to its constraint. False (and not moved) if it isn't grabbed or the ray doesn't meet the constraint.

    Arguments

    Type IntentOptional Attributes Name
    class(DragHandle), intent(inout) :: self
    real(kind=wp), intent(in) :: origin(3)

    the cursor's ray (root frame)

    real(kind=wp), intent(in) :: dir(3)

    the cursor's ray (root frame)

    Return Value logical

procedure, public :: draggable

  • private pure function draggable(self)

    Whether the mouse may grab the handle.

    Arguments

    Type IntentOptional Attributes Name
    class(DragHandle), intent(in) :: self

    Return Value logical

procedure, public :: dragged

  • private pure function dragged(self)

    The handle is grabbed (until released).

    Arguments

    Type IntentOptional Attributes Name
    class(DragHandle), intent(in) :: self

    Return Value logical

procedure, public :: follow

  • private subroutine follow(self, traj, data, mode, add, data_frame)

    Follow traj (in addition to trajectories already followed, if add is true), with what to follow (data: FOLLOW_POSITION and/or FOLLOW_ATTITUDE; default both) and how (mode: FOLLOW_LOOP, the default, or FOLLOW_LIMIT). traj must stay alive while followed.

    Read more…

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    type(Trajectory), intent(in), target :: traj

    the trajectory to follow (not owned)

    integer, intent(in), optional :: data

    FOLLOW_POSITION/FOLLOW_ATTITUDE; FOLLOW_LOOP/FOLLOW_LIMIT

    integer, intent(in), optional :: mode

    FOLLOW_POSITION/FOLLOW_ATTITUDE; FOLLOW_LOOP/FOLLOW_LIMIT

    logical, intent(in), optional :: add

    (true: in addition to those followed (default false))

    class(ReferenceFrame), intent(in), optional, target :: data_frame

    the frame the data are in (default: the parent)

procedure, public :: follow_frame

  • private function follow_frame(self) result(f)

    The frame the followed data are in (follow's data_frame; null: the parent).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

    Return Value class(ReferenceFrame), pointer

procedure, public :: follower

  • private function follower(self) result(f)

    The frame's trajectory follower, for finer control (data sources, time offset, ...).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in), target :: self

    Return Value type(TrajectoryFollower), pointer

procedure, public :: frame_info

  • private function frame_info(self) result(info)

    What kind of frame this is (shown by frame_string; extensions override it).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

    Return Value character(len=:), allocatable

procedure, public :: frame_string

  • private recursive function frame_string(self, prefix) result(str)

    The tree below this frame, one line per frame ("name (info)"), in OpenFrames' createFrameString format: children are prefixed "|-->".

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self
    character(len=*), intent(in), optional :: prefix

    before this frame's line (default ' ')

    Return Value character(len=:), allocatable

procedure, public :: grab

  • private function grab(self, origin, dir) result(ok)

    Grab the handle with the cursor's ray (origin, unit dir; root frame): its constraint is taken as it is now, and the point's offset from where the ray meets it. False if it isn't draggable.

    Arguments

    Type IntentOptional Attributes Name
    class(DragHandle), intent(inout) :: self
    real(kind=wp), intent(in) :: origin(3)

    the cursor's ray (root frame)

    real(kind=wp), intent(in) :: dir(3)

    the cursor's ray (root frame)

    Return Value logical

procedure(handle_point_interface), public, deferred :: handle_point

  • pure function handle_point_interface(self) result(p) Prototype

    The point the mouse grabs (frame coordinates).

    Arguments

    Type IntentOptional Attributes Name
    class(DragHandle), intent(in) :: self

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

procedure, public :: has_light_source

  • private recursive function has_light_source(self) result(has)

    Whether this frame or one of its descendants has a light source enabled.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

    Return Value logical

procedure, public :: hovered

  • private pure function hovered(self)

    The handle is under the cursor.

    Arguments

    Type IntentOptional Attributes Name
    class(DragHandle), intent(in) :: self

    Return Value logical

procedure, public :: is_following

  • private pure function is_following(self)

    Whether the frame follows trajectories (at least one, since follow).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

    Return Value logical

procedure, public :: label_alignment

  • private pure function label_alignment(self)

    The labels' alignment (ALIGN_*).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

    Return Value integer

procedure, public :: label_font

  • private function label_font(self) result(font)

    The labels' font as set ('' for the renderer's default).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

    Return Value character(len=:), allocatable

procedure, public :: label_size

  • private pure function label_size(self)

    The labels' size in pixels.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

    Return Value integer

procedure, public :: late_update

  • private recursive subroutine late_update(self, t)

    After the whole tree's update for time t (all frames at their positions for t): for contents that depend on other frames' positions, e.g. CustomLineSegments between spacecraft. Here, only the descendants'.

    Arguments

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

    simulation time

procedure, public :: light_ambient

  • private pure function light_ambient(self) result(rgb)

    The light source's ambient color [r, g, b].

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

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

procedure, public :: light_diffuse

  • private pure function light_diffuse(self) result(rgb)

    The light source's diffuse color [r, g, b].

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

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

procedure, public :: light_source_enabled

  • private pure function light_source_enabled(self)

    Whether this frame carries a light source.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

    Return Value logical

procedure, public :: light_specular

  • private pure function light_specular(self) result(rgb)

    The light source's specular color [r, g, b].

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

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

procedure, public :: local_matrix

  • private pure function local_matrix(self) result(m)

    The transform from this frame to its parent (4x4).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

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

procedure, public :: local_matrix_at

  • private recursive function local_matrix_at(self, t) result(m)

    The transform from this frame to its parent at simulation time t: its fixed position and attitude, with what it follows at time t (the followed trajectories' state then, in the parent's coordinates). The same as local_matrix after update at time t, for any t, without changing anything.

    Arguments

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

    simulation time

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

procedure, public :: motion_key

  • private recursive subroutine motion_key(self, stamp, data)

    What the frame's motion depends on, for drawings that depend on it to know when to redraw: stamp, the latest change of the motion of it and its ancestors (through first parents), and of the frames their followed data are in (poses set, parents changed, what is followed and how); and data, the followed trajectories' revisions summed. Either changes when the frame's motion over time changes.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self
    integer, intent(out) :: stamp

    the latest change; the followed data's revisions

    integer, intent(out) :: data

    the latest change; the followed data's revisions

procedure(move_handle_point_interface), public, deferred :: move_handle_point

  • subroutine move_handle_point_interface(self, p) Prototype

    Move the point to p (frame coordinates), and the drawing with it.

    Arguments

    Type IntentOptional Attributes Name
    class(DragHandle), intent(inout) :: self
    real(kind=wp), intent(in) :: p(3)

    the new point (frame coordinates)

procedure, public :: move_x_axis

  • private subroutine move_x_axis(self, base, length, head_ratio, body_radius, head_radius)

    Place the x axis vector: from base, length long, with a head of head_ratio of the length (default 0.3) and body and head radii (default 0.05 and 0.1 of the length); its label is at the tip, 0.4 of the length tall (at most label_size pixels). As OpenFrames' moveXAxis. Set before the frame is first shown.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    real(kind=wp), intent(in) :: base(3)

    (base: frame's coordinates)

    real(kind=wp), intent(in) :: length

    (base: frame's coordinates)

    real(kind=wp), intent(in), optional :: head_ratio

    defaults: 0.3; 0.05 and 0.1 of the length

    real(kind=wp), intent(in), optional :: body_radius

    defaults: 0.3; 0.05 and 0.1 of the length

    real(kind=wp), intent(in), optional :: head_radius

    defaults: 0.3; 0.05 and 0.1 of the length

procedure, public :: move_y_axis

  • private subroutine move_y_axis(self, base, length, head_ratio, body_radius, head_radius)

    Place the y axis vector (as move_x_axis; OpenFrames' moveYAxis).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    real(kind=wp), intent(in) :: base(3)

    (base: frame's coordinates)

    real(kind=wp), intent(in) :: length

    (base: frame's coordinates)

    real(kind=wp), intent(in), optional :: head_ratio

    defaults: 0.3; 0.05 and 0.1 of the length

    real(kind=wp), intent(in), optional :: body_radius

    defaults: 0.3; 0.05 and 0.1 of the length

    real(kind=wp), intent(in), optional :: head_radius

    defaults: 0.3; 0.05 and 0.1 of the length

procedure, public :: move_z_axis

  • private subroutine move_z_axis(self, base, length, head_ratio, body_radius, head_radius)

    Place the z axis vector (as move_x_axis; OpenFrames' moveZAxis).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    real(kind=wp), intent(in) :: base(3)

    (base: frame's coordinates)

    real(kind=wp), intent(in) :: length

    (base: frame's coordinates)

    real(kind=wp), intent(in), optional :: head_ratio

    defaults: 0.3; 0.05 and 0.1 of the length

    real(kind=wp), intent(in), optional :: body_radius

    defaults: 0.3; 0.05 and 0.1 of the length

    real(kind=wp), intent(in), optional :: head_radius

    defaults: 0.3; 0.05 and 0.1 of the length

procedure, public :: name

  • private function name(self) result(n)

    The frame's name ('' if none).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

    Return Value character(len=:), allocatable

procedure, public :: name_label_on_top

procedure, public :: name_label_shown

  • private pure function name_label_shown(self)

    Whether the name label is shown.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

    Return Value logical

procedure, public :: node

  • private function node(self) result(n)

    The frame's transform node (null until realized).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

    Return Value type(c_ptr)

procedure, public :: num_children

  • private pure function num_children(self)

    Number of children.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

    Return Value integer

procedure, public :: num_parents

  • private pure function num_parents(self)

    Number of parents.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

    Return Value integer

procedure, public :: parent

  • private function parent(self, i) result(p)

    Parent i (1 to num_parents).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self
    integer, intent(in) :: i

    1 to num_parents

    Return Value class(ReferenceFrame), pointer

procedure, public :: parent_index

  • private function parent_index(self, frame)

    Index of frame among the parents, or 0.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self
    class(ReferenceFrame), intent(in), target :: frame

    the frame to find

    Return Value integer

procedure, public :: pick

  • private subroutine pick(self, cam, to_root, hits, n)

    Pick what the frame draws (see the module documentation): to_root is its transform to the root frame; hits are added to hits(1:n). A plain frame: its origin, if it shows axes or its name label.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in), target :: self
    type(PickCamera), intent(in) :: cam

    the cursor's ray and the pick's settings

    real(kind=wp), intent(in) :: to_root(4,4)

    the frame's transform to the root frame

    type(PickHit), intent(inout), allocatable :: hits(:)

    hits so far (grown as needed)

    integer, intent(inout) :: n

    number of hits in hits

procedure, public :: pickable

  • private pure function pickable(self)

    Whether pick tests what this frame draws (set_pickable).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

    Return Value logical

procedure, public :: position

  • private pure function position(self) result(p)

    Position relative to the parent frame.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

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

procedure, public :: position_of

  • private function position_of(self, other) result(p)

    The origin of other (a frame of the same tree) in this frame's coordinates, from both frames' transforms to the root (through their first parents).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

    (other: a frame of the same tree)

    class(ReferenceFrame), intent(in) :: other

    (other: a frame of the same tree)

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

procedure, public :: priority

  • private pure function priority(self)

    The handle's priority over others on the same spot.

    Arguments

    Type IntentOptional Attributes Name
    class(DragHandle), intent(in) :: self

    Return Value integer

procedure, public :: realize

  • private recursive subroutine realize(self, viewer)

    Create the render nodes of this frame and its descendants (once; for viewer, a window's viewer handle, which some contents need while they are built (not kept); null: headless).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    type(c_ptr), intent(in) :: viewer

    a window's viewer handle (null: headless)

procedure, public :: release

  • private subroutine release(self)

    Let the handle go.

    Arguments

    Type IntentOptional Attributes Name
    class(DragHandle), intent(inout) :: self

procedure, public :: remove_child

  • private function remove_child(self, child) result(ok)

    Remove child from this frame's children. Returns false if it is not one.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout), target :: self
    class(ReferenceFrame), intent(inout), target :: child

    the child to remove

    Return Value logical

procedure, public :: reposition_axes

  • private subroutine reposition_axes(self)

    Place the axes for what the frame draws, when it is first shown (unless move_*_axis was called): at its bound's surface, half the bound's radius long (as OpenFrames' Sphere and Model do); at the origin, 1 long, for a frame that draws nothing.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self

procedure, public :: set_attitude

  • private subroutine set_attitude(self, q)

    Attitude relative to the parent frame, a quaternion [x, y, z, w] (normalized here; overridden by a followed trajectory).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    real(kind=wp), intent(in) :: q(4)

    attitude quaternion [x, y, z, w] (normalized here)

procedure, public :: set_color

  • private subroutine set_color(self, color)

    The color of the frame's decorations: [r, g, b] (alpha unchanged) or [r, g, b, a].

    Arguments

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

    [r, g, b] (alpha unchanged) or [r, g, b, a] (0 to 1)

procedure, public :: set_constraint

  • private subroutine set_constraint(self, constraint, axis)

    Where the handle can be dragged (HANDLE_*; see the module documentation), with axis: the plane's normal (HANDLE_PLANE) or the line's direction (HANDLE_LINE), in the frame's coordinates. Taken when the handle is next grabbed.

    Arguments

    Type IntentOptional Attributes Name
    class(DragHandle), intent(inout) :: self
    integer, intent(in) :: constraint

    HANDLE_*

    real(kind=wp), intent(in), optional :: axis(3)

    (frame coordinates; any length but 0)

procedure, public :: set_draggable

  • private subroutine set_draggable(self, draggable)

    Whether the mouse may grab the handle (default true).

    Arguments

    Type IntentOptional Attributes Name
    class(DragHandle), intent(inout) :: self
    logical, intent(in) :: draggable

    true: the mouse may grab it

procedure, public :: set_hovered

  • private subroutine set_hovered(self, hovered)

    The handle is under the cursor (set by the window), or not.

    Arguments

    Type IntentOptional Attributes Name
    class(DragHandle), intent(inout) :: self
    logical, intent(in) :: hovered

    true: under the cursor

procedure, public :: set_label_alignment

  • private subroutine set_label_alignment(self, alignment)

    The alignment of the labels relative to their positions (ALIGN_*; default ALIGN_LEFT_BASE_LINE).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    integer, intent(in) :: alignment

    ALIGN_* (default ALIGN_LEFT_BASE_LINE)

procedure, public :: set_label_font

  • private subroutine set_label_font(self, font)

    The font of the labels: a font file name (found on the data search path) or a full path; default: the renderer's default font.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    character(len=*), intent(in) :: font

    a font file name (on the data search path) or a full path

procedure, public :: set_label_size

  • private subroutine set_label_size(self, size)

    The size of the labels in pixels (default 20): the name label's size, and the maximum size of the axes labels (which shrink with distance).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    integer, intent(in) :: size

    pixels (default 20)

procedure, public :: set_light_ambient

  • private subroutine set_light_ambient(self, rgb)

    The light source's ambient, diffuse and specular colors ([r, g, b], 0 to 1; defaults 0.05, 0.8 and 0.05 gray).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    real(kind=wp), intent(in) :: rgb(3)

    ambient color [r, g, b] (0 to 1; default 0.05 gray)

procedure, public :: set_light_diffuse

  • private subroutine set_light_diffuse(self, rgb)

    The light source's diffuse color (see set_light_ambient).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    real(kind=wp), intent(in) :: rgb(3)

    diffuse color [r, g, b] (0 to 1; default 0.8 gray)

procedure, public :: set_light_source_enabled

  • private subroutine set_light_source_enabled(self, enable)

    Whether this frame carries a light source: a point light at its origin (e.g. the Sun), not dimmed with distance (default false; OpenFrames' setLightSourceEnabled). While any frame of a window's scene has one, the window's own light (WindowProxy%set_light_*) is off.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    logical, intent(in) :: enable

    (true: a point light at the frame's origin)

procedure, public :: set_light_specular

  • private subroutine set_light_specular(self, rgb)

    The light source's specular color (see set_light_ambient).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    real(kind=wp), intent(in) :: rgb(3)

    specular color [r, g, b] (0 to 1; default 0.05 gray)

procedure, public :: set_name

  • private subroutine set_name(self, name)

    The frame's name, shown by its name label (also once shown: e.g. a readout that follows the frame).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    character(len=*), intent(in) :: name

    the name (shown by the name label)

procedure, public :: set_name_label_on_top

  • private subroutine set_name_label_on_top(self, on_top)

    Draw the name label on top of the scene (true: not hidden by bodies in front of it, as HUD text; e.g. a readout) or depth-tested (false, the default, as OpenFrames').

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    logical, intent(in) :: on_top

    (true: drawn on top of the scene; false: depth-tested)

procedure, public :: set_pickable

  • private subroutine set_pickable(self, pickable)

    Whether pick tests what this frame draws (default true; e.g. false for an overlay such as a selection marker). Its children are picked or not by their own setting.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    logical, intent(in) :: pickable

    (true: tested by pick)

procedure, public :: set_position

  • private subroutine set_position(self, position)

    Position relative to the parent frame (overridden by a followed trajectory).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    real(kind=wp), intent(in) :: position(3)

    parent frame's coordinates

procedure, public :: set_priority

  • private subroutine set_priority(self, priority)

    The handle's priority over others on the same spot of the screen (higher first; default 0, a TimeHandle's 1; see the module documentation).

    Arguments

    Type IntentOptional Attributes Name
    class(DragHandle), intent(inout) :: self
    integer, intent(in) :: priority

    higher: hovered first

procedure, public :: set_x_label

  • private subroutine set_x_label(self, text)

    The text of the x-axis label (default 'X').

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    character(len=*), intent(in) :: text

    the x-axis label (default 'X')

procedure, public :: set_y_label

  • private subroutine set_y_label(self, text)

    The text of the y-axis label (default 'Y').

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    character(len=*), intent(in) :: text

    the y-axis label (default 'Y')

procedure, public :: set_z_label

  • private subroutine set_z_label(self, text)

    The text of the z-axis label (default 'Z').

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    character(len=*), intent(in) :: text

    the z-axis label (default 'Z')

procedure, public :: show_axes

  • private subroutine show_axes(self, axes)

    Which axes vectors to show: NO_AXES, or X_AXIS, Y_AXIS, Z_AXIS combined with ior.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    integer, intent(in) :: axes

    NO_AXES, or X_AXIS, Y_AXIS, Z_AXIS combined with ior

procedure, public :: show_axes_labels

  • private subroutine show_axes_labels(self, labels)

    Which axes labels to show (as show_axes).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    integer, intent(in) :: labels

    NO_AXES, or X_AXIS, Y_AXIS, Z_AXIS combined with ior

procedure, public :: show_contents

  • private subroutine show_contents(self, show)

    Show or hide what the frame draws (its sphere, model, ...), but not its axes, labels or children.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    logical, intent(in) :: show

    (true: shown)

procedure, public :: show_decorations

  • private subroutine show_decorations(self, show)

    Show (true) or hide all the frame's decorations at once: its axes, their labels and its name label (show_axes, show_axes_labels, show_name_label).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    logical, intent(in) :: show

    true: all axes, axes labels and the name label

procedure, public :: show_name_label

  • private subroutine show_name_label(self, show)

    Show or hide the name label (at the frame's origin; default shown).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self
    logical, intent(in) :: show

    (true: shown)

procedure(show_state_interface), public, deferred :: show_state

  • subroutine show_state_interface(self) Prototype

    Draw the handle as hovered, dragged or neither (hovered, dragged).

    Arguments

    Type IntentOptional Attributes Name
    class(DragHandle), intent(inout) :: self

procedure, public :: sync

  • private recursive subroutine sync(self)

    Copy the positions and attitudes of this frame and its descendants to their transform nodes (only those that changed since the last sync).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self

procedure, public :: unfollow

  • private subroutine unfollow(self)

    Stop following trajectories (the frame keeps its last position and attitude).

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(inout) :: self

procedure, public :: update

  • private recursive subroutine update(self, t)

    Update this frame and its descendants for simulation time t (followed trajectories set positions and attitudes).

    Arguments

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

    simulation time

procedure, public :: world_matrix

  • private recursive function world_matrix(self) result(m)

    The transform from this frame to the root of its tree, through the first parent at each level.

    Arguments

    Type IntentOptional Attributes Name
    class(ReferenceFrame), intent(in) :: self

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

procedure, public :: world_matrix_at

  • private recursive function world_matrix_at(self, t) result(m)

    The transform from this frame to the root of its tree at simulation time t (through the first parent at each level): each frame's local_matrix_at time t. The same as world_matrix after the tree's update at time t, for any t, without changing anything.

    Arguments

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

    simulation time

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

Source Code

    type, abstract, extends(ReferenceFrame), public :: DragHandle
        private
        logical :: draggable_ = .true.                      !! the mouse may grab it
        logical :: hovered_ = .false.                       !! under the cursor
        logical :: dragged_ = .false.                       !! grabbed, until released
        integer :: priority_ = 0                            !! over other handles on the same spot (higher first)
        integer :: constraint_ = HANDLE_FREE                !! HANDLE_*
        real(wp) :: axis_(3) = [0.0_wp, 0.0_wp, 1.0_wp]     !! the plane's normal or the line's direction (frame coordinates)
        ! the drag, from the grab (frame coordinates)
        real(wp) :: ref_point(3) = 0.0_wp                   !! the point when grabbed
        real(wp) :: ref_axis(3) = 0.0_wp                    !! the plane's normal or the line's direction then
        real(wp) :: radius = 0.0_wp                         !! (HANDLE_SPHERE) the sphere's radius
        logical :: far_side = .false.                       !! (HANDLE_SPHERE) grabbed on the far side
        real(wp) :: offset(3) = 0.0_wp                      !! the point's offset from the cursor's
    contains
        procedure :: set_draggable, draggable
        procedure :: set_constraint, constraint, constraint_axis
        procedure :: set_hovered, hovered, dragged
        procedure :: set_priority, priority
        procedure :: grab, drag, release
        procedure(handle_point_interface), deferred :: handle_point
        procedure(move_handle_point_interface), deferred :: move_handle_point
        procedure(show_state_interface), deferred :: show_state
    end type DragHandle