[occt.git] / tests / bugs / mesh / bug25157

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
Commit	Line	Data
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