14cda02f |
1 | puts "============" |
2 | puts "CR26217" |
3 | puts "============" |
4 | puts "" |
5 | |
6 | ########################################################################################## |
7 | puts "Visualization, Select3D_SensitiveCircle - fix compilation with CLang for iOS" |
8 | ########################################################################################## |
9 | |
10 | pload VISUALIZATION |
11 | |
12 | vinit View1 |
13 | vpoint radP1 0 0 0 |
14 | vpoint radP2 50 50 0 |
15 | vpoint radP3 100 0 0 |
16 | vcircle circle radP1 radP2 radP3 1 |
17 | vfit |
18 | |
19 | vselect 40 120 185 320 |
20 | set aColor [vreadpixel 120 200 rgb name] |
21 | if {$aColor != "DARKGOLDENROD3"} { |
22 | puts "ERROR: the circle is selected with no overlap mode activated" |
23 | } |
24 | |
25 | vselect 0 0 |
26 | |
27 | vselect 40 120 185 320 -allowoverlap 1 |
28 | set aColor [vreadpixel 120 200 rgb name] |
f9ba5c4d |
29 | if {$aColor != "GRAY66"} { |
14cda02f |
30 | puts "ERROR: the circle is not selected with overlap mode activated" |
31 | } |
32 | |
33 | vdump ${imagedir}/${casename}.png |