0030434: Visualization, TKV3d - add "NoUpdate" state of frustum culling optimization
[occt.git] / tests / bugs / vis / bug25679
1 puts "========"
2 puts "OCC25679"
3 puts "========"
4 puts ""
5 ############################################################################
6 # Visualization, TKOpenGl - View frustum culling clips wrong objects
7 ############################################################################
8
9 pload VISUALIZATION MODELING
10
11 set LINES_IN_ROW 50
12
13 set aNoCulling $imagedir/${casename}_without.png
14 set aWithCulling $imagedir/${casename}_with.png
15 set aDiff $imagedir/${casename}_diff.png
16
17 vinit
18
19 for {set i 0} {$i < $LINES_IN_ROW} {incr i} {
20   for {set j 0} {$j < $LINES_IN_ROW} {incr j} {
21     set aLineName "line"
22     append aLineName [expr $i * $LINES_IN_ROW + $j]
23     vline $aLineName 0 0 0 1 0 0
24     vsetlocation $aLineName [expr $i * 3] [expr $j * 3] 0
25   }
26 }
27
28 vfit
29
30 vrenderparams -frustumculling on
31 vdump $aWithCulling
32 vrenderparams -frustumculling off
33 vdump $aNoCulling
34
35 set aDiffRes [diffimage $aWithCulling $aNoCulling 0.1 0 0 $aDiff]
36 if {$aDiffRes != 0} {
37   puts "ERROR : Test failed: there is a difference between images rendered with and without frustum culling"
38 }