read_image (Image, 'D:/防反/20201201181609_0.873497.jpg')
Row := [0, 100, 200, 100]
Col := [100, 0, 100, 200]
gen_region_polygon_filled (Region1, Row, Col)
intensity (Region1, Image, Mean, Deviation)
Row := [0, 100, 200, 100, 0]
Col := [100, 0, 100, 200, 100]
gen_contour_polygon_xld (Contour, Row, Col)
gen_region_contour_xld (Contour, Region2, 'filled')
paint_xld (Contour, Image, ImageResult1, [255, 0, 255])
paint_region (Region2, Image, ImageResult2, [255, 0, 255], 'margin')
