read_shape_model ('D://CreateShapeModel20230611140352.shm', ModelID)
find_shape_model (Image, ModelID, -0.39, 0.78, 0.5, 2, 0.5, 'least_squares', 0, 0.9, ModelRow, ModelColumn, ModelAngle, Score)
get_shape_model_contours (ModelContours, ModelID, 2)
for MatchingObjIdx := 0 to |Score| - 1 by 1
hom_mat2d_identity (HomMat)
hom_mat2d_translate (HomMat, ModelRow[MatchingObjIdx], ModelColumn[MatchingObjIdx], HomMat2DTranslate)
hom_mat2d_rotate (HomMat2DTranslate, ModelAngle[MatchingObjIdx], ModelRow[MatchingObjIdx], ModelColumn[MatchingObjIdx], HomMat2DRotate)
affine_trans_contour_xld (ModelContours, ContoursAffineTrans, HomMat2DRotate)
* get_shape_model_contours (ModelContours1, ModelId, 1)
*affine_trans_contour_xld (ModelContours, TransContours, HomMat2DRotate)
*dev_display (TransContours)
*affine_trans_region (ModelRegion, RegionAffineTrans, HomMat2DTranslate, 'nearest_neighbor')
*gen_region_contour_xld (TransContours, Region, 'margin')
*smallest_rectangle2 (Region, Row, Column, Phi, Length1, Length2)
endfor
* affine_trans_pixel (HomMat2DRotate,Row1M,Column1M, Rect1RowCheck, Rect1ColCheck)
* affine_trans_pixel (HomMat2DRotate, Row2M, Column2M, Rect2RowCheck, Rect2ColCheck)
* gen_region_line (Line1,Rect2RowCheck, Rect2ColCheck,Rect1RowCheck, Rect1ColCheck)