mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
29 lines
527 B
Plaintext
29 lines
527 B
Plaintext
puts "============"
|
|
puts "CR24714"
|
|
puts "============"
|
|
puts ""
|
|
|
|
##################################
|
|
# Test V3d_View::SetSize method
|
|
##################################
|
|
|
|
set aV "Driver1/Viewer1/View1"
|
|
vinit name=$aV l=32 t=32 w=400 h=200
|
|
vactivate $aV
|
|
vclear
|
|
|
|
box b 10 10 10
|
|
vdisplay b
|
|
vfront
|
|
vfit
|
|
|
|
vviewparams -size 22
|
|
|
|
vaspects -setwidth 5
|
|
vmoveto 200 100
|
|
if { "[vreadpixel 200 9 rgb name]" != "CYAN1" } {
|
|
puts "Error : the view projection size is incorrect!"
|
|
}
|
|
|
|
checkview -screenshot -3d -path ${imagedir}/${test_image}.png
|