1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
puts "========"
puts "OCC22016: Incorrect selection color after displaying a selected object"
puts "========"
puts ""
pload MODELING VISUALIZATION
box b1 0 0 0 1 2 3
box b2 3 0 0 2 3 1
vinit View1
vclear
vaxo
vdisplay -noupdate b1 b2
vaspects b1 b2 -setWidth 4
vfit
vselect 0 0 500 500
vdisplay b2
set aColor1 [vreadpixel 104 32 rgb name]
set aColor2 [vreadpixel 255 350 rgb name]
if {$aColor1 != "GRAY80" || $aColor2 != "GRAY80" } {
puts "ERROR: OCC22016 is reproduced. Incorrect selection color after displaying a selected object."
}
vdump ${imagedir}/${casename}.png
|
