tests/bugs/modalg_7/bug29311_15

   1 puts "========"
   2 puts "OCC29311"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Implementation of the Oriented Bounding Boxes (OBB) functionality
   7 #################################################
   8
   9 set px 1
  10 set py 2
  11 set pz 3
  12
  13 vertex vv $px $py $pz
  14 set log [bounding vv -obb -dump]
  15
  16 if {![regexp {Center: +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} $log full xc yc zc]} {
  17   puts "Error in Dump."
  18 }
  19
  20 checkreal "XC" $xc $px 1.0e-7 0.0
  21 checkreal "YC" $yc $py 1.0e-7 0.0
  22 checkreal "ZC" $zc $pz 1.0e-7 0.0