tests/bugs/modalg_2/bug23174

   1 puts "================"
   2 puts "OCC23174"
   3 puts "================"
   4 puts ""
   5 ##############################################################################
   6 # BRepLib_MakeFace(Wire) creates an invalid face on a wire of cylinder bottom
   7 ##############################################################################
   8
   9 set BugNumber OCC23174
  10
  11 catch {pload XDE}
  12
  13 set status 0
  14
  15 # make a cylinder
  16 pcylinder cyl 50 150
  17
  18 # get wires
  19 explode cyl W
  20
  21 # make a face from the 3-d wire (planar bottom of the cylinder)
  22 mkplane f cyl_3 0
  23
  24 # BUG: face is built on a cylindrical face of the cylinder instead of
  25 # a bottom face
  26 set reslog [checkshape f -short]
  27 puts $reslog
  28 if { $reslog != "This shape seems to be valid" } { set status 1 }
  29
  30 # ========================================================================
  31 # Make a new cylindrical face from a wire composed from more than 3 edges
  32 # to check that the bug fix is valid for a wire of more than 1 edge
  33 # ========================================================================
  34
  35 # get a bottom edge cyl_1; cyl_2 is a top edge; cyl_3 is a seam edge
  36 nexplode cyl E
  37
  38 # get its 3D curve
  39 mkcurve c3D cyl_1
  40
  41 # split cyl_1 into 3 edges
  42 mkedge e1 c3D 0 2
  43 mkedge e2 c3D 2 4
  44 mkedge e3 c3D 4 6.28318530717959
  45
  46 # make a reversed seam
  47 copy cyl_3 cyl_3_r
  48 treverse cyl_3_r
  49
  50 # make a new wire for a new cylindrical face
  51 wire w e1 e2 e3 cyl_3 cyl_2 cyl_3_r
  52
  53 # get a surface for a new face
  54 nexplode cyl F
  55 mksurface cyl_surf cyl_3
  56
  57 # make a new cylindrical face
  58 mkface cyl_face_0 cyl_surf w
  59 fixshape cyl_face cyl_face_0
  60
  61 # make a wire of 3 bottom edges to check the fix
  62 explode cyl_face E
  63 wire w cyl_face_2 cyl_face_1 cyl_face_3
  64
  65 # check the fix, i.e. that cylindrical surface is rejected and thus a valid face is built
  66 mkplane f w 0
  67 donly f
  68 set res_log [checkshape f -short]
  69 puts $reslog
  70 if { $reslog != "This shape seems to be valid" } { set status 1 }
  71
  72 # =================================================================
  73 #check that mkplane finds cyl_surf if the wire of cyl_face is given
  74 # =================================================================
  75
  76 explode cyl_face W
  77 mkplane f cyl_face_1 0
  78
  79 # get surface of f
  80 mksurface cyl_surf_2 f
  81
  82 # compare points of 2 surfaces at same UV
  83 svalue cyl_surf   1 1 x1 y1 z1
  84 svalue cyl_surf_2 1 1 x2 y2 z2
  85
  86 if { [ expr [dval x1] - [dval x2] ] > 0.0 } { set status 1 }
  87 if { [ expr [dval y1] - [dval y2] ] > 0.0 } { set status 1 }
  88 if { [ expr [dval z1] - [dval z2] ] > 0.0 } { set status 1 }
  89
  90 # Resume
  91 puts ""
  92 if { ${status} != 0 } {
  93    puts "Faulty ${BugNumber}"
  94 } else {
  95    puts "OK ${BugNumber}"
  96 }
  97 renamevar f result
  98 set square 47123.9
  99 set 2dviewer 0
 100
 101
 102
 103