Patch title: Release 93 bulk changes
Abstract:
File: /graphic/color/adjust.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/compiler.pli"
module "/pliant/math/functions.pli"
module "/pliant/language/compiler.pli"
module "/pliant/math/functions.pli"
module "/pliant/math/curve.pli"
module "spectrum.pli"
module "color.pli"
module "database.pli"



module "spectrum.pli"
module "color.pli"
module "database.pli"



export color_adjust
function dot_adjust x spec -> y
  arg Float x y ; arg Str spec
  # curve x and y range is 0 1
  var Str header := spec option "header" Str
  var Str header2 := spec option "header2" Str
  var Float density := spec option header+"density" Float (spec option header2+"density" Float 1)
  var Float middle := spec option header+"middle" Float (spec option header2+"middle" Float 0)
  y := (exposure x middle)*density

function dot_unadjust y spec -> x
  arg Float x y ; arg Str spec
  var Str header := spec option "header" Str
  var Str header2 := spec option "header2" Str
  var Float bottom := spec option header+"bottom" Float (spec option header2+"bottom" Float 0)
  var Float middle := spec option header+"middle" Float (spec option header2+"middle" Float 0)
  var Float top := spec option header+"top" Float (spec option header2+"top" Float 0)
  var Float density := spec option header+"density" Float (spec option header2+"density" Float 1)
  # x := unexposure y/density middle
  x := (unexposure y middle)^(exp exp:1*((1-y)*bottom+y*top))/density
  if x=undefined
    x := 0


export color_adjust dot_adjust dot_unadjust