*读取图片
read_image (Image, 'fabrik')
*区域增长法分割成区域
regiongrowing (Image, Regions, 1, 1, 3, 100)
dev_set_draw ('margin')
dev_set_colored (6)
dev_clear_window ()
dev_display (Regions)
stop ()
*每个区域的凸性区域
shape_trans (Regions, RegionTrans, 'convex')
dev_clear_window ()
dev_display (RegionTrans)
stop ()
*每个区域的等效椭圆区域
shape_trans (Regions, RegionTrans, 'ellipse')
dev_clear_window ()
dev_display (RegionTrans)
stop ()
*每个区域的外接最小圆区域
shape_trans (Regions, RegionTrans, 'outer_circle')
dev_clear_window ()
dev_display (RegionTrans)
stop ()
每个区域的内接最大圆区域
shape_trans (Regions, RegionTrans, 'inner_circle')
dev_clear_window ()
dev_display (RegionTrans)
stop ()
*区域的最小矩形区域
shape_trans (Regions, RegionTrans, 'rectangle1')
dev_clear_window ()
dev_display (RegionTrans)
stop ()
*区域的最小带方向的矩形区域
shape_trans (Regions, RegionTrans, 'rectangle2')
dev_clear_window ()
dev_display (RegionTrans)
stop ()
*获取区域的中心点区域
shape_trans (Regions, RegionTrans, 'inner_center')
dev_clear_window ()
dev_display (RegionTrans)

=================================

shape_trans(Region : RegionTrans : Type : )   Type参数：

'convex'  凸包

'ellipse'  与区域有相同矩（moments）和面积的椭圆

'outer_circle'  最小外接圆

'inner_circle'  最大内接圆

'rectangle1'  平行于坐标轴的最小外接矩形

'rectangle2'  最小外接矩形（任意方向）

'inner_rectangle1'  轴平行的最大内接矩形

'inner_center'  区域轮廓（骨架）上到区域重心距离最短的点