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 "Debian60-64"] != 0} {
  10   set inst ""
  11   if { [regexp -nocase {Windows} $os] == 1 } {
  12     set inst "?"
  13   }
  14   if { [string compare $os "MacOS" ] == 0 } {
  15     set inst "?"
  16   }
  17   # CR23404
  18   puts "TODO ${inst}#22911 ${os}: Faulty shapes in variables faulty_1 to faulty_"
  19 }
  20
  21 ptorus a0 100 20
  22 tcopy a0 a1
  23 tcopy a0 a2
  24 trotate a1 0 0 0 1 0 0 90
  25 trotate a2 0 0 0 0 1 0 90
  26
  27 bop a0 a1
  28 bopfuse x1
  29
  30 bop x1 a2
  31 bopfuse result
  32
  33 set square 197700