0032886: Visualization, V3d_View - introduce interface for creating a subview
[occt.git] / tests / opengl / data / general / multiview6
1 puts "========"
2 puts "0032886: Visualization, V3d_View - introduce interface for creating a subview"
3 puts "V1/CompView + V2/ViewLeft + V2/ViewRightTop + V2/ViewRightBottom + margins"
4 puts "========"
5
6 pload MODELING VISUALIZATION
7 vinit V1/CompView -width 768 -height 512 -composer 1
8 vbackground GRAY20
9
10 vinit V2/ViewLeft -parent V1/CompView -width 0.5  -height 1.0 -margins 2 2
11 vbackground GRAY30
12 vaxo
13 vcamera -persp
14 box b 1 2 3
15 vdisplay -dispMode 1 b
16 vaspects b -faceBoundaryDraw 1
17 vfit
18 vviewcube vc
19
20 vinit V2/ViewRightTop -parent V1/CompView -width 0.5 -height 0.5 -corner topRight -margins 2 2
21 vbackground GRAY40
22 vaxo
23 vfit
24 verase vc -view
25
26 vinit V3/ViewRightBottom -parent V1/CompView -width 0.5 -height 0.5 -corner bottomRight -margins 2 2
27 vbackground GRAY50
28 psphere s 1
29 vdisplay -dispMode 1 s
30 vaspects s -material SILVER
31 vaxo
32 vfit
33 vzbufftrihedron
34
35 vinit V3/ThumbView -parent V1/CompView -width 100 -height 150 -corner topLeft -top 10 -left 10 -margins 2 2
36 vbackground GRAY40
37 vaxo
38 vfit
39
40 vactivate V1/CompView
41 vdump $::imagedir/${::casename}.png
42
43 vactivate V2/ViewLeft
44 vdump $::imagedir/${::casename}_left.png
45
46 vactivate V2/ViewRightTop
47 vdump $::imagedir/${::casename}_righttop.png
48
49 vactivate V3/ThumbView
50 vdump $::imagedir/${::casename}_thumb.png
51
52 vactivate V3/ViewRightBottom
53 vdump $::imagedir/${::casename}_rightbottom.png