tests/mkface/edges_to_faces/A7

   1 puts "========"
   2 puts "OCC28426"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Implementation of the EdgesToFaces function
   7 #################################################
   8
   9 restore [locate_data_file bug25926_before_offset.brep] s
  10 eval compound [explode s e] c
  11
  12 edgestofaces result c
  13
  14 checkshape result
  15 checknbshapes result -face 66 -wire 66
  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