Halcon中缩放Region或XLD的方法研究

在Halcon中，Region和XLD之间可以彼此转换。但这种转换并不是“无损”的，XLD可以是不闭合的，但是Region一定是闭合的。因此，如果将不闭合的XLD转为Region，然后再转回XLD，那么转换后的XLD和原先的XLD就有了一定的区别。

言归正传，先说说Region的缩放。

一、Region的缩放

Region的缩放很简单，有zoom_region算子，其签名如下，其中ScaleWidth, ScaleHeight是宽、高的缩放比例因子：

zoom_region(Region : RegionZoom : ScaleWidth, ScaleHeight : )

缩放的时候，Row和Column都根据缩放比例因子来放大或缩小。因此缩放后，Region的位置会移位，如果不想让缩放后的Region移位，可以这样：

set_system ('clip_region', 'false')
zoom_region (Region, RegionZoom, 0.5, 0.5)
 
area_center (Region, Area, Row, Column)
area_center (RegionZoom, Area1, Row1, Column1)
move_region (RegionZoom, RegionMoved, Row - Row1, Column - Column1)

需要注意的是，Region缩放后，经常会有一部分跑到画布外面，Halcon默认是将画布外部的Region进行裁切的，如果不想裁切，可以在程序开始加上set_system ('clip_region', 'false')，即不裁切画布外面的部分。

二、XLD的缩放

本文开头分析过，“XLD——Region——XLD”的转换不是无损的，但是如果不介意这一点（或者说影响不大），XLD的缩放就可以通过Region的缩放为中介。

1、使用Region为中介缩放XLD

 gen_image_const (Image, 'byte', , )
 set_system ('clip_region', 'false')
 read_contour_xld_dxf (Contours,'01.dxf', [], [], DxfStatus)
 *转为region
 gen_region_contour_xld (Contours, Region, 'margin')
 *缩放region
 zoom_region (Region, RegionZoom, 0.2, 0.2)
 *转回XLD
 gen_contour_region_xld (RegionZoom, Contours2, 'border')

如果是下面这样的XLD呢？

用上面的方法的话，发现结果完全不对，如下图：

那么应该怎么弄呢？

2、通过缩放XLD中每个点的坐标值来缩放XLD

 gen_image_const (Image, 'byte', , )
 set_system ('clip_region', 'false')
 read_contour_xld_dxf (Contours,'02.dxf', [], [], DxfStatus)
 count_obj (Contours, Num)
 
 *XLD上点的采样间隔（为了缩短处理时间）
 Step := 10
 *缩放比例
 Scale := 0.3
 gen_empty_obj (Contour2)
 for i :=  to Num by
     select_obj (Contours, Contour, i)
     get_contour_xld (Contour, Row, Col)
     Row1 := []
     Col1 := []
     for j :=  to |Row|- by Step
 
         Row1:=[Row1,Row[j] * Scale]
         Col1:=[Col1,Col[j] * Scale]

     endfor
 
     *判断轮廓是不是闭合，如果是闭合的，那么使最后一个点与第一个点重合（即让缩放后的XLD也闭合）
     test_closed_xld (Contour, IsClosed)
     if (IsClosed == 1)
         Row1:=[Row1,Row[0] * Scale]
         Col1:=[Col1,Col[0] * Scale]
     endif

     gen_contour_polygon_xld (Contour1, Row1, Col1)
     smooth_contours_xld (Contour1, SmoothedContours, )
     concat_obj (Contour2, SmoothedContours, Contour2)
 endfor

其中：

get_contour_xld (Contour, Row, Col)是得到XLD中的一系列点；

gen_contour_polygon_xld (Contour1, Row1, Col1)是通过一系列点重建XLD。

结果如下：

（读者朋友们如果有不理解的地方或者发现有错误，欢迎跟帖回复。2017年8月22日  深夜）