puts "========"
puts "OCC27131"
puts "========"
puts ""
##############################################
# DistShapeShape works slow on attached shapes
##############################################
restore [locate_data_file bug27131.brep] aShape
explode aShape

cpulimit 20

# Check computation time
dchrono h restart
for { set i 1 } { $i <= 100 } { incr i } {
  distmini d aShape_1 aShape_2
}
dchrono h stop counter distmini

# Check result of distance distance
set absTol 1.0e-10
set relTol 0.001
set aDist_Exp 0.0029087110153708622
set aDist [dval d_val]
checkreal "Distance value check" $aDist $aDist_Exp $absTol $relTol