1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
occt/tests/bugs/vis/bug26357

52 lines
1.0 KiB
Plaintext

puts "============"
puts "CR26357"
puts "============"
puts ""
#########################################################################
puts "Panning regression after fixing 0026082"
#########################################################################
box b 100 100 100
vinit View1 w=400 h=400
vinit View2 w=200 h=400
vinit View3 w=400 h=200
vclear
vaxo
vdisplay b
# Test panning with aspect ratio 1:1
vactivate View1
vfit
vpan 200 0
vmoveto 399 200
checkcolor 399 200 0 1 1
vpan -200 0
vmoveto 200 200
checkcolor 200 200 0 1 1
vdump ${imagedir}/${casename}_1.png
# Test panning with aspect ratio 1:2
vactivate View2
vfit
vpan 100 0
vmoveto 199 100
checkcolor 199 100 0 1 1
vpan -100 0
vmoveto 100 100
checkcolor 100 100 0 1 1
vdump ${imagedir}/${casename}_2.png
# Test panning with aspect ratio 2:1
vactivate View3
vfit
vpan 200 0
vmoveto 399 100
checkcolor 399 100 0 1 1
vpan -200 0
vmoveto 200 100
checkcolor 200 100 0 1 1
vdump ${imagedir}/${casename}_3.png