tests/bugs/vis/bug24714

   1 puts "============"
   2 puts "CR24714"
   3 puts "============"
   4 puts ""
   5
   6 ##################################
   7 #  Test V3d_View::SetSize method
   8 ##################################
   9
  10 set aV "Driver1/Viewer1/View1"
  11 vinit name=$aV l=32 t=32 w=400 h=200
  12 vactivate $aV
  13 vclear
  14
  15 box b 10 10 10
  16 vdisplay b
  17 vright
  18 vfit
  19
  20 vviewparams -size 22
  21
  22 vmoveto 200 100
  23
  24 checkcolor 200 9 0 1 1
  25
  26 if { $stat != 1 } {
  27   puts "Error : the view projection size is incorrect!"
  28 }
  29
  30 set only_screen 1