home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Personal Computer World 1995 January
/
pcw-0195.iso
/
polyray
/
dat
/
animate
/
whirl
/
texpts.pi
< prev
next >
Wrap
Text File
|
1994-12-31
|
2KB
|
65 lines
viewpoint {
from <0,0,-12>
at <0,0,0>
up <0,1,0>
angle 30
resolution 160, 160
}
// light <-10,10,-10>
light < 10,10,-50>
start_frame 0
end_frame 100
total_frames 101
define increment frame / total_frames
define ang_inc radians(720 * increment)
define ang00 ang_inc
define ang01 ang_inc
define ang10 ang_inc
define ang11 ang_inc + 2
define ang20 ang_inc
define ang21 ang_inc + 1
define pos00 <cos(ang00), 0, sin(ang00)>
define pos01 rotate(pos00, <1, 0, 0>, degrees(ang01))
define pos02 rotate(rotate(pos00, <1, 0, 0>, degrees(ang01)), <180, 0, 0>)
define pos10 <cos(ang10), 0, sin(ang10)>
define pos11 rotate(pos10, <0, 0, 1>, 2 * degrees(ang11))
define pos12 rotate(rotate(pos10, <0, 0, 1>, 2 * degrees(ang11)), <180, 0, 0> )
define pos20 <cos(ang20), 0, sin(ang20)>
define pos21 rotate(pos20, <1, 0, 1>, 1.5 * degrees(ang21))
define pos22 rotate(rotate(pos20, <1, 0, 1>, 1.5 * degrees(ang21)), <180, 0, 0>)
define colortx
texture {
special surface {
color white *
(exp(-2*|P - pos01|) + exp(-2*|P - pos11|) + exp(-2*|P - pos21|) +
exp(-2*|P - pos02|) + exp(-2*|P - pos12|) + exp(-2*|P - pos22|))
ambient 0.9
diffuse 0.1
}
}
define greytx
texture {
surface {
color white
ambient 0.1
diffuse 0.4
specular 0.4
microfacet Reitz 5
}
}
object { sphere <0, 0, 0>, 2 colortx }
object { sphere 2*pos01, 0.2 greytx }
object { sphere 2*pos11, 0.2 greytx }
object { sphere 2*pos21, 0.2 greytx }
object { sphere 2*pos02, 0.2 greytx }
object { sphere 2*pos12, 0.2 greytx }
object { sphere 2*pos22, 0.2 greytx }