tests/bugs/modalg_4/bug6766_1

   1 puts "================"
   2 puts "OCC6766"
   3 puts "================"
   4 puts ""
   5 #######################################################################################
   6 # Invalid result of intersection of a bspline face with a plane
   7 #######################################################################################
   8
   9 set BugNumber OCC6766
  10
  11 restore [locate_data_file OCC6766.brep] a
  12
  13 decho off
  14 set che_a [checkshape a]
  15 decho on
  16 if { [regexp {Faulty} $che_a] } {
  17     puts "Faulty ${BugNumber} : checkshape is wrong for s1"
  18 }
  19
  20 set Y 4
  21 plane pl 0 ${Y} 0 0 1 0
  22 mkface f pl
  23 bsection result a f
  24
  25
  26
  27 set nb_v_good 4
  28 set nb_e_good 3
  29 set nb_w_good 0
  30 set nb_f_good 0
  31 set nb_sh_good 0
  32 set nb_sol_good 0
  33 set nb_compsol_good 0
  34 set nb_compound_good 1
  35 set nb_shape_good 8
  36
  37 set length 138.474
  38 set 2dviewer 0