- Calculate the distance between two points
dev_close_window ()
read_image (Image, ‘mreut’)
dev_open_window (0, 0, 512, 512, ‘white’, WindowID)
dev_display (Image)
dev_set_color (‘black’)
threshold (Image, Region, 180, 255)
- dev_clear_window ()
dev_display (Region)
connection (Region, ConnectedRegions)
select_shape (ConnectedRegions, SelectedRegions, ‘area’, ‘and’, 10000, 100000000)
get_region_contour (SelectedRegions, Rows, Columns)
RowPoint := 80
ColPoint := 250
NumberTuple := |Rows|
dev_set_color (‘red’)
dev_set_draw (‘margin’) - Display a circle that represented one point
gen_circle (Circle, RowPoint, ColPoint, 10)
dev_display (Circle)
dev_set_color (‘green’) - Calculate the distance between points of th