home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / p / ply15dat.zip / ROOMTEX.INC < prev    next >
Text File  |  1992-09-17  |  2KB  |  98 lines
  1. define position_objectx     1
  2. define position_cylindrical 3
  3. define lookup_sawtooth 1
  4.  
  5. define light_wood <0.6, 0.3, 0.2>
  6. define median_wood <0.4, 0.12, 0.06>
  7. define dark_wood <0.2, 0.06, 0.005>
  8. define reddish_wood
  9. texture {
  10.    noise surface {
  11.       ambient 0.2
  12.       diffuse 0.7
  13.       specular white, 0.5
  14.       microfacet Reitz 10
  15.       reflection white, 0.15
  16.       position_fn position_cylindrical
  17.       position_scale 1
  18.       lookup_fn lookup_sawtooth
  19.       octaves 2
  20.       turbulence 1
  21.       color_map(
  22.          [0.0, 0.8, light_wood, light_wood]
  23.          [0.8, 1.0, median_wood, dark_wood])
  24.       }
  25.    scale <0.3, 0.3, 0.3>
  26.    }
  27.  
  28. // The standard sort of marble texture
  29. define green_marble
  30. texture {
  31.    noise surface {
  32.       ambient 0.3
  33.       diffuse 0.8
  34.       specular 0.3
  35.       reflection white, 0.3
  36.       microfacet Reitz 5
  37.       position_fn position_objectx
  38.       lookup_fn lookup_sawtooth
  39.       octaves 3
  40.       turbulence 3
  41.       color_map(
  42.          [0.0, 0.8, aquamarine, 0.6 * aquamarine]
  43.          [0.8, 1.0, 0.6 * aquamarine, <0.1, 0.1, 0.1>])
  44.       }
  45.    scale <0.5, 0.5, 0.5>
  46.    }
  47.  
  48. // Nice blue agate texture
  49. define sapphire_agate
  50. texture {
  51.    noise surface {
  52.       ambient 0.5
  53.       diffuse 0.7
  54.  
  55.       position_fn position_objectx
  56.       position_scale 1.1
  57.       lookup_fn lookup_sawtooth
  58.       octaves 3
  59.       turbulence 2
  60.  
  61.       color_map(
  62.          [0.0, 0.3, <0, 0, 0.9>, <0, 0, 0.8>]
  63.          [0.3, 1,   <0, 0, 0.8>, <0, 0, 0.4>])
  64.       }
  65.    scale <10, 10, 10>
  66.    }
  67.  
  68. define orange_agate
  69. texture {
  70.    noise surface {
  71.       ambient 0.5
  72.       diffuse 0.7
  73.  
  74.       position_fn position_objectx
  75.       position_scale 1.1
  76.       lookup_fn lookup_sawtooth
  77.       octaves 3
  78.       turbulence 2
  79.  
  80.       color_map(
  81.          [0.0, 0.3, <1, 0.2, 0.3>, 0.8 * <1, 0.2, 0.3>]
  82.          [0.3, 1,   <1, 0.2, 0.3>, 0.2 * <1, 0.2, 0.3>])
  83.       }
  84.    scale <10, 10, 10>
  85.    }
  86.  
  87. define waxed_white
  88. texture {
  89.    surface {
  90.       color white
  91.       ambient 0.1
  92.       diffuse 0.6
  93.       specular white, 0.3
  94.       reflection white, 0.3
  95.       microfacet Phong 10
  96.       }
  97.    }
  98.