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   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_"
  15 }
  16
  17 ptorus a0 100 20
  18 tcopy a0 a1
  19 tcopy a0 a2
  20 trotate a1 0 0 0 1 0 0 90
  21 trotate a2 0 0 0 0 1 0 90
  22
  23 bop a0 a1
  24 bopfuse x1
  25
  26 bop x1 a2
  27 bopfuse result
  28
  29 set square 197700