e9312c0f |
1 | puts "============" |
2 | puts "CR26973" |
3 | puts "============" |
4 | puts "" |
5 | |
6 | ########################################################################################## |
7 | puts "Visualization - selection of entities hidden by clipping planes is broken" |
8 | ########################################################################################## |
9 | |
10 | pload MODELING VISUALIZATION |
11 | |
12 | vinit View1 |
13 | vclear |
14 | vaxo |
15 | vsetdispmode 1 |
16 | |
17 | proc OCC26973 { toTestViewPlanes toApplyTrsf theImgIdr theCaseName} { |
18 | if {$toApplyTrsf == "1"} { |
19 | box b -100 -100 -100 1 1 1 |
20 | ttranslate b 100 100 100 |
21 | } else { |
22 | box b 1 1 1 |
23 | } |
24 | |
25 | vdisplay b |
26 | vfit |
27 | vselmode b 4 1 |
28 | |
29 | vclipplane create pln |
30 | if {$toTestViewPlanes == "1"} { |
31 | vclipplane set pln view Driver1/Viewer1/View1 |
32 | } else { |
33 | vclipplane set pln object b |
34 | } |
35 | vclipplane change pln equation 0 1 0 -0.5 |
36 | |
37 | vselect 200 140 |
38 | set aTestInfo "Test case: " |
39 | append aTestInfo "clipping planes applied to " |
40 | set aDumpFileName $theImgIdr/${theCaseName} |
41 | if {$toTestViewPlanes == "1"} { |
42 | append aTestInfo "view, " |
43 | append aDumpFileName "_view" |
44 | } else { |
45 | append aTestInfo "object, " |
46 | append aDumpFileName "_obj" |
47 | } |
48 | append aTestInfo "object trsf is " |
49 | if {$toApplyTrsf == "1"} { |
50 | append aTestInfo "on" |
51 | append aDumpFileName "_with_trsf.png" |
52 | } else { |
53 | append aTestInfo "off" |
54 | append aDumpFileName "_wo_trsf.png" |
55 | } |
56 | |
57 | if {[vnbselected] != 1} { |
58 | puts "ERROR: can not select face." |
59 | puts $aTestInfo |
60 | } |
61 | set aSelectedFace [string trim [lindex [split [vstate] "\n"] 1] ] |
62 | if {$aSelectedFace != "Face #1"} { |
63 | puts "ERROR: wrong face is selected." |
7b5e532f |
64 | puts "Actually selected face: $aSelectedFace" |
e9312c0f |
65 | puts $aTestInfo |
66 | } |
67 | |
68 | vdump $aDumpFileName |
69 | vremove -all |
70 | vclipplane delete pln |
71 | } |
72 | |
73 | # check global clipping planes selection |
74 | OCC26973 1 0 $imagedir $casename |
75 | OCC26973 1 1 $imagedir $casename |
76 | |
77 | # check object clipping planes selection |
78 | OCC26973 0 0 $imagedir $casename |
79 | OCC26973 0 1 $imagedir $casename |