read_image(Image, 'black5.bmp')
*获取旋转的矩形
threshold (Image, Regions, 0, 60)
dev_display (Regions)
sort_region (Regions, SortedRegions, 'first_point', 'true', 'row')
select_obj (SortedRegions, ObjectSelected, 1)
*计算区域斜率
orientation_region (ObjectSelected, Phi)
area_center (ObjectSelected, Area, Row, Column)
*创建变换模型
vector_angle_to_rigid (Row, Column, Phi, Row, Column, 0, HomMat2D)
*区域变换
affine_trans_region (ObjectSelected, RegionAffineTrans, HomMat2D, 'nearest_neighbor')
dev_clear_window ()
dev_display (RegionAffineTrans)
dev_display (ObjectSelected)