// Some texture tools.

#macro texture_matte(clr) 
  // Flat matte texture.
  texture{
    pigment{ color rgb clr }
    finish{ diffuse 0.900 ambient 0.100 }
  }
#end

#macro texture_subtle(clr)
  // Glass-like surface to show bounding boxes and such.
  texture{
    pigment{ color rgb 0.850*<1,1,1> + 0.150*clr filter 0.800 }
    finish{ diffuse 0.070 reflection 0.150 ambient 0.050 specular 0.250 roughness 0.005 }
  }
#end

#macro texture_epoxy(clr)
  // Semi-matte epoxy paint texture.
  texture{ 
    pigment{ color rgb clr }
    finish{ diffuse 0.900 reflection 0.000 ambient 0.050 specular 0.250 roughness 0.020 }
  }
#end

#macro texture_cutaway(clr)
  // Texture for cutaway surfaces.
  texture{
    pigment{ color rgb clr }
    finish{ diffuse 0.600 ambient 0.300 specular 0.500 roughness 0.005 }
  }
#end

#macro texture_brushed_metal(clr)
  // Brushed metal surface.
  texture{ 
    pigment{ color rgb clr }
    finish{ diffuse 0.850 ambient 0.010 specular 0.600 roughness 0.100 }
  }
#end

#macro texture_mirror(clr)
  // Colored mirror surface.
  texture{
    pigment{ color rgb clr }
    finish{ diffuse 0.200 reflection 0.700*clr ambient 0.100 }
  }
#end

#macro texture_transparent(clr) = 
  // Use with index of refraction near 1 for plastic, higher for glass.
  texture{
    pigment{ color rgb clr filter 0.700 }
    finish{ diffuse 0.030 reflection 0.250 ambient 0.020 specular 0.250 roughness 0.005 }
  }
#end

#macro texture_tiles(clrA, clrB,sz)
  // Floor tiles of size {sz}:
  texture{
    pigment{ checker color rgb clrA, color rgb clrB }
    finish{ diffuse 0.900 ambient 0.100 }
    scale sz
  }
#end