Corrected integration
[occt.git] / tests / boolean / bopfuse_simple / ZP6
CommitLineData
40093367 1#
2# *10603
3#
4#Create 3 torus
5set os "ALL"
6if {[array get env os_type] != ""} {
7 set os $env(os_type)
8}
9if {[string compare $os "Debian50-64"] != 0 && [string compare $os "Debian60-64"] != 0 && [string compare $os "Mandriva2010-64"] != 0} {
15f88c12 10 set inst ""
11 if { [regexp -nocase {Windows} $os] == 1 } {
12 set inst "?"
13 }
14 puts "TODO ${inst}#22911 ${os}: Faulty shapes in variables faulty_1 to faulty_"
8418c617 15}
40093367 16
17ptorus a0 100 20
18tcopy a0 a1
19tcopy a0 a2
20trotate a1 0 0 0 1 0 0 90
21trotate a2 0 0 0 0 1 0 90
22
23bop a0 a1
24bopfuse x1
25
26bop x1 a2
27bopfuse result
28
29set square 197700