mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
31 lines
832 B
Plaintext
Executable File
31 lines
832 B
Plaintext
Executable File
puts "TODO OCC25917 ALL: Faulty shapes in variables faulty_1 to faulty_"
|
|
puts "TODO OCC25917 ALL: Error : The square of result shape is"
|
|
puts "TODO OCC25917 ALL: Error : is WRONG because number of "
|
|
if { [regexp {Debug mode} [dversion]] } {
|
|
puts "TODO OCC25917 ALL: TEST INCOMPLETE"
|
|
puts "TODO OCC25917 ALL: Tcl Exception"
|
|
}
|
|
|
|
puts "========================"
|
|
puts " OCC472 "
|
|
puts "(case 3)"
|
|
puts "========================"
|
|
puts ""
|
|
#####################################################
|
|
## Bad result of Fuse Operation (Cut&Common - bad too). SAM1470 (#2634)
|
|
#####################################################
|
|
|
|
restore [locate_data_file OCC472a.brep] b1
|
|
checkshape b1
|
|
|
|
restore [locate_data_file OCC472b.brep] b2
|
|
checkshape b2
|
|
|
|
bfuse result b1 b2
|
|
|
|
checknbshapes result -vertex 66 -edge 107
|
|
|
|
set square 31657.5
|
|
set 2dviewer 0
|
|
|