tests/bugs/modalg_7/bug29311_8

   1 puts "========"
   2 puts "OCC29311"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Implementation of the Oriented Bounding Boxes (OBB) functionality
   7 #################################################
   8
   9 # Interferences of OBB
  10
  11 box b1 100 150 200
  12 copy b1 b2
  13 trotate b1 -150 -150 -150 1 2 3 -40
  14 trotate b2 -150 -150 -150 1 5 2 60
  15
  16 if { ![regexp {NOT interfered by OBB} [ isbbinterf b1 b2 -o ] ] } {
  17     puts "Error : Wrong check of OBBs interferences"
  18 } else {
  19     puts "OK : check of OBBs interferences"
  20 }
  21
  22 if { ![regexp {NOT interfered by OBB} [ isbbinterf b2 b1 -o ] ] } {
  23     puts "Error : Wrong check of OBBs interferences"
  24 } else {
  25     puts "OK : check of OBBs interferences"
  26 }