0024587: Separate TCL samples for ray tracing and creation of bottle

[occt.git] / samples / tcl / bottle.tcl

diff --git a/samples/tcl/bottle.tcl b/samples/tcl/bottle.tcl
index 5dbbb24..86cf9e3 100755 (executable)
--- a/samples/tcl/bottle.tcl
+++ b/samples/tcl/bottle.tcl
@@ -112,12 +112,3 @@ puts "Showing result..."
 vdisplay bottle
 vfit
 vsetdispmode 1
-
-# set ray tracing
-if { [regexp {HAVE_OPENCL} [dversion]] } {
-    puts "Trying raytrace mode..."
-    if { ! [catch {vraytrace 1}] } {
-        vtextureenv on 1
-        vfit
-    }
-}