Patch title: Release 92 bulk changes
Abstract:
File: /graphic/image/clip.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/compiler.pli"
module "prototype.pli"
module "/pliant/language/compiler/type/inherit.pli"
module "/pliant/graphic/color/gamut.pli"
module "/pliant/graphic/image/packed.pli"
module "/pliant/graphic/misc/mtbuffer.pli"
module "/pliant/graphic/misc/float.pli"



method c bind image x0 y0 x1 y1 options clip -> status
  oarg_rw ImageClip c ; oarg ImagePrototype image ; arg Floa
  var Int ix0 := image index_x (shunt x0=defined (bound x0 i
  var Int iy0 := image index_y (shunt y0=defined (bound y0 i
  var Int ix1 := min (image index_x (shunt x1=defined (bound
  var Int iy1 := min (image index_y (shunt y1=defined (bound
module "/pliant/language/compiler.pli"
module "prototype.pli"
module "/pliant/language/compiler/type/inherit.pli"
module "/pliant/graphic/color/gamut.pli"
module "/pliant/graphic/image/packed.pli"
module "/pliant/graphic/misc/mtbuffer.pli"
module "/pliant/graphic/misc/float.pli"



method c bind image x0 y0 x1 y1 options clip -> status
  oarg_rw ImageClip c ; oarg ImagePrototype image ; arg Floa
  var Int ix0 := image index_x (shunt x0=defined (bound x0 i
  var Int iy0 := image index_y (shunt y0=defined (bound y0 i
  var Int ix1 := min (image index_x (shunt x1=defined (bound
  var Int iy1 := min (image index_y (shunt y1=defined (bound
  image clip ix0 iy0 ix1 iy1
  if ix1=ix0
    if ix1<image:size_x
      ix1 += 1
    else
      ix0 -= 1
  if iy1=iy0
    if iy1<image:size_y
      iy1 += 1
    else
      iy0 -= 1
  check ix0>=0 and iy0>=0 and ix1<=image:size_x and iy1<=ima
  check ix1>ix0 and iy1>iy0
  c image :> image
  c tx := ix0
  c ty := iy0
  clip :> new ImagePacked
  clip setup (image_prototype (image mm_x ix0) (image mm_y i
  c clip :> clip
  c:buffers size := clip line_size
  addressof:c map ImagePrototype := image_prototype clip:x0 
  status := success



export ImageClip '. bind' '. image'
  if ix1=ix0
    if ix1<image:size_x
      ix1 += 1
    else
      ix0 -= 1
  if iy1=iy0
    if iy1<image:size_y
      iy1 += 1
    else
      iy0 -= 1
  check ix0>=0 and iy0>=0 and ix1<=image:size_x and iy1<=ima
  check ix1>ix0 and iy1>iy0
  c image :> image
  c tx := ix0
  c ty := iy0
  clip :> new ImagePacked
  clip setup (image_prototype (image mm_x ix0) (image mm_y i
  c clip :> clip
  c:buffers size := clip line_size
  addressof:c map ImagePrototype := image_prototype clip:x0 
  status := success



export ImageClip '. bind' '. image'