0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug27618
1 puts "# ==================================================================="
2 puts "# 0027618: Visualization - selection returns entity overlapped by another entity on border cases"
3 puts "# ==================================================================="
4 puts ""
5
6 pload MODELING VISUALIZATION
7 set s 0.001
8 box bb  0*$s  0*$s  0*$s 100*$s 100*$s 50*$s
9 box bt 50*$s 50*$s 25*$s  20*$s  20*$s 40*$s
10 vclear
11 vinit View1
12 vpoint p0 0*$s   0*$s  0*$s
13 vpoint p1 0*$s 100*$s 50*$s
14 vdisplay -dispMode 1 -highMode 1 bb bt
15 vsetcolor bt RED
16 vaxo
17 vfit
18
19 vpoint pp 245 -190 0
20 vdisplay -2d topLeft -topmost pp
21 vselmode pp 0 0
22 vmoveto 245 190
23
24 if { [vreadpixel 235 140 rgb name] == "CYAN2" } { puts "Error: top should NOT be highlighted" }
25 if { [vreadpixel 235 190 rgb name] != "CYAN2" } { puts "Error: bottom should be highlighted" }
26 vseldump $imagedir/${casename}_sel_depth.png  -type depth
27 vseldump $imagedir/${casename}_sel_entity.png -type entity
28
29 vcamera -persp
30
31 vmoveto 0 0
32 vmoveto 245 190
33 if { [vreadpixel 235 140 rgb name] == "CYAN2" } { puts "Error: top should NOT be highlighted" }
34 if { [vreadpixel 235 190 rgb name] != "CYAN2" } { puts "Error: bottom should be highlighted" }
35
36 vseldump $imagedir/${casename}_perps_sel_depth.png  -type depth
37 vseldump $imagedir/${casename}_persp_sel_entity.png -type entity