mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-15 11:44:07 +03:00
32 lines
814 B
Plaintext
Executable File
32 lines
814 B
Plaintext
Executable File
if { [array get env os_type] != "" } {
|
|
set os $env(os_type)
|
|
}
|
|
if { [string compare $os "windows"] == 0 } {
|
|
puts "TODO OCC12345 ALL: An exception was caught"
|
|
puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
|
|
} else {
|
|
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
|