puts "========"
puts "OCC25679"
puts "========"
puts ""
############################################################################
# Visualization, TKOpenGl - View frustum culling clips wrong objects
############################################################################

pload VISUALIZATION MODELING

set LINES_IN_ROW 50

set aNoCulling $imagedir/${casename}_without.png
set aWithCulling $imagedir/${casename}_with.png
set aDiff $imagedir/${casename}_diff.png

vinit

for {set i 0} {$i < $LINES_IN_ROW} {incr i} {
  for {set j 0} {$j < $LINES_IN_ROW} {incr j} {
    set aLineName "line"
    append aLineName [expr $i * $LINES_IN_ROW + $j]
    vline $aLineName 0 0 0 1 0 0
    vsetlocation $aLineName [expr $i * 3] [expr $j * 3] 0
  }
}

vfit

vrenderparams -frustumculling on
vdump $aWithCulling
vrenderparams -frustumculling off
vdump $aNoCulling

set aDiffRes [diffimage $aWithCulling $aNoCulling 0.1 0 0 $aDiff]
if {$aDiffRes != 0} {
  puts "ERROR : Test failed: there is a difference between images rendered with and without frustum culling"
}
