e84189c5 |
1 | puts "============" |
2 | puts "OCC23120" |
3 | puts "============" |
4 | puts "" |
5 | ########################################################################### |
6 | # Transform persistence is not restored |
7 | ########################################################################### |
8 | |
9 | pload QAcommands |
10 | |
11 | box b1 10 20 30 |
12 | box b2 10 20 30 |
13 | ttranslate b2 50 50 0 |
14 | vinit |
15 | vdisplay b1 |
16 | # This line breaks normal rendering |
17 | # of all subsequently displayed presentations |
18 | vsettransmode b1 32 0 0 0 0 0 |
19 | # This box is drawn incorrectly due to the bug |
20 | vdisplay b2 |
21 | vfit |
22 | vsetdispmode 1 |
23 | vzoom 0.5 |
24 | vpan 100 0 |
25 | |
f1aa2b62 |
26 | set x_coord 300 |
27 | set y_coord 130 |
e84189c5 |
28 | |
f1aa2b62 |
29 | checkcolor $x_coord $y_coord 0.78 0.55 0.9 |
e84189c5 |
30 | |
f1aa2b62 |
31 | if { $stat != 1 } { |
e84189c5 |
32 | puts "Error : Transform persistence is not restored" |
e84189c5 |
33 | } |
34 | |
82cbc512 |
35 | set only_screen 1 |
f1aa2b62 |
36 | |