mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-02 17:46:22 +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.
28 lines
662 B
Plaintext
28 lines
662 B
Plaintext
puts "============"
|
|
puts "0026392: Visualization, TKD3DHost - provide straight-forward base for integration of TKOpenGl viewer into D3D-based application"
|
|
puts "============"
|
|
puts ""
|
|
|
|
set to_dump_screen 0
|
|
if { ![checkplatform -windows] } {
|
|
puts "This test case is applicable only to Windows platform"
|
|
return
|
|
}
|
|
|
|
pload MODELING VISUALIZATION
|
|
vdriver -load D3DHOST
|
|
vclear
|
|
vinit View1
|
|
box b 3 0 0 1 2 3
|
|
psphere s 1
|
|
vdisplay -dispMode 1 b s
|
|
set anInfo [vglinfo]
|
|
if { [regexp {D3Dinterop} $anInfo] } {
|
|
puts "OK: D3Dinterop has been found"
|
|
} else {
|
|
puts "Error: D3Dinterop is expected"
|
|
}
|
|
vfit
|
|
vrenderparams -shadingModel PHONG
|
|
vdump ${imagedir}/${casename}.png
|