tests/bugs/modalg_5/bug23948_1

   1 puts "========="
   2 puts "OCC23948"
   3 puts "========="
   4 puts ""
   5 ###########################################################
   6 # Wrong intersection between a surface of revolution and a plane.
   7 ###########################################################
   8
   9 set MaxTol 1.0e-6
  10 set NbCurv_OK 2
  11
  12 restore [locate_data_file bug22766_f1] f1
  13 restore [locate_data_file bug22766_f2] f2
  14
  15 set log [bopcurves f1 f2 -2d]
  16
  17 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
  18
  19 if {${NbCurv} != ${NbCurv_OK}} {
  20   puts "Error: ${NbCurv_OK} curve(s) expected, but ${NbCurv} found."
  21 }
  22
  23 checkreal TolReached ${Toler} ${MaxTol} 0.0 0.1
  24
  25 bclearobjects
  26 bcleartools
  27
  28 for { set i 1 } { $i <= $NbCurv } { incr i } {
  29   mkedge ee c_$i
  30   baddobjects ee
  31 }
  32
  33 if { $NbCurv > 1 } {
  34   bfillds
  35   bbuild rs
  36   checksection rs -r 2
  37   checkmaxtol rs -ref $MaxTol
  38   checkprops rs -l 111.803
  39 }
  40
  41 smallview
  42 don c_*
  43 fit
  44 disp f1 f2
  45 checkview -screenshot -2d -path ${imagedir}/${test_image}.png