- read_image (Image5, 'D:/BMP/硬盘提取5个标签.jpg')
- rgb1_to_gray (Image5, GrayImage)
- get_image_size (GrayImage, Width, Height)
- dev_close_window ()
- dev_open_window (0, 0, Width/2, Height/2, 'black', WindowHandle)
- ***************找区域
- dev_display (GrayImage)
- mean_image (GrayImage, ImageMean, 80, 80)
- dyn_threshold (GrayImage, ImageMean, RegionDynThresh, 20, 'light')
- connection (RegionDynThresh, ConnectedRegions)
- fill_up (ConnectedRegions, RegionFillUp)
- opening_rectangle1 (RegionFillUp, RegionOpening, 300, 150)
- select_shape (RegionOpening, SelectedRegions, 'area', 'and', 150, 99999)
- dilation_circle (SelectedRegions, RegionDilation, 10)
- count_obj (RegionDilation, Number)
- sort_region (RegionDilation, SortedRegions, 'character', 'true', 'row')
- gen_empty_obj (EmptyObject)
- for Index := 1 to Number by 1
- select_obj (SortedRegions, ObjectSelected, Index)
- reduce_domain (GrayImage, ObjectSelected, ImageReduced)
- crop_domain (ImageReduced, ImagePart)
- scale_image (ImagePart, ImageScaled, 1.5, 0.5)
- binary_threshold (ImagePart, Region, 'max_separability', 'light', UsedThreshold)
- fill_up (Region, RegionFillUp1)
- smallest_rectangle2 (RegionFillUp1, Row, Column, Phi, Length1, Length2)
- area_center (RegionFillUp1, Area, Row1, Column1)
- reduce_domain (ImageScaled, RegionFillUp1, ImageReduced1)
- hom_mat2d_identity (HomMat2DIdentity)
- hom_mat2d_rotate (HomMat2DIdentity, -Phi, Column1, Row1, HomMat2DRotate)
- affine_trans_image (ImageReduced1, ImageAffineTrans, HomMat2DRotate, 'constant', 'false')
- concat_obj (ImageAffineTrans, EmptyObject , EmptyObject)
- endfor
- ***************输出查看
- tile_images (EmptyObject, TiledImage, 1, 'horizontal')
- get_image_size (TiledImage, Width1, Height1)
- dev_open_window (0, 0, Width1, Height1, 'black', WindowHandle1)
- dev_display (TiledImage)
复制代码
新手,在学习中,仅供参考{:6_185:} |