puts "========"
puts "0032886: Visualization, V3d_View - introduce interface for creating a subview"
puts "V1/CompView + V2/ViewLeft + V2/ViewRightTop + V2/ViewRightBottom + margins"
puts "========"

pload MODELING VISUALIZATION
vinit V1/CompView -width 768 -height 512 -composer 1
vbackground GRAY20

vinit V2/ViewLeft -parent V1/CompView -width 0.5  -height 1.0 -margins 2 2
vbackground GRAY30
vaxo
vcamera -persp
box b 1 2 3
vdisplay -dispMode 1 b
vaspects b -faceBoundaryDraw 1
vfit
vviewcube vc

vinit V2/ViewRightTop -parent V1/CompView -width 0.5 -height 0.5 -corner topRight -margins 2 2
vbackground GRAY40
vaxo
vfit
verase vc -view

vinit V3/ViewRightBottom -parent V1/CompView -width 0.5 -height 0.5 -corner bottomRight -margins 2 2
vbackground GRAY50
psphere s 1
vdisplay -dispMode 1 s
vaspects s -material SILVER
vaxo
vfit
vzbufftrihedron

vinit V3/ThumbView -parent V1/CompView -width 100 -height 150 -corner topLeft -top 10 -left 10 -margins 2 2
vbackground GRAY40
vaxo
vfit

vactivate V1/CompView
vdump $::imagedir/${::casename}.png

vactivate V2/ViewLeft
vdump $::imagedir/${::casename}_left.png

vactivate V2/ViewRightTop
vdump $::imagedir/${::casename}_righttop.png

vactivate V3/ThumbView
vdump $::imagedir/${::casename}_thumb.png

vactivate V3/ViewRightBottom
vdump $::imagedir/${::casename}_rightbottom.png
