1 puts "================"
3 puts "================"
5 #######################################################################################
6 # Incorrect calculation of bounding box for infinite surfaces
7 #######################################################################################
13 set info_result [bounding f -save x1 y1 z1 x2 y2 z2]
17 set good_z1 -9.9999999999999995e-08
20 set good_z2 9.9999999999999995e-08
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