Patch title: Release 85 bulk changes
Abstract:
File: /pliant/graphic/color/gamut.pli
Key:
    Removed line
    Added line
   
abstract
  ['ColorGamut' data type is defining how a pixel is encoded


method dest_gamut convert src_gamut src_pixels dest_pixels c
  oarg ColorGamutSubstractive dest_gamut ; oarg ColorGamut s
  if speedup<>null and entry_type:speedup=Array:Int
    memory_clear dest_pixels count*dest_gamut:pixel_size
    if src_gamut:transparency=1 and not (addressof:src_gamut
      transparency_convert src_pixels src_gamut dest_pixels 
    var (Pointer Array:Int) mapping :> speedup map Array:Int
    for (var Int u) 0 mapping:size-2 step 2
      var Int i := mapping u ; var Int j := mapping u+1
      bytes_copy (src_pixels translate Byte i) src_gamut:pix
      if i<src_gamut:transparency and j<dest_gamut:transpare
        bytes_copy (src_pixels translate Byte src_gamut:dime
abstract
  ['ColorGamut' data type is defining how a pixel is encoded


method dest_gamut convert src_gamut src_pixels dest_pixels c
  oarg ColorGamutSubstractive dest_gamut ; oarg ColorGamut s
  if speedup<>null and entry_type:speedup=Array:Int
    memory_clear dest_pixels count*dest_gamut:pixel_size
    if src_gamut:transparency=1 and not (addressof:src_gamut
      transparency_convert src_pixels src_gamut dest_pixels 
    var (Pointer Array:Int) mapping :> speedup map Array:Int
    for (var Int u) 0 mapping:size-2 step 2
      var Int i := mapping u ; var Int j := mapping u+1
      bytes_copy (src_pixels translate Byte i) src_gamut:pix
      if i<src_gamut:transparency and j<dest_gamut:transpare
        bytes_copy (src_pixels translate Byte src_gamut:dime
      eif src_gamut:transparency=0 and j<dest_gamut:transparency
        bytes_fill (dest_pixels translate Byte dest_gamut:dimension+j) dest_gamut:pixel_size count
  eif speedup<>null and entry_type:speedup=ColorGridConversi
    var Link:ColorGridConversion gconv :> speedup map ColorG
    var Address s := src_pixels ; var Int src_psize := src_g
    var Address stop := src_pixels translate Byte count*src_
    var Address d := dest_pixels ; var Int dest_psize := des
    while s<>stop
      if s<>src_pixels and not (memory_different s src_psize
        memory_copy (d translate Byte -dest_psize) d dest_ps
      else
        gconv apply s src_gamut d dest_gamut
      s := s translate Byte src_psize ; d := d translate Byt
    transparency_convert src_pixels src_gamut dest_pixels de
  eif speedup<>null and entry_type:speedup=ColorSplitConvers
    var Link:ColorSplitConversion sconv :> speedup map Color
    var Address s := src_pixels ; var Int src_psize := src_g
    var Address stop := src_pixels translate Byte count*src_
    var Address d := dest_pixels ; var Int dest_psize := des
    while s<>stop
      if s<>src_pixels and not (memory_different s src_psize
        memory_copy (d translate Byte -dest_psize) d dest_ps
      else
        sconv apply s src_gamut d dest_gamut
      s := s translate Byte src_psize ; d := d translate Byt
    transparency_convert src_pixels src_gamut dest_pixels de
  else
    default_convert src_pixels src_gamut dest_pixels dest_ga



export color_gamut_compute color_gamut_profile
  eif speedup<>null and entry_type:speedup=ColorGridConversi
    var Link:ColorGridConversion gconv :> speedup map ColorG
    var Address s := src_pixels ; var Int src_psize := src_g
    var Address stop := src_pixels translate Byte count*src_
    var Address d := dest_pixels ; var Int dest_psize := des
    while s<>stop
      if s<>src_pixels and not (memory_different s src_psize
        memory_copy (d translate Byte -dest_psize) d dest_ps
      else
        gconv apply s src_gamut d dest_gamut
      s := s translate Byte src_psize ; d := d translate Byt
    transparency_convert src_pixels src_gamut dest_pixels de
  eif speedup<>null and entry_type:speedup=ColorSplitConvers
    var Link:ColorSplitConversion sconv :> speedup map Color
    var Address s := src_pixels ; var Int src_psize := src_g
    var Address stop := src_pixels translate Byte count*src_
    var Address d := dest_pixels ; var Int dest_psize := des
    while s<>stop
      if s<>src_pixels and not (memory_different s src_psize
        memory_copy (d translate Byte -dest_psize) d dest_ps
      else
        sconv apply s src_gamut d dest_gamut
      s := s translate Byte src_psize ; d := d translate Byt
    transparency_convert src_pixels src_gamut dest_pixels de
  else
    default_convert src_pixels src_gamut dest_pixels dest_ga



export color_gamut_compute color_gamut_profile