halcon颜色识别

dev_close_window ()
dev_open_window (0, 0, 512, 512, 'black', WindowHandle)
Colors := ['深绿色','浅绿色','粉色','红色','浅黄色','深黄色','浅蓝色','深蓝色','紫色','橙色','背景']

* read_image (Image, 'E:/wzc_halcon(c#)/颜色.png')
* dev_resize_window_fit_image (Image, 0, 0, -1, -1)
* gen_empty_obj (EmptyObject)
* for i := 0 to |Colors| - 1 by 1
*      dev_display (Image)
*      disp_message (WindowHandle, '请选定指定区域', 'window', 0, 0, 'black', 'true')
*      draw_rectangle1 (WindowHandle, Row1, Column1, Row2, Column2)
*      gen_rectangle1 (Rectangle, Row1, Column1, Row2, Column2)
*      concat_obj (Rectangle, EmptyObject, EmptyObject)
* endfor
* create_class_mlp (3, 10, 11, 'softmax', 'normalization', 10, 42, MLPHandle)
* add_samples_image_class_mlp (Image, EmptyObject, MLPHandle)
*  disp_message (WindowHandle, '开始训练模型', 'window', 0, 0, 'black', 'true')
* train_class_mlp (MLPHandle, 1000000, 0.5, 0.01, Error, ErrorLog)
* write_class_mlp (MLPHandle, 'E:/wzc_halcon(c#)/color.mlp')

read_image (Image, 'E:/wzc_halcon(c#)/颜色.png')
dev_resize_window_fit_image (Image, 0, 0, -1, -1)
read_class_mlp ('E:/wzc_halcon(c#)/color.mlp', MLPHandle)
classify_image_class_mlp (Image, ClassRegions, MLPHandle, 0.5)
Rows := []
Columns := []
for j:=11 to 1 by -1
    dev_display (Image)
    select_obj (ClassRegions, ObjectSelected, j)
    connection (ObjectSelected, ConnectedRegions)
    select_shape (ConnectedRegions, SelectedRegions, 'area', 'and', 5700.37, 11000.8)
    area_center (SelectedRegions, Area, Row, Column)
    * 将每个区域的中心点坐标存储到元组中
    for i := 0 to |Row| - 1 by 1
        Rows := [Rows, Row[i]]
        Columns := [Columns, Column[i]]
    endfor
    dev_display (Image)
    disp_message (WindowHandle, Colors[11-j], 'Image', Row, Column, 'black', 'true')
endfor
* 显示每个区域的颜色标签
for i := 0 to |Rows| - 1 by 1
    disp_message (WindowHandle, Colors[i], 'Image', Rows[i], Columns[i], 'black', 'true')
endfor