read_image (Image, 'D:/exp/Inspectorn/PlateControl/images/20161222_113310')

access_channel (Image, Image1, 1)
copy_image (Image1, DupImage)



threshold (DupImage, Region, 100, 255)

overpaint_region (DupImage, Region, 255, 'fill')
complement (Region, RegionComplement)
overpaint_region (DupImage, RegionComplement, 0, 'fill')

connection (RegionComplement, ConnectedRegions)


select_shape (ConnectedRegions, SelectedRegions, ['area','height','width','compactness'], 'and', [80,2,8,0], [999999,999999,999999,10])


region_features (SelectedRegions, 'width', Width)
region_features (SelectedRegions, 'height', Height)
diagonals:=sqrt(Width*Width+Height*Height)
ratios:=Width/Height

tuple_greater_elem (ratios, 0.25, Greater)
tuple_less_elem (ratios, 1, Less)
tuple_band (Greater, Less, BAnd)
tuple_gen_sequence (1, |BAnd|, 1, Sequence)
tuple_select_mask (Sequence, BAnd, Selected)

select_obj (SelectedRegions, ObjectSelected, Selected)

area_center (ObjectSelected, Area, Row, Column)

region_features (ObjectSelected, 'width', Width)
region_features (ObjectSelected, 'height', Height)
diagonals:=sqrt(Width*Width+Height*Height)
dev_update_off()
gen_empty_region (ResultRegion)
for Index := 0 to |Area|-1 by 1
    curRow:=Row[Index]
    curCol:=Column[Index]
    gen_empty_obj(PossibleList)
    select_obj (ObjectSelected, ObjectSelected1, Index+1)
    concat_obj (PossibleList,ObjectSelected1 , PossibleList)
    for Index1 := Index+1 to |Area|-1 by 1
        compRow:=Row[Index1]
        compCol:=Column[Index1]
        distance_pp (curRow, curCol, compRow, compCol, Distance)
        ChangeInArea:=fabs(Area[Index]-Area[Index1])/Area[Index]
        if(Distance<diagonals[Index]*3.0 and ChangeInArea <0.5)
            select_obj (ObjectSelected, ObjectSelected1, Index1+1)
            concat_obj (PossibleList,ObjectSelected1 , PossibleList)
        endif
    endfor
count_obj (PossibleList, Number)
    if(Number>3)
        union1 (PossibleList, RegionUnion)
smallest_rectangle1 (RegionUnion, Row1, Column1, Row2, Column2)
gen_rectangle1 (Rectangle, Row1, Column1, Row2, Column2)
concat_obj (ResultRegion, Rectangle, ResultRegion)
dev_display (Rectangle)
    endif
endfor
union1 (ResultRegion, ResultRegionUnion)
connection (ResultRegionUnion, ConnectedRegions1)

reduce_domain (Image, ConnectedRegions1, ImageReduced)
decompose3 (ImageReduced, Image11, Image2, Image3)
max_image (Image11, Image2, ImageMin1)
max_image (ImageMin1, Image3, ImageMin1)