puts "========"
puts "OCC29311"
puts "========"
puts ""
#################################################
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################

# Interferences of OBB

box b1 100 150 200
copy b1 b2
trotate b1 -50 -50 -50 1 1 1 -40
trotate b2 -50 -50 -50 1 1 1 60

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"
}
