tests/bugs/modalg_6/bug27252_1

   1 puts "============"
   2 puts "OCC27252"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Implicit-implicit intersection (Cylinder-Plane) loses intersection curve
   7 #######################################################################
   8
   9 set GoodNbCurv 1
  10 set MaxTol 1.0e-7
  11
  12 restore [locate_data_file bug27221.brep] a
  13 explode a
  14 mkplane f a_2
  15 prism p f -25 0 0
  16 explode a_1 f
  17 explode p f
  18 don a_1_7 p_3
  19
  20 set log [bopcurves a_1_7 p_3 -2d]
  21
  22 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
  23
  24 if {${NbCurv} != ${GoodNbCurv}} {
  25   puts "Error: Curve Number is bad!"
  26 }
  27
  28 if {${Toler} > ${MaxTol}} {
  29   puts "Error: Tolerance is too big!"
  30 }
  31
  32 smallview
  33 don c_*
  34 fit
  35 display a_1_7 p_3
  36
  37 checkview -screenshot -2d -path ${imagedir}/${test_image}.png