Patch title: Release 90 bulk changes
Abstract:
File: /graphic/color/database.pli
Key:
    Removed line
    Added line
   
submodule "/pliant/appli/database.pli"
module "spectrum.pli"
module "/pliant/language/unsafe.pli"


submodule "/pliant/appli/database.pli"
module "spectrum.pli"
module "/pliant/language/unsafe.pli"


gvar Int color_version := 0



method ch s0 -> s0
  arg Data:ColorChannel ch ; arg ColorSpectrum32 s0
  s0 := color_spectrum32 ch:sample:"0"


method ch s100 -> s100
  arg Data:ColorChannel ch ; arg ColorSpectrum32 s100
  if (exists ch:sample:"255")
    s100 := color_spectrum32 ch:sample:"255"
  else
    s100 := color_spectrum32 ch:sample:"100"
method ch s0 -> s0
  arg Data:ColorChannel ch ; arg ColorSpectrum32 s0
  s0 := color_spectrum32 ch:sample:"0"


method ch s100 -> s100
  arg Data:ColorChannel ch ; arg ColorSpectrum32 s100
  if (exists ch:sample:"255")
    s100 := color_spectrum32 ch:sample:"255"
  else
    s100 := color_spectrum32 ch:sample:"100"