mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +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.
51 lines
1009 B
Plaintext
51 lines
1009 B
Plaintext
puts "=========="
|
|
puts "OCC25853: Edges disappear or reappear when displaying new edges"
|
|
puts "=========="
|
|
puts ""
|
|
|
|
pload MODELING VISUALIZATION
|
|
vinit View1 w=1024 h=1024
|
|
vsetdispmode View1 1
|
|
vclear
|
|
|
|
#vtop
|
|
set scale 0.086865724500890112
|
|
set vpprojx 0.0
|
|
set vpprojy 0.0
|
|
set vpprojz 1.0
|
|
set vpupx 0.0
|
|
set vpupy 1.0
|
|
set vpupz 0.0
|
|
set vpatx 4995
|
|
set vpaty 500
|
|
set vpatz 0
|
|
set vpeyex 4995
|
|
set vpeyey 500
|
|
set vpeyez 0.0001
|
|
vviewparams -scale $scale -eye $vpeyex $vpeyey $vpeyez -at $vpatx $vpaty $vpatz -up $vpupx $vpupy $vpupz -proj $vpprojx $vpprojy $vpprojz
|
|
|
|
set NB 1000
|
|
|
|
proc draw_lines {{distance 10.0}} {
|
|
# set colors to corner spheres
|
|
for {set i 0} {$i < $::NB} {incr i} {
|
|
set x [expr $i * $distance]
|
|
set ya 0.0
|
|
set yb 1000.0
|
|
set z 0.0
|
|
vertex v1 $x $ya $z
|
|
vertex v2 $x $yb $z
|
|
edge e$i v1 v2
|
|
vdisplay -update e$i
|
|
puts "$i: $x $ya $yb $z"
|
|
}
|
|
}
|
|
|
|
puts "Start test lines"
|
|
draw_lines 10.0
|
|
|
|
checkcolor 804 483 1 0 0
|
|
checkcolor 860 500 1 0 0
|
|
|
|
vdump $imagedir/${casename}.png
|