home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 16
/
CD_ASCQ_16_0994.iso
/
news
/
4613
/
shapes.rrt
< prev
next >
Wrap
Text File
|
1980-01-06
|
3KB
|
153 lines
// Real Ray Tracer
// This scene was taken from POV 1.0 :
// Persistence Of Vision raytracer version 1.0 sample file.
// By Chris Young
// This image contains an example of every shape from SHAPES.INC
#include "colors.inc"
#include "shapes.inc"
object
{ Ellipsoid
translate <17 1 -13>
texture { color Red phong 0.25 phong_size 90 }
}
object {
Cylinder_X
translate <0 6 -2>
texture { color Green phong 0.25 phong_size 90 }
}
object
{ Cylinder_Y
translate <18 0 -8>
texture { color Blue phong 0.25 phong_size 90 }
}
object
{ Cylinder_Z
translate <10 3 0>
texture { color Cyan phong 0.25 phong_size 90 }
}
object
{ QCone_X
scale <9 1 1>
translate <13 10 -3>
texture { color Orange phong 0.25 phong_size 90 }
}
object
{ QCone_Y
scale <1 9 1>
translate <7 10 -18>
texture { color Yellow phong 0.25 phong_size 90 }
}
object
{ QCone_Z
scale <1 1 9>
translate <7 15 -10>
texture { color Maroon phong 0.25 phong_size 90 }
}
object
{ plane { <1 0 0> 0 }
texture { color Navy }
}
object
{ plane { <0 1 0> 0 }
texture { color White }
}
object
{ plane { <0 0 1> 0 }
texture { color SkyBlue }
}
object
{ Paraboloid_X
translate <15 15 -9>
texture { color Magenta phong 0.25 phong_size 90 }
}
object
{ Paraboloid_Y
translate <5 11 -23>
texture {color GreenYellow phong 0.25 phong_size 90 }
}
object
{ Paraboloid_Z
translate <10 18 -6>
texture {color OrangeRed phong 0.25 phong_size 90 }
}
object
{ Hyperboloid
scale <7 1 1>
translate <10 2 -5>
texture {color Tan phong 0.25 phong_size 90 }
}
object
{ Hyperboloid_Y
scale <1 6 1>
translate <3 10 -10>
texture {color NeonPink phong 0.25 phong_size 90 }
}
object
{ UnitBox
translate <14 1 -13>
texture {color Scarlet phong 0.25 phong_size 90 }
}
object
{ UnitCube
translate <12 1 -16>
texture {color ForestGreen phong 0.25 phong_size 90 }
}
object
{ Disk_X
translate <10 5 -24>
texture {color Coral phong 0.25 phong_size 90 }
}
object
{ Disk_Y
translate <10 7 -24>
texture {color SeaGreen phong 0.25 phong_size 90 }
}
object
{ Disk_Z
translate <10 9 -24>
texture {color Brass phong 0.25 phong_size 90 }
}
camera
{ location <20 10 -30>
point_at <0 5 0>
// angle 40
}
object {
light_source { <200 50 -100> intensity 40 color White }
}
object {
light_source { <50 100 -200> intensity 40 color White }
}
object {
light_source { <200 200 -200> intensity 40 color White }
}
end.