Patch title: Release 84 bulk changes
Abstract:
File: /pliant/graphic/image/lut.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/compiler.pli"
submodule "prototype.pli"
module "/pliant/language/compiler/type/inherit.pli"
module "/pliant/math/curve.pli"
module "/pliant/graphic/color/gamut.pli"
module "/pliant/graphic/color/spectrum.pli" # defines 'expos
module "/pliant/graphic/misc/int.pli"
module "/pliant/graphic/misc/float.pli"
module "/pliant/graphic/misc/mtbuffer.pli"


method l bind image options -> status
  arg_rw ImageLut l ; oarg ImagePrototype image ; arg Str op
  l:gradation size := image:gamut dimension
  for (var Int d) 0 l:gradation:size-1
    var Float exposure := options option "exposure"+string:d
module "/pliant/language/compiler.pli"
submodule "prototype.pli"
module "/pliant/language/compiler/type/inherit.pli"
module "/pliant/math/curve.pli"
module "/pliant/graphic/color/gamut.pli"
module "/pliant/graphic/color/spectrum.pli" # defines 'expos
module "/pliant/graphic/misc/int.pli"
module "/pliant/graphic/misc/float.pli"
module "/pliant/graphic/misc/mtbuffer.pli"


method l bind image options -> status
  arg_rw ImageLut l ; oarg ImagePrototype image ; arg Str op
  l:gradation size := image:gamut dimension
  for (var Int d) 0 l:gradation:size-1
    var Float exposure := options option "exposure"+string:d
    var Float contrast := options option "contrast"+string:d
    var Float multiply := options option "multiply"+string:d
    var Float add := options option "add"+string:d Float (op
    var Float minimum := options option "minimum"+string:d F
    var Float maximum := options option "maximum"+string:d F
    for (var Int i) 0 255
      var Float f := i/255
      if exposure=defined
        f := exposure f exposure
    var Float multiply := options option "multiply"+string:d
    var Float add := options option "add"+string:d Float (op
    var Float minimum := options option "minimum"+string:d F
    var Float maximum := options option "maximum"+string:d F
    for (var Int i) 0 255
      var Float f := i/255
      if exposure=defined
        f := exposure f exposure
      if contrast=defined
        f := contrast f contrast
      if multiply=defined
        f *= multiply
      if add=defined
        f += add
      if minimum=defined
        f := min f minimum
      if maximum=defined
        f := max f maximum
      l:gradation:d i := f*255
  l compute image
  status := success


      if multiply=defined
        f *= multiply
      if add=defined
        f += add
      if minimum=defined
        f := min f minimum
      if maximum=defined
        f := max f maximum
      l:gradation:d i := f*255
  l compute image
  status := success