dev_close_window ()
dev_open_window (0, 0, 512, 512, ‘black’, WindowHandle)
read_image (Image, ‘C:/Users/MEIMAN/Desktop/13_40_20_298_1孔.tiff’)
gen_rectangle1 (ROI_0, 291.775, 290.482, 1693.04, 2002.58)
reduce_domain (Image, ROI_0, ImageReduced)
*draw_region (Region, WindowHandle)
area_center (ROI_0, Area, Row4, Column4)
inspect_shape_model (ImageReduced, ModelImages, ModelRegions, 4, 50)
create_shape_model (ImageReduced, ‘auto’, -0.39, 0.79, ‘auto’, ‘auto’, ‘use_polarity’, ‘auto’, ‘auto’, ModelID1)
get_shape_model_contours (ModelContours, ModelID1, 1)
get_shape_model_origin (ModelID1, Row1, Column1)
find_shape_model (Image, ModelID1, -0.39, 0.79, 0.5, 1, 0.5, ‘least_squares’, 4, 0.9, Row, Column, Angle, Score)
gen_cross_contour_xld (Cross, Row, Column, 50, Angle)
get_mbutton (WindowHandle, Row2, Column2, Button)
gen_cross_contour_xld (Cross, Row2, Column2, 50, 0.785398)
roworigin:=Row2-Row<