tests/mkface/edges_to_faces/A6

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