mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-07-30 13:05:50 +03:00
24 lines
578 B
Plaintext
Executable File
24 lines
578 B
Plaintext
Executable File
puts "TODO OCC12345 ALL: Tcl Exception: result is not a topological shape!!!"
|
|
puts "TODO OCC12345 ALL: TEST INCOMPLETE"
|
|
|
|
puts "========================"
|
|
puts " OCC469 "
|
|
puts "========================"
|
|
puts ""
|
|
######################################################
|
|
## It's impossible to fuse the two shapes in the file attached. #2740, SAM1493
|
|
######################################################
|
|
|
|
restore [locate_data_file OCC469.brep] a
|
|
explode a
|
|
|
|
checkshape a_1
|
|
checkshape a_2
|
|
|
|
bfuse result a_1 a_2
|
|
puts [checkshape result]
|
|
|
|
set check_square 1
|
|
set square 10
|
|
set 2dviewer 0
|