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


function unexposure y gg -> x
  arg Float y gg x
  var Float g := -8*gg
  # console "exp:g-1 = " exp:g-1 eol
abstract
  [Color spectrum handling functions]


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
  # console "pre log = " y*(exp:g-1)+1 eol
  x := (log y*(exp:g-1)+1)/g
  x := (log y*(exp:g-1)+1)/g
  if x=undefined
  if x=undefined or abs:gg<0.01 and (abs x-y)>abs:gg
    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 := 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