1.彩色显示
*读取三维点云
dev_get_window(WindowHandle)dev_open_window(0, 0, 512, 512, 'black', WindowHandle1)
read_object_model_3d('./19-12-26/t.ply', 'm', [], [], ObjectModel3D, Status)Instructions[0] := 'Rotate: Left button'
Instructions[1] := 'Zoom: Shift + left button'
Instructions[2] := 'Move: Ctrl + left button'*彩色显示用的 0-----渐变色 ----伪彩图
GenParamNames := ['lut','intensity','light_position','disp_pose','alpha']
GenParamValues := ['color1','coord_z','0.0 0.0 -0.3 1.0','true',1]*属于直通滤波
select_points_object_model_3d(ObjectModel3D, \'point_coord_z', 200, 290, ObjectZ)
select_points_object_model_3d(ObjectZ, \'point_coord_x', -10, 100, ObjectX)
select_points_object_model_3d(ObjectX, \'point_coord_y', -30, 200, ObjectY)*内参，与pose配合使用
CamParam := [0.01,0,7e-6,7e-6,512/2, 512/2,512, 512]
DisPose:=[30.427, -1.05274, 97.8798, 8.29326, 356.416, 99.016, 0]visualize_object_model_3d(WindowHandle1,ObjectY, CamParam, DisPose,\GenParamNames, GenParamValues, '3d 机器视觉', 'obj', Instructions, PoseOut)
2.单色显示
*单色显示 没有渐变效果 alpha 透明度
GenParNames := ['color_0','alpha','disp_pose']
GenParValues := ['green',0.1,'true']
visualize_object_model_3d(WindowHandle1, ObjectY, [], [],GenParNames,GenParValues,\[], [], [], PoseOut)
3.静态显示
*静态显示
disp_object_model_3d(WindowHandle1, ObjectY, CamParam, DisPose, GenParamNames, GenParamValues)
4.获取点云数据的各个坐标点，保存坐标点，读取点重新生成点云数据
get_object_model_3d_params (ObjectY, 'point_coord_x', x)get_object_model_3d_params (ObjectY, 'point_coord_y', y)get_object_model_3d_params (ObjectY, 'point_coord_z', z)write_tuple(x, 'x')write_tuple(y, 'y')write_tuple(z, 'z')gen_object_model_3d_from_points(x, y, z, ObjectModel3D)write_object_model_3d(ObjectModel3D, 'om3', 'object1.om3', [], [])visualize_object_model_3d (WindowHandle1,ObjectModel3D, [],[], \GenParNames,GenParValues, [], [],\Instructions, DispPose)
