[occt.git] / tests / bugs / vis / bug30437

puts "============="
puts "0030437: Visualization, TKV3d - add Draw command to print rendering statistics"
puts "============="

pload MODELING VISUALIZATION
vclear
vinit View1 -width 800 -height 400
vdrawparray g trianglestrips v -97.9819 -175.225 -7.6706 v -97.9819  194.163 -7.6706 v 271.406  -175.225 -7.6706 v 271.406   194.163 -7.6706

vpoint pl1  -4 -17  0
vpoint pl2  -4 -10 14
vpoint pl3   0  -6 17
vpoint pr1 179  17 39
vpoint pr2 174  -2 12
vpoint pr3 177   0 15
vfit

vcamera -persp
vviewparams -scale 5 -proj -0 -1 -0 -up 0 0 1 -at -157 9.5 19
vviewparams -scale 5 -proj -0 -1 -0 -up 0 0 1 -at -157 9.5 19

set aPointsNb    [vstatprofiler points]
set aTrianglesNb [vstatprofiler triangles]

# check number of not culled points and triangles
if [expr $aPointsNb != 3 || $aTrianglesNb != 2] { puts "Error: unexpected number of culled elements" }
Commit	Line	Data
79b544e6	1	puts "============="
	2	puts "0030437: Visualization, TKV3d - add Draw command to print rendering statistics"
	3	puts "============="
	4
	5	pload MODELING VISUALIZATION
	6	vclear
	7	vinit View1 -width 800 -height 400
	8	vdrawparray g trianglestrips v -97.9819 -175.225 -7.6706 v -97.9819 194.163 -7.6706 v 271.406 -175.225 -7.6706 v 271.406 194.163 -7.6706
	9
	10	vpoint pl1 -4 -17 0
	11	vpoint pl2 -4 -10 14
	12	vpoint pl3 0 -6 17
	13	vpoint pr1 179 17 39
	14	vpoint pr2 174 -2 12
	15	vpoint pr3 177 0 15
	16	vfit
	17
	18	vcamera -persp
	19	vviewparams -scale 5 -proj -0 -1 -0 -up 0 0 1 -at -157 9.5 19
	20	vviewparams -scale 5 -proj -0 -1 -0 -up 0 0 1 -at -157 9.5 19
	21
	22	set aPointsNb [vstatprofiler points]
	23	set aTrianglesNb [vstatprofiler triangles]
	24
	25	# check number of not culled points and triangles
	26	if [expr $aPointsNb != 3 \|\| $aTrianglesNb != 2] { puts "Error: unexpected number of culled elements" }