tests/bugs/modalg_1/buc60663_1

   1
   2 puts "====================================="
   3 puts "BUC60663"
   4 puts "====================================="
   5 puts ""
   6 puts "It takes visual check for this BUG. See V2 point"
   7 puts "====================================="
   8 puts ""
   9
  10 restore [locate_data_file buc60663a.brep] a
  11 checkshape a
  12 restore [locate_data_file buc60663b.brep] b
  13 checkshape b
  14
  15 bsection result a b
  16
  17 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
  18 if { $num != 2 } {
  19     puts " Faulty : Result shape is INcorrect !!! "
  20 }
  21
  22
  23 #fsameparameter res
  24
  25 set length 26.2001
  26 set 2dviewer 0