mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
ab91ab6fea
-Meaningful texts are provided instead of commands in File menu (e.g. restore->Load Shape (restore)) -tk_getOpenFile is used in "open file" dialogs -tk_chooseDirectory is used in "change directory" dialog -Added menu "Help" with submenus "System info", "Commands", "About", "User Guide" -Added menu "Samples" with submenu "View samples" -Added menu "Load" with submenus "pload <Module>"
41 lines
925 B
Tcl
41 lines
925 B
Tcl
# Script demonstrating ray tracing in 3d view
|
|
|
|
#Category: Visualization
|
|
#Title: Ray tracing
|
|
|
|
# make bottle by calling another script
|
|
source [file join [file dirname [info script]] bottle.tcl]
|
|
|
|
# make table and a glass
|
|
box table -50 -50 -10 100 100 10
|
|
pcone glass_out 7 9 25
|
|
pcone glass_in 7 9 25
|
|
ttranslate glass_in 0 0 0.2
|
|
bcut glass glass_out glass_in
|
|
ttranslate glass -30 -30 0
|
|
|
|
# show table and glass
|
|
vinit w=1024 h=1024
|
|
vsetmaterial bottle aluminium
|
|
vdisplay table
|
|
vsetmaterial table bronze
|
|
vsetmaterial table plastic
|
|
vsetcolor table coral2
|
|
vdisplay glass
|
|
vsetmaterial glass plastic
|
|
vsetcolor glass brown
|
|
vsettransparency glass 0.6
|
|
|
|
# add light source for shadows
|
|
vlight new spot pos -100 -100 300
|
|
|
|
# set white background and fit view
|
|
vsetcolorbg 255 255 255
|
|
vfit
|
|
|
|
# set ray tracing
|
|
puts "Trying raytrace mode..."
|
|
if { ! [catch {vrenderparams -raytrace -shadows -reflections -fsaa -rayDepth 5}] } {
|
|
vtextureenv on 1
|
|
}
|