Blob测量(例子)

通过定位黑色塑料件的中心位置来定位目标，

代码流程

median_image中值滤波，去除亮点和暗点，让图片模糊化

threshold 阈值二值化，获取塑料件

```
select_shape 去除细小的干扰
```

dev_close_window ()
list_files ('Pic', ['files','follow_links'], ImageFiles)
tuple_regexp_select (ImageFiles, ['\\.(tif|tiff|gif|bmp|jpg|jpeg|jp2|png|pcx|pgm|ppm|pbm|xwd|ima|hobj)$','ignore_case'], ImageFiles)
Row1:=[]
Column1:=[]
Angle1:=[]
Distance:=185
for Index := 0 to |ImageFiles| - 1 by 1
    read_image (Image, ImageFiles[Index])
    get_image_size (Image, Width, Height)
    dev_open_window (0, 0, Width, Height, 'black', WindowHandle)
    dev_display (Image)
    dev_set_draw ('margin')
    * Image Acquisition 01: Do something
    median_image (Image, ImageMedian, 'circle', 3, 'mirrored')
    threshold (ImageMedian, Regions, 0, 60)
    select_shape (Regions, SelectedRegions, 'area', 'and', 7000, 99999)
    shape_trans (SelectedRegions, RegionTrans, 'convex')
    area_center (RegionTrans, Area, Row, Column)
    gen_cross_contour_xld (Cross, Row, Column, 16, rad(45))
    *极轴的角度（与水平轴方向）
    orientation_region (RegionTrans, Phi)
    OriAngle:=deg(Phi)
    dev_set_color ('red')
    dev_set_draw ('margin')
    dev_set_line_width (1)
    Length := 80
    disp_arrow (WindowHandle, Row, Column, Row + cos(Phi + 1.5708)* Length, Column + sin(Phi + 1.5708) * Length, 3)
    stop()
    *============测量矩形区域=================
    Length1:=56
    Length2:=14
    lineColumn:=Column+Distance
    gen_circle (Circle, Row, Column, Distance)
    *圆弧的起始角度为极轴方向对应的角度Phi：2.00711
    *圆弧的跨度（需要事先知道，可以计算得出）AngleExtend:2.73167
    AngleExtend:=2.73167
    ArcAngle:=Phi+AngleExtend
    *确定两条直线的夹角：圆弧跨度计算
    *angle_ll (Row, Column, Row, lineColumn, Row, Column, CenterRow, CenterColumn, Angle2)
    *Angle22:=deg(Angle2)
*      A:=360-(angle-Angle22)
*      Ac:=rad(A)
     *AngleC:=Phi+Ac
      *get_points_ellipse (AngleC, Row, Column, 0, Distance, Distance, RowPoint, ColPoint)
       *gen_cross_contour_xld (Cross2, RowPoint, ColPoint, 6, Angle2)
        *disp_line (WindowHandle, Row, Column, Row, Column+Distance)
         get_points_ellipse (ArcAngle, Row, Column, 0, Distance, Distance, RowPoint, ColPoint)
         *水平线    gen_contour_polygon_xld (Contour, [Row,Row], [Column,lineColumn])
         *极轴方向直线
         gen_contour_polygon_xld (Contour, [Row,Row + cos(Phi + 1.5708) * Distance], [Column,Column + sin(Phi + 1.5708) * Distance])
         *测量区域，连接中心点直线
         gen_contour_polygon_xld (Contour, [Row,RowPoint], [Column,ColPoint])
         *创建一个测量矩形区域
         gen_rectangle2 (ROI_0, RowPoint, ColPoint, rad(OriAngle+6), Length1, Length2)
         *放平，将Phi角度变为0
         vector_angle_to_rigid (Row, Column, Phi, Row, Column, rad(0), HomMat2D)
         affine_trans_image (Image, ImageAffineTrans, HomMat2D, 'constant', 'false')
         affine_trans_region (ROI_0, RegionAffineTrans, HomMat2D, 'nearest_neighbor')
         stop()
         area_center (RegionAffineTrans, Area1, Row2, Column2)
         orientation_region (RegionAffineTrans, Phi1)
         NewAngle:=deg(Phi1)
         *一下就是通过定位之后的其操作
         gen_measure_rectangle2 (Row2, Column2, Phi1, 100, 20, Width, Height, 'nearest_neighbor', MeasureHandle1)
         measure_pairs (ImageAffineTrans, MeasureHandle1, 1.6, 23, 'all', 'all', RowEdgeFirst, ColumnEdgeFirst, AmplitudeFirst, RowEdgeSecond, ColumnEdgeSecond, AmplitudeSecond, IntraDistance, InterDistance)

　　　　　　gen_cross_contour_xld (Cross1, RowEdgeSecond, ColumnEdgeSecond, 6, 0.785398)

          stop()
endfor

read_image

median_image

threshold (ImageMedian, Regions, 0, 60)

shape_trans (SelectedRegions, RegionTrans, 'convex')

gen_cross_contour_xld (Cross, Row, Column, 16, rad(45))

*极轴的角度（与水平轴方向），最终是将这个角度转成0
orientation_region (RegionTrans, Phi)

disp_arrow (WindowHandle, Row, Column, Row + cos(Phi + 1.5708)* Length, Column + sin(Phi + 1.5708) * Length, 3)

gen_circle (Circle, Row, Column, Distance)

*极轴方向直线
gen_contour_polygon_xld (Contour, [Row,Row + cos(Phi + 1.5708) * Distance], [Column,Column + sin(Phi + 1.5708) * Distance])
*测量区域，连接中心点直线
gen_contour_polygon_xld (Contour, [Row,RowPoint], [Column,ColPoint])