的图像（见图5.15）。
你可以清楚地看到单个细胞和由于冬季造成的细胞的成长不连续性。
提取细胞壁是很简单的，因为它们相当的暗。主要的困难在于计算生长方向的分配，例如沿着图像的X轴。第一，我们限定窗口的厚度，细胞分布的计算通过X变量进行负值完成。接着我们使用getimagepoint1来获得图像的大小以便得到相应得循环参数。搜寻的范围越宽，测量时的滤波效果越好。
现在循环从左边开始来计算真个图像。细胞壁面积的比率和矩形的宽对每一此循环都要计算一次。细胞壁的像素值决定于areaenter。这个数值转化为百分比输出。
X := 20
read_image (WoodCells1, ’woodcell’)
threshold (WoodCells1, CellBorder, 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 (CellBorder, 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) 图5.16显示测量结果。