e54706ed |
1 | puts "============" |
2 | puts "OCC11615" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################### |
6 | # Anisotropic scaling in 3D view |
7 | ###################################################### |
8 | |
9 | set BugNumber OCC11615 |
10 | |
11 | box b 10 10 10 |
12 | vinit |
13 | vdisplay b |
14 | vfit |
15 | vscale 1 1 1 |
e54706ed |
16 | |
17 | set x1 [list 165 340 70] |
18 | set y1 [list 384 283 79] |
ccadc126 |
19 | vaspects -setwidth 5 |
e54706ed |
20 | puts "" |
21 | for {set i 0} {$i < 3} {incr i} { |
22 | set x_coord [lindex ${x1} $i] |
23 | set y_coord [lindex ${y1} $i] |
ccadc126 |
24 | if { "[vreadpixel $x_coord $y_coord rgb name]" != "YELLOW" } { |
25 | puts "Error : color is not yellow" |
26 | } |
e54706ed |
27 | } |
28 | |
29 | vscale 0.5 1.5 0.7 |
30 | vfit |
e54706ed |
31 | |
32 | set x2 [list 80 390 25] |
33 | set y2 [list 390 218 167] |
34 | |
e54706ed |
35 | puts "" |
36 | for {set i 0} {$i < 3} {incr i} { |
37 | set x_coord [lindex ${x2} $i] |
38 | set y_coord [lindex ${y2} $i] |
ccadc126 |
39 | if { "[vreadpixel $x_coord $y_coord rgb name]" != "YELLOW" } { |
40 | puts "Error : color is not yellow" |
41 | } |
e54706ed |
42 | } |
43 | |
44 | set only_screen 1 |