puts "========" puts "OCC29311" puts "========" puts "" ################################################# # Implementation of the Oriented Bounding Boxes (OBB) functionality ################################################# # Interferences of AABB box b1 100 60 140 20 10 80 box b2 210 200 80 120 60 90 if { ![regexp {NOT interfered by AABB} [ isbbinterf b1 b2 ] ] } { puts "Error : Wrong check of AABBs interferences" } else { puts "OK : check of AABBs interferences" } if { ![regexp {NOT interfered by AABB} [ isbbinterf b2 b1 ] ] } { puts "Error : Wrong check of AABBs interferences" } else { puts "OK : check of AABBs interferences" }