tests/bugs/moddata_2/bug6503

   1 puts "================"
   2 puts "OCC6503"
   3 puts "================"
   4 puts ""
   5 #######################################################################################
   6 # Incorrect calculation of bounding box for infinite surfaces
   7 #######################################################################################
   8
   9 set BugNumber OCC6503
  10
  11 plane pl 0 0 0 0 0 1
  12 mkface f pl
  13 set info_result [bounding -s f -save x1 y1 z1 x2 y2 z2]
  14
  15 set good_x1 -1e+100
  16 set good_y1 -1e+100
  17 set good_z1 -9.9999999999999995e-08
  18 set good_x2 1e+100
  19 set good_y2 1e+100
  20 set good_z2 9.9999999999999995e-08
  21
  22 checkreal "x1" [dval x1] ${good_x1} 0 0.001
  23 checkreal "y1" [dval y1] ${good_y1} 0 0.001
  24 checkreal "z1" [dval z1] ${good_z1} 0 0.001
  25 checkreal "x2" [dval x2] ${good_x2} 0 0.001
  26 checkreal "y2" [dval y2] ${good_y2} 0 0.001
  27 checkreal "z2" [dval z2] ${good_z2} 0 0.001