1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
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
|
