tests/bugs/modalg_6/bug26897

   1 puts "============"
   2 puts "OCC26897"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## The mesh should not rebuild on copied shape
   7 ###############################
   8
   9 pload MODELING
  10 set tol 1.0e-7
  11
  12 cone c 0 0 0 45 0
  13 mkface f c 0 6.28318530717958647 0 10
  14
  15 # Mesh the face and store initial data
  16 incmesh f 0.1
  17 set base [trinfo f]
  18 regexp {This shape contains ([0-9]+) triangles.\s* ([0-9]+) nodes.} $base dummy base_tria base_nodes
  19 regexp {Maximal deflection ([-0-9.+eE]+)} $base dummy base_defl
  20
  21 # Copy face
  22 tcopy -m f fc
  23
  24 # Remesh initial face and check it is not changed
  25 incmesh f 1.0
  26 checktrinfo f -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol}
  27
  28 # Compare mesh info from copied shape
  29 checktrinfo fc -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol}
  30
  31 # Remesh copied shape and compare mesh once again
  32 incmesh fc 1.0
  33 checktrinfo fc -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol}
  34
  35 copy fc result
  36 checkview -display result -3d -path ${imagedir}/${test_image}.png