home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
p
/
ply15dat.zip
/
RADTEX1.PI
< prev
next >
Wrap
Text File
|
1992-11-04
|
935b
|
51 lines
// Sample Polyray file
// A gradient texture with changing 'alpha' values
//
viewpoint {
from <0, 8, -8>
at <0,0,0>
up <0,1,0>
angle 45
resolution 160, 160
}
include "..\colors.inc"
background midnightblue
light <-10, 7, -5>
define position_radial 5
define lookup_plain 0
define patriotic_radial
texture {
noise surface {
color white
position_fn position_radial
lookup_fn lookup_plain
octaves 3
turbulence 0.1
ambient 0.3
diffuse 0.8
specular 0.3
microfacet Reitz 5
color_map(
[0.0, 0.3, white, white]
[0.3, 0.4, white, red]
[0.4, 0.6, red, red]
[0.6, 0.8, red, blue]
[0.8, 0.9, blue, blue]
[0.8, 1.0, blue, white])
}
}
object {
sphere <0, 0, 0>, 1
texture { checker matte_white, matte_black }
}
object {
disc <0, -1, 0>, <0, 1, 0>, 20
patriotic_radial
}