3 puts "Calculate the center of rotation taking into account active selection"
10 set x_mouse_start_coord 100
11 set y_mouse_start_coord 100
13 set x_mouse_move_coord 300
14 set y_mouse_move_coord 300
20 box b2 0 0 20 10 10 10
21 box b3 0 0 -20 10 10 10
22 box b4 0 0 40 10 10 10
29 # turn on solid selection
34 # select one (red) solid
35 vselect ${x_sel_coord} ${y_sel_coord}
38 vrotate -mouseStart ${x_mouse_start_coord} ${y_mouse_start_coord} -mouseMove ${x_mouse_move_coord} ${y_mouse_move_coord}
44 if {"[vreadpixel ${x_check_coord} ${y_check_coord} rgb name]" != "GOLDENROD3"} { puts "Error : Rotation is not correct" }
46 vdump ${imagedir}/${test_image}.png