puts "========" puts "OCC29311" puts "========" puts "" ################################################# # Implementation of the Oriented Bounding Boxes (OBB) functionality ################################################# # Interferences of OBB box b1 -300 -300 -300 600 600 600 box b2 100 100 100 trotate b1 0 0 0 1 2 3 -28 trotate b2 0 0 0 5 6 7 34 if { [regexp {NOT interfered by OBB} [ isbbinterf b1 b2 -o ] ] } { puts "Error : Wrong check of OBBs interferences" } else { puts "OK : check of OBBs interferences" } if { [regexp {NOT interfered by OBB} [ isbbinterf b2 b1 -o ] ] } { puts "Error : Wrong check of OBBs interferences" } else { puts "OK : check of OBBs interferences" }