0024224: Suspicious logics in changing clipping planes at OpenGl_Structure
[occt.git] / tests / bugs / vis / bug23670_1
1 puts "============"
2 puts "OCC23670"
3 puts "============"
4 puts ""
5 ############################################################################
6 # Support for multiple 3D views
7 ############################################################################
8
9 #test case for vinit and vactivate commands
10 #create view with default name Driver1/Viewer1/View1
11 vinit
12 vinit MyDriver/MyViewer/View1
13 vinit MyDriver/MyViewer/MyView
14 vactivate Driver1/Viewer1/View1
15 box a 10 10 10
16 vdisplay a
17 vfit
18 vactivate MyDriver/MyViewer/MyView
19 #activate MyDriver/MyViewer/View1
20 vactivate View1
21 box b 5 5 5 10 10 10
22 vdisplay a b
23 vfit
24 #disactivate active view
25 vactivate none
26 vactivate Driver1/Viewer1/View1
27 vsetdispmode 1
28 set x_coord 205
29 set y_coord 180
30 checkcolor $x_coord $y_coord 1 0.87 0.15
31
32 vactivate MyDriver/MyViewer/MyView
33 vsetdispmode 1
34 checkcolor $x_coord $y_coord 0 0 0
35
36 set only_screen 1
37