mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
0d828ac838
Removed testgrids 'bugs/vis' and '3rdparty'; tests have been redistributed across other grids. Moved testgrid 'v3d/ivtk' into dedicated 'vtk/ivtk'. Added testgrid 'vselect' dedicated to 3D viewer picking/selection functionality and filled with tests from 'v3d/vertex', 'v3d/face' and similar groups. Added testgrid 'opengl' dedicated to OpenGL driver low-level functionality (GLSL programs and similar) and filled with tests from 'v3d/glsl', 'v3d/raytrace', '3rdparty/fonts', 'bugs/vis' (portion) and similar. Added testgrid 'opengles3' dedicated to OpenGL ES 3.0 driver low-level functionality and reusing tests from 'opengl' testgrid. Subgroup 'opengles3/raytrace' is disabled on Windows, as Ray-Tracing currently requires OpenGL ES 3.2. while ANGLE library implements only OpenGL ES 3.0. Added testgrid 'opengles2' dedicated to OpenGL ES 2.0 driver low-level functionality and reusing a limited subset of passing tests from 'opengl' testgrid. Currently testgrid is activated only on Windows platform when using ANGLE library (properietary OpenGL ES drivers do not allow creation of restricted 2.0 context). Test cases have been cleaned out to put bug description into log, to properly load necessary plugins and to explicitly dump viewer.
77 lines
1.9 KiB
Plaintext
77 lines
1.9 KiB
Plaintext
puts "========"
|
|
puts "Capping plane preserving material"
|
|
puts "========"
|
|
|
|
set aHatch [locate_data_file images/hatch_1.png]
|
|
|
|
pload MODELING VISUALIZATION
|
|
|
|
puts "Create the geometry"
|
|
box b0sole 10 10 0 30 30 70
|
|
box b0hole 20 20 -10 10 10 90
|
|
bcut b0 b0sole b0hole
|
|
box b1 40 20 0 10 30 70
|
|
box b2 20 40 0 20 10 70
|
|
box b3 0 40 0 20 10 70
|
|
box b4 0 10 0 10 30 70
|
|
box b5 0 0 0 30 10 70
|
|
|
|
set aNbParts 6
|
|
set aColors { RED YELLOW GREEN GRAY MAGENTA ORANGE }
|
|
|
|
compound b0 b1 b2 b3 b4 b5 cc
|
|
|
|
puts "Create the viewer"
|
|
vclear
|
|
vclose ALL
|
|
vinit name=View1 w=512 h=512
|
|
|
|
vpoint p0 0 0 0
|
|
vzbufftrihedron
|
|
|
|
puts "Display the geometry as dedicated objects"
|
|
for { set aPartIter 0 } { $aPartIter < $aNbParts } { incr aPartIter } {
|
|
vdisplay -noupdate -dispMode 1 b${aPartIter}
|
|
set aColor [lindex $aColors $aPartIter]
|
|
vsetcolor -noupdate b${aPartIter} $aColor
|
|
}
|
|
|
|
puts "Display the geometry as sole object"
|
|
vdisplay -noupdate -dispMode 1 cc
|
|
for { set aPartIter 0 } { $aPartIter < $aNbParts } { incr aPartIter } {
|
|
set aColor [lindex $aColors $aPartIter]
|
|
vaspects -noupdate cc -subShapes b${aPartIter} -setColor $aColor
|
|
}
|
|
# show also connected interactive object
|
|
vconnectto co -70 0 0 cc
|
|
vsetdispmode co 1
|
|
vsetlocation cc 70 0 0
|
|
vfit
|
|
|
|
|
|
set aPln1Z 40
|
|
set aPln2Y 15
|
|
|
|
vpoint p1 0 0 1
|
|
vpoint p2 1 0 1
|
|
vpoint p3 0 1 1
|
|
vplane pp1 p1 p2 p3
|
|
vsetlocation -noupdate pp1 25 0 [expr $aPln1Z - 1]
|
|
vremove -noupdate p1 p2 p3
|
|
|
|
vpoint p1 0 1 0
|
|
vpoint p2 1 1 0
|
|
vpoint p3 0 1 1
|
|
vplane pp2 p1 p2 p3
|
|
vsetlocation -noupdate pp2 25 $aPln2Y 35
|
|
vremove -noupdate p1 p2 p3
|
|
verase pp1 pp2
|
|
vfit
|
|
vdisplay pp1 pp2
|
|
vzoom 0.8
|
|
|
|
puts "Enable capping planes"
|
|
vclipplane pln1 -set -equation 0 0 -1 $aPln1Z -capping 1 -color 0.5 0.5 0.5 -texname $aHatch -texscale 0.02 -0.02 -useObjMaterial 1
|
|
vclipplane pln2 -set -equation 0 1 0 [expr -$aPln2Y] -capping 1 -color 0.8 0.8 0.9 -texname $aHatch -texscale 0.02 -0.02
|
|
vdump $imagedir/${casename}.png
|