Category : Printer + Display Graphics
Archive   : PV050DAT.ZIP
Filename : TETRA.DAT

// Persistence of Vision Raytracer
// Sample file
// By ???

#include "shapes.dat"
#include "colors.dat"
#include "textures.dat"

view_point
location <0.0 30.0 -200.0>
direction <0.0 -0.15 1.0>
up <0.0 1.0 0.0>
right <1.333 0.0 0.0>
end_view_point

#declare Tetra = object
intersection Tetrahedron end_intersection

texture
0.01
colour Gold
ambient 0.1
diffuse 0.7
reflection 0.4
brilliance 6.0
end_texture
colour Gold
end_object

object Tetra
scale <10.0 10.0 10.0>
rotate <0.0 -45.0 0.0>
translate <-10.0 0.0 -105.0>
end_object

object Tetra
scale <10.0 10.0 10.0>
rotate <0.0 -40.0 0.0>
translate <75.0 0.0 50.0>
end_object

object Tetra
scale <10.0 10.0 10.0>
rotate <0.0 30.0 0.0>
translate <-60.0 0.0 -50.0>
end_object

object Tetra
scale <10.0 10.0 10.0>
rotate <0.0 -75.0 0.0>
translate <60.0 0.0 -65.0>
end_object

object
sphere <-50.0 50.0 100.0> 100.0 end_sphere
texture
0.01
colour White
ambient 0.05
diffuse 0.1
reflection 0.97
brilliance 4.0
end_texture
colour White
end_object

object
plane <0.0 1.0 0.0> -50.0 end_plane
texture
0.01
checker colour CBlue colour Gray
scale <40.0 40.0 40.0>
ambient 0.3
diffuse 0.7
reflection 0.1
brilliance 3.0
end_texture
colour CBlue
end_object

object
plane <0.0 1.0 0.0> 500.0 end_plane
texture
0.05
Bright_Blue_Sky
scale <2000.0 500.0 1000.0>
ambient 0.7
diffuse 0.0
end_texture
colour red 0.5 green 0.5 blue 0.8
end_object

object
sphere <0.0 0.0 0.0> 20.0 end_sphere
translate <60.0 60.0 -200.0>
texture
colour White
ambient 1.0
diffuse 0.0
end_texture
light_source
colour White
end_object

object
sphere <0.0 0.0 0.0> 20.0 end_sphere
translate <-60.0 60.0 -200.0>
texture
colour White
ambient 1.0
diffuse 0.0
end_texture
light_source
colour White
end_object