// Last edited on 2010-10-14 14:45:04 by stolfilocal
// A velvet base, usually placed over the stage.
// Currently a disk, but should be replaced by a square.

// Caller must define light_ambient (min 0.0 max 1.0)

// DIMENSIONS
// All dimensions are in millimeters.

#declare VB_disk_radius    = 148.0;  // Approximate.
#declare VB_disk_thickness =   2.0;  // Velvet thickness.

#declare VB_height = VB_disk_thickness;  // Velvet base height including paper.

#local eps = 0.01;  // Fudge perturbation to avoid coincident surfaces.

// TEXTURES

#declare VB_velvet_black_texture =
  texture{
    pigment{ rgb < 0.020, 0.020, 0.020 >}
    finish{ 
      ambient light_ambient
      diffuse 1.0 - light_ambient
    }
  }

// OBJECTS

#declare velvet_base = 
  // The velvet base.
  // The disk is centered on the Z axis with the bottom at Z=0.
  cylinder{ <0,0,0+eps>, <0,0,VB_disk_thickness-eps>, VB_disk_radius-eps
    texture{ VB_velvet_black_texture }
  }