mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
b8db9379fe
Added TKOpenGlTest and TKD3DHostTest Draw Harness plugins. TKOpenGlTest is automatically loaded by ViewerTest::ViewerInit(). Commands vgldebug, vvbo, vcaps and vuserdraw have been moved to TKOpenGlTest. New command vglshaders lists GLSL programs defined by OpenGl_GraphicDriver, previously implemented by "vshaderprog -list". Added new command vdriver for graphic driver selection. Removed erroneous code from command vstereo.
25 lines
429 B
Plaintext
25 lines
429 B
Plaintext
puts "========"
|
|
puts "OCC23654 Markers recompute"
|
|
puts "========"
|
|
|
|
pload VISUALIZATION
|
|
pload OPENGL
|
|
vcaps -sprites
|
|
source $env(CSF_OCCTSamplesPath)/tcl/markers.tcl
|
|
|
|
set anImage1 $imagedir/${casename}_1.png
|
|
set anImage2 $imagedir/${casename}_2.png
|
|
|
|
vdump $anImage1
|
|
|
|
vclose Driver1/Viewer1/View1 1
|
|
|
|
vinit name=View1 l=32 t=32 w=512 h=512
|
|
vactivate Driver1/Viewer1/View1
|
|
vbottom
|
|
vdisplay -noupdate b
|
|
vfit
|
|
vremove b
|
|
|
|
vdump $anImage2
|