puts "============" puts "OCC23120" puts "============" puts "" ########################################################################### # Transform persistence is not restored ########################################################################### box b1 10 20 30 box b2 10 20 30 ttranslate b2 50 50 0 vinit vdisplay b1 # This line breaks normal rendering # of all subsequently displayed presentations vsettransmode b1 32 0 0 0 0 0 # This box is drawn incorrectly due to the bug vdisplay b2 vfit vsetdispmode 1 vzoom 0.5 vpan 100 0 set x_coord 300 set y_coord 130 checkcolor $x_coord $y_coord 0.78 0.55 0.9 if { $stat != 1 } { puts "Error : Transform persistence is not restored" } set only_screen 1