ZM-VS1200用户使用手册.doc

ZM-VS1200 Blob 3 ZM-VS1200 10 2

3

4

5

6

open_framegrabber( Template,1,1,0,0,0,0, default,1, default,-1, default, default, default,-1, -1,FGHandle)// Template while(1) 7

user_optical(in)// If(In)// grab_image(image,fghandle)// read_image(image. c:/templ ) // grab_image c:/templ c:/templ get_image_point1(image,point,type,width,height) // dev_close_window() dev_open_window(0,0, Width,Height, white,windowhandle) // dev_display(image) // rgb1_to_gray(image,grayimage) // rgb dev_set_color( red ) // dev_set_draw( margin ) // dev_set_line_width(1) // Row:=143 Column:=190 Phi:=0 Length1:=180 Length2:=10 gen_rectangle2(rectangle, Row,Column,Phi,Length1,Length2) // gen_measure_rectangle(rectangle,row, Column,Phi,Length1,Length2,Width,Height, nearest_nearest,measurehandle) gen_measure_pairs(grayimage,measurehandle,1,30, all, all,rowedgefirst,columnedgefirst, AmplitudeFirst,RowEdgeSecond,ColumnEdgeSecond,AmplitudeSecond,IntraDistance,Inter Distance)// Width:= IntraDistance set_tposition(windowhandle,2412) // write_string(windowhandle, Width: + Width) // wait_second(3) endif wait_second(0.01) endwhile us gen_measure_rectangle gen_measure_pairs 8

IntraDistance,InterDistance open_framegrabber( Template,1,1,0,0,0,0, default,1, default,-1, default, default, default, grab_image(image,fghandle) read_image(image, c:/temp1 ) -1,-1,FGHandle) get_image_pointer1(image,_,_,width,height) dev_colse_window() dev_open window(0,0,width,height, black,windowhandle) dev_display(image) rgb1_to_gray(image, Image) draw_rectangle2(windowhandle,row,column,phi,length1,length2) interpolation:= nearest_neighbor gen_measure_rectangle2(row,column,phi,length1,length2, Width,Height,Interpolation,MeasureHandle) Sigma:=2.5 Threshold:=10 Transition:= all Select:= all gen_measure_pairs(image,measurehandle,sigma,threshold, Transition, Selec,RowEdgeFirst, ColumnEdgeFirst,AmplitudeFirst,RowEdgeSecond,ColumnEdgeSecond, 9

AmplitudeSecond,IntraDistance,InterDistance) // // dev_set_draw( margin ) dev_set_color( red ) gen_rectangle2(rectangle, Row,Column,Phi,Length1,Length2) p_disp_dimensions(rowedgefirst,columnedgefirst,amplitudefirst,rowedgesecond,columned tuple_sum(intradistance,sum1) tuple_sum(interdistance,sum2) Sum:=Sum1+Sum2 gesecond, IntraDistance,InterDistance,Phi,Length2,WindowHandle) // set_tposition(windowhandle,row+20,column+20) dev_set_color( red ) write_string(windowhandle,sum$.3f ) close_measure(measurehandle) 1p_disp_dimension p_disp_edge_marker(rowedgefirst,columnedgefirst,phi,length, while,2,windowhandle) p_disp_edge_marker(rowedgesecond,columnedgesecond,phi,length, white,2, WindowHandle) Number:= RowEdgeFirst for i:=0 to Number-1 by 1 Text:=IntraDistance[i] p_disp_text_right_of_center(windowhandle,text$'.2f',rowedgefirst[i], ColumnEdgeFirst[i], endfor RowEdgeSecond[i],ColumnEdgeSecond[i], Phi, 2.0*Length) for i:=0 to Number-2 by 1 Text:=InterDistance[i] p_disp_text_left_of_center(windowhandle,text$'.2f',rowedgesecond[i], endfor ColumnEdgeSecod[i],RowEdgeFirst[i+1],ColumnEdgeFirst[i+1],Phi,2.0*Length) return() 2 p_disp_edge_marker NumRows:= Rows NumCols:= Cols Num:=min([NumRows,NumCols]) 10

for i:=0 to Num-1 by 1 Row:=Rows[i] Col:=Col[i] RowStart:= Row+Length*cos(Phi) RowEnd:= Row-Length*cos(Phi) ColStart:= Col+Length*sin(Phi) ColEnd:= Col-Length*sin(Phi) gen_contour_polygon_xld(marker, [RowStart,RowEnd], [ColStart,ColEnd]) dev_set_color(color) dev_set_line_width(linewidth) dev_display(marker) endfor return() 3 p_disp_text_left_of_center get_part(windowhandle,row1part,column1part,row2part,column2part) get_window_extents(windowhandle,rowwin,columnwin,widthwin,he ightwin) FactorRow := (1.0*((Row2Part-Row1Part)+1))/HeightWin FactorColumn: = (1.0*((Column2Part-Column1Part)+1))/WidthWin get_string_extents(windowhandle,text,ascent,descent,width,height) Width := Width*FactorColumn Height := Height*FactorRow RowCenter: = (RowFirst+RowSecond)/2.0 ColCenter := (ColFirst+ColSecond)/2.0 if (sin(phi)<0) endif Distance := -Distance RowPos: = RowCenter-Distance*cos(Phi)) ColPos ;= ColCenter-Distance*sin(Phi) RowText := RowPos-Height/2.0 ColText := ColPos-Width; set_tposition(windowhandle,rowtext,coltext); dev_set_color( black ) write_string(windowhandle,text) return() 4 p_disp_text_right_of_center get_part(windowhandle,row1part,column1part,row2part,column2part) get_window_extents(windowhandle,rowwin,columnwin,widthwin,heightwin) FactorRow : = 1.0*(Row2Part-Row1Part+1)/HeightWin 11

FactorColumn := 1.0*(Column2Part-Column1Part+1))/WidthWin get_string_extents(windowhandle,text,ascent,descent,width,height) Width := Width*FactorColumn Height := Height*FactorRow RowCenter = (RowFirst+RowSecond)/2.0 ColCenter := (ColFirst+ColSecond)/2.0 if (sin(phi)<0) Distance = -Distance; endfor RowPos: = RowCenter+Distance*cos(Phi) ColPos: = ColCenter+Distance*sin(Phi) RowText := RowPos-Height/2.0 ColText: = ColPos set_tposition(windowhandle,rowtext,coltext) write_string(windowhandle,text) return() 1cm 134.10+5.62+5.69 /2=139.751mm 13.975 1mm 12

13

open_framegrabber( Template,1,1,0,0,0,0, default,1, default,-1, default, default, default,-1, -1,FGHandle) grab_image(image,fghandle) read_image(image, c:/temp1 ) get_image_pointer(image,point,type,width,height) decompose3(image,imager,imageg,imageb,imagegray) rgb3_to_gray(imager,imageg,imageb,imagegray) //3 rgb dev_close_window() dev_open_window(0,0,width,height, white,windowhandle) dev_display(imagegray) dev_set_color( red ) dev_set_draw( margin ) dev_set_width(1) draw_rectangle2(windlehandle,row,column,phi, Length1, Length2) gen_rectangle2(rectangle,row,column,phi, Length1, Length2) gen_measure_rectangle2(row,column,phi,length1,length2,width,height, nearest_neighbor, MeasureHandle) measure_pairs(imagegray,measurehandle,1,30, all, all,rowedgefirst,columnedgefirst,amplit dev_set_color( blue ) Row1:=Row udefirst,rowedgesecond,columnedgesecond,amplitudesecond,intradistance, InterDistance) 14

Column1:=(ColumnEdgeFirst+ ColumnEdgeSecond)/2 Phi:=rad(-90) Length21:=40 Length22:=8 Leadlength:=[] for i:=1 to IntraDistance by 1 gen_rectangle2(rectangle,row1,column1[i-1],phi,length21,lenght22) gen_measure_rectangle2(row1,column1[i-1],phi,length21,lenght22,width,height, nearest_neighbor,measurehandle1) measuer_pos(measurehandle1,1,30, all, all,rowedge1,columnedge1,amplitude1,distance1) L:=sum(Distance1) // Set_tposition(WindowHandle,24+20*i,12) Write_string(Windowhandle,i+ leadlenght: Leadlength:=[Leadlength,L] Endfor +L) measure_pairs IntraDistance,InterDistance measuer_pos Distance1, L=sum(Distance1) Leadlength 15

open_framegrabber( Template,1,1,0,0,0,0, default,1, default,-1, default, default, default,-1, -1,FGHandle) grab_image(image,fghandle) read_image(image, c:/temp1 ) get_image_pointer1(image,pointer,type,width,height) dev_set_color( red ) dev_set_line_width(1) dev_set_draw( margin ) dev_close_window() dev_open_window(0,0,width,height, white,windowhandle) rgb1_to_gray(image,grayimage) threshold(grayimage,light,80,255) connection(light,connectedregions) select_shape(connectedregions,selectedreions, area, and,10,200) smallest_rectangle2(selectedregion,row,column,phi,length1,length2) area_center(selectedregions,area,row1,column1) dev_set_color( white ) dev_set_line_with(3) for i:=0 to Area -1 by 1 gen_rectangle2(rectangle,row[i],column[i],phi[i],length1[i],length2[i]) set_tposition(windowhandle,row1[i]+10,column[i]-10) write_string(windowhandle,area[i]) Endfer 16

threshold connection select_shape ConnectedRegions area_cente SelectedReions Area,Row1,Column1 17

init_hdevelop() open_framegrabber( Template,1,1,0,0,0,0, default,1, default,-1, default, default, default,-1, -1,FGHandle) grab_image(image,fghandle) read_image(image, c:/temp1 ) init_visualization(image,3, yellow,width,height,windowid)// edges_sub_pix(image,edges, lanser2,0.5,40,90)// dev_display(edges) stop() segment_contours_xld(edges,contoursplit, lines_circles,6,4,4)// sort_contours_xld(contourssplit,sortedcontours, upper_left, true, column )// dev_clear_windoe() dev_set_colored(12) dev_display(sortedcontours) stop() open_zoom_window(0,round(width/2),0,0,288,384,2,windowhandlezoom)// NumSegments:= SortedContours dev_display(image) NumCircles:=0 Numlines:=0 for i:=1 to NumSegments by 1 singlesegment:=sortedcontours[i] 18

endif get_contour_global_attrib_xld(singlesegment, cont_approx,attrib)// if(attrib=1)// Attrib=1 NumCircles:= NumCircles+1 fit_circle_contour_xld(singlesegment, atukey,-1,2,0,5,2,row,column,radius,startphi,endp hi,pointorder)// gen_ellipse_contour_xld(contellipse,row,coumn,0,radius,0,rad(360), positive,1.0)// dev_set_color( red ) dev_display(contellipse) set_tposition(windowhandlezoom,row-radius,column) write_string(windowhandlezoom, C +NumCircles) resulttest:= C +NumCircles+ :radius= +Radius else// Attrib=0 Numlines:=Numlines+1 fit_line_contour_xld(singlesegment,'tukey',-1,0,5,2,rowbegin,colbegin,rowend,colend,nr, Nc,Dist)// gen_contour_polygon_xld(line,[rowbegin,rowend],[colbegin,colend]) dev_set_color( yellow ) dev_display(line) distance_pp(rowbegin,colbegin,rowend,colend,length) set_tposition(windowhandlezoom,(rowbegin+rowend)/2-nr*10,(colbeigin+colend)/2) write_string(windowhandlezoom,'l' + NumLines) ResulText:= 'L' + NumLines + ': length = ' + Length set_tposition(windowhandlezoom,i*10,30) write_string(windowhandlezoom,resulttext) endfor stop() close_zoom_window(windowhandlezoom,width,height)// reset_hdevelop()// 1 close_zoom_window dev_set_window(windowhandlezoom) dev_close_window() dev_set_part(0,0,formerheight-1,formerwidth-1) return() 2 init_hdovelop dev_updata_window( off ) dev_updata_pc( off ) dev_updata_var( off ) return() 19

3 init_visualization get_image_pointer(image,pointer,type,width,height) dev_close_window() dev_open_window(0,0,width,height, light gray,windowid) dev_set_part(0,0,height-1,width-1) dev_set_line_width(linewidth) dev_set_draw(drawmode) dev_display(image) return() 3 open_zoom_window dev_open_window(rowpos,colpos,(colroi2-colroi1)*zoomfactor, (RowROI2-RowROI1)*ZoomFactor, 'black'windowhandlezoom) dev_set_part(round(rowroi1), round(colroi1), round(rowroi2), round(colroi2)) 4 reset_hdevelop dev_updata_window( on ) return() 20

edges_sub_pix (Image, Edges, lanser2, 0.5, 40, 90) segment_contours_xld (Edges, ContoursSplit, lines_circles, 6, 4, 4) sort_contours_xld (ContoursSplit, SortedContours, upper_left, true, column ) count_obj HDevelop select_obj HDevelop get_contour_global_attrib_xld distance_pp NumSegments := SortedContours for i := 1 to NumSegments by 1 SingleSegment := SortedContours[i] get_contour_global_attrib_xld (SingleSegment, cont_approx, Attrib) if (Attrib = 1) fit_circle_contour_xld (SingleSegment, atukey, -1, 2, 0, 5, 2, Row, Column, Radius, StartPhi, EndPhi, PointOrder) gen_ellipse_contour_xld (ContEllipse, Row, Column, 0, Radius, Radius, 0, rad(360), positive, 1.0) else fit_line_contour_xld (SingleSegment, tukey, -1, 0, 5, 2, RowBegin, ColBegin, RowEnd, ColEnd, Nr, Nc, Dist) gen_contour_polygon_xld (Line, [RowBegin,RowEnd], [ColBegin,ColEnd]) distance_pp (RowBegin, ColBegin, RowEnd, ColEnd, Length) 21

endif endfor 1 22

23

24

read_image (Image, clip ) gen_rectangle2 (ROI, 124, 181, 0.653, 129, 47) reduce_domain (Image, ROI, ImageReduced) create_shape_model (ImageReduced, 0, 0, rad(360), 0, no_pregeneration, use_polarity, 40, 10, ModelID) find_shape_model (Image, ModelID, 0, rad(360), 0.7, 13, 0.5, interpolation, 0, 0.9, Row, Column, Angle, Score) get_shape_model_contours (ModelContours, ModelID, 1) for i := 0 to Row -1 by 1 vector_angle_to_rigid (0, 0, 0, Row[i], Column[i], Angle[i], HomMat2D) affine_trans_contour_xld (ModelContours, ContoursAffinTrans, HomMat2D) endfor clear_shape_model (ModelID) Blob blob 25

1 count := 1 while (count<16) // 15 // read_image (moneyvalidating, 'rmb/'+count) // dev_display (moneyvalidating) stop () zoom_image_factor (moneyvalidating, ImageZoomed, 0.25, 0.25, 'constant') // 1/4 get_image_pointer1 (ImageZoomed, Pointer1, Type1, Width1, Height1) // gen_rectangle2 (Rectangle1, Width1/2, Height1/2, 0, Width1/2, Height1/2) // reduce_domain (ImageZoomed, Rectangle1, ImageReduced1) // create_template (ImageReduced1, 255, 4, 'sort', 'original', TemplateID1) // write_template (TemplateID1, '50can.shm') clear_template (TemplateID1) stop () dev_close_window () dev_open_window (0, 0, 512, 512, 'black', WindowHandle) // 50can.shm // * step: read model * step: apply matching read_template ('50can.shm', TemplateID) // read_image (Image1, 'd:/rmb/rmb1') dev_display (Image1) // stop () best_match (Image1, TemplateID, 30, 'true', Row, Column, Error) dev_set_color ('blue') dev_set_draw ('margin') dev_close_window () stop () get_image_pointer1 (moneyvalidating, Pointer2, Type2, Width2, Height2) dev_open_window (0, 0, Width2, Height2, 'black', WindowHandle1) dev_display (moneyvalidating) // 26

if (Column<350) // set_tposition (WindowHandle1, 65, 150) 65150 write_string (WindowHandle1, ' ') else endif if (Row<100) set_tposition (WindowHandle1, 40, 150) write_string (WindowHandle1, ' 10 ') else if (Row<190) endif else endif set_tposition (WindowHandle1, 40, 150) write_string (WindowHandle1, ' 20 ') if (Row<280) set_tposition (WindowHandle1, 40, 150) write_string (WindowHandle1, ' 50 ') else endif set_tposition (WindowHandle1, 40, 150) write_string (WindowHandle1, ' 100 ') set_tposition (WindowHandle1, 65, 150) write_string (WindowHandle1, ' ') if (Row<100) set_tposition (WindowHandle1, 40, 150) write_string (WindowHandle1, ' 10 ') else if (Row<190) endif stop () * **** else endif * step: destroy model * **** clear_template (TemplateID) count := count+1 endwhile set_tposition (WindowHandle1, 40, 150) write_string (WindowHandle1, ' 50 ') set_tposition (Window Handle1, 40, 150) write_string (WindowHandle1, ' 100 ') // // // 350 27

2 blob create_template write_template clear_template read_template best_match best_match Demosaick Bayer HALCON blob. HALCON. 28

dev_close_window () dev_open_window (0, 0, 640, 480, 'black', WindowHandle) read_image (Image, 'standard171') // decompose3 (Image, Red, Green, B) // 3 r,g,b trans_from_rgb (Red, Green, B, Hue, Saturation, Intensity, 'hsv') threshold (Saturation, HighSaturation, 100, 255) reduce_domain (Hue, HighSaturation, HueHighSaturation) threshold (HueHighSaturation, Blue, 150, 185) connection (Blue, ConnectedRegions) closing_circle (ConnectedRegions, Blue1, 25.5) //r,g,b hsv // 100 255 // // // connection (Blue1, ConnectedRegions) select_shape_std (ConnectedRegions, SelectedRegions, 'max_area', 0) // closing_circle (SelectedRegions, Blue2, 3.5) reduce_domain (Image, Blue2, ImageReduced) dev_display (HueHighSaturation) dev_display (ImageReduced) shape_trans (ImageReduced, ImageReduced1, 'rectangle2') // reduce_domain (Image, ImageReduced1, ImageReduced2) // fill_interlace (ImageReduced2, ImageFilled, 'odd') // threshold (ImageFilled, Region, 130, 176) // 29

connection (Region, ConnectedRegions1) closing_rectangle1 (ConnectedRegions1, RegionClosing, 25, 5000) select_shape (RegionClosing, SelectedRegions1, 'width', 'and', 10, 800) select_shape (SelectedRegions1, Letters1, 'height', 'and', 30, 800) sort_region (Letters1, SortedRegions, 'character', 'true', 'row') intersection (ConnectedRegions1, SortedRegions, RegionIntersection) // // // sort_region (RegionIntersection, SortedRegions1, 'character', 'true', 'row') area_center (SortedRegions, Area, Row, Column) // dev_display (ImageFilled) stop () for i := 2 to 7 by 1 gen_rectangle2 (Rectangle, Row[i], Column[i], 0, 24, 53) // reduce_domain (ImageFilled, Rectangle, ImageReduced3) create_shape_model (ImageReduced3, 'auto', -0.39, 0.79, 'auto', 'auto', 'use_polarity', 'auto', 'auto', ModelID) // write_shape_model (ModelID, 'chepai.shm') clear_shape_model (ModelID) read_shape_model ('chepai.shm', ModelID1) read_image (mobang, 'e:/07 / /carnum/beijing1') // find_scaled_shape_model (mobang, ModelID, -0.39, 0.78, 0.9, 1.1, 0.5, 1, 0.5, 'least_squares', 0, 0.9, Row1, Column1, Angle, Scale, Score) // dev_clear_window () dev_display (ImageFilled) if (Column1<80) set_tposition (WindowHandle, 100, 200) write_string (WindowHandle, '1') else if (Column1<180) set_tposition (WindowHandle, 150, 200) write_string (WindowHandle, '2') else if (Column1<300) else set_tposition (WindowHandle, 200, 200) write_string (WindowHandle, '8') if (Column1<440) set_tposition (WindowHandle, 250, 200) else write_string (WindowHandle, 'A') if (Column1<550) // set_tposition (WindowHandle, 300, 200) write_string (WindowHandle, 'E') 30

endfor endif stop () endif endif endif else 3 set_tposition (WindowHandle, 350, 200) write_string (WindowHandle, 'Q') endif 31

32 find_scaled_shape_model read_shape_model create_shape_model write_shape_model edges_sub_pix canny lanser2 lanser2 sobel Zero_crossing_sub_pix derivate_gauss laplace HALCON edges_color_sub_pix lines_gauss lines_facet Sigma zoom_image_factor HALCON lines_color

1 dev_set_line_width (2) dev_update_window ('off') TextHeight := 26 read_image (Image, 'gongjian') zoom_image_factor (Image, Image, 0.25, 0.25, 'weighted') get_image_pointer1 (Image, Pointer, Type, Width, Height) * * Compute the outer contour dev_open_window (0, 0, 512, 512, 'black', WindowHandle) edges_sub_pix (Image, Edges, 'canny', 0.8, 10, 30) // select_shape_xld (Edges, SelectedXLD, 'circularity', 'and', 0.8, 99999) for i := 0 to 3 by 1 fit_ellipse_contour_xld (SelectedXLD, 'fitzgibbon', -1, 0, 0, 200, 3, 2, Row3, Column2, Phi1, Radius11, Radius21, StartPhi1, EndPhi1, PointOrder2) // endfor gen_ellipse_contour_xld (ContEllipse1, Row3[2], Column2[2], 6.28, Radius11[2], Radius21[2], 0, 6.28, 'positive', 0.5) // 1 gen_ellipse_contour_xld (ContEllipse12, Row3[0], Column2[0], 6.28, Radius11[0], Radius21[0], 0, 6.28, 'positive', 0.5) // 2 dev_display (Image) dev_display (ContEllipse1) dev_display (ContEllipse12) stop () dev_set_color ('red') // set_tposition (WindowHandle, Row3[2], Column2[2]) write_string (WindowHandle, 'r11='+radius11[2]) set_tposition (WindowHandle, Row3[2]+20, Column2[2]) write_string (WindowHandle, 'r12='+radius21[2]) set_tposition (WindowHandle, Row3[0], Column2[0]-50) write_string (WindowHandle, 'r21='+radius11[0]) set_tposition (WindowHandle, Row3[2]+20, Column2[2]-50) write_string (WindowHandle, 'r22='+radius21[0]) 3 edges_sub_pix 33

Halcon halcon sin * Compute the sine from 0 to 3*PI and print to the graphical window dev_close_window () dev_open_window (0, 0, 512, 512, 'black', WindowID) dev_set_part (0, 0, 511, 511) dev_set_color ('red') for m := 0 to 255 by 5 endfor old_x := 0 old_y := 0 for x := 1 to 511 by 4 y := sin((x+m)/511.0*2*3.1416*3)*255 disp_line (WindowID, old_y+256, old_x, y+256, x) old_x := x old_y := y endfor dev_clear_window () sin 34

procedure p_disp_dimensions (: : RowEdgeFirst, ColumnEdgeFirst, RowEdgeSecond, ColumnEdgeSecond, IntraDistance, InterDistance, Phi, Length, WindowHandle: ) edges. * Display markers for the p_disp_edge_marker (RowEdgeFirst, ColumnEdgeFirst, Phi, Length, 'white', 2, WindowHandle) p_disp_edge_marker (RowEdgeSecond, ColumnEdgeSecond, Phi, Length, 'white', 2, WindowHandle) * Loop over all edge pairs. Number := RowEdgeFirst for i := 0 to Number-1 by 1 * * Display the IntraDistance between the edges. 35

Text := IntraDistance[i] p_disp_text_right_of_center (WindowHandle, Text$'.2f', RowEdgeFirst[i], ColumnEdgeFirst[i], RowEdgeSecond[i], ColumnEdgeSecond[i], Phi, 2.0*Length) endfor * * Loop to display the distance between the edge pairs. for i := 0 to Number-2 by 1 * * Display the InterDistance between the edge pairs. Text := InterDistance[i] p_disp_text_left_of_center (WindowHandle, Text$'.2f', RowEdgeSecond[i], ColumnEdgeSecond[i], RowEdgeFirst[i+1], ColumnEdgeFirst[i+1], Phi, 2.0*Length) end endfor return () procedure p_disp_edge_marker (: : Rows, Cols, Phi, Length, Color, LineWidth, WindowHandle: ) end * Determine the number of edges NumRows := Rows NumCols := Cols Num := min([numrows,numcols]) * * Loop over the edges for i := 0 to Num-1 by 1 * Row := Rows[i] Col := Cols[i] * Determine start and end point of the edge marker. RowStart := Row+Length*cos(Phi) RowEnd := Row-Length*cos(Phi) ColStart := Col+Length*sin(Phi) ColEnd := Col-Length*sin(Phi) * * Generate a contour that connects the start and end point. * gen_contour_polygon_xld (Marker, [RowStart,RowEnd], [ColStart,ColEnd]) * Display the contour with the specified style. endfor return () dev_set_color (Color) dev_set_line_width (LineWidth) dev_display (Marker) 36

procedure p_disp_text_right_of_center (: : WindowHandle, Text, RowFirst, ColFirst, RowSecond, ColSecond, Phi, Distance: ) end * Determine factors for the adaptation of the string extents that might be necessary * because of image zooming. get_part (WindowHandle, Row1Part, Column1Part, Row2Part, Column2Part) get_window_extents (WindowHandle, RowWin, ColumnWin, WidthWin, HeightWin) FactorRow := 1.*(Row2Part-Row1Part+1)/HeightWin FactorColumn := 1.*(Column2Part-Column1Part+1)/WidthWin * * Determine the extent of the string and its position. get_string_extents (WindowHandle, Text, Ascent, Descent, Width, Height) Width := Width*FactorColumn Height := Height*FactorRow RowCenter := (RowFirst+RowSecond)/2.0 ColCenter := (ColFirst+ColSecond)/2.0 if (sin(phi) < 0) Distance := -Distance endif RowPos := RowCenter+Distance*cos(Phi) ColPos := ColCenter+Distance*sin(Phi) RowText := RowPos-Height/2.0 ColText := ColPos * * Set the text position and color and display the text. set_tposition (WindowHandle, RowText, ColText) dev_set_color ('black') write_string (WindowHandle, Text) return () procedure p_disp_text_left_of_center (: : WindowHandle, Text, RowFirst, ColFirst, RowSecond, ColSecond, Phi, Distance: ) * Determine factors for the adaptation of the string extents that might be necessary * because of image zooming. get_part (WindowHandle, Row1Part, Column1Part, Row2Part, Column2Part) get_window_extents (WindowHandle, RowWin, ColumnWin, WidthWin, HeightWin) FactorRow := 1.*(Row2Part-Row1Part+1)/HeightWin FactorColumn := 1.*(Column2Part-Column1Part+1)/WidthWin * * Determine the extent of the string and its position. get_string_extents (WindowHandle, Text, Ascent, Descent, Width, Height) Width := Width*FactorColumn Height := Height*FactorRow RowCenter := (RowFirst+RowSecond)/2.0 37

end ColCenter := (ColFirst+ColSecond)/2.0 if (sin(phi) < 0) Distance := -Distance endif RowPos := RowCenter-Distance*cos(Phi) ColPos := ColCenter-Distance*sin(Phi) RowText := RowPos-Height/2.0 ColText := ColPos-Width * * Set the text position and color and display the text. set_tposition (WindowHandle, RowText, ColText) dev_set_color ('black') write_string (WindowHandle, Text) return () read_image (Image, 'Capture') get_image_pointer1 (Image, _, _, Width, Height) dev_close_window () dev_open_window (0, 0, Width, Height, 'black', WindowHandle) dev_display (Image) * rgb1_to_gray rgb1_to_gray (Image, Image) bin_threshold (Image, Dark) boundary (Dark, RegionBorder, 'inner_filled') dev_set_color ('red') dev_set_draw ('margin') dev_set_line_width (1) dev_clear_window () dev_display (RegionBorder) * the biggest circle smallest_circle (RegionBorder, Row3, Column3, Radius1) gen_circle (Circle2, Row3, Column3, Radius1) set_tposition (WindowHandle, Row3, Column3+Radius1-100) write_string (WindowHandle, 'R=') write_string (WindowHandle, Radius1$'.3f') stop () * big circle is ok * get the teeth distance gen_measure_arc (Row3, Column3, Radius1*0.97, 0, 6.28319, 5, Width, Height, 'bilinear', MeasureHandle) gen_circle (Circle, Row3, Column3, Radius1*0.97) Sigma := 2.5 38

Threshold := 10 Transition := 'negative' Select := 'all' measure_pairs (Image, MeasureHandle, Sigma, Threshold, Transition, Select, RowEdgeFirst, ColumnEdgeFirst, AmplitudeFirst, RowEdgeSecond, ColumnEdgeSecond, AmplitudeSecond, IntraDistance, InterDistance) NumCogs := RowEdgeFirst Crosses := [] for i := 0 to RowEdgeFirst -1 by 1 gen_cross_contour_xld (Cross, RowEdgeFirst[i], ColumnEdgeFirst[i], 10, atan2(rowedgefirst[i]-row3,columnedgefirst[i]-column3)) Crosses := [Crosses,Cross] gen_cross_contour_xld (Cross, RowEdgeSecond[i], ColumnEdgeSecond[i], 10, atan2(rowedgesecond[i]-row3,columnedgesecond[i]-column3)) endfor Crosses := [Crosses,Cross] if (InterDistance[0]<0.3*Radius1) D1 := (RowEdgeSecond[1]-RowEdgeFirst[0])*(RowEdgeSecond[1]-RowEdgeFirst[0])+(ColumnEdgeS econd[1]-columnedgefirst[0])*(columnedgesecond[1]-columnedgefirst[0]) tuple_sqrt (D1, D1) D2 := IntraDistance[2] else D1 := IntraDistance[0] D2 := (RowEdgeSecond[2]-RowEdgeFirst[1])*(RowEdgeSecond[2]-RowEdgeFirst[1])+(ColumnEdgeS econd[2]-columnedgefirst[1])*(columnedgesecond[2]-columnedgefirst[1]) tuple_sqrt (D2, D2) endif set_tposition (WindowHandle, Row3-Radius1, Column3) write_string (WindowHandle, 'D1=') write_string (WindowHandle, D1$'.3f') set_tposition (WindowHandle, Row3+Radius1-100, Column3) write_string (WindowHandle, 'D2=') write_string (WindowHandle, D2$'.3f') stop () * teeth distance is ok * outside circle R3 := 0 for i := 1 to 6 by 1 Phi := atan2(rowedgefirst[0]-row3,columnedgefirst[0]-column3) gen_measure_rectangle2 (Row3, Column3, Phi+0.5*i, Radius1, 5, Width, Height, 'nearest_neighbor', MeasureHandle) measure_pairs (Image, MeasureHandle, 2.5, 100, 'all', 'all', RowEdgeFirst, ColumnEdgeFirst, 39

AmplitudeFirst, RowEdgeSecond, ColumnEdgeSecond, AmplitudeSecond, IntraDistance, InterDistance) tuple_sum (IntraDistance, Sum1) tuple_sum (InterDistance, Sum2) Sum := Sum1+Sum2 if (Sum>1.85*Radius1) endif if (R3=0) R3 := Sum/2 else endif endfor dev_clear_window () dev_display (Image) R3 := (Sum/2+R3)/2 gen_circle (Circle, Row3, Column3, R3) set_tposition (WindowHandle, Row3, Column3+R3-100) write_string (WindowHandle, 'R=') write_string (WindowHandle, R3$'.3f') stop () * outside circle is ok * inside circle gen_circle (Circle1, Row3, Column3, 0.475*Radius1) reduce_domain (Image, Circle1, ImageReduced1) edges_sub_pix (ImageReduced1, Edges, 'lanser2', 0.5, 20, 40) segment_contours_xld (Edges, ContoursSplit, 'lines_circles', 5, 4, 3) Number1 := ContoursSplit for i := 1 to Number1 by 1 ObjectSelected := ContoursSplit[i] get_contour_global_attrib_xld (ObjectSelected, 'cont_approx', Attrib) if (Attrib > 0) fit_circle_contour_xld (ObjectSelected, 'ahuber', -1, 2, 0, 3, 2, Row, Column, Radius, StartPhi, EndPhi, PointOrder) gen_ellipse_contour_xld (ContEllipse, Row, Column, 0, Radius, Radius, 0, rad(360), 'positive', 1.0) endfor endif dev_display (ContEllipse) R4 := Radius+1 Row4 := Row Column4 := Column dev_clear_window () dev_display (Image) gen_circle (Circle2, Row4, Column4, R4) 40

set_tposition (WindowHandle, Row4, Column4+R4) write_string (WindowHandle, 'R=') write_string (WindowHandle, R4$'.3f') * inside circle is ok stop () * the distance of jing * dev_clear_window () * dev_display (Image) * set_tposition (WindowHandle, 200, 200) * write_string (WindowHandle, ' ') * draw_region (Region, WindowHandle) * reduce_domain (Image, Region, ImageReduced2) * area_center (Region, Area, Row6, Column6) * dev_clear_window () * dev_display (ImageReduced2) * edges_sub_pix (ImageReduced2, Edges, 'lanser2', 0.5, 20, 40) * segment_contours_xld (Edges, ContoursSplit, 'lines_circles', 5, 4, 3) * Number := ContoursSplit * Rf := [] * Rowf := [] * Columnf := [] * for i := 1 to Number by 1 * ObjectSelected := ContoursSplit[i] * get_contour_global_attrib_xld (ObjectSelected, 'cont_approx', Attrib) * if (Attrib > 0) * fit_circle_contour_xld (ObjectSelected, 'ahuber', -1, 2, 0, 3, 2, Row, Column, Radius, StartPhi, EndPhi, PointOrder) * gen_ellipse_contour_xld (ContEllipse, Row, Column, 0, Radius, Radius, 0, rad(360), 'positive', 1.0) * dev_clear_window () * dev_display (ImageReduced2) * dev_display (ContEllipse) * tuple_concat (Rf, Radius, Rf) * tuple_concat (Rowf, Row, Rowf) * tuple_conc at (Columnf, Column, Columnf) * endif * endfor * stop () dev_close_window () 41

42

43