get_shape_model_contours

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, RowIndex, ColumnIndex, HomMat2DTranslate)

hom_mat2d_rotate (HomMat2DTranslate, AngleIndex, RowIndex, ColumnIndex, HomMat2DRotate)

get_shape_model_contours (ModelContours, ModelID, 1)

affine_trans_contour_xld (ModelContours, ContoursAffinTrans, HomMat2DRotate)

endfor