c47379ab78ced4ee907d29bb9299f7d2604461e7
[occt.git] / tests / bugs / mesh / bug25157
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 checkview -screenshot -3d -path ${imagedir}/${test_image}.png