anchor.diff:          | G of byte
           | B of byte 
       
  +    /// returns the value hold by a color component
       let getValueFromCC cc =
           match cc with
           | A v -> v
  
positive.code:     
      
      // http://graphicdesign.stackexchange.com/questions/3682/where-can-i-find-a-large-palette-set-of-contrasting-colors-for-coloring-many-d
      module Table =    
  
          let black       = fromRgb   0   0   0                
  
negative.code:         | _   -> failwithf "" // can't be
  
  
      /// Gets the saturation component value of the hue-saturation-brightness (HSB) format for this Color structure.
      let getSaturation col =
          let minimum = minRGB col
          let maximum = maxRGB col
  