read_image (Image928957880c86d59583515, 'E:/work/OpenCV/flaw.bmp')
***************** 角度设置****************
rotate_image (Image928957880c86d59583515, Image928957880c86d59583515, 0, 'constant')
get_image_size (Image928957880c86d59583515, Width, Height)
optimize_fft_speed (Width, Height, 'standard')
invert_image (Image928957880c86d59583515, ImageInvert)
fft_generic (ImageInvert, Imagefft, 'to_freq', -1, 'sqrt', 'dc_center', 'complex')
dev_display (Image928957880c86d59583515)
count_seconds (Seconds)
for I:= 0 to 17 by 1
par_start : tex_scra(Imagefft,region.at(I), Width, Height, I*10, len_xld.at(I))
endfor
count_seconds (Seconds1)
convert_vector_to_tuple (vThreadID, ThreadID)
par_join (ThreadID)
a:=(Seconds1-Seconds)*1000
disp_message (200000,'running time:' + a + 'ms', 'image', 12, 12, 'black', 'true')
count:=1
gen_empty_obj (EmptyObject)
for Index := 0 to 17 by 1
re:= region.at(Index)
len:= len_xld.at(Index)
count_obj (re, Number)
if( Number!=0)
concat_obj (re, EmptyObject, EmptyObject)
disp_message (200000,'length:' + len , 'image', count*40, 12, 'black', 'true')
count:=count+1
endif
endfor
gen_gauss_filter (ImageGauss, 20, 1, rad(angle), 'none', 'dc_center', Width, Height)
convol_fft (Imagefft, ImageGauss, ImageConvol)
fft_generic (ImageConvol, ImageFFT1, 'from_freq', 1, 'sqrt', 'dc_center', 'byte')
get_domain (ImageFFT1, Domain)
erosion_rectangle1 (Domain, RegionErosion, 10, 10)
reduce_domain (ImageFFT1, RegionErosion, ImageReduced)
lines_gauss (ImageReduced, Lines, 0.6, 1, 3, 'light', 'true', 'gaussian', 'true')
union_collinear_contours_xld (Lines, UnionContours, 30, 1, 20, 0.1, 'attr_keep')
select_shape_xld (UnionContours, xld, 'contlength', 'and', 100, 1000)
length_xld (xld, len_xld)
return ()
