home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Personal Computer World 1995 January
/
pcw-0195.iso
/
polymore
/
fig2-18.pi
< prev
next >
Wrap
Text File
|
1994-09-28
|
985b
|
62 lines
// BLOB.PI
include "d:\polyray\include\colors.inc"
define RedFinish texture {
surface {
color red
ambient 0.2
diffuse 0.8
specular white, 1
microfacet Phong 5
}
}
viewpoint {
from <0, 10, -10>
up <0, 1, 0>
at <0, 1, 0>
angle 35
resolution 160, 160
aspect 1.6
}
// LIGHT_SOURCE
light < 10, 30, -20>
background midnightblue
object {
object {
blob 0.5:
plane <0,1,0>, 0, 2, 5,
sphere <0,3,0>, -4, 2
RedFinish
}
bounding_box <-3,1,-1>, <3,3,3>
scale <0.5,0.5,0.5>
}
object {
object {
blob 0.5:
sphere <-2, 1.5, 0>, 1, 3,
sphere < 2, 1.5, 0>, 1, 3
reflective_yellow
}
scale <0.4, 0.4, 0.4>
translate <0, 3.7, 0>
}
object {
object {
blob 0.5:
sphere <0, 0, 0>, 1, 3,
cylinder < -2, 2, 0>, <2, 2, 0>, 1, 1.5
reflective_yellow
}
scale <0.6, 0.6, 0.6>
translate <0, -3.5, 0>
}