tests/bugs/demo/bug25445

   1 puts "========"
   2 puts "OCC25445"
   3 puts "========"
   4 puts ""
   5 #######################################################################
   6 # Draw command incmesh should support all parameters used in BRepMesh
   7 #######################################################################
   8
   9 pcone aCone 100 10 100
  10
  11 tclean aCone
  12 incmesh aCone 0.01 -a 10.
  13 set bug_info [trinfo aCone]
  14 set NbTrian_1 [lindex $bug_info 3]
  15 set NbNodes_1 [lindex $bug_info 5]
  16
  17 tclean aCone
  18 incmesh aCone 0.01 -a 1.
  19 set bug_info [trinfo aCone]
  20 set NbTrian_2 [lindex $bug_info 3]
  21 set NbNodes_2 [lindex $bug_info 5]
  22
  23 if {$NbTrian_1 == $NbTrian_2} {
  24   puts "ERROR: OCC25445 is not fixed. Number of triangles are equal for both meshes."
  25 }
  26 if {$NbNodes_1 == $NbNodes_2} {
  27   puts "ERROR: OCC25445 is not fixed. Number of nodes are equal for both meshes."
  28 }