draw_rectangle1 ( : : : Row1, Column1, Row2, Column2 )

Drawing of a rectangle parallel to the coordinate axis.

draw_rectangle1 returns the parameter for a rectangle parallel to the coordinate axes, which has been created interactively by the user in the current window.

To create a rectangle you have to press the left mouse button determining a corner of the rectangle. While keeping the button pressed you may "drag" the rectangle in any direction. After another mouse click in the middle of the created rectangle you may move it at will. A click close to one side "grips" it to modify the rectangle's dimension in perpendicular direction to this side. If you click on one corner of the created rectangle, you may move this corner. Pressing the right mousebutton terminates the procedure.

After terminating the procedure the rectangle is not visible in the window any longer.


Parameters

Row1 (output_control)
rectangle.origin.y -> integer
Row index of the left upper corner.

Column1 (output_control)
rectangle.origin.x -> integer
Column index of the left upper corner.

Row2 (output_control)
rectangle.corner.y -> integer
Row index of the right lower corner.

Column2 (output_control)
rectangle.corner.x -> integer
Column index of the right lower corner.


Example
get_system(::'width':Width) >
get_system(::'height':Height) >
set_part(::0,0,Width-1,Height-1) >
read_image(:Image:'affe':) >
disp_image(Image:::) >
draw_rectangle1(:::Row1,Column1,Row2,Column2) >
set_part(::Row1,Column1,Row2,Column2:) >
disp_image(Image:::) >
fwrite_string(::['Clipping = (',Row1,',',Column1,')']:) >
fwrite_string(::[',(',Row2,',',Column2,')']:) >
fnew_line(:::).

Result

draw_rectangle1 returns TRUE, if a window is activated and if the needed drawing mode (see set_insert) is available. If necessary an exception is raised.


Possible Predecessors

open_window, set_window


Possible Successors

reduce_domain, disp_region, set_colored, set_line_width, set_draw, set_insert


Alternatives

draw_rectangle2, draw_region


See also

rectangle1, draw_circle, draw_ellipse, set_insert



Copyright © 1996-1997 MVTec Software GmbH