tests/mkface/edges_to_faces/E2

   1 puts "========"
   2 puts "OCC28426"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Implementation of the EdgesToFaces function
   7 #################################################
   8
   9 circle cx 0 0 0 1 0 0 10
  10 circle cy 0 0 0 0 1 0 10
  11 circle cz 0 0 0 0 0 1 10
  12 line lx 0 0 0 1 0 0
  13 line ly 0 0 0 0 1 0
  14 line lz 0 0 0 0 0 1
  15 mkedge ex cx
  16 mkedge ey cy
  17 mkedge ez cz
  18 mkedge elx lx -11 11
  19 mkedge ely ly -11 11
  20 mkedge elz lz -11 11
  21 compound ex ey ez elx ely elz c
  22
  23 edgestofaces result c
  24
  25 checkshape result
  26 checknbshapes result -face 12 -wire 12
  27
  28 if { [regexp "This shape seems to be OK" [bopcheck result]] != 1 } {
  29   puts "Error : The result is self-interfered"
  30 }