home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Personal Computer World 1995 January
/
pcw-0195.iso
/
polymore
/
fig2-16.pi
< prev
next >
Wrap
Text File
|
1994-09-25
|
1KB
|
67 lines
//PROGRAM: PLANES.PI
include "d:\polyray\include\colors.inc"
include "d:\polyray\include\texture.inc"
include "d:\polyray\include\stones.inc"
define Plane_YZ object {
polygon 4, <0,-10000,10000>, <0,10000,10000>, <0,10000,-10000>, <0,-10000,-10000>
}
define Plane_XY object {
polygon 4, <-10000,10000,0>, <10000,10000,0>, <10000,-10000,0>, <-10000,-10000,0>
}
define Plane_XZ object {
polygon 4, <-10000,0,10000>, <-10000,0,-10000>, <10000,0,-10000>, <10000,0,10000>
}
viewpoint {
from <0.0, 1.0, -4.0>
at <0.0, -0.25, 0.0>
up <0.0, 1.0, 0.0>
angle 45
resolution 100,100
aspect 1.6
}
// LIGHT_SOURCE
light <5.0, 5.0, -5.0>
// PLANE (Polygon)
object {
// normal in X direction
Plane_YZ
translate <-0.6, 0, 0>
mirror
}
// PLANE (Polygon)
object {
// normal in Z direction
Plane_XY
translate <0, 0, 0.6>
mirror
}
// PLANE (Polygon)
object {
// normal in Y direction
Plane_XZ
translate <0, -0.6, 0>
mirror
}
// SPHERE
object {
sphere < 0, 0, 0>, 0.25
Stone5
}
// CONE
object {
cone <0.0, -0.5, 0.0>, 0.2, <0.0, 0.0, 0.0>, 0.0
translate <0.8, 0.4, -0.8>
Stone6
}