Patch title: Release 90 bulk changes
Abstract:
File: /graphic/color/color.pli
Key:
    Removed line
    Added line
   
abstract
  [Tri values colors conversions] ; eol
  link "extra details" "http://www.cs.rit.edu/~ncs/color/t_c
  [ and ]
  link "sRGB spec" "http://www.w3.org/Graphics/Color/sRGB.ht


abstract
  [Tri values colors conversions] ; eol
  link "extra details" "http://www.cs.rit.edu/~ncs/color/t_c
  [ and ]
  link "sRGB spec" "http://www.w3.org/Graphics/Color/sRGB.ht


gvar Float cmc_distance_l_parameter := 1.4
gvar Float cmc_distance_c_parameter := 1

function cmc_distance ref test -> d
  arg ColorLab ref test ; arg Float d
function cmc_distance ref test -> d
  arg ColorLab ref test ; arg Float d
  d := cmc_distance ref test 1 1
  d := cmc_distance ref test cmc_distance_l_parameter cmc_distance_c_parameter

function cmc_distance ref test -> d
  arg ColorXYZ ref test ; arg Float d
  d := cmc_distance (cast ref ColorLab) (cast test ColorLab)
 

function cmc_distance ref test -> d
  arg ColorXYZ ref test ; arg Float d
  d := cmc_distance (cast ref ColorLab) (cast test ColorLab)
 
export cmc_distance
export cmc_distance cmc_distance_l_parameter cmc_distance_c_parameter