tests/bugs/modalg_5/bug25224

   1 puts "================"
   2 puts "OCC25224"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # The section curve between two cylindrical faces is incomplete
   7 #######################################################################
   8
   9 restore [locate_data_file bug25224_Input_5.brep]  b1
  10 restore [locate_data_file bug25224_Input_21.brep] b2
  11
  12 # 1. bopcurves
  13 explode b1 f
  14 explode b2 f
  15
  16 set log [bopcurves b1_1 b2_1]
  17
  18 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
  19 set MaxTol 1.e-7
  20 if {${Toler} > ${MaxTol}} {
  21   puts "Error: Tolerance is too big!"
  22 }
  23 checklength c_1 -l 0.52377379499528021
  24
  25 # 2. BOP
  26 bclearobjects
  27 bcleartools
  28 baddobjects b1
  29 baddtools b2
  30 bfillds
  31 bbuild result
  32
  33 checkprops result -s 21.4983
  34 checkshape result
  35
  36 checknbshapes result -vertex 10 -edge 19 -wire 13 -face 13 -shell 3 -solid 3 -compsolid 0 -compound 1 -shape 62
  37 set 3dviewer 1