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

# Script demonstrating Global illumination materials
# using path tracing rendering engine in 3D view

#Category: Visualization
#Title: Path tracing - Ball

set aBallPath [locate_data_file occ/Ball.brep]

pload MODELING VISUALIZATION
# Ray-Tracing doesn't work with Compatible Profile on macOS
if { $::tcl_platform(os) == "Darwin" } { vcaps -core }

# Setup 3D viewer
vclear
vinit name=View1 w=512 h=512
vglinfo
vvbo 0
vsetdispmode 1

# Setup view parameters
vcamera -persp
vviewparams -scale 18 -eye 44.49 -0.15 33.93 -at -14.20 -0.15 1.87 -up -0.48 0.00 0.88

# Load the model from disk
puts "Importing shape..."
restore $aBallPath ball

# Tessellate the model
incmesh ball 0.01

# Display the model and assign material
vdisplay -noupdate ball
vsetmaterial -noupdate ball glass

# Create a sphere inside the model
psphere s 8
incmesh s 0.01
vdisplay -noupdate s
vsetlocation -noupdate s 0 0 13
vsetmaterial -noupdate s plaster

# Create chessboard-style floor
box tile 10 10 0.1
eval compound [lrepeat 144 tile] tiles
explode tiles
for {set i 0} {$i < 12} {incr i} {
  for {set j 1} {$j <= 12} {incr j} {
    ttranslate tiles_[expr 12 * $i + $j] [expr $i * 10 - 90] [expr $j * 10 - 70] -0.15
    vdisplay -noupdate tiles_[expr 12 * $i + $j]

    vsetmaterial -noupdate tiles_[expr 12 * $i + $j] plaster

    if {($i + $j) % 2 == 0} {
      vbsdf tiles_[expr 12 * $i + $j] -kd 0.85
    } else {
      vbsdf tiles_[expr 12 * $i + $j] -kd 0.45
    }
  }
}

# Configure light sources
vlight -change 0 -head 0
vlight -change 0 -direction -0.25 -1 -1
vlight -change 0 -sm   0.3
vlight -change 0 -int 10.0

# Load environment map
vtextureenv on 1

puts "Trying path tracing mode..."
vrenderparams -ray -gi -rayDepth 10

# Start progressive refinement mode
#vprogressive

puts "Make several path tracing iterations to refine the picture, please wait..."
vfps 100
puts "Done. To improve the image further, or after view manipulations, give command:"
puts "vfps \[nb_iteratons\] or vrepaint -continuous"
Commit	Line	Data
6e728f3b	1	# Script demonstrating Global illumination materials
	2	# using path tracing rendering engine in 3D view
	3
	4	#Category: Visualization
	5	#Title: Path tracing - Ball
	6
	7	set aBallPath [locate_data_file occ/Ball.brep]
	8
	9	pload MODELING VISUALIZATION
ba562b2b	10	# Ray-Tracing doesn't work with Compatible Profile on macOS
ba562b2b	11	if { $::tcl_platform(os) == "Darwin" } { vcaps -core }
6e728f3b	12
	13	# Setup 3D viewer
	14	vclear
	15	vinit name=View1 w=512 h=512
	16	vglinfo
	17	vvbo 0
	18	vsetdispmode 1
	19
	20	# Setup view parameters
	21	vcamera -persp
	22	vviewparams -scale 18 -eye 44.49 -0.15 33.93 -at -14.20 -0.15 1.87 -up -0.48 0.00 0.88
	23
	24	# Load the model from disk
	25	puts "Importing shape..."
	26	restore $aBallPath ball
	27
	28	# Tessellate the model
	29	incmesh ball 0.01
	30
	31	# Display the model and assign material
	32	vdisplay -noupdate ball
	33	vsetmaterial -noupdate ball glass
	34
	35	# Create a sphere inside the model
	36	psphere s 8
	37	incmesh s 0.01
	38	vdisplay -noupdate s
	39	vsetlocation -noupdate s 0 0 13
	40	vsetmaterial -noupdate s plaster
	41
	42	# Create chessboard-style floor
	43	box tile 10 10 0.1
	44	eval compound [lrepeat 144 tile] tiles
	45	explode tiles
	46	for {set i 0} {$i < 12} {incr i} {
	47	for {set j 1} {$j <= 12} {incr j} {
	48	ttranslate tiles_[expr 12 * $i + $j] [expr $i * 10 - 90] [expr $j * 10 - 70] -0.15
	49	vdisplay -noupdate tiles_[expr 12 * $i + $j]
	50
	51	vsetmaterial -noupdate tiles_[expr 12 * $i + $j] plaster
	52
	53	if {($i + $j) % 2 == 0} {
	54	vbsdf tiles_[expr 12 * $i + $j] -kd 0.85
	55	} else {
	56	vbsdf tiles_[expr 12 * $i + $j] -kd 0.45
	57	}
	58	}
	59	}
	60
	61	# Configure light sources
89d855ba	62	vlight -change 0 -head 0
	63	vlight -change 0 -direction -0.25 -1 -1
	64	vlight -change 0 -sm 0.3
	65	vlight -change 0 -int 10.0
6e728f3b	66
	67	# Load environment map
	68	vtextureenv on 1
	69
	70	puts "Trying path tracing mode..."
	71	vrenderparams -ray -gi -rayDepth 10
	72
	73	# Start progressive refinement mode
	74	#vprogressive
	75
	76	puts "Make several path tracing iterations to refine the picture, please wait..."
	77	vfps 100
	78	puts "Done. To improve the image further, or after view manipulations, give command:"
9196ea9d	79	puts "vfps \[nb_iteratons\] or vrepaint -continuous"