5 ###################################################
6 # Face missing depending the angle of revolution
7 ###################################################
12 pcylinder Cylinder 1 6 360
13 ttranslate Cylinder 0 3 1
14 bcut Cut Cone Cylinder
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
22 if { ${nbtri_s} == 0 } {
23 puts "Error: shape contains 0 triangles"
25 puts "OK: shape contains ${nbtri_s} triangles"
28 if { ${nbnod_s} == 0 } {
29 puts "Error: shape contains 0 nodes"
31 puts "OK: shape contains ${nbnod_s} nodes"