home *** CD-ROM | disk | FTP | other *** search
- ReadArchive "statics.vib"
-
- Declare ground = Shader [ PlainSurface [ Color '.9,.95,.95' Kd 0.9 ] ]
-
- Declare primitive = Shader [ PlainSurface [ Color '.96, .8, .69' Kd 0.85 Ks(0.25,'1,1,1') Kr 0.1 BlinnSpecularBRDF 10 ] ]
-
- Declare infocus = Shader [ PlainSurface [ Color '1, 0, 0' Kd 0.95 ] ]
-
- static i = '.65,.65,.65'