5 #######################################################################
6 # Visualization - V3d_View::ConvertToGrid returns wrong coordinates for non-orthogonal projection
7 #######################################################################
9 vinit View1 w=400 h=400
12 # 1. Check convert to grid for axonometric projection. Grid is at origin.
14 set output [vconvert 200 200 grid]
16 checkreal "vconvert axo - grid origin" [lindex $output 2] 5.0 1e-7 0.0
17 checkreal "vconvert axo - grid origin" [lindex $output 3] -5.0 1e-7 0.0
18 checkreal "vconvert axo - grid origin" [lindex $output 4] 0.0 1e-7 0.0
20 # 2. Check convert to grid for top projection. Grid is at origin.
22 set output [vconvert 200 200 grid]
24 checkreal "vconvert top - grid origin" [lindex $output 2] 0.0 1e-7 0.0
25 checkreal "vconvert top - grid origin" [lindex $output 3] -5.0 1e-7 0.0
26 checkreal "vconvert top - grid origin" [lindex $output 4] 0.0 1e-7 0.0
28 # 3. Check convert to grid for axonometric projection. Grid is not at origin.
29 vpriviledgedplane 0.0 0.0 10.0 0 0 1 1 0 0
32 set output [vconvert 200 200 grid]
34 checkreal "vconvert axo - grid lifted" [lindex $output 2] 15.0 1e-7 0.0
35 checkreal "vconvert axo - grid lifted" [lindex $output 3] -15.0 1e-7 0.0
36 checkreal "vconvert axo - grid lifted" [lindex $output 4] 10.0 1e-7 0.0
38 # 4. Check convert to grid for top projection. Grid is not at origin.
40 set output [vconvert 200 200 grid]
42 checkreal "vconvert top - grid lifted" [lindex $output 2] 0.0 1e-7 0.0
43 checkreal "vconvert top - grid lifted" [lindex $output 3] -5.0 1e-7 0.0
44 checkreal "vconvert top - grid lifted" [lindex $output 4] 10.0 1e-7 0.0
46 # do not save any image
47 checkview -screenshot -3d -path ${imagedir}/${test_image}.png