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