tests/bugs/filling/bug16833

   1 puts "============"
   2 puts "OCC16833"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Error in Coons algorithm
   7 #######################################################################
   8
   9 set BugNumber OCC16833
  10
  11 restore [locate_data_file OCC16833-c1.draw] c1
  12 restore [locate_data_file OCC16833-c2.draw] c2
  13 restore [locate_data_file OCC16833-c3.draw] c3
  14 restore [locate_data_file OCC16833-c4.draw] c4
  15
  16 set  mistake 0
  17 if [catch { fillcurves result c1 c2 c3 c4 } res] {
  18   set  mistake 1
  19   puts "Faulty ${BugNumber}: filling problem"
  20 } else {
  21   puts "Filling ${BugNumber}  OK"
  22   set What [whatis result]
  23   if { [regexp "surface" $What] != 1 } {
  24     set  mistake 1
  25   } else {
  26     set  mistake 0
  27   }
  28 }
  29
  30 # Resume
  31 puts ""
  32 if { ${mistake} != 0 } {
  33    puts "Faulty ${BugNumber}"
  34 } else {
  35    puts "OK ${BugNumber}"
  36 }
  37