read_image (Image, ‘q‘)
rgb1_to_gray (Image, GrayImage)
scale_image (GrayImage, ImageScaled, 4.55357, -109)
binary_threshold (ImageScaled, Region, ‘max_separability‘, ‘dark‘, UsedThreshold)
connection (Region, ConnectedRegions)
select_shape (ConnectedRegions, Ring, ‘area‘, ‘and‘, 124954, 145505)
complement (Ring, RegionComplement)
connection (RegionComplement, ConnectedRegions1)

select_shape (ConnectedRegions1, SelectedRegions, [‘width‘,‘height‘], ‘and‘, [236.55,255.1], [672.54,987.94])
smallest_circle (Ring, Row, Column, OuterRadius)
smallest_circle (SelectedRegions, InnerRow, InnerColumn, InnerRadius)

WidthPolar := 1200
HeightPolar := round(OuterRadius - InnerRadius - 10)
polar_trans_image_ext (ImageScaled, PolarTransImage, Row, Column, rad(360), 0, OuterRadius-20, InnerRadius+10, WidthPolar, HeightPolar, ‘nearest_neighbor‘)
invert_image (PolarTransImage, ImageInvert)

scale_image (ImageInvert, ImageScaled1, 12.75, -2422)

binary_threshold (ImageScaled1, Region1, ‘max_separability‘, ‘light‘, UsedThreshold1)
connection (Region1, ConnectedRegions3)
select_shape (ConnectedRegions3, SelectedRegions2, ‘area‘, ‘and‘, 17.15, 500)


dilation_rectangle1 (SelectedRegions2, RegionDilation1, 5, 5)
union1 (RegionDilation1, RegionUnion)
connection (RegionUnion, ConnectedRegions2)

intersection (ConnectedRegions2, Region1, RegionIntersection)
sort_region (RegionIntersection, SortedRegions, ‘character‘, ‘true‘, ‘row‘)
read_ocr_class_mlp (‘Industrial_0-9A-Z_NoRej.omc‘, OCRHandle)
do_ocr_multi_class_mlp (SortedRegions, PolarTransImage, OCRHandle, Class, Confidence)