0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug25723
1 puts "============"
2 puts "OCC25723 Calculate the center of rotation taking into account structure visibility"
3 puts "============"
4 puts ""
5
6 box b1 0 0   0 10 10 10
7 box b2 0 0  20 10 10 10
8 box b3 0 0 -20 10 10 10
9 box b4 0 0  40 10 10 10
10
11 vclear
12 vinit View1
13 vaxo
14 vsetdispmode 1
15
16 # turn on solid selection
17 vselmode 6 1
18 vdisplay b1 b2 b3 b4
19 vfit
20
21 # select and hide boxes b2 b3 b4
22 vselect 100 100 400 410
23 verase
24
25 # rotation
26 vrotate -mouseStart 100 100 -mouseMove 300 300
27 if {"[vreadpixel 220 50 rgb name]" != "GOLDENROD3"} { puts "Error: Rotation is not correct" }
28
29 vdump ${imagedir}/${casename}.png