dev_update_off ()
dev_close_window ()
filePath0 := 'C:/Users/Administrator/Desktop/²âÊÔͼƬ¿â/½ºÄÒʵÑé/0.bmp'
read_image (Image, filePath0)
get_image_size (Image, Width, Height)
dev_open_window (0, 0, Width/4, Height/4, 'black', WindowHandle)
dev_display (Image)
draw_rectangle1 (WindowHandle, Row1, Column1, Row2, Column2)
gen_rectangle1 (Rectangle, Row1, Column1, Row2, Column2)
width := Column2-Column1
height := Row2-Row1
reduce_domain (Image, Rectangle, ImageReduced)
create_scaled_shape_model (ImageReduced, 'auto', -rad(30), rad(60), 'auto', 1, 1, 'auto', 'auto', 'use_polarity', 'auto', 'auto', ModelID)
draw_rectangle1 (WindowHandle, Row11, Column11, Row21, Column21)
gen_rectangle1 (Rectangle2, Row11, Column11, Row21, Column21)
noteRow := []
noteColumn := []
noteAngle := []
noteScore := []
noteTime := []
for Index1 := 0 to 19 by 1
count_seconds (t1)
tuple_string (Index1, '0', indexString)
filePath := 'C:/Users/Administrator/Desktop/²âÊÔͼƬ¿â/½ºÄÒʵÑé/' + indexString + '.bmp'
read_image (Image1, filePath)
reduce_domain (Image1, Rectangle2, ImageReduced1)
find_scaled_shape_model (ImageReduced1, ModelID, -rad(30), rad(60), 1, 1, 0.3, 1, 0.5, 'least_squares', 0, 0.9, Row, Column, Angle, Scale, Score)
count_seconds (t2)