Measurement fitting based on Halcon learning [4] measure_ arc. Hdev routine

This routine is measuring arcs

  Read the picture ：

* Read the picture 
read_image (Zeiss1, 'zeiss1')
* Get the width and height of the picture 
get_image_size (Zeiss1, Width, Height)

* close window 
dev_close_window ()
* Open a new window 
dev_open_window (0, 0, Width / 2, Height / 2, 'black', WindowHandle)
* Set the font displayed 
set_display_font (WindowHandle, 14, 'mono', 'true', 'false')

* display picture 
dev_display (Zeiss1)
* Display prompt message 
disp_continue_message (WindowHandle, 'black', 'true')
stop ()

Generate measuring arc ： 

* Define some parameters 
*  Center of arc 
Row := 275
Column := 335
*  Arc radius 
Radius := 107

*  Start angle and end angle of arc 
AngleStart := -rad(55)
AngleExtent := rad(170)
dev_set_draw ('fill')
dev_set_color ('green')
dev_set_line_width (1)

* Calculate the ellipse point corresponding to a specific angle .
get_points_ellipse (AngleStart + AngleExtent, Row, Column, 0, Radius, Radius, RowPoint, ColPoint)
* Show arcs 
disp_arc (WindowHandle, Row, Column, AngleExtent, RowPoint, ColPoint)

dev_set_line_width (3)
* Generate measuring arc 
gen_measure_arc (Row, Column, Radius, AngleStart, AngleExtent, 10, Width, Height, 'nearest_neighbor', MeasureHandle)

* Display prompt message 
disp_continue_message (WindowHandle, 'black', 'true')
stop ()

  Start measuring fit ：

* Count 
count_seconds (Seconds1)
n := 10
for i := 1 to n by 1
    * Start measuring the distance between the edges 
    *  Extract straight edges perpendicular to rectangular or circular arcs 
    * Image (input_object)   The input image 
    * MeasureHandle (input_control)   Measure object handle 
    * Sigma (input_control)   Gaussian smoothing coefficient 
    * Threshold (input_control)   Minimum margin amplitude 
    * Transition (input_control)  Detect all positive and negative edges 
    * Select (input_control)   Select all edges 
    * RowEdge (output_control)   Edge center row coordinates 
    * ColumnEdge (output_control)   Edge center column coordinates 
    * Amplitude (output_control)   The edge amplitude of the edge （ Signed ）
    * Distance (output_control)   The distance between adjacent edges 
    measure_pos (Zeiss1, MeasureHandle, 1, 10, 'all', 'all', RowEdge, ColumnEdge, Amplitude, Distance)

endfor
count_seconds (Seconds2)
Time := (Seconds2 - Seconds1) / n

* Display prompt message 
disp_continue_message (WindowHandle, 'black', 'true')
* stop ()

* Calculate the distance of a straight line between two points 
distance_pp (RowEdge[1], ColumnEdge[1], RowEdge[2], ColumnEdge[2], IntermedDist)
dev_set_color ('red')

* Draw a straight line 
disp_line (WindowHandle, RowEdge[1], ColumnEdge[1], RowEdge[2], ColumnEdge[2])
dev_set_color ('yellow')

* Display prompt message 
disp_message (WindowHandle, 'Distance: ' + IntermedDist, 'image', 250, 80, 'yellow', 'false')

* Clear handle 
close_measure (MeasureHandle)
dev_set_line_width (1)
stop ()
dev_clear_window ()