// Generic base: 
//   show_wall = TRUE shows a plane wall.
//   show_disk = TRUE shows a disk

#declare base_top_Y = -0.1;
#if (show_wall)
  // The plain plane
  #declare matte_color = color bgColor;
  #include "ic-texture-matte-1.inc"
  #declare base_texture = texture { texture_matte }
  #include "ic-base-plane.inc"
#end
#if (show_disk)
  // The marble disk:
  #include "ic-marbles.inc"
  #declare base_texture = texture{texture_marble_pink}
  #declare base_thickness = 0.20;
  #declare base_disk_radius = 1.5;
  #include "ic-base-disk.inc"
#end
#if (show_disk | show_wall)
  #declare base_shift_Y = base_top_Y;
  object{ abacus_base translate < 0.0, base_shift_Y, 0.0 > }
#end