6 ##########################################################################################
7 puts "Visualization - selection of entities hidden by clipping planes is broken"
8 ##########################################################################################
10 pload MODELING VISUALIZATION
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
30 if {$toTestViewPlanes == "1"} {
31 vclipplane set pln view Driver1/Viewer1/View1
33 vclipplane set pln object b
35 vclipplane change pln equation 0 1 0 -0.5
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"
45 append aTestInfo "object, "
46 append aDumpFileName "_obj"
48 append aTestInfo "object trsf is "
49 if {$toApplyTrsf == "1"} {
51 append aDumpFileName "_with_trsf.png"
53 append aTestInfo "off"
54 append aDumpFileName "_wo_trsf.png"
57 if {[vnbselected] != 1} {
58 puts "ERROR: can not select face."
61 set aSelectedFace [string trim [lindex [split [vstate] "\n"] 1] ]
62 if {$aSelectedFace != "Face #1"} {
63 puts "ERROR: wrong face is selected."
64 puts "Actually selected face: $aSelectedFace"
73 # check global clipping planes selection
74 OCC26973 1 0 $imagedir $casename
75 OCC26973 1 1 $imagedir $casename
77 # check object clipping planes selection
78 OCC26973 0 0 $imagedir $casename
79 OCC26973 0 1 $imagedir $casename