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 checknbshapes result -vertex 4 -edge 3 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 8
  28 set length 138.474
  29 set 2dviewer 0