tests/mkface/edges_to_faces/B2

   1 puts "========"
   2 puts "OCC28426"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Implementation of the EdgesToFaces function
   7 #################################################
   8
   9 restore [locate_data_file bug28426_edges_1.brep] c
  10
  11 edgestofaces result c
  12
  13 checkshape result
  14 checknbshapes result -face 8 -wire 8
  15
  16 if { [regexp "This shape seems to be OK" [bopcheck result]] != 1 } {
  17   puts "Error : The result is self-interfered"
  18 }
  19
  20 checkview -display result -2d -path ${imagedir}/${test_image}.png