8156dddd |
1 | puts "============" |
2 | puts "OCC26897" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## The mesh should not rebuild on copied shape |
7 | ############################### |
8 | |
8156dddd |
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 |
5d7a0489 |
26 | checktrinfo f -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol} |
8156dddd |
27 | |
28 | # Compare mesh info from copied shape |
5d7a0489 |
29 | checktrinfo fc -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol} |
8156dddd |
30 | |
31 | # Remesh copied shape and compare mesh once again |
32 | incmesh fc 1.0 |
5d7a0489 |
33 | checktrinfo fc -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol} |
8156dddd |
34 | |
35 | copy fc result |
5747059b |
36 | checkview -display result -3d -path ${imagedir}/${test_image}.png |