0024224: Suspicious logics in changing clipping planes at OpenGl_Structure
[occt.git] / tests / bugs / vis / bug6652
1 puts "============"
2 puts "OCC6652"
3 puts "============"
4 puts ""
5 ######################################################
6 # Problem of mesh selection
7 ######################################################
8
9 pload XDE
10 set BugNumber OCC6652
11
12 meshfromstl result [locate_data_file OCC6652.stl]
13
14 meshdispmode result 3
15 meshselmode result 8
16
17 vselect 5 5 400 400
18
19 if {[vnbselected] != 26966} {
20    puts "Faulty ${BugNumber}"
21 }
22
23 set only_screen 1
24
25
26