a806787b |
1 | puts "=========" |
2 | puts "CR25157" |
3 | puts "=========" |
4 | puts "" |
5 | ################################################### |
6 | # Face missing depending the angle of revolution |
7 | ################################################### |
8 | |
9 | pload XDE |
10 | |
11 | pcone Cone 6 0 10 180 |
12 | pcylinder Cylinder 1 6 360 |
13 | ttranslate Cylinder 0 3 1 |
14 | bcut Cut Cone Cylinder |
15 | explode Cut F |
16 | tclean Cut_1 |
17 | incmesh Cut_1 0.1 |
18 | set trinfo_s [trinfo Cut_1] |
19 | regexp {([0-9]+) triangles} ${trinfo_s} str nbtri_s |
20 | regexp {([0-9]+) nodes} ${trinfo_s} str nbnod_s |
21 | |
22 | if { ${nbtri_s} == 0 } { |
23 | puts "Error: shape contains 0 triangles" |
24 | } else { |
25 | puts "OK: shape contains ${nbtri_s} triangles" |
26 | } |
27 | |
28 | if { ${nbnod_s} == 0 } { |
29 | puts "Error: shape contains 0 nodes" |
30 | } else { |
31 | puts "OK: shape contains ${nbnod_s} nodes" |
32 | } |
33 | |
34 | vinit |
35 | vdisplay Cut_1 |
36 | vfit |
37 | set only_screen 1 |