home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Personal Computer World 1995 January
/
pcw-0195.iso
/
polymore
/
fig2-15.pi
< prev
next >
Wrap
Text File
|
1994-09-25
|
562b
|
36 lines
//PROGRAM: PARABOLA.PI
include "d:\polyray\include\colors.inc"
include "d:\polyray\include\texture.inc"
viewpoint {
from <0, 0, -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 <1, 6, -6>
// LIGHT_SOURCE
light <0, -7, -6>
// PARABOLA
object {
parabola <0, 5, 0>, <0, 0, 0>, 3
white_marble
}
// PARABOLA
object {
parabola <0, 5, 0>, <0, 0, 0>, 3
rotate <0, 0, 180>
sapphire_agate
}