OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-14 13:30:48 +03:00
Code Activity

0032203: Draw Harness, ViewerTest - drop dependency from OpenGL

Browse Source 
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.
This commit is contained in:
kgv
2021-03-08 20:34:41 +03:00
committed by bugmaster
parent 655e883cb9
commit b8db9379fe
73 changed files with 1741 additions and 999 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/OS/Draw.tcl
View File

@@ -15,13 +15,23 @@
;# Liste des toolkits WOK sous forme de full path
;#
proc Draw:toolkits { } {
set aResult [list TKDraw TKTopTest TKViewerTest TKXSDRAW TKDCAF TKXDEDRAW TKTObjDRAW TKQADraw]
set aResult [list TKDraw TKTopTest TKViewerTest TKXSDRAW TKDCAF TKXDEDRAW TKTObjDRAW TKQADraw]
if { [info exists ::env(HAVE_VTK)] && $::env(HAVE_VTK) == "true" } {
lappend aResult "TKIVtkDraw"
lappend aResult "TKOpenGlTest"
if { "$::tcl_platform(platform)" == "windows" } {
if { [info exists ::env(HAVE_D3D)] } {
if { "$::env(HAVE_D3D)" == "true" } {
lappend aResult "TKD3DHostTest"
}
} elseif { [info exists ::env(VCVER)] && "$::env(VCVER)" != "vc8" && "$::env(VCVER)" != "vc9" && "$::env(VCVER)" != "vc10" } {
lappend aResult "TKD3DHostTest"
}
}
if { [info exists ::env(HAVE_VTK)] && "$::env(HAVE_VTK)" == "true" } {
lappend aResult "TKIVtkDraw"
}
return $aResult
return $aResult
}
;#

28
src/OS/Visualization.tcl
View File

@@ -15,27 +15,25 @@
;# Liste des toolkits WOK sous forme de full path
;#
proc Visualization:toolkits { } {
set aResult [list TKService \
TKV3d \
TKOpenGl \
TKMeshVS]
set aResult [list TKService TKV3d TKMeshVS]
if { [info exists ::env(HAVE_VTK)] && "$::env(HAVE_VTK)" == "true" } {
lappend aResult "TKIVtk"
}
if { "$::tcl_platform(platform)" == "windows" } {
if { [info exists ::env(HAVE_D3D)] } {
if { "$::env(HAVE_D3D)" == "true" } {
lappend aResult "TKD3DHost"
}
} elseif { [info exists ::env(VCVER)] && "$::env(VCVER)" != "vc8" && "$::env(VCVER)" != "vc9" && "$::env(VCVER)" != "vc10" } {
lappend aResult "TKOpenGl"
if { "$::tcl_platform(platform)" == "windows" } {
if { [info exists ::env(HAVE_D3D)] } {
if { "$::env(HAVE_D3D)" == "true" } {
lappend aResult "TKD3DHost"
}
} elseif { [info exists ::env(VCVER)] && "$::env(VCVER)" != "vc8" && "$::env(VCVER)" != "vc9" && "$::env(VCVER)" != "vc10" } {
lappend aResult "TKD3DHost"
}
}
if { [info exists ::env(HAVE_VTK)] && "$::env(HAVE_VTK)" == "true" } {
lappend aResult "TKIVtk"
}
return $aResult
return $aResult
}
;#
;# Autres UDs a prendre.
;#