OCR之text_line_slant

*关闭更新
dev_update_off ()
*读取图像
read_image (Image, ‘dot_print_slanted’)
*获取图像大小
get_image_size (Image, Width, Height)
*关闭窗体
dev_close_window ()
*打开窗体
dev_open_window (0, 0, Width * 3, Height * 3, ‘black’, WindowHandle)
*设置填充方式
dev_set_draw (‘margin’)
*设置显示颜色
dev_set_colored (12)
*设置线宽
dev_set_line_width (3)
*循环处理图像
for J := 0 to 1 by 1
*设置显示字体
set_display_font (WindowHandle, 16, ‘mono’, ‘true’, ‘false’)
if (J == 1)
* Correct slant
*求图像中文字的倾斜角度
text_line_slant (Image, Image, 50, rad(-45), rad(45), SlantAngle)
*定义一个初始矩阵
hom_mat2d_identity (HomMat2DIdentity)
*求图像转正矩阵
hom_mat2d_slant (HomMat2DIdentity, -SlantAngle, ‘x’, 0, 0, HomMat2DSlant)
*把图像依据文字转正
affine_trans_image (Image, ImageRectified, HomMat2DSlant, ‘constant’, ‘true’)
else
*复制图像
copy_obj (Image, ImageRectified, 1, 1)
endif