mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
38 lines
793 B
Plaintext
38 lines
793 B
Plaintext
puts "========="
|
|
puts "CR25157"
|
|
puts "========="
|
|
puts ""
|
|
###################################################
|
|
# Face missing depending the angle of revolution
|
|
###################################################
|
|
|
|
pload XDE
|
|
|
|
pcone Cone 6 0 10 180
|
|
pcylinder Cylinder 1 6 360
|
|
ttranslate Cylinder 0 3 1
|
|
bcut Cut Cone Cylinder
|
|
explode Cut F
|
|
tclean Cut_1
|
|
incmesh Cut_1 0.1
|
|
set trinfo_s [trinfo Cut_1]
|
|
regexp {([0-9]+) triangles} ${trinfo_s} str nbtri_s
|
|
regexp {([0-9]+) nodes} ${trinfo_s} str nbnod_s
|
|
|
|
if { ${nbtri_s} == 0 } {
|
|
puts "Error: shape contains 0 triangles"
|
|
} else {
|
|
puts "OK: shape contains ${nbtri_s} triangles"
|
|
}
|
|
|
|
if { ${nbnod_s} == 0 } {
|
|
puts "Error: shape contains 0 nodes"
|
|
} else {
|
|
puts "OK: shape contains ${nbnod_s} nodes"
|
|
}
|
|
|
|
vinit
|
|
vdisplay Cut_1
|
|
vfit
|
|
set only_screen 1
|