[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

# 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 del 1
vlight change 0 head 0
vlight change 0 direction -0.25 -1 -1
vlight change 0 sm 0.3
vlight change 0 int 10

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