0028646: Draw Harness, ViewerTest - rename vsetfilter command with vselfilter
[occt.git] / tests / bugs / vis / bug328
1 puts "========"
2 puts "OCC328"
3 puts "========"
4
5 vinit
6 set dx 10
7 set dy 10
8 set dz 10
9
10 set x1 30
11 set y1 307
12
13 set x2 30
14 set y2 107
15
16 box b ${dx} ${dy} ${dz}
17 vdisplay b
18 vfit
19
20 vselmode 2 1
21 set info [OCC328 b VERTEX]
22 if { [regexp "VERTEX" $info] != 1 } {
23     puts "Faulty: Incorrect selection mode"
24 }
25
26 vselect ${x1} ${y1}
27 vselect ${x2} ${y2} 1
28
29 checkcolor ${x1} ${y1} 0.8 0.8 0.8
30 checkcolor ${x2} ${y2} 0.8 0.8 0.8
31 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
32
33
34