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 f]
  14
  15 set x1 [lindex ${info_result} 0]
  16 set y1 [lindex ${info_result} 1]
  17 set z1 [lindex ${info_result} 2]
  18 set x2 [lindex ${info_result} 3]
  19 set y2 [lindex ${info_result} 4]
  20 set z2 [lindex ${info_result} 5]
  21
  22 set good_x1 -1e+100
  23 set good_y1 -1e+100
  24 set good_z1 -9.9999999999999995e-08
  25 set good_x2 1e+100
  26 set good_y2 1e+100
  27 set good_z2 9.9999999999999995e-08
  28
  29 checkreal "x1" ${x1} ${good_x1} 0 0.001
  30 checkreal "y1" ${y1} ${good_y1} 0 0.001
  31 checkreal "z1" ${z1} ${good_z1} 0 0.001
  32 checkreal "x2" ${x2} ${good_x2} 0 0.001
  33 checkreal "y2" ${y2} ${good_y2} 0 0.001
  34 checkreal "z2" ${z2} ${good_z2} 0 0.001