Drug testing in Halcon cases

* the image is from the Halcon2012 version of Halcon.

For Index: = 1 to 6 by 1

Read_image (Image, 'blister/blister_' + Index$'02')

Decompose3 (Image, ImageR, ImageG, ImageB)

Threshold (ImageR, Region1, 128,255)

Shape_trans (Region1, RegionTrans, 'convex')

Reduce_domain (ImageB, RegionTrans, ImageReduced)

Var_threshold (ImageReduced, Region, 7,7,0.2,2, 'dark')

Connection (Region, ConnectedRegions0)

Closing_rectangle1 (ConnectedRegions0, ConnectedRegions, 3,3)

Fill_up (ConnectedRegions, RegionFillUp)

Select_shape (RegionFillUp, SelectedRegions, 'area',' and', 1000, 99999)

Opening_circle (SelectedRegions, RegionOpening, 4.5)

Connection (RegionOpening, ConnectedRegions)

Select_shape (ConnectedRegions, SelectedRegions, 'area',' and', 1000, 99999)

Shape_trans (SelectedRegions, Pills, 'convex')

Area_center (Pills, Area, Row, Column)

Mes:=0

* less pills

Miss:=15- | Area |

Min_max_gray (Pills, ImageG, 0, Min, Max, Range)

* wrong pills

For iPlus 0 to | Min |-1 by 1

If (Area [I]