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 |
af65fb19 |
13 | vdisplay b1 -trsfPers trihedron |
14 | |
e84189c5 |
15 | vdisplay b2 |
16 | vfit |
17 | vsetdispmode 1 |
18 | vzoom 0.5 |
19 | vpan 100 0 |
20 | |
f1aa2b62 |
21 | set x_coord 300 |
22 | set y_coord 130 |
e84189c5 |
23 | |
f1aa2b62 |
24 | checkcolor $x_coord $y_coord 0.78 0.55 0.9 |
e84189c5 |
25 | |
f1aa2b62 |
26 | if { $stat != 1 } { |
e84189c5 |
27 | puts "Error : Transform persistence is not restored" |
e84189c5 |
28 | } |
29 | |
5747059b |
30 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |