puts "========"
puts "Ray Tracing - check refraction"
puts "========"

vinit View1
vclear
vrenderparams -rasterization
vsetdispmode 1
vsetgradientbg 180 200 255 180 180 180 2

box wall1 1 8 8
box wall2 1 8 8
box wall3 16 8 1

psphere S1 1.5
psphere S2 1.5
psphere S3 1.5

box B1 -1.5 -1.5 -1.5 2.5 2 3
box B2 -1.5 -1.5 -1.5 2.5 2 3
box B3 -1.5 -1.5 -1.5 2.5 2 3

vdisplay S1
vdisplay S2
vdisplay S3

vdisplay B1
vdisplay B2
vdisplay B3

vdisplay wall1
vdisplay wall2
vdisplay wall3

vsetlocation S1 2 2 4
vsetlocation S2 -2 2 4
vsetlocation S3 -6 2 4

vsetlocation B1 2 6 4
vsetlocation B2 -2 6 4
vsetlocation B3 -6 6 4

vsetlocation wall1 -10 0 0
vsetlocation wall2 5 0 0
vsetlocation wall3 -10 0 -1

vsetmaterial S1 water
vsetmaterial S2 glass
vsetmaterial S3 diamond

vsetmaterial B1 water
vsetmaterial B2 glass
vsetmaterial B3 diamond

vsetmaterial wall1 stone
vsetmaterial wall2 stone
vsetmaterial wall3 pewter

vsetcolor wall1 red
vsetcolor wall2 green

vsettransparency S1 0.8
vsettransparency S2 0.8
vsettransparency S3 0.8

vsettransparency B1 0.8
vsettransparency B2 0.8
vsettransparency B3 0.8

vfront
vturnview 0 -0.3 0
vfit
vlight change 0 pos 1 1 1
vlight add directional
vrenderparams -raytrace -raydepth 5 -shadows off -reflections -fsaa