2 puts "OCC25723 Calculate the center of rotation taking into account structure visibility"
8 box b3 0 0 -20 10 10 10
16 # turn on solid selection
21 # select and hide boxes b2 b3 b4
22 vselect 100 100 400 410
26 vrotate -mouseStart 100 100 -mouseMove 300 300
27 if {"[vreadpixel 220 50 rgb name]" != "GOLDENROD3"} { puts "Error: Rotation is not correct" }
29 vdump ${imagedir}/${casename}.png