home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Personal Computer World 1995 January
/
pcw-0195.iso
/
polyray
/
dat
/
animate
/
texanim
/
texanim.pi
< prev
next >
Wrap
Text File
|
1994-12-31
|
1KB
|
50 lines
// Generic Polyray input File
// Polyray input file: Alexander Enzmann
start_frame 0
end_frame 179
total_frames 180
// Set up the camera
viewpoint {
from <0,5,-15>
at <0,0,0>
up <0,1,0>
angle 45
hither 1
resolution 128, 128
}
background midnight_blue
light <-10, 20, -10>
light < 10, 20, -10>
define bozo1
texture {
noise surface {
color white
octaves 2
position_fn 1
lookup_fn 1
turbulence 4
ambient 0.3
diffuse 0.8
specular 0.6
microfacet Reitz 10
color_map(
[0, 0.1, red, orange]
[0.1, 0.3, orange, blue]
[0.3, 0.5, blue, skyblue]
[0.5, 0.7, skyblue, orange]
[0.7, 0.9, orange, magenta]
[0.9, 1.0, magenta, red])
}
}
define ftheta radians(frame * 360 / total_frames)
object {
lathe 2, <0, 1, 0>, 5,
<3, -5>, <0.5, -3>, <4, -2>, <3, 2>, <0, 4>
bozo1 { scale <4, 4, 4> translate 8 * <cos(ftheta), 0, sin(ftheta)> }
}