read_shape_model ('D:/VisionControl/shmFiles/CreateShapeModel20230906105130.shm', ModelID)
find_shape_model (Image, ModelID, rad(-85), rad(85), 0.5, 5, 0.5, 'least_squares', 0, 0.9, Row, Column, Angle, Score)
tuple_length (Row, Length)
hom_mat2d_identity (HomMat2DIdentity)
for Index := 0 to Length-1 by 1
hom_mat2d_translate (HomMat2DIdentity, Row[Index], Column[Index], HomMat2DTranslate)
hom_mat2d_rotate (HomMat2DTranslate, Angle[Index], Row[Index], Column[Index], HomMat2DRotate)
get_shape_model_contours (ModelContours, ModelID, 1)
affine_trans_contour_xld (ModelContours, ContoursAffinTrans, HomMat2DRotate)
endfor