Patch title: Release 92 bulk changes
Abstract:
File: /graphic/color/spectrum.pli
Key:
    Removed line
    Added line
   
abstract
  [Color spectrum handling functions]


abstract
  [Color spectrum handling functions]


function log s1 -> s
  arg ColorSpectrum32 s1 s
  for (var Int i) 0 nm_count-1
    s:measure i := log s1:measure:i

function exp s1 -> s
  arg ColorSpectrum32 s1 s
  for (var Int i) 0 nm_count-1
    s:measure i := exp s1:measure:i

export log exp


#-----------------------------------------------------------


function unexposure y gg -> x
  arg Float y gg x
  var Float g := -8*gg
#-----------------------------------------------------------


function unexposure y gg -> x
  arg Float y gg x
  var Float g := -8*gg
  # console "exp:g-1 = " exp:g-1 eol
  # console "pre log = " y*(exp:g-1)+1
  x := (log y*(exp:g-1)+1)/g
  if x=undefined
    x := y
    
function exposure s1 e -> s
  arg ColorSpectrum32 s1 ; arg Float e ; arg ColorSpectrum32
  for (var Int i) 0 nm_count-1
    s:measure i := exposure s1:measure:i e
  
function unexposure s1 u -> s
  arg ColorSpectrum32 s1 ; arg Float u ; arg ColorSpectrum32
  for (var Int i) 0 nm_count-1
    s:measure i := unexposure s1:measure:i u
  
export exposure unexposure



  x := (log y*(exp:g-1)+1)/g
  if x=undefined
    x := y
    
function exposure s1 e -> s
  arg ColorSpectrum32 s1 ; arg Float e ; arg ColorSpectrum32
  for (var Int i) 0 nm_count-1
    s:measure i := exposure s1:measure:i e
  
function unexposure s1 u -> s
  arg ColorSpectrum32 s1 ; arg Float u ; arg ColorSpectrum32
  for (var Int i) 0 nm_count-1
    s:measure i := unexposure s1:measure:i u
  
export exposure unexposure