4af098ba |
1 | puts "============" |
be7fc29e |
2 | puts "OCC25723 Calculate the center of rotation taking into account structure visibility" |
4af098ba |
3 | puts "============" |
4 | puts "" |
5 | |
4af098ba |
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 | |
4af098ba |
11 | vclear |
be7fc29e |
12 | vinit View1 |
4af098ba |
13 | vaxo |
14 | vsetdispmode 1 |
15 | |
16 | # turn on solid selection |
17 | vselmode 6 1 |
18 | vdisplay b1 b2 b3 b4 |
19 | vfit |
20 | |
be7fc29e |
21 | # select and hide boxes b2 b3 b4 |
22 | vselect 100 100 400 410 |
4af098ba |
23 | verase |
24 | |
25 | # rotation |
be7fc29e |
26 | vrotate -mouseStart 100 100 -mouseMove 300 300 |
ba00aab7 |
27 | if {"[vreadpixel 220 50 rgb name]" != "GOLDENROD3"} { puts "Error: Rotation is not correct" } |
4af098ba |
28 | |
be7fc29e |
29 | vdump ${imagedir}/${casename}.png |