mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-07-30 13:05:50 +03:00
31 lines
457 B
Plaintext
31 lines
457 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
|
|
vright
|
|
vfit
|
|
|
|
vviewparams -size 22
|
|
|
|
vmoveto 200 100
|
|
|
|
checkcolor 200 9 0 1 1
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : the view projection size is incorrect!"
|
|
}
|
|
|
|
set only_screen 1
|