/*-- colors.ray
   -- 
   -- surfaces for Rayshade 
   -- v1.2
   -- (Iain Sinclair 1991)
 */


#define EX_FBM fbm 0 2 .1 2 6 -.2
#define EX_SKY sky 1  0.3  2  4  0.6  0.5
#define PAL 780 575
#define HPAL 390 287
#define QPAL 195 144
#define TPAL 585 430
#define DPAL 1200 884
#define Sc(x) scale x x x
#define qpris(s,a,b,c,x,y,z) \
  poly s a b c  x b c  x y c  a y c \
  poly s a b c  a y c  a y z  a b z \
  poly s a b z x b z  x y z  a y z \
  poly s x b z x b c  x y c  x y z 
#define tpris(s,x1,z1,x2,z2,x3,z3,y) \
  poly s x1 0 z1  x2 0 z2  x2 y z2 x1 y z1 \
  poly s x2 0 z2  x3 0 z3  x3 y z3 x2 y z2 \
  poly s x1 0 z1  x3 0 z3  x3 y z3 x1 y z1 \
  triangle s x1 y z1  x2 y z2  x3 y z3 \
  triangle s x1 0 z1  x2 0 z2  x3 0 z3

surface grey diffuse .5 .5 .5 ambient .1 .1 .1
surface purple diffuse 0.4294 0.0000 0.5088 ambient 0.1431 0.0000 0.1696
surface pink diffuse 0.7265 0.3618 0.5294 ambient 0.2422 0.1206 0.1765
surface red diffuse .7 .1 .1 ambient .3 0 0 specular .3 .3 .3 specpow 25
surface yellow diffuse .8 .8 .2 ambient .2 .17 0 specular .2 .2 .2
surface lightbrick diffuse .553 .318 .29  ambient .12 .06 .05
surface aqua2 diffuse .01 .614 .461  ambient .0 .3 .26
surface aqua  diffuse .01 .614 .461  ambient .0 .2 .16
  specular .5 .5 .5 specpow 30 reflect .3


surface clay diffuse .8 .3 .2
surface ironbark diffuse .38 .34 .36 ambient .03 .015 .013

surface sand diffuse .8 .75 .7

surface water index 2 transp .9 specular .8 .8 .8 specpow 200 reflect .3

surface air index 1 transp .9999

surface blue ambient .05 .05 .2 diffuse .1 .1 .8 specular .05 .05 .05
        specpow 4 reflect 0.35
surface royalblue diffuse .1 .2 .7 specular .0 .0 .2
	specpow 5 reflect .2
surface deepblue diffuse .1 .1 .3
surface cloudblue diffuse .2 .2 .4
surface nightblue diffuse .43 .26 .31 specpow 60

surface powderblue diffuse .45 .65 .95
surface glintblue diffuse .05 .25 .45 specular .3 .3 .3 reflect .5
surface blueglass diffuse .09 .15 .45 specular .5 .5 .6 reflect .5
surface turqglass diffuse .01 .03 .05 specular .5 .6 .7 reflect .5 specpow 3
surface darkglass diffuse .01 .02 .03 ambient .01 .02 .03 specular .7 .7 .7
 reflect .5
surface sickglass diffuse .00 .01 .01 ambient .01 .02 .01 specular .7 .8 .7
 reflect .5
surface brownglass diffuse 0.1176 0.0412 0.0000 specular .55 .54 .52 reflect .4




surface skyblue diffuse .3 .50 .80 transp .65
surface lilac  diffuse .4 .3 .4  specular .2 .1 .2 reflect .1
surface smudge  diffuse .2 .1 .2  specular .1 .05 .1 reflect .2
surface lino1  diffuse .3 .45 .7  specular .1 .05 .1 reflect .2
	specpow 20
surface lino2  diffuse .1 .15 .23  specular .1 .05 .1 reflect .2
	specpow 20

surface darkplastic diffuse .09 .07 .11 specpow 15

surface cream diffuse .9 0.75 0.43 ambient  .02 .02 .01
surface yuck diffuse .9 0.85 0.73 ambient  .02 .02 .02
/* scum=dirty brown */
surface scum diffuse 0.4206 0.3588 0.2588 ambient 0.1402 0.1196 0.0863
surface silt diffuse 0.5265 0.4471 0.3735 ambient 0.1755 0.1490 0.1245
surface brown diffuse 0.3147 0.0794 0.0118 ambient 0.1049 0.0265 0.0039
surface earth diffuse 0.4618 0.1765 0.0882 ambient 0.1539 0.0588 0.0294
  specular .8 .8 .8 specpow 24

surface drab diffuse .51 .54 .62 reflect .1 specpow 20
surface teddy diffuse 0.5176 0.2176 0.0000 ambient 0.1725 0.0725 0.0000
surface bog diffuse .51 .54 .56 noshadow
surface plaster diffuse 0.6735 0.6059 0.4465 ambient 0.2245 0.2020 0.1388
surface grunge diffuse 0.4941 0.4265 0.2853
/* grot=another icky grey-brown */
surface grot diffuse 0.4706 0.3941 0.3059 ambient 0.1569 0.1314 0.1020
surface lavtile diffuse .85 .86 .93 ambient .12 .12 .15 specular .8 .8 .8
  specpow 10

surface dullchoc diffuse .65 .247 .1294  ambient .02 .01 .02
surface carcass diffuse .91 .725 .553 ambient .09 .08 .03
surface pancreas diffuse .85 .835 .823 ambient .08 .08 .03
surface ghostwhite diffuse .859 .875 .961 ambient .21 .21 .21
surface redneon ambient .6 .0 .0 diffuse .4 .0 .0
surface blueneon ambient .0 .0 .6 diffuse .0 .0 .4
surface brite ambient .97 .95 .97




surface nullarbor ambient .1 .0 .0 diffuse .6 .3 .1
surface nurrungar ambient .1 .0 .0 diffuse .6 .3 .1
surface umber diffuse .4 .15 .10
surface rust  diffuse .3 .1 0
surface wilcannia diffuse .45 .1 0

surface canvas diffuse .7 .7 .7 reflect .15
surface seagrey diffuse .65 .65 .65 reflect .15
surface tin diffuse .8 .8 .8 reflect .2
surface gullgrey diffuse .74 .73 .75
surface tedium diffuse .3 .1 .5  noshadow
surface white diffuse .75 .75 .75
  ambient .24 .24 .24 specpow 10
surface offwhite diffuse 0.7500 0.6676 0.5735 ambient 0.2500 0.2225 0.1912
surface paleblue0 diffuse .4 .522 .7 ambient .1 .13 .175
surface paleblue diffuse .38 .5 .67 ambient .11 .15 .2

surface greybeige diffuse .8 .62 .6
surface xanthgrey diffuse .87 .86 .84 ambient .2 .2 .18
surface beige specular 0.1 0.1 0.045 diffuse .7 0.65 0.13
surface musk diffuse .6 .45 .5 ambient .4 .3 .3
surface flesh diffuse .6 .45 .5 specular .4 .3 .3
surface mucous ambient .01 .02 .02 diffuse .3 .6 .5 specular .2 .4 .2

surface turquoise   diffuse .15 .25 .4 specular .10 .1 .2
	reflect .3 specpow 3
surface turquoise4  diffuse 0 .27 .28
surface turquoise3  diffuse 0 .75 .78
surface turquoise2  diffuse .25 .87 .81
surface hemoglobin  diffuse .83 .17 .17
surface turquoise1  diffuse 0 .898 .933
surface violet diffuse .50 0 .40  ambient .0 0 .05 specular .2 .1 .2
	reflect .15 specpow 5

surface blood diffuse .65 0 .2  ambient .05 0 0 specular .2 .1 .2
        reflect .15 specpow 5
surface firetruck diffuse .8 .1 .1 specular .1 .1 .1
	reflect .1 specpow 3

surface velvet ambient .1 .0 .0 diffuse .5 .1 .4 specular .2 .1 .4
surface plum ambient .1 .0 .0 diffuse .2 .1 .25 specular .1 .1 .2
	specpow 5

surface indigo diffuse .8 .7 .9 ambient .2 .1 .2  reflect .2
	specpow 20

surface phlegm diffuse .2 .4 .2 specular 0 .2 .0

/* --- organic */
surface tangerine diffuse .86 .35 .05 specular .2 .1 .0 reflect .2
surface orange diffuse .99 .5 .0 reflect .15
surface pumpkin diffuse .89 .32 .10 specular .2 .15 .0
surface carrotine diffuse .93 .57 .13
surface lemon diffuse .80 .81 .1 specular .17 .17 .17 ambient .0 .0 0
  reflect .15 specpow 4
surface zucchini diffuse .1 .3 .1 specular .0 .1 .0 reflect .15
surface meat diffuse .5 .1 .1  specular .15 .15 .15 reflect .2
surface lawn diffuse .4 .8 .2  specular .1 .2 .1
surface lime diffuse .6 .9 .4 specular .1 .1 .1 ambient .1 .2 .05
surface lime2 diffuse .0 .1 .0  transp .99

surface pine ambient 0.1 0.1 0.05 diffuse .9 0.85 0.33 specular .0 .05 .1
	reflect .19 specpow 5

surface oak diffuse .54 .43 .30 specular .1 .1 .1
	reflect .15 specpow 10

surface slate diffuse .5 .5 .6 ambient .1 .1 .1
surface cement diffuse 0.6088 0.6471 0.6294 ambient 0.2029 0.2157 0.2098
surface concrete /* diffuse .85 .85 .87 ambient .13 .13 .132 */
diffuse 0.4206 0.4412 0.4941 ambient 0.1402 0.1471 0.1647
surface granite diffuse 0.581 0.534 0.417
surface granite2 diffuse 0.501 0.454 0.337
surface smoke2 diffuse .05 .05 .05 reflect .50 transp .5 specpow 40 specular .8 .8 .8
surface smoke diffuse .04 .03 .03 reflect .30 specpow 35 specular .81 .8 .8
surface bluesmoke diffuse .01 .01 .05 reflect .10 specpow 40 specular .8 .8 .8
surface turqsmoke diffuse .01 .04 .06 reflect .10 specpow 40 specular .8 .8 .8
surface greensmoke diffuse .01 .05 .01 reflect .10 specpow 30 specular .8 .85 .8
surface ambulance ambient .9 .1 .1 specular .1 .0 .0
surface black diffuse 0.02 0.02 0.02
surface ceramic diffuse 0.6118 0.6794 0.7471 ambient 0.2039 0.2265 0.2490
  specular .5 .5 .5 specpow 25



/* --- metals */
surface pipemetal diffuse .21 .21 .23 ambient .05 .05 .07 reflect .5 specular .3
 .3 .4 specpow 15
surface ciron diffuse .1 .1 .11 specular .7 .7 .72 reflect .2
surface steel diffuse 0.2 0.2 0.22 specular .20 .20 .25 reflect 0.6
surface s_steel diffuse 0.23 0.23 0.25 specular .10 .10 .15
        reflect 0.4 specpow 4

surface iron diffuse .15 .15 .17 specular .3 .3 .3
	reflect .5
surface lead diffuse .45 .43 .43 specular .1 .1 .2
	reflect .2 specpow 10
surface silver diffuse .02 .02 .04 specular .71 .71 .7 reflect .95 specpow 70
surface v3 diffuse .1 .1 .1 specular .4 .4 .43 reflect .85

surface chrome2 diffuse 0.3 0.3 0.05 specular .4 .4 .4
        reflect 0.75
surface brass  diffuse 0.3 0.26 0.15 specular .2 .2 .1
	reflect 0.3 specpow 8

surface gold2  diffuse 0.22 0.18 0.05 specular .8 .8 .4 ambient .04 .02 .0
	reflect 0.93 specpow 58


surface copper diffuse .6 .35 .2 specular .2 .1 .0
	reflect 0.20 specpow 15

/* --- silicates */
surface mirror1 ambient 0.04 0.04 0.04 diffuse 0.05 0.05 0.05 specular 1 1 1
        specpow 60
        reflect 0.95

surface crystal diffuse .03 .03 .08
        reflect 0.03 transp 0.96 index 1.5

surface glass0 diffuse .08 .08 .08  specular .2 .2 .2
surface glass1 specular .02 .02 .02
	reflect .18 transp .8 index 1.3 specpow 1

surface glass2 specular .7 .7 .7
	reflect .08 transp .9 index 1.3 specpow 80

surface beerbottle diffuse .10 .10 .05 specular .15 .15 .05
	reflect .4 transp .3 index 1.6 specpow 4

surface perspex diffuse .05 .05 .05 specular .1 .1 .1
        reflect .15 transp .85 index 1.3 specpow 5

surface greenglass diffuse .04 .19 .04 specular .6 .6 .6
        reflect .15 transp .66 index 1.3 specpow 63

surface brick diffuse .453 .218 .19  ambient .12 .06 .05
surface navyglass diffuse .04 .06 .10 specular .62 .72 .82 reflect .65
surface azglass diffuse .01 .03 .05 ambient .01 .02 .03
 specular .62 .69 .72 reflect .4 transp .15
surface soot diffuse .11 .09 .13 ambient .04 .04 .06
surface frame_metal diffuse .1 .1 .1  specular .9 .9 .9 reflect .1 specpow 100
surface elcom_drab
 diffuse .569 .384 .286 ambient .1 .08 .06
surface olive diffuse .294 .31 .173 ambient .04 .06 .02  specular .7 .7 .7
  specpow 10 reflect .1

surface lngblue diffuse 0.2529 0.2853 0.3324 ambient 0.0843 0.0951 0.1108

/*===========================================================================*/
/**/
/*   Everett (Skip) Carter              Phone:  408-646-3318 FAX: 408-646-2712*/
/*   Naval Postgraduate School          INTERNET: skip@taygeta.oc.nps.navy.mil*/
/*   Dept. of Oceanography, Code OC/CR  UUCP:     ...!uunet!taygeta!skip*/
/*   Monterey, CA. 93943                TELEMAIL: s.carter/omnet*/

/*   surfaces.h         several useful surface definitions  */

surface mud    ambient 0.3 0. 0. diffuse 0.7 0.3 0.
surface mirror ambient 0.01 0.01 0.01 diffuse 0.05 0.05 0.05
	       specular 0.08 0.08 0.08 specpow 20 reflect 0.95
surface silver1
	ambient 0.035 0.0325 0.025
	diffuse 0.5 0.45 0.35
	specular 0.8 0.8 0.8 specpow 10
	reflect 0.5

surface blacktile ambient 0.01 0.015 0.01
		  diffuse 0.01 0.03  0.02
		  specular 0.3 0.35 0.3 specpow 30 reflect 0.0

surface white1     ambient 0.02 0.02 0.008
		  diffuse 0.5 0.5  0.25
		  specular 0.8 0.8 0.8 specpow 18 reflect 0.0

surface glass	ambient 0.02 0.02 0.02
		diffuse 0.0  0.0  0.0
	 specular 0.8 0.8 0.8 specpow 40 reflect 0.2 transp 0.8 index 1.15

surface chrome
        ambient 0.07 0.07 0.07
        diffuse 0.14 0.14 0.14
        specular 0.9 0.9 0.9
        specpow 50
        reflect 0.7

surface neon
        ambient 1.5 0.2 0.2

/*===========================================================================

>From keihh!kt@abqhh.hanse.de Wed Jan 29 16:12:53 1992
Subject: Rayshade 4.0
To: jle@cfm.brown.edu
X-Mailer: ELM [version 2.3 PL11 (OS-9 2.00)]

Here 2 surfaces:

Gold:*/

surface gold
	ambient 0.08 0.05 0.02
	diffuse 0.30 0.2 0.08 
	specular 0.60 0.5 0.25 
	specpow 20
	reflect 0.85


/*Cloudes: (very nice)*/

surface skywhite 
	ambient 0.8 0.8 0.8 
	diffuse 0.8 0.8 0.8
	specular 0.8 0.8 0.8 
	specpow 32

plane skywhite 0 0 30  0 0 1  texture sky  2.0 0.5 2.0 7 0.63 0.4 scale 20 20 4


