Halcon红黄蓝颜色识别之阈值分割方法（第二种方法）

Halcon红黄蓝颜色识别之转RGB后阈值分割实现（仅能识别单个识别）（第二种方法）

for k := 1 to 3 by 1
read_image (Image, 'C:/Users/Administrator/Desktop/halcon识别图片/识别红黄蓝/'+k+'.jpg')
dev_close_window ()
dev_open_window (0, 0, 557, 416, 'black', WindowHandle)
dev_display (Image)
dev_set_draw ('margin')
dev_set_line_width (3)
*RGB图像分别对应Image_R, Image_G, Image_B
decompose3 (Image, Image_R, Image_G, Image_B)
gen_empty_obj (ImageConcat)
*将转化成的RGB三个通道图像全部放入ImageConcat这个空区域中
concat_obj (Image_R, Image_G, ObjectsConcat)
concat_obj (ObjectsConcat, Image_B, ImageConcat)
*下面三组最大最小阈值用于红黄蓝三种颜色的对应好提取的RGB图像中的一个
min_threshold := [45, 6, 18]
max_threshold := [65, 31, 47]
*此处最小最大区域完全可以用一组，此处留有数组为了留一定修改空间
min_area := [100000, 100000, 100000]
max_area := [500000, 5000000, 5000000]
try
 for i := 1 to 3 by 1
    select_obj (ImageConcat, ImageSelected, i)
    for j := 1 to 3 by 1
     threshold (ImageSelected, Regions, min_threshold[j - 1], max_threshold[j - 1])
      opening_circle (Regions, RegionOpening, 8)
      *多个区域
      connection (RegionOpening, ConnectedRegions)
      *面积选择
      select_shape (ConnectedRegions, SelectedRegions, ['area','circularity'], 'and', [min_area[j - 1],0.4937], [max_area[j - 1],1])
      fill_up (SelectedRegions, RegionFillUp)
      shape_trans (RegionFillUp, RegionTrans, 'convex')
      area_center (RegionTrans, Area, Row, Column)
      if (Area<150000 or Area>450000)
        continue
      else
          a := min_threshold[j - 1]
          b:=max_threshold[j - 1]
      endif
      *此处的beak是为了如果找到满足的圆就跳出这个for循环，不找了
      break
    endfor
     if (Area<150000 or Area>450000)
        continue
     endif
     gen_contour_region_xld (RegionTrans, Contours, 'border')
      fit_circle_contour_xld (Contours, 'algebraic', -1, 0, 0, 3, 2, Row, Column, Radius, StartPhi, EndPhi, PointOrder)
      gen_circle (Circle, Row, Column, Radius)
      area_center (Circle, Area1, Row1, Column1)
     break
  endfor
   if (a=6 and b=31)
     dev_display (Image)
     dev_display (Circle)
     disp_message (WindowHandle, '该圆块是黄色', 'window', 0, 0, 'red', 'true')
     disp_message (WindowHandle, '该圆块面积为:'+Area1, 'window', 25, 0, 'red', 'true')
     disp_message (WindowHandle, '该圆块中心横纵坐标为:'+'('+Row1+','+Column1+')', 'window', 50, 0, 'red', 'true')
    endif
   if (a=45 and b=65)
     dev_display (Image)
     dev_display (Circle)
     disp_message (WindowHandle, '该圆块是红色', 'window', 0, 0, 'red', 'true')
     disp_message (WindowHandle, '该圆块面积为:'+Area1, 'window', 25, 0, 'red', 'true')
     disp_message (WindowHandle, '该圆块中心横纵坐标为:'+'('+Row1+','+Column1+')', 'window', 50, 0, 'red', 'true')
    endif
   if (a=18 and b=47)
     dev_display (Image)
     dev_display (Circle)
     disp_message (WindowHandle, '该圆块是蓝色', 'window', 0, 0, 'red', 'true')
     disp_message (WindowHandle, '该圆块面积为:'+Area1, 'window', 25, 0, 'red', 'true')
     disp_message (WindowHandle, '该圆块中心横纵坐标为:'+'('+Row1+','+Column1+')', 'window', 50, 0, 'red', 'true')
   endif
catch (Exception)
endtry
 stop()
endfor