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   # CR23404
  15   puts "TODO ${inst}#22911 ${os}: Faulty shapes in variables faulty_1 to faulty_"
  16 }
  17
  18 if {  [string compare $os "CentOS55-64"] == 0
  19   ||  [string compare $os "Debian40"] == 0
  20   ||  [string compare $os "Debian40-64"] == 0
  21   ||  [string compare $os "Mandriva2008"] == 0
  22   ||  [string compare $os "Mandriva2008-64"] == 0
  23   ||  [string compare $os "SL51-64"] == 0
  24 } {
  25   puts "TODO OCC22911 $os: Error : The square of result shape is"
  26 }
  27
  28 ptorus a0 100 20
  29 tcopy a0 a1
  30 tcopy a0 a2
  31 trotate a1 0 0 0 1 0 0 90
  32 trotate a2 0 0 0 0 1 0 90
  33
  34 bop a0 a1
  35 bopfuse x1
  36
  37 bop x1 a2
  38 bopfuse result
  39
  40 set square 197700