* ***********************************************************************

* 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的更多相关文章

随机推荐

  1. openfalcon源码分析之graph

    openfalcon源码分析之graph 本节内容 graph功能 graph源码分析 2.1 graph中重要的数据结构 2.2 graph的简要流程图 2.3 graph处理数据过程 2.4 gr ...

  2. Total Defense Anti-Virus – 免费6个月

    Total Defense Anti-Virus 具有病毒和间谍软件保护,免费的专家远程安装和设置,快速扫描引擎不会拖慢电脑速度,基于云保护.高级Rootkit保护,自动扫描驱动器和内存等等.官方网站 ...

  3. WebLogic发布S2SH应用时提示ClassNotFoundException: org.hibernate.hql.ast.HqlToken异常

    使用Spring+hibernate如下 <properties> <!--定义方言.fetch深度.是否显示sql--> <property name="hi ...

  4. oracle创建触发器

    create or replace trigger 触发器名字 触发时间 触发事件 after(before)  insert or update or delete on 表名 for each r ...

  5. 关键词提取算法-TextRank

    今天要介绍的TextRank是一种用来做关键词提取的算法,也可以用于提取短语和自动摘要.因为TextRank是基于PageRank的,所以首先简要介绍下PageRank算法. 1.PageRank算法 ...

  6. Winform菜单之Menustrip

    有窗体必定有菜单了,可以直接使用菜单组件,也可以使用按钮(按钮就没法显示级联菜单的形式了). 下面重点介绍一下各种菜单 1.Menustrip 最常用的莫过于此菜单了,从工具栏中拖入一个menustr ...

  7. java定时器无法自动注入的问题解析(原来Spring定时器可以这样注入service)

    近些日子在做一个项目,在项目中需要用到spring的定时任务,但是在操作数据库的时候发现总是不能正确的进行数据的插入,经过查看才发现:是因为service层不能够通过普通的方法注入到action,所以 ...

  8. Js 实战3(实现全选)

    <%@ Page Language="C#" AutoEventWireup="true" CodeFile="Default4.aspx.cs ...

  9. table中tr间距的设定table合并单元格 colspan(跨列)和rowspan(跨行)

    table中的tr的默认display:table-row,虽然可以修改为display:block但是就失去了tr特有的显示效果,如(td自动对齐): 并且在tr中对起设定padding是有用的,可 ...

  10. Chrome Developer Tools 中的 Preview 不显示 HTML 的问题

    Chrome Developer Tools 中的 Preview 不显示 HTML 的问题 最近升级到 Chrome V64,发现 Chrome Developer Tools 中的 Preview ...