disp_message (WindowHandle, 'XLD contours sorted by column', 'window', 12, 12, 'black', 'true')
for I := 1 to Number by 1
select_obj (SortedContours1, ObjectSelected, I)
dev_display (ObjectSelected)
wait_seconds (0.01)
endfor
disp_continue_message (WindowHandle, 'black', 'true')
stop ()
dev_clear_window ()
sort_contours_xld (SortedContours1, SortedContours2, 'character', 'true', 'row')
dev_display (Image)
* Display the result contour by contour
disp_message (WindowHandle, 'XLD contours sorted by row', 'window', 12, 12, 'black', 'true')
for I := 1 to Number by 1
select_obj (SortedContours2, ObjectSelected, I)
dev_display (ObjectSelected)
wait_seconds (0.01)
endfor
* sort_contours_xld (, SortedContours, 'upper_left', 'true', 'row')
sort_pairs (, , '1', Sorted1, Sorted2)
sort_region (, SortedRegions, 'first_point', 'true', 'row')
* select_shape_xld (, SelectedXLD, 'area', 'and', 150, 99999)
* select_xld_point (, DestXLDs, 100, 100)