tests/perf/fclasses/bug27371

   1 puts "========"
   2 puts "OCC27371"
   3 puts "========"
   4 puts ""
   5 ##############################################
   6 # Regression: BRepExtrema works too much slower in 691 (from 670)
   7 ##############################################
   8 restore [locate_data_file bug27371.brep] aShape
   9 explode aShape
  10
  11 cpulimit 20
  12
  13 # Check computation time
  14 dchrono h restart
  15 for { set i 1 } { $i <= 100 } { incr i } {
  16   distmini d aShape_1 aShape_2
  17   distmini d aShape_2 aShape_1
  18 }
  19 dchrono h stop counter distmini
  20
  21 # Check result of distance distance
  22 set absTol 1.0e-10
  23 set relTol 0.001
  24 set aDist_Exp 0.2
  25 set aDist [dval d_val]
  26 checkreal "Distance value check" $aDist $aDist_Exp $absTol $relTol