drag_region1 — Interactive moving of a region.
drag_region1 is used to move a region on the display by mouse. Calling drag_region1 turns the region visible as soon as the left mouse button is pressed. Therefore the region's edges are displayed only. As representation mode the mode 'not' (see set_draw) is used during procedure's permanence. During the movement the cursor resides in the region's barycenter. If you move the mouse with pressed left mouse button, the depicted region follows - delayed - this movement. If you press the right mouse button you terminate drag_region1. On OS X drag_region1 can also be terminated by pressing the escape key. The depicted region disappears from the display. Output is a region which corresponds to the last position on the display. You may pass even several regions at once. The operator affine_trans_image moves the gray values.
Gray values of regions are not moved. With moving the input region it is not sure whether the gray values of the output regions are filled reasonable. This may occur if the gray values of the input regions do not comprise the whole image.
Regions to move.
draw_region(Obj,WindowHandle) dev_set_color ('green') drag_region1(Obj,New,WindowHandle) dev_display(New) get_region_runs (Obj, Rows1, ColumnBegins1, ColumnEnds1) get_region_runs (New, Rows2, ColumnBegins2, ColumnEnds2) Row1 := Rows1 Column1 := ColumnBegins1 Row2 := Rows2 Column2 := ColumnBegins2 dev_set_color ('white') gen_arrow_contour_xld (Arrow, Row1,Column1,Row2,Column2, 5, 5) dev_display (Arrow)
drag_region1 returns 2 (H_MSG_TRUE), if a region is entered, the window is valid and the needed drawing mode (see set_insert) is available. If necessary, an exception is raised. You may determine the behavior after an empty input with set_system(::'no_object_result',<Result>:).
reduce_domain, disp_region, set_colored, set_line_width, set_draw, set_insert
set_insert, set_draw, affine_trans_image