mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-09 13:22:24 +03:00
30 lines
568 B
Plaintext
30 lines
568 B
Plaintext
#
|
|
# *10603
|
|
#
|
|
#Create 3 torus
|
|
set os "ALL"
|
|
if {[array get env os_type] != ""} {
|
|
set os $env(os_type)
|
|
}
|
|
if {[string compare $os "Debian50-64"] != 0 && [string compare $os "Debian60-64"] != 0 && [string compare $os "Mandriva2010-64"] != 0} {
|
|
set inst ""
|
|
if { [regexp -nocase {Windows} $os] == 1 } {
|
|
set inst "?"
|
|
}
|
|
puts "TODO ${inst}#22911 ${os}: Faulty shapes in variables faulty_1 to faulty_"
|
|
}
|
|
|
|
ptorus a0 100 20
|
|
tcopy a0 a1
|
|
tcopy a0 a2
|
|
trotate a1 0 0 0 1 0 0 90
|
|
trotate a2 0 0 0 0 1 0 90
|
|
|
|
bop a0 a1
|
|
bopfuse x1
|
|
|
|
bop x1 a2
|
|
bopfuse result
|
|
|
|
set square 197700
|