Halcon wood texture recognition

* Image Acquisition 01: Code generated by Image Acquisition 01
list_files ('E:/03 CV（ ancient ）/Halcon/ Code / Wood texture recognition ', ['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)
for Index := 0 to |ImageFiles| - 1 by 1
    read_image (Image, ImageFiles[Index])
    dev_clear_window ()
    get_image_size (Image, Width, Height)
    dev_open_window (0, 0, Width/5, Height/5, 'black', WindowHandle)
    dev_display (Image)
    
    rgb1_to_gray (Image, GrayImage)
    threshold (GrayImage, Regions, 44, 255)
    connection (Regions, ConnectedRegions)
    select_shape (ConnectedRegions, SelectedRegions, 'area', 'and', 40825.7, 500000)
    Classes:=['apple','beech','cherry','maple','oak']
    cooc_feature_image (SelectedRegions, GrayImage, 6, 0, Energy, Correlation, Homogeneity, Contrast)# Calculate the co-occurrence matrix and derive its gray value characteristics 
    sobel_amp (GrayImage, EdgeAmplitude, 'sum_abs', 3)# Use Sobel Operator detection edge （ Range ） features 
    gray_histo_abs (SelectedRegions, EdgeAmplitude, 8, AbsoluteHisto)# Calculate the distribution of gray values .Quantization=6 Represents the quantization of the input gray value .
endfor