find_scaled_shape_model

create_scaled_shape_model(ImageReduced, 0, rad(-60), rad(60), 'auto', 0.5, 1.1, 'auto', 'auto', 'use_polarity', 'auto', 'auto', ModelID1)
get_shape_model_contours(ShapeModelContours, ModelID1, 1)
find_scaled_shape_model(GrayImage, ModelID1, rad(-60), rad(60), 0.5, 1.1, 0.98, 0, 0.9, 'least_squares', 0, 0.9, Row3, Column3, Angle3, Scale, Score)

   tuple_length(Score, Number)
   for index := 0 to Number - 1 by 1
        * 平移和旋转.
        vector_angle_to_rigid(0, 0, 0, Row3[index], Column3[index], Angle3[index], HomMat2D)
        
        * 增加比例变化.
        hom_mat2d_scale(HomMat2D, Scale[index], Scale[index], Row3[index], Column3[index], HomMat2DScale)
        
        * 最后的矩阵变化. 平移/旋转/缩放
        affine_trans_contour_xld(ShapeModelContours, ContoursAffinTrans, HomMat2DScale)
        
        gen_cross_contour_xld(Cross, Row3[index], Column3[index], 10, Angle3)    
        disp_message(WindowHandle, Score[index], 'window', Row3[index]-50, Column3[index], 'blue', 'false')
    endfor
    count_seconds (Second2)
    disp_message(WindowHandle, 'time:' + (Second2 - Second1) + 's', 'window', 0, 0, 'blue', 'false')
    
    wait_seconds(1)
 
endwhile

clear_shape_model(ModelID)
close_framegrabber (AcqHandle)