tests/perf/modalg/bug28886

   1 puts "============"
   2 puts "OCC28886"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ##  infinite loop at intersecting two faces / surfaces
   7 ###############################
   8
   9 cpulimit 60
  10
  11 restore [locate_data_file bug28886_Faces.brep] ff
  12 explode ff f
  13 mksurface ss1 ff_1
  14 mksurface ss2 ff_2
  15
  16 smallview
  17 clear
  18
  19 dchrono h2 restart
  20 set CurveNumb [intersect result ss1 ss2]
  21 dchrono h2 stop counter bug28886CNB
  22
  23 if { [llength ${CurveNumb}] < 1 } {
  24     puts "Error : Bad intersection"
  25 } else {
  26     puts "OK : Good intersection"
  27 }
  28
  29 fit
  30 disp ss1 ss2
  31 nbiso ss1 ss2 4 4
  32 clpoles ss1
  33 clpoles ss2
  34
  35 checkview -screenshot -2d -path ${imagedir}/${test_image}.png