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.
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. |
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(:::).
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.
reduce_domain, disp_region, set_colored, set_line_width, set_draw, set_insert
rectangle1, draw_circle, draw_ellipse, set_insert