tests/boolean/bopfuse_simple/ZP6

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