mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
35 lines
985 B
Plaintext
Executable File
35 lines
985 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC6503"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################################
|
|
# Incorrect calculation of bounding box for infinite surfaces
|
|
#######################################################################################
|
|
|
|
set BugNumber OCC6503
|
|
|
|
plane pl 0 0 0 0 0 1
|
|
mkface f pl
|
|
set info_result [bounding f]
|
|
|
|
set x1 [lindex ${info_result} 0]
|
|
set y1 [lindex ${info_result} 1]
|
|
set z1 [lindex ${info_result} 2]
|
|
set x2 [lindex ${info_result} 3]
|
|
set y2 [lindex ${info_result} 4]
|
|
set z2 [lindex ${info_result} 5]
|
|
|
|
set good_x1 -1e+100
|
|
set good_y1 -1e+100
|
|
set good_z1 -9.9999999999999995e-08
|
|
set good_x2 1e+100
|
|
set good_y2 1e+100
|
|
set good_z2 9.9999999999999995e-08
|
|
|
|
checkreal "x1" ${x1} ${good_x1} 0 0.001
|
|
checkreal "y1" ${y1} ${good_y1} 0 0.001
|
|
checkreal "z1" ${z1} ${good_z1} 0 0.001
|
|
checkreal "x2" ${x2} ${good_x2} 0 0.001
|
|
checkreal "y2" ${y2} ${good_y2} 0 0.001
|
|
checkreal "z2" ${z2} ${good_z2} 0 0.001
|