Design Scripting Documentation


	Bounding box from point cloud


	Inputs:

a point list


	Outputs:

a bounding box object around them

Implementation

01  function bounds_create( pointlist )
02    dim min: min = vertex_clone( pointlist( lbound( pointlist ) ) )
03    dim max: max = vertex_clone( pointlist( lbound( pointlist ) ) )
04    dim index
05    for index = lbound( pointlist ) to ubound( pointlist )
06      if( isarray( pointlist( index ) ) ) then
07        if( pointlist( index )( VERTEX_X ) < min( VERTEX_X ) ) then
08            min( VERTEX_X ) = pointlist( index )( VERTEX_X )
09        end if
10        if( pointlist( index )( VERTEX_X ) > max( VERTEX_X ) ) then
11            max( VERTEX_X ) = pointlist( index )( VERTEX_X )
12        end if
13        if( pointlist( index )( VERTEX_Y ) < min( VERTEX_Y ) ) then
14            min( VERTEX_Y ) = pointlist( index )( VERTEX_Y )
15        end if
16        if( pointlist( index )( VERTEX_Y ) > max( VERTEX_Y ) ) then
17            max( VERTEX_Y ) = pointlist( index )( VERTEX_Y )
18        end if
19        if( pointlist( index )( VERTEX_Z ) < min( VERTEX_Z ) ) then
20            min( VERTEX_Z ) = pointlist( index )( VERTEX_Z )
21        end if
22        if( pointlist( index )( VERTEX_Z ) > max( VERTEX_Z ) ) then
23            max( VERTEX_Z ) = pointlist( index )( VERTEX_Z )
24        end if
25      end if
26    next
27    bounds_create = bounds_new( min, max )
28  end function

The Design Scripting Library, including its sources, online documentation and graphics, are licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 2.5 License.

Online Documentation generated by { vbdoclib } version 1.0
Color-Coding generated by { vbcc } version 2.0
Page timestamp: { Feb. 2, 2006 }