tests/v3d/bugs/bug25672

   1 puts "============"
   2 puts "CR25672: V3d_View::ConvertToGrid doesn't work for grid if the grid plane's origin is not identical to camera origin."
   3 puts "============"
   4 puts ""
   5
   6 pload VISUALIZATION
   7 vinit View1
   8
   9 set view_scale 60.630934227306405
  10 set view_proj {0.577 -0.577 0.577}
  11 set view_up {-0.408 0.408 0.816}
  12 set view_at {5 5 5}
  13 set view_eye {15 -5 15}
  14 set view_zmin -300.0
  15 set view_zmax  300.0
  16 vviewparams -scale $view_scale -eye {*}$view_eye -at {*}$view_at -proj {*}$view_proj -up {*}$view_up
  17 vzrange $view_zmin $view_zmax
  18 vgrid -type rectangular -mode lines -origin -10 10 -step 1 1
  19
  20 set vconvert_res [vconvert 5.0 5.0 0.0 grid]
  21
  22 checkreal "vconvert 5.0 5.0 0.0 grid, X" [lindex $vconvert_res 2] 5.0 1e-7 0.0
  23 checkreal "vconvert 5.0 5.0 0.0 grid, Y" [lindex $vconvert_res 3] 5.0 1e-7 0.0
  24 checkreal "vconvert 5.0 5.0 0.0 grid, Z" [lindex $vconvert_res 4] 0.0 1e-7 0.0
  25
  26 vpriviledgedplane 20 20 30 0 0 1 1 0 0
  27
  28 set vconvert_res [vconvert 5.0 5.0 30.0 grid]
  29
  30 checkreal "vconvert 5.0 5.0 30.0 grid, X" [lindex $vconvert_res 2]  5.0 1e-7 0.0
  31 checkreal "vconvert 5.0 5.0 30.0 grid, Y" [lindex $vconvert_res 3]  5.0 1e-7 0.0
  32 checkreal "vconvert 5.0 5.0 30.0 grid, Z" [lindex $vconvert_res 4] 30.0 1e-7 0.0
  33
  34 vcamera -persp
  35
  36 vpriviledgedplane 10 5 10 0 0 1 1 0 0
  37
  38 set vconvert_res [vconvert 5.0 5.0 10.0 grid]
  39
  40 checkreal "vconvert 5.0 5.0 10.0 grid, X" [lindex $vconvert_res 2]  5.0 1e-7 0.0
  41 checkreal "vconvert 5.0 5.0 10.0 grid, Y" [lindex $vconvert_res 3]  5.0 1e-7 0.0
  42 checkreal "vconvert 5.0 5.0 10.0 grid, Z" [lindex $vconvert_res 4] 10.0 1e-7 0.0
  43
  44 # do not save any image
  45 vdump $imagedir/${casename}.png