segment_object_model_3d
* ***********************************************************************
* This example program shows how to use the operator
* segment_object_model_3d in HALCON. First, the 2.5D
* input image is segmented. Additionally, with the same
* operator, a fitting is performed. The result of the
* 3D segmentation is converted to a region and is
* displayed. Finally, the values of the fitted radii
* for the cylinders and spheres are visualized.
* 首先,分割2.5D输入图像,转化为适当的3D Model,
* 并分割成sub Models(segment_object_model_3d),sub Models转化为区域并显示。
* 最终,圆柱形和球形标示半径并图形化显示。
* ***********************************************************************
dev_update_off ()
dev_close_window ()
* Input: 2.5D image
* 读取:2.5D图像
read_image (XYZ, '3d_machine_vision/segmentation/3d_primitives_xyz_01.tif')
dev_open_window_fit_image (XYZ, 0, 0, -1, -1, WindowHandle)
set_display_font (WindowHandle, 16, 'mono', 'true', 'false')
* Access to (x-, y-, z-)coordinates
* 读取(X,Y,Z)坐标通道数据
access_channel (XYZ, X, 1)
access_channel (XYZ, Y, 2)
access_channel (XYZ, Z, 3)
*
Message := 'Generate a 3D object model from an'
Message[1] := 'XYZ image and segment primitives'
Message[2] := '(spheres, cylinders, planes) in it:'
dev_display (Z)
disp_message (WindowHandle, Message, 'window', 12, 12, 'black', 'true')
disp_continue_message (WindowHandle, 'black', 'true')
stop ()
* Prepare the segmentation
* 准备分割
xyz_to_object_model_3d (X, Y, Z, ObjectModel3DID)
prepare_object_model_3d (ObjectModel3DID, 'segmentation', 'false', 'max_area_holes', 100)
ParSegmentation := ['max_orientation_diff','max_curvature_diff','output_xyz_mapping','min_area']
ValSegmentation := [0.13,0.11,'true',150]
ParFitting := ['primitive_type','fitting_algorithm']
ValFitting := ['all','least_squares_huber']
* Segmentation and fitting is done in one step,
* because the parameter 'fitting' is set to 'true' by default
* 分割和适应性一步完成
* 因为参数'fitting' 默认设置为'true'
segment_object_model_3d (ObjectModel3DID, [ParSegmentation,ParFitting], \
[ValSegmentation,ValFitting], ObjectModel3DOutID)
* Clear the object model that is no longer used.
clear_object_model_3d (ObjectModel3DID)
* Show the result of the segmentation
* 显示分割结果
dev_set_colored (12)
for Index := 0 to |ObjectModel3DOutID| - 1 by 1
object_model_3d_to_xyz (XTmp, YTmp, ZTmp, ObjectModel3DOutID[Index], 'from_xyz_map', [], [])
get_domain (ZTmp, DomainTmp)
if (Index == 0)
copy_obj (DomainTmp, Domain, 1, 1)
else
concat_obj (Domain, DomainTmp, Domain)
endif
endfor
dev_display (Domain)
disp_message (WindowHandle, '3D Segmentation', 'window', 12, 12, 'black', 'true')
disp_message (WindowHandle, 'Segmented objects: ' + |ObjectModel3DOutID|, 'window', 40, 12, 'black', 'true')
disp_continue_message (WindowHandle, 'black', 'true')
stop ()
* Show the result of the fitting
dev_clear_window ()
* 外部函数
#dev_display_fitting_results (RegionCylinder, RegionSphere, RegionPlane, RegionNone, \
# ObjectModel3DOutID, WindowHandle, [])
* This procedure displays the results of a fitting operation.
* Additionally to the primitive regions, the radius of
* cylinders and spheres is displayed.
* The colors can be specified with the parameter Colors
* in the following manner:
* Color[0] is used for objects which could not be fitted
* Color[1] is used for cylinders
* Color[2] is used for spheres
* Color[3] is used for planes
*
Colors := ['dim gray','forest green','red','slate blue']
NumNone := 0
NumCylinders := 0
NumSpheres := 0
NumPlanes := 0
for Index := 0 to |ObjectModel3DOutID| - 1 by 1
object_model_3d_to_xyz (XTmp, YTmp, ZTmp, ObjectModel3DOutID[Index], 'from_xyz_map', [], [])
get_domain (XTmp, DomainTmp)
get_object_model_3d_params(ObjectModel3DOutID[Index], 'has_primitive_data', ParamValue)
if (ParamValue == 'true')
get_object_model_3d_params(ObjectModel3DOutID[Index], 'primitive_parameter', GenParamValuesP)
get_object_model_3d_params(ObjectModel3DOutID[Index], 'primitive_type', ParamValue)
if (ParamValue == 'cylinder')
if (NumCylinders == 0)
copy_obj (DomainTmp, RegionCylinder, 1, -1)
RadiusCylinder := GenParamValuesP[6]
else
concat_obj (RegionCylinder, DomainTmp, RegionCylinder)
RadiusCylinder := [RadiusCylinder,GenParamValuesP[6]]
endif
NumCylinders := NumCylinders + 1
elseif (ParamValue == 'sphere')
if (NumSpheres == 0)
copy_obj (DomainTmp, RegionSphere, 1, -1)
RadiusSphere := GenParamValuesP[3]
else
concat_obj (RegionSphere, DomainTmp, RegionSphere)
RadiusSphere := [RadiusSphere,GenParamValuesP[3]]
endif
NumSpheres := NumSpheres + 1
else
if (NumPlanes == 0)
copy_obj (DomainTmp, RegionPlane, 1, -1)
else
concat_obj (RegionPlane, DomainTmp, RegionPlane)
endif
NumPlanes := NumPlanes + 1
endif
else
if (NumNone == 0)
copy_obj (DomainTmp, RegionNone, 1, -1)
else
concat_obj (RegionNone, DomainTmp, RegionNone)
endif
NumNone := NumNone + 1
endif
endfor
*
NumColors := |Colors|
if (NumNone > 0)
dev_set_color (Colors[0 % NumColors])
dev_display (RegionNone)
endif
if (NumCylinders > 0)
dev_set_color (Colors[1 % NumColors])
dev_display (RegionCylinder)
endif
if (NumSpheres > 0)
dev_set_color (Colors[2 % NumColors])
dev_display (RegionSphere)
endif
if (NumPlanes > 0)
dev_set_color (Colors[3 % NumColors])
dev_display (RegionPlane)
endif
disp_message (WindowHandle, '3D Fitting', 'window', -1, -1, 'black', 'true')
Message := 'Cylinders: ' + NumCylinders
Message[1] := 'Spheres: ' + NumSpheres
Message[2] := 'Planes: ' + NumPlanes
Message[3] := 'Undefined: ' + NumNone
disp_message (WindowHandle, Message, 'window', 40, 12, 'black', 'true')
if (NumCylinders > 0)
* Display radius for each cylinder
area_center (RegionCylinder, Area, Row, Column)
for Index := 0 to NumCylinders - 1 by 1
Radius := int(RadiusCylinder[Index] * 1000)
disp_message (WindowHandle, 'Cylinder\nr = ' + Radius + ' mm', 'image', Row[Index], Column[Index], 'white', 'false')
endfor
endif
if (NumSpheres > 0)
* Display radius for each cylinder sphere
area_center (RegionSphere, Area, Row, Column)
for Index := 0 to NumSpheres - 1 by 1
Radius := int(RadiusSphere[Index] * 1000)
disp_message (WindowHandle, 'Sphere\nr = ' + Radius + ' mm', 'image', Row[Index], Column[Index], 'white', 'false')
endfor
endif
* Example code, if further inspections should be made:
*
* Store only the data of the primitive to save memory
for Index := 0 to |ObjectModel3DOutID| - 1 by 1
* Copy only the data of the primitive
copy_object_model_3d (ObjectModel3DOutID[Index], 'primitives_all', CopiedObjectModel3DID)
* Clear the object model that is no longer used.
clear_object_model_3d (ObjectModel3DOutID[Index])
* Further inspections
* .....
* .....
* Clear the copied model after applying further inspections
clear_object_model_3d (CopiedObjectModel3DID)
endfor
dev_update_on ()
segment_object_model_3d的更多相关文章
随机推荐
- bzoj2631
题解: lct+链上修改 每一次修改的时候记录lazy标记 如果有了乘法,加法的lazy标记也要相应的随之变化 代码: #pragma GCC optimize(2) #include<bits ...
- Location对象的页面跳转方法介绍
JavaScript中使用location对象可以通过很多种方式改变浏览器的位置.最常用的方法应该是下面几种: demo.js 1 2 3 location.href = "http://w ...
- CASIO 5800P计算器游戏--猜数字游戏
CASIO 5800P 计算器游戏--猜数字游戏原代码 我编的计算器小游戏--猜数字游戏 LbI I↙ "xxGUESS NUMBERxx xPROGRAMMER:JCHx -------- ...
- js固定表头的实现(转)
原文链接:http://www.th7.cn/web/js/201509/121055.shtml 参考链接:http://www.jb51.net/article/102568.htm 写两个表格, ...
- NameError: name 'picamera' is not defined
/********************************************************************************* * NameError: name ...
- windows下Java调用mysql的客户端备份和恢复
这种东西没啥好聊的,其实就是Java执行dos界面下的命令,不过有些要注意就是了,真实dos下面的命令和java调用的windows系统的接口其实还是有一点不同. /** * @param hostI ...
- udev笔记
1.udevd的主配置文件是/etc/udev/udev.conf 2.使用udev来监听U的hot-plug事件 #include <stdio.h> #include <stdl ...
- cocos2dx ui显示机制
实验1 1,a.addChild(b); a的宽高没变,还是自己的宽高. 层级添加 不会改变原层大小. 2.node.addChild(sprite);node的宽和高也没变 感觉2dx的显示不是树 ...
- List用法与介绍
泛型的好处:它为使用c#语言编写面向对象程序增加了极大的效力和灵活性.不会强行对值类型进行装箱和拆箱,或对引用类型进行向下强制类型转换,所以性能得到提高. 性能注意事项:在决定使用ILis ...
- RabbitMQ 概念与Java例子
RabbitMQ简介 目前RabbitMQ是AMQP 0-9-1(高级消息队列协议)的一个实现,使用Erlang语言编写,利用了Erlang的分布式特性. 概念介绍: Broker:简单来说就是消息队 ...