dev_close_window()
dev_update_off()
read_image(Image, './1.jpg')
get_image_size(Image, Width, Height)
rgb1_to_gray(Image, GrayImage)
dev_open_window(0, 0, Width/3, Height/3, 'black', WindowHandle)
dev_display(GrayImage)
mean_image(GrayImage, ImageMean, 1, 40)
texture_laws(ImageMean, ImageTexture, 'le', 3, 5)
lines_gauss(ImageTexture, Lines, 2, 3, 8, 'light', 'true', 'bar-shaped', 'true')
select_shape_xld(Lines, SelectedXLD, 'contlength', 'and', 150, 500)
mean_image(GrayImage, ImageMean1, 40, 1)
texture_laws(ImageMean1, ImageTexture1, 'el', 3, 5)
lines_gauss(ImageTexture1, Lines1, 2.5, 3, 8, 'light', 'true', 'bar-shaped', 'true')
select_shape_xld(Lines1, SelectedXLD1, 'contlength', 'and', 70, 5000)
concat_obj(SelectedXLD, SelectedXLD1, SelectedXLD1)
dev_display(GrayImage)
dev_set_color('red')
dev_display(SelectedXLD1)