Draw a point.
::draw_point returns the parameter for a point, which has been created interactively by the user in the window.
To create a point you have to press the left mouse button. While keeping the button pressed you may ``drag'' the point in any direction. Pressing the right mousebutton terminates the procedure.
After terminating the procedure the point is not visible in the window any longer.
|
WindowHandle (input_control) |
window -> HTuple.long |
| Window_id. | |
|
Row (output_control) |
point.y -> double * |
| Row index of the point. | |
|
Column (output_control) |
point.x -> double * |
| Column index of the point. | |
get_system("width",Width) ;
get_system("height",Height) ;
set_part(WindowHandle,0,0,Width-1,Height-1) ;
read_image(&Image,"affe") ;
disp_image(Image,WindowHandle) ;
draw_point(WindowHandle,&Row1,&Column1) ;
disp_line(WindowHandle,Row1-2,Column1,Row1+2,Column1) ;
disp_line(WindowHandle,Row1,Column1-2,Row1,Column1+2) ;
disp_image(Image,WindowHandle) ;
fwrite_string("Clipping = (") ;
fwrite_string(Row1) ;
fwrite_string(",") ;
fwrite_string(Column1) ;
fwrite_string("),(") ;
fnew_line(:::) ;
::draw_point returns H_MSG_TRUE, if the window is valid and the needed drawing mode is available. If necessary, an exception handling is raised.
::reduce_domain, ::disp_line, ::set_colored, ::set_line_width, ::set_draw, ::set_insert
::draw_point_mod, ::draw_circle, ::draw_ellipse, ::set_insert
System
