Wood Cells
Analysis of wood cells using halcon.
read_image (Woodcells1, 'C:\\Program Files\\MVTec\\HALCON\\images\\woodcell.png')
X := 20
threshold (Woodcells1, CellBoarder, 0, 120)
get_image_pointer1 (Woodcells1, Pointer, Type, Width, Height)
open_file ('wood_cells.dat', 'output', FileHandle)
for i := 0 to Width-X-1 by 1
clip_region (CellBoarder, Part, 0, i, Height-1, i+X)
area_center (Part, Area, Row, Col)
fwrite_string (FileHandle, i + ' ' + (Area * 100.0 / (X * Height)))
fnew_line (FileHandle)
endfor
close_file (FileHandle)