- set_system ('border_shape_models', 'false')
- dev_get_window (WindowHandle)
- read_image (Image, 'C:/Users/Criss/Desktop/1.jpg')
- * draw_rectangle2 (WindowHandle, Row, Column, Phi, Length1, Length2)
- gen_rectangle2 (Rectangle, 1453, 1255, -0.0717, 265, 122)
- reduce_domain (Image, Rectangle, TemplateImage)
- create_shape_model (TemplateImage, 7, rad(0), rad(360), rad(0.4835), ['none','no_pregeneration'], 'use_polarity', [10,18,11], 4, ModelID)
- get_shape_model_contours (ModelContours, ModelID, 1)
- area_center (Rectangle, ModelRegionArea, RefRow, RefColumn)
- vector_angle_to_rigid (0, 0, 0, RefRow, RefColumn, 0, HomMat2D)
- affine_trans_contour_xld (ModelContours, TransContours, HomMat2D)
- dev_display (Image)
- dev_set_line_width (3)
- dev_set_color ('green')
- dev_set_draw ('margin')
- dev_display (Rectangle)
- dev_display (TransContours)
- stop ()
- TestImages := ['C:/Users/Criss/Desktop/1.jpg','C:/Users/Criss/Desktop/2.jpg']
- for T := 0 to 1 by 1
- read_image (Image, TestImages[T])
- find_shape_model (Image, ModelID, rad(0), rad(360), 0.5, 4, 0.5, 'least_squares', [7,1], 0.75, Row, Column, Angle, Score)
- dev_display (Image)
- for I := 0 to |Score| - 1 by 1
- vector_angle_to_rigid (0, 0, 0, Row[I], Column[I], Angle[I], HomMat2D1)
- affine_trans_contour_xld (ModelContours, TransContours, HomMat2D1)
- dev_set_color ('green')
- dev_display (TransContours)
- stop ()
- endfor
- endfor
复制代码
FindShapeDemo.rar
(618.65 KB, 下载次数: 12)
|