#
# *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 "?"
  }
  # CR23404
  puts "TODO ${inst}#22911 ${os}: Faulty shapes in variables faulty_1 to faulty_"
}

if {  [string compare $os "CentOS55-64"] == 0
  ||  [string compare $os "Debian40"] == 0 
  ||  [string compare $os "Debian40-64"] == 0
  ||  [string compare $os "Mandriva2008"] == 0
  ||  [string compare $os "Mandriva2008-64"] == 0
  ||  [string compare $os "SL51-64"] == 0
} {
  puts "TODO OCC22911 $os: Error : The square of result shape is"
}

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