Word编辑器可以生成很多形状,举例七角星
求顶点和最高点的源码如下:
*求取区域顶点,方法1
dev_close_window()
read_image (Image1, 'testpic/求取区域顶点.png')
dev_open_window_fit_image (Image1, 0, 0, -1, -1, WindowHandle)
points_foerstner (Image1, 1, 2, 3, 200, 0.3, 'gauss', 'false', RowJunctions, ColumnJunctions, CoRRJunctions, CoRCJunctions, CoCCJunctions, RowArea, ColumnArea, CoRRArea, CoRCArea, CoCCArea)
dev_display (Image1)
for Index := 0 to |RowJunctions|-1 by 1disp_cross (WindowHandle, RowJunctions[Index], ColumnJunctions[Index], 50, 0)
endfor
stop()*求取区域顶点,方法2
*五角星的顶点,直接补个外凸多边形,拿多边形的内边界和五角星取交集
invert_image (Image1, ImageInvert)
threshold (ImageInvert, Region, 128, 255)
shape_trans (Region, RegionTrans, 'convex')
boundary (RegionTrans, RegionBorder, 'inner')
intersection (RegionBorder, Region, RegionIntersection)
connection (RegionIntersection, ConnectedRegions)
area_center (ConnectedRegions, Area, Row, Column)
dev_display (Image1)
for Index := 0 to |Row|-1 by 1disp_cross (WindowHandle, Row, Column, 50, 0)
endfor
stop()*给你一个region,怎样得出区域的最高点
invert_image (Image1, ImageInvert)
threshold (ImageInvert, Region, 128, 255)
shape_trans (Region, RegionTrans, 'rectangle1')
move_region (RegionTrans, RegionMoved, 1, 0)
difference (Region, RegionMoved, RegionDifference)
area_center (RegionDifference, Area, Row, Column)
dev_display (Image1)
disp_cross (WindowHandle, Row, Column, 50, 0)
stop()
效果图:
各个顶点
最高点
本文发布于:2024-02-04 15:51:05,感谢您对本站的认可!
本文链接:https://www.4u4v.net/it/170710954756836.html
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系,我们将在24小时内删除。
留言与评论(共有 0 条评论) |