demoocr.dev

我从事工业自动化软件编程三年了,今天真高兴在这里下到了一个很好的资料,现分享一下我平时工作中极有用的一些资料,这个是halcon用于电子产品时的ocr检测 如果想做ocr识别的朋友应该有所帮助!

if (Column=-1)
Column=-1
assign 0 0 1 1 1 3 0 0
    Column := 12
12
Column
endif 0 0 0 0 0 3 6 0
endif
assign 0 0 1 1 0 3 0 0
String := ' '+String+' '
' '+String+' '
String
get_string_extents 0 0 2 4 0 1 0 0
get_string_extents (WindowHandle, String, Ascent, Descent, Width, Height)
WindowHandle
String
Ascent
Descent
Width
Height
comment 0 0 1 0 0 3 0 1
* Adapt Height for different font sizes!
Adapt Height for different font sizes!
assign 0 0 1 1 0 3 0 0
Height := 24
24
Height
comment 0 0 1 0 0 3 0 1
* Adapt text position and extents because of image zooming
Adapt text position and extents because of image zooming
assign 0 0 1 1 0 3 0 0
FactorRow := 1.*(Row2Part-Row1Part+1)/HeightWin
1.*(Row2Part-Row1Part+1)/HeightWin
FactorRow
assign 0 0 1 1 0 3 0 0
FactorColumn := 1.*(Column2Part-Column1Part+1)/WidthWin
1.*(Column2Part-Column1Part+1)/WidthWin
FactorColumn
get_draw 0 0 1 1 0 1 0 0
get_draw (WindowHandle, DrawMode)
WindowHandle
DrawMode
get_rgb 0 0 1 3 0 1 0 0
get_rgb (WindowHandle, Red, Green, Blue)
WindowHandle
Red
Green
Blue
dev_set_draw 0 0 1 0 0 2 0 0
dev_set_draw ('fill')
'fill'
ifelse 0 0 1 0 0 3 0 0
if (WindowCoordinates)
WindowCoordinates
dev_set_color 0 0 1 0 1 2 0 0
    dev_set_color ('light gray')
'light gray'
assign 0 0 1 1 1 3 0 0
    R1_S := (Row+3)*FactorRow+0.5+Row1Part
(Row+3)*FactorRow+0.5+Row1Part
R1_S
assign 0 0 1 1 1 3 0 0
    C1_S := (Column+3)*FactorColumn+0.5+Column1Part
(Column+3)*FactorColumn+0.5+Column1Part
C1_S
assign 0 0 1 1 1 3 0 0
    R2_S := (Row+3+Height-1)*FactorRow+0.5+Row1Part
(Row+3+Height-1)*FactorRow+0.5+Row1Part
R2_S
assign 0 0 1 1 1 3 0 0
    C2_S := (Column+3+Width-1)*FactorColumn+0.5+Column1Part
(Column+3+Width-1)*FactorColumn+0.5+Column1Part
C2_S
disp_rectangle1 0 0 5 0 1 1 0 0
    disp_rectangle1 (WindowHandle, R1_S, C1_S, R2_S, C2_S)
WindowHandle
R1_S
C1_S
R2_S
C2_S
dev_set_color 0 0 1 0 1 2 0 0
    dev_set_color ('white')
'white'
assign 0 0 1 1 1 3 0 0
    R1 := Row*FactorRow+0.5+Row1Part
Row*FactorRow+0.5+Row1Part
R1
assign 0 0 1 1 1 3 0 0
    C1 := Column*FactorColumn+0.5+Column1Part
Column*FactorColumn+0.5+Column1Part
C1
assign 0 0 1 1 1 3 0 0
    R2 := (Row+Height-1)*FactorRow+0.5+Row1Part
(Row+Height-1)*FactorRow+0.5+Row1Part
R2
assign 0 0 1 1 1 3 0 0
    C2 := (Column+Width-1)*FactorColumn+0.5+Column1Part
(Column+Width-1)*FactorColumn+0.5+Column1Part
C2
disp_rectangle1 0 0 5 0 1 1 0 0
    disp_rectangle1 (WindowHandle, R1, C1, R2, C2)
WindowHandle
R1
C1
R2
C2
dev_set_color 0 0 1 0 1 2 0 0
    dev_set_color ('black')
'black'
set_tposition 0 0 3 0 1 1 0 0
    set_tposition (WindowHandle, R1, C1)
WindowHandle
R1
C1
else 0 0 0 0 0 3 19 0
else
dev_set_color 0 0 1 0 1 2 0 0
    dev_set_color ('light gray')
'light gray'
assign 0 0 1 1 1 3 0 0
    R1_S := Row+3
Row+3
R1_S
assign 0 0 1 1 1 3 0 0
    C1_S := Column+3
Column+3
C1_S
assign 0 0 1 1 1 3 0 0
    R2_S := (Row+3)+(Height-1)*FactorRow+0.5
(Row+3)+(Height-1)*FactorRow+0.5
R2_S
assign 0 0 1 1 1 3 0 0
    C2_S := (Column+3)+(Width-1)*FactorColumn+0.5
(Column+3)+(Width-1)*FactorColumn+0.5
C2_S
disp_rectangle1 0 0 5 0 1 1 0 0
    disp_rectangle1 (WindowHandle, R1_S, C1_S, R2_S, C2_S)
WindowHandle
R1_S
C1_S
R2_S
C2_S
dev_set_color 0 0 1 0 1 2 0 0
    dev_set_color ('white')
'white'
assign 0 0 1 1 1 3 0 0
    R1 := Row
Row
R1
assign 0 0 1 1 1 3 0 0
    C1 := Column
Column
C1
assign 0 0 1 1 1 3 0 0
    R2 := Row+(Height-1)*FactorRow+0.5
Row+(Height-1)*FactorRow+0.5
R2
assign 0 0 1 1 1 3 0 0
    C2 := Column+(Width-1)*FactorColumn+0.5
Column+(Width-1)*FactorColumn+0.5
C2
disp_rectangle1 0 0 5 0 1 1 0 0
    disp_rectangle1 (WindowHandle, R1, C1, R2, C2)
WindowHandle
R1
C1
R2
C2
dev_set_color 0 0 1 0 1 2 0 0
    dev_set_color ('black')
'black'
set_tposition 0 0 3 0 1 1 0 0
    set_tposition (WindowHandle, Row, Column)
WindowHandle
Row
Column
endif 0 0 0 0 0 3 34 0
endif
write_string 0 0 2 0 0 1 0 0
write_string (WindowHandle, String)
WindowHandle
String
dev_set_draw 0 0 1 0 0 2 0 0
dev_set_draw (DrawMode)
DrawMode
set_rgb 0 0 4 0 0 1 0 0
set_rgb (WindowHandle, Red, Green, Blue)
WindowHandle
Red
Green
Blue
return 0 0 0 0 0 3 0 0
return ()
10
hom_mat2d_identity 0 0 0 1 0 1 0 0
hom_mat2d_identity (HomMat2DIdentity)
HomMat2DIdentity
hom_mat2d_translate 0 0 3 1 0 1 0 0
hom_mat2d_translate (HomMat2DIdentity, Row, Column, HomMat2DTranslate)
HomMat2DIdentity
Row
Column
HomMat2DTranslate
affine_trans_image 1 1 3 0 0 1 0 0
affine_trans_image (CharacterImage, CharacterTrans, HomMat2DTranslate, 'constant', 'false')
CharacterImage
CharacterTrans
HomMat2DTranslate
'constant'
'false'
expand_domain_gray 1 1 1 0 0 1 0 0
expand_domain_gray (CharacterTrans, CharacterExpanded, 1)
CharacterTrans
CharacterExpanded
1
threshold 1 1 2 0 0 1 0 0
threshold (CharacterExpanded, CharExpandRegion, 0, 120)
CharacterExpanded
CharExpandRegion
0
120
opening_circle 1 1 1 0 0 1 0 0
opening_circle (CharExpandRegion, CharExpandOpening, 3)
CharExpandRegion
CharExpandOpening
3
connection 1 1 0 0 0 1 0 0
connection (CharExpandOpening, CharExpandConnected)
CharExpandOpening
CharExpandConnected
select_shape 1 1 4 0 0 1 0 0
select_shape (CharExpandConnected, CharExpandSelected, 'area', 'and', 1500, 30000)
CharExpandConnected
CharExpandSelected
'area'
'and'
1500
30000
append_ocr_trainf 2 0 2 0 0 1 0 0
append_ocr_trainf (CharExpandSelected, CharacterExpanded, Class, FileName)
CharExpandSelected
CharacterExpanded
Class
FileName
return 0 0 0 0 0 3 0 0
return ()
8
rotate_image 1 1 2 0 0 1 0 0
rotate_image (Character, CharacterRotated, Rot, 'weighted')
Character
CharacterRotated
Rot
'weighted'
full_domain 1 1 0 0 0 1 0 0
full_domain (CharacterRotated, CharacterExpanded)
CharacterRotated
CharacterExpanded
threshold 1 1 2 0 0 1 0 0
threshold (CharacterExpanded, CharExpandedRegion, 0, 100)
CharacterExpanded
CharExpandedRegion
0
100
opening_circle 1 1 1 0 0 1 0 0
opening_circle (CharExpandedRegion, RegionOpening, 3)
CharExpandedRegion
RegionOpening
3
connection 1 1 0 0 0 1 0 0
connection (RegionOpening, ConnectedRegions)
RegionOpening
ConnectedRegions
select_shape 1 1 4 0 0 1 0 0
select_shape (ConnectedRegions, SelectedRegions, 'area', 'and', 1500, 30000)
ConnectedRegions
SelectedRegions
'area'
'and'
1500
30000
append_ocr_trainf 2 0 2 0 0 1 0 0
append_ocr_trainf (SelectedRegions, CharacterExpanded, Class, TrainFile)
SelectedRegions
CharacterExpanded
Class
TrainFile
return 0 0 0 0 0 3 0 0
return ()
7
gray_dilation_shape 1 1 3 0 0 1 0 0
gray_dilation_shape (Character, CharacterDilated, MaskSize, MaskSize, 'rhombus')
Character
CharacterDilated
MaskSize
MaskSize
'rhombus'
threshold 1 1 2 0 0 1 0 0
threshold (CharacterDilated, CharDilatedRegion, 0, 100)
CharacterDilated
CharDilatedRegion
0
100
opening_circle 1 1 1 0 0 1 0 0
opening_circle (CharDilatedRegion, RegionOpening, 3)
CharDilatedRegion
RegionOpening
3
connection 1 1 0 0 0 1 0 0
connection (RegionOpening, ConnectedRegions)
RegionOpening
ConnectedRegions
select_shape 1 1 4 0 0 1 0 0
select_shape (ConnectedRegions, SelectedRegions, 'area', 'and', 1500, 30000)
ConnectedRegions
SelectedRegions
'area'
'and'
1500
30000
append_ocr_trainf 2 0 2 0 0 1 0 0
append_ocr_trainf (SelectedRegions, CharacterDilated, Class, TrainFile)
SelectedRegions
CharacterDilated
Class
TrainFile
return 0 0 0 0 0 3 0 0
return ()
7
gray_erosion_shape 1 1 3 0 0 1 0 0
gray_erosion_shape (Character, CharacterEroded, MaskSize, MaskSize, 'rhombus')
Character
CharacterEroded
MaskSize
MaskSize
'rhombus'
threshold 1 1 2 0 0 1 0 0
threshold (CharacterEroded, CharErodedRegion, 0, 100)
CharacterEroded
CharErodedRegion
0
100
opening_circle 1 1 1 0 0 1 0 0
opening_circle (CharErodedRegion, RegionOpening, 3)
CharErodedRegion
RegionOpening
3
connection 1 1 0 0 0 1 0 0
connection (RegionOpening, ConnectedRegions)
RegionOpening
ConnectedRegions
select_shape 1 1 4 0 0 1 0 0
select_shape (ConnectedRegions, SelectedRegions, 'area', 'and', 1500, 30000)
ConnectedRegions
SelectedRegions
'area'
'and'
1500
30000
append_ocr_trainf 2 0 2 0 0 1 0 0
append_ocr_trainf (SelectedRegions, CharacterEroded, Class, TrainFile)
SelectedRegions
CharacterEroded
Class
TrainFile
return 0 0 0 0 0 3 0 0
return ()
18
get_image_pointer1 1 0 0 4 0 1 0 0
get_image_pointer1 (Char, Pointer, Type, Width, Height)
Char
Pointer
Type
Width
Height
assign 0 0 1 1 0 3 0 0
EroDil := rand(1)*4-2
rand(1)*4-2
EroDil
ifelse 0 0 1 0 0 3 0 0
if (EroDil < 0)
EroDil < 0
gray_erosion_shape 1 1 3 0 1 1 0 0
    gray_erosion_shape (Char, CharEroDil, 1-EroDil, 1-EroDil, 'rhombus')
Char
CharEroDil
1-EroDil
1-EroDil
'rhombus'
else 0 0 0 0 0 3 3 0
else
gray_dilation_shape 1 1 3 0 1 1 0 0
    gray_dilation_shape (Char, CharEroDil, 1+EroDil, 1+EroDil, 'rhombus')
Char
CharEroDil
1+EroDil
1+EroDil
'rhombus'
endif 0 0 0 0 0 3 5 0
endif
hom_mat2d_identity 0 0 0 1 0 1 0 0
hom_mat2d_identity (HomMat2DIdentity)
HomMat2DIdentity
hom_mat2d_rotate 0 0 4 1 0 1 0 0
hom_mat2d_rotate (HomMat2DIdentity, rad(rand(1)*20-10), Height/2, Width/2, HomMat2DRotate)
HomMat2DIdentity
rad(rand(1)*20-10)
Height/2
Width/2
HomMat2DRotate
hom_mat2d_translate 0 0 3 1 0 1 0 0
hom_mat2d_translate (HomMat2DRotate, rand(1)*2-1, rand(1)*2-1, HomMat2DTranslate)
HomMat2DRotate
rand(1)*2-1
rand(1)*2-1
HomMat2DTranslate
affine_trans_image 1 1 3 0 0 1 0 0
affine_trans_image (CharEroDil, CharTrans, HomMat2DTranslate, 'constant', 'false')
CharEroDil
CharTrans
HomMat2DTranslate
'constant'
'false'
expand_domain_gray 1 1 1 0 0 1 0 0
expand_domain_gray (CharTrans, CharExpanded, 2)
CharTrans
CharExpanded
2
gen_image_proto 1 1 1 0 0 1 0 0
gen_image_proto (CharExpanded, ImageBlank, 128)
CharExpanded
ImageBlank
128
add_noise_white 1 1 1 0 0 1 0 0
add_noise_white (ImageBlank, ImageNoise, 60)
ImageBlank
ImageNoise
60
smooth_image 1 1 2 0 0 1 0 0
smooth_image (ImageNoise, ImageSmooth, 'gauss', 1)
ImageNoise
ImageSmooth
'gauss'
1
scale_image 1 1 2 0 0 1 0 0
scale_image (ImageSmooth, ImageScaled, 3, -256)
ImageSmooth
ImageScaled
3
-256
add_image 2 1 2 0 0 1 0 0
add_image (CharExpanded, ImageScaled, CharDistort, 1, -128)
CharExpanded
ImageScaled
CharDistort
1
-128
return 0 0 0 0 0 3 0 0
return ()
52
open_file 0 0 2 1 0 1 0 0
open_file ('.//OCRData//OCRData.dat', 'input', FileHandle)
'.//OCRData//OCRData.dat'
'input'
FileHandle
assign 0 0 1 1 0 3 0 0
m := 0
0
m
assign 0 0 1 1 0 3 0 0
IsEOF := 0
0
IsEOF
assign 0 0 1 1 0 3 0 0
Classes := []
[]
Classes
assign 0 0 1 1 0 3 0 0
SerialNo := []
[]
SerialNo
while 0 0 1 0 0 3 0 0
while (IsEOF=0)
IsEOF=0
tuple_mod 0 0 2 1 1 1 0 0
    tuple_mod (m, 5, Mod)
m
5
Mod
ifelse 0 0 1 0 1 3 0 0
    if (Mod=0)
Mod=0
fread_string 0 0 1 2 2 1 0 0
        fread_string (FileHandle, OutString, IsEOF)
FileHandle
OutString
IsEOF
assign 0 0 1 1 2 3 0 0
        SerialNo := [SerialNo,OutString]
[SerialNo,OutString]
SerialNo
assign 0 0 1 1 2 3 0 0
        m := 0
0
m
else 0 0 0 0 1 3 8 0
    else
fread_string 0 0 1 2 2 1 0 0
        fread_string (FileHandle, OutString, IsEOF)
FileHandle
OutString
IsEOF
assign 0 0 1 1 2 3 0 0
        Classes := [Classes,OutString]
[Classes,OutString]
Classes
endif 0 0 0 0 1 3 12 0
    endif
assign 0 0 1 1 1 3 0 0
    m := m+1
m+1
m
endwhile 0 0 0 0 0 3 6 0
endwhile
stop 0 0 0 0 0 3 0 0
stop ()
close_file 0 0 1 0 0 1 0 0
close_file (FileHandle)
FileHandle
assign 0 0 1 1 0 3 0 0
m := (ImageStart-1)*4
(ImageStart-1)*4
m
for 0 0 3 1 0 3 0 0
for i := ImageStart to ImageEnd by 1
ImageStart
ImageEnd
1
i
read_image 0 1 1 0 1 1 0 0
    read_image (Image, './/image//'+i$'01')
Image
'.//image//'+i$'01'
get_image_pointer1 1 0 0 4 1 1 0 1
*     get_image_pointer1 (Image, Pointer, Type, Width, Height)
Image
Pointer
Type
Width
Height
dev_open_window 0 0 5 1 1 2 0 1
*     dev_open_window (0, 0, Width*4, Height*4, 'black', WindowHandle)
0
0
Width*4
Height*4
'black'
WindowHandle
dev_display 1 0 0 0 1 2 0 1
*     dev_display (Image)
Image
comment 0 0 1 0 1 3 0 1
*     Reduce each connected component (character) to its original shape.
Reduce each connected component (character) to its original shape.
decompose3 1 3 0 0 1 1 0 0
    decompose3 (Image, Image1, Image2, Image3)
Image
Image1
Image2
Image3
trans_from_rgb 3 3 1 0 1 1 0 0
    trans_from_rgb (Image3, Image3, Image3, ImageResult1, ImageResult2, ImageResult3, 'hsv')
Image3
Image3
Image3
ImageResult1
ImageResult2
ImageResult3
'hsv'
threshold 1 1 2 0 1 1 0 0
    threshold (ImageResult3, Region, 0, 254)
ImageResult3
Region
0
254
reduce_domain 2 1 0 0 1 1 0 0
    reduce_domain (ImageResult3, Region, ImageReduced)
ImageResult3
Region
ImageReduced
expand_domain_gray 1 1 1 0 1 1 0 0
    expand_domain_gray (ImageReduced, ExpandedImage, 2)
ImageReduced
ExpandedImage
2
get_domain 1 1 0 0 1 1 0 0
    get_domain (ExpandedImage, Domain)
ExpandedImage
Domain
gray_histo 2 0 0 2 1 1 0 0
    gray_histo (Domain, ExpandedImage, AbsoluteHisto, RelativeHisto)
Domain
ExpandedImage
AbsoluteHisto
RelativeHisto
histo_to_thresh 0 0 2 2 1 1 0 0
    histo_to_thresh (RelativeHisto, 2, MinThresh, MaxThresh)
RelativeHisto
2
MinThresh
MaxThresh
dev_display 1 0 0 0 1 2 0 0
    dev_display (ExpandedImage)
ExpandedImage
threshold 1 1 2 0 1 1 0 0
    threshold (ExpandedImage, ExpandedImageRegion, MaxThresh[0], 255)
ExpandedImage
ExpandedImageRegion
MaxThresh[0]
255
connection 1 1 0 0 1 1 0 0
    connection (ExpandedImageRegion, ConnectedRegions)
ExpandedImageRegion
ConnectedRegions
intersection 2 1 0 0 1 1 0 0
    intersection (ConnectedRegions, ExpandedImageRegion, RegionIntersection)
ConnectedRegions
ExpandedImageRegion
RegionIntersection
select_shape 1 1 4 0 1 1 0 0
    select_shape (RegionIntersection, SelectedRegions, 'area', 'and', 20, 250)
RegionIntersection
SelectedRegions
'area'
'and'
20
250
comment 0 0 1 0 1 3 0 1
*     Sort the characters line-by-line.
Sort the characters line-by-line.
sort_region 1 1 3 0 1 1 0 0
    sort_region (SelectedRegions, Characters, 'first_point', 'true', 'column')
SelectedRegions
Characters
'first_point'
'true'
'column'
comment 0 0 1 0 1 3 0 1
*     Compute the true class of each character.
Compute the true class of each character.
count_obj 1 0 0 1 1 1 0 0
    Number := |Characters|
Characters
Number
rgb1_to_gray 1 1 0 0 1 1 0 1
*     rgb1_to_gray (Image, GrayImage)
Image
GrayImage
for 0 0 3 1 1 3 0 0
    for J := 1 to Number by 1
1
Number
1
J
select_obj 1 1 1 0 2 1 0 0
        ObjectSelected := Characters[J]
Characters
ObjectSelected
J
assign 0 0 1 1 2 3 0 0
        SingleClasses := Classes[m]
Classes[m]
SingleClasses
append_ocr_trainf 2 0 2 0 2 1 0 0
        append_ocr_trainf (ObjectSelected, ExpandedImage, SingleClasses, TrainFileName)
ObjectSelected
ExpandedImage
SingleClasses
TrainFileName
assign 0 0 1 1 2 3 0 0
        m := m+1
m+1
m
endfor 0 0 0 0 1 3 45 0
    endfor
endfor 0 0 0 0 0 3 21 0
endfor
return 0 0 0 0 0 3 0 0
return ()