home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Personal Computer World 1995 January
/
pcw-0195.iso
/
polymore
/
fig2-14.pi
< prev
next >
Wrap
Text File
|
1994-09-25
|
1KB
|
77 lines
//PROGRAM: DISCS.PI
include "d:\polyray\include\colors.inc"
include "d:\polyray\include\texture.inc"
define Plane_XZ object {
polygon 4, <-10000,0,10000>, <-10000,0,-10000>, <10000,0,-10000>, <10000,0,10000>
}
define CheckerWB texture {checker matte_white, matte_black}
viewpoint {
from <0.0, 1.2, -5.0>
at <0.0, 0.0, 0.0>
up <0.0, 1.0, 0.0>
resolution 100,100
aspect 1.6
}
// LIGHT_SOURCE
light <0, 0, -5>
// LIGHT_SOURCE
light <1, 1, -5>
// PLANE (Checkered Floor)
object {
Plane_XZ
CheckerWB
scale <2, 1, 1> // make tiles larger!
translate <0, -3, 0>
}
// SPHERE
object {
sphere <0, 1, -1>, 0.7
shiny_red
}
// WASHERS(Rings)
object {
disc < 0, 0, 0>, <0, 1, 0>, 0.7, 0.9
reflective_yellow
}
object {
disc < 0, -0.2, 0>, <0, 1, 0>, 1.2, 1.5
reflective_yellow
}
object {
disc < 0, -0.4, 0>, <0, 1, 0>, 1.7, 1.9
reflective_yellow
}
object {
disc < 0, -0.6, 0>, <0, 1, 0>, 2.2, 2.4
reflective_yellow
}
object {
disc < 0, -0.8, 0>, <0, 1, 0>, 2.7, 2.9
reflective_yellow
}
object {
disc < 0, -1.0, 0>, <0, 1, 0>, 3.2, 3.4
reflective_yellow
}
//DISC
object {
disc <0, -5, 10>, <0, 0, 1>, 10.0
rotate<-35, 0, 0>
mirror
}