*从网上摘得程序,然后自己学习注释,若有问题,可指出。谢谢!!!**
*测量多少个像素
read_image (Image, 'C:/Users/fengkuixiang/Desktop/22.jpg')
*读取图像
get_image_size (Image, Width, Height)
dev_close_window()
dev_open_window (0, 0,400,500, 'black', WindowHandle)
dev_set_draw ('margin')
*设置所画的区域,若'fill'是一个面,'margin'是轮廓
dev_set_color ('black')
*设置画的颜色
rgb1_to_gray(Image,ImageGray)
*彩色RGB图像变成灰度图像
dev_display(ImageGray)
*设置ROI
row := 438
column := 262
*注意row和column是矩形的中心,需要自己调整
angle := rad(90)
*这个是矩形旋转的角度,角度是正的按逆时针转,负的按顺时针转
length1 := 450
length2 := 10
*在length1<length2的情况下,measure——pairs没有值,不管怎样调整参数。
*length1和length2是矩形的两个半轴的长,明白了这个下面在计算多边形轮廓的时候要用到
*注意这里的矩形框的参数是自己调整的
gen_rectangle2 (Rectangle, row, column, angle, length1, length2)
*运算符gen_rectangle2生成了一个或多个矩形,它们的中心(行、列)、方向和半边缘长度
*分别为Length1和Length2。方位用圆弧表示,表示横轴和纵长之间的角度
gen_measure_rectangle2 (row, column, angle, length1,length2, Width, Height, 'nearest_neighbor', MeasureHandle1)
*负责提取与矩形主轴垂直的直线边缘。在参数行和列中传递矩形的中心,
*矩形的主轴方向,以及两个轴的长度,即它的直径是长方形的一半,length1,length2,。
disp_continue_message (WindowHandle, 'black', 'true')
*此过程在屏幕右下角以给定颜色显示“单击”运行“以继续”。
*如果参数框设置为“true”,文本将写入一个白盒中,这对于不规则背景非常有用。
stop()
measure_pairs (Image, MeasureHandle1, 1, 132, 'all', 'all', RowEdgeFirst, ColumnEdgeFirst, AmplitudeFirst, RowEdgeSecond, ColumnEdgeSecond, AmplitudeSecond, IntraDistance, InterDistance)
*measure_pair的作用是提取垂直于长方形或环形圆弧主轴的直线边缘对。
* '1'表示σ的高斯平滑,‘132’最低边缘幅度,‘all’确定边缘如何分组到边缘对的灰度值转换的类型,
*第一个检测到的edge定义了RowEdgeFirst和ColumnEdgeFirst的Transition即根据测量对象的位置,
*返回具有明暗转换的边缘对或具有暗明暗转换的边缘对。‘all’如果Select设置为“all”,则返回所有
*边缘对。如果将其设置为“first”,则只返回提取的边缘对中的第一个,而将其设置为“last”,则只
*返回最后一个。
disp_continue_message (WindowHandle, 'black', 'true')
stop()
*可视化结果
*根据分组的个数,来画线,这个个数就是RowEdgeFirst组的个数,也就是边缘的个数
for i := 0 to |RowEdgeFirst|-1 by 1
*这个算子是画出多边形的亚像素轮廓,其中第二个和第三个参数可以是元素,即表示有多个点,两个点组成一条直线
*至于每一个点是怎么计算的,我们已经知道了旋转的角度和每一条边的中心点,这个大家自己就可以在纸上用三角函数得出来每一个开始结束点
*的坐标了
gen_contour_polygon_xld ( EdgeFirst, [RowEdgeFirst[i] - sin(rad(90) - angle)*length2,RowEdgeFirst[i] + sin(rad(90) - angle)*length2], [ColumnEdgeFirst[i] - cos(rad(90) - angle)*length2,ColumnEdgeFirst[i] + cos(rad(90) - angle)*length2])
*从元组行中给出的多边形生成XLD轮廓轮廓
gen_contour_polygon_xld (EdgeSecond, [RowEdgeSecond[i] - sin(rad(90) - angle)*length2,RowEdgeSecond[i] + sin(rad(90) - angle)*length2], [ColumnEdgeFirst[i] - cos(rad(90) - angle)*length2,ColumnEdgeFirst[i] + cos(rad(90) - angle)*length2])
dev_set_color ('blue')
dev_display (EdgeFirst)
dev_set_color ('red')
dev_display (EdgeSecond)
dev_set_color ('blue')
*这是设置文本在那里显示
if (i = 0)
set_tposition (WindowHandle, 50 , 20)
else
set_tposition (WindowHandle, RowEdgeFirst[i] + 40, ColumnEdgeFirst[i]+20)
*后面两个值是显示的位置,同上可以修改
endif
write_string (WindowHandle, 'width: '+IntraDistance[i]+' pix')
*从文本显示的地方写入字符串,写出像素
endfor
disp_continue_message (WindowHandle, 'black', 'true')
stop ()
close_measure (MeasureHandle1)
* 销毁
dev_update_window ('on')
*dev_update_window指定操作符调用返回的所有图标
*对象是否必须显示在活动图形窗口中(DisplayMode = 'on'---默认)
*或不显示(DisplayMode = 'off')。