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

# Script demonstrating Global illumination effects using non-interactive 
# path tracing rendering engine in 3d view

#Category: Visualization
#Title: Path tracing - Cube

pload MODELING VISUALIZATION

# setup 3D viewer content
vclear
vinit name=View1 w=512 h=512
vglinfo

# setup light sources
vlight del 0
vlight del 1
vlight add positional head 0 pos 0.5 0.5 0.85
vlight change 0 sm 0.06
vlight change 0 int 30.0

vvbo 0
vsetdispmode 1
vcamera -persp

# setup outer box
box b 1 1 1 
explode b FACE 
vdisplay -noupdate b_1 b_2 b_3 b_5 b_6
vlocation -noupdate b_1 -setLocation  1  0  0
vlocation -noupdate b_2 -setLocation -1  0  0
vlocation -noupdate b_3 -setLocation  0  1  0
vlocation -noupdate b_5 -setLocation  0  0  1
vlocation -noupdate b_6 -setLocation  0  0 -1

vsetmaterial -noupdate b_1 plastic
vsetmaterial -noupdate b_2 plastic
vsetmaterial -noupdate b_3 plastic
vsetmaterial -noupdate b_5 plastic
vsetmaterial -noupdate b_6 plastic
vbsdf b_1 -kd 1 0.3 0.3 -ks 0
vbsdf b_2 -kd 0.3 0.5 1 -ks 0
vbsdf b_3 -kd 1 -ks 0
vbsdf b_5 -kd 1 -ks 0
vbsdf b_6 -kd 1 -ks 0

vfront
vfit

# setup first inner sphere
psphere s 0.2
vdisplay     -noupdate s
vlocation    -noupdate s -setLocation 0.21 0.3 0.2
vsetmaterial -noupdate s glass
vbsdf s -absorpColor 0.8 0.8 1.0
vbsdf s -absorpCoeff 6

# setup first inner box
box c 0.3 0.3 0.2
vdisplay     -noupdate c
vlocation    -noupdate c -setLocation 0.55 0.3 0.0
vlocation    -noupdate c -rotate 0 0 0 0 0 1 -30
vsetmaterial -noupdate c plastic
vbsdf c -kd 1.0 0.8 0.2 -ks 0.3 -n

# setup second inner box
box g 0.15 0.15 0.3
vdisplay     -noupdate g
vlocation    -noupdate g -setLocation 0.7 0.25 0.2
vlocation    -noupdate g -rotate 0 0 0 0 0 1 10
vsetmaterial -noupdate g glass
vbsdf g -absorpColor 0.8 1.0 0.8
vbsdf g -absorpCoeff 6

# setup second inner sphere
psphere r 0.1
vdisplay -noupdate r
vsetmaterial -noupdate r plastic
vbsdf r -kd 0.5 0.9 0.3 -ks 0.3 -baseRoughness 0.0 -n
vbsdf r -baseFresnel Constant 1.0
vlocation r -setLocation 0.5 0.65 0.1

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

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\]"
Commit	Line	Data
d8d34245	1	# Script demonstrating Global illumination effects using non-interactive
d8d34245	2	# path tracing rendering engine in 3d view
8c820969	3
d8d34245	4	#Category: Visualization
6e728f3b	5	#Title: Path tracing - Cube
d8d34245	6
d8d34245	7	pload MODELING VISUALIZATION
8c820969	8
8c820969	9	# setup 3D viewer content
6e728f3b	10	vclear
8c820969	11	vinit name=View1 w=512 h=512
	12	vglinfo
	13
d8d34245	14	# setup light sources
	15	vlight del 0
	16	vlight del 1
	17	vlight add positional head 0 pos 0.5 0.5 0.85
	18	vlight change 0 sm 0.06
3a9b5dc8	19	vlight change 0 int 30.0
d8d34245	20
8c820969	21	vvbo 0
	22	vsetdispmode 1
	23	vcamera -persp
	24
d8d34245	25	# setup outer box
8c820969	26	box b 1 1 1
8c820969	27	explode b FACE
6e728f3b	28	vdisplay -noupdate b_1 b_2 b_3 b_5 b_6
	29	vlocation -noupdate b_1 -setLocation 1 0 0
	30	vlocation -noupdate b_2 -setLocation -1 0 0
	31	vlocation -noupdate b_3 -setLocation 0 1 0
	32	vlocation -noupdate b_5 -setLocation 0 0 1
	33	vlocation -noupdate b_6 -setLocation 0 0 -1
8c820969	34
6e728f3b	35	vsetmaterial -noupdate b_1 plastic
	36	vsetmaterial -noupdate b_2 plastic
	37	vsetmaterial -noupdate b_3 plastic
	38	vsetmaterial -noupdate b_5 plastic
	39	vsetmaterial -noupdate b_6 plastic
d8d34245	40	vbsdf b_1 -kd 1 0.3 0.3 -ks 0
d8d34245	41	vbsdf b_2 -kd 0.3 0.5 1 -ks 0
8c820969	42	vbsdf b_3 -kd 1 -ks 0
	43	vbsdf b_5 -kd 1 -ks 0
	44	vbsdf b_6 -kd 1 -ks 0
	45
d8d34245	46	vfront
d8d34245	47	vfit
8c820969	48
d8d34245	49	# setup first inner sphere
8c820969	50	psphere s 0.2
6e728f3b	51	vdisplay -noupdate s
	52	vlocation -noupdate s -setLocation 0.21 0.3 0.2
	53	vsetmaterial -noupdate s glass
05aa616d	54	vbsdf s -absorpColor 0.8 0.8 1.0
05aa616d	55	vbsdf s -absorpCoeff 6
8c820969	56
d8d34245	57	# setup first inner box
8c820969	58	box c 0.3 0.3 0.2
6e728f3b	59	vdisplay -noupdate c
	60	vlocation -noupdate c -setLocation 0.55 0.3 0.0
	61	vlocation -noupdate c -rotate 0 0 0 0 0 1 -30
	62	vsetmaterial -noupdate c plastic
8c820969	63	vbsdf c -kd 1.0 0.8 0.2 -ks 0.3 -n
8c820969	64
d8d34245	65	# setup second inner box
8c820969	66	box g 0.15 0.15 0.3
6e728f3b	67	vdisplay -noupdate g
	68	vlocation -noupdate g -setLocation 0.7 0.25 0.2
	69	vlocation -noupdate g -rotate 0 0 0 0 0 1 10
	70	vsetmaterial -noupdate g glass
05aa616d	71	vbsdf g -absorpColor 0.8 1.0 0.8
05aa616d	72	vbsdf g -absorpCoeff 6
8c820969	73
d8d34245	74	# setup second inner sphere
8c820969	75	psphere r 0.1
6e728f3b	76	vdisplay -noupdate r
6e728f3b	77	vsetmaterial -noupdate r plastic
05aa616d	78	vbsdf r -kd 0.5 0.9 0.3 -ks 0.3 -baseRoughness 0.0 -n
05aa616d	79	vbsdf r -baseFresnel Constant 1.0
6e728f3b	80	vlocation r -setLocation 0.5 0.65 0.1
8c820969	81
d8d34245	82	puts "Trying path tracing mode..."
8c820969	83	vrenderparams -ray -gi -rayDepth 8
d8d34245	84
	85	puts "Make several path tracing iterations to refine the picture, please wait..."
	86	vfps 100
	87	puts "Done. To improve the image further, or after view manipulations, give command:"
	88	puts "vfps \[nb_iteratons\]"