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