tests/bugs/moddata/buc60623_3

   1 puts "========================"
   2 puts "BUC60623"
   3 puts "========================"
   4
   5 restore [locate_data_file buc60623a.brep] a
   6 puts [checkshape a]
   7 restore [locate_data_file buc60623b.brep] b
   8 puts [checkshape b]
   9
  10 mksurface S1 a
  11 mksurface S2 b
  12
  13 intersect I1 S1 S2
  14 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection I1] full cs2
  15 if { $cs2 != 0 } {
  16     puts " Faulty : Intersection is not correct"
  17 } else {
  18     puts "Intersection of S1 and S2 is correct"
  19 }
  20
  21 intersect I2 S2 S1
  22 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection I2] full cs2
  23 if { $cs2 != 0 } {
  24     puts " Faulty : Intersection is not correct"
  25 } else {
  26     puts "Intersection of S2 and S1 is correct"
  27 }
  28
  29 set 2dviewer 0
  30