Patch title: Release 96 bulk changes
Abstract:
File: /pliant/graphic/ui/server/image.pli
Key:
    Removed line
    Added line
module "/pliant/language/compiler.pli"
module "/pliant/graphic/ui/server/context.pli"
module "/pliant/util/pml/io.pli"
module "/pliant/graphic/image/prototype.pli"
module "/pliant/graphic/color/gamut.pli"
module "/pliant/language/type/misc/blob.pli"
module "/pliant/util/encoding/pack4.pli"
module "api.pli"

method c image_define id img
  arg_rw UIServerContext c ; arg Str id ; oarg_rw ImagePrototype img
  c:connection otag "image_define" id
  c:connection oattr "bbox" img:x0 img:y0 img:x1 img:y1
  c:connection oattr "size" img:size_x img:size_y
  c:connection oattr "gamut" img:gamut:name
  c:connection oraw open (cast "image_write_pack4" Ident) id 0 0 img:size_x img:size_y body
  var Address buffer1 := memory_zallocate img:line_size null
  var Address buffer2 := memory_allocate img:line_size null
  var Address encoded := memory_allocate 2*img:line_size+16 null
  for (var Int y) 0 img:size_y-1
    img read 0 y img:size_x buffer2
    (var Blob b) map encoded (pack4_encode buffer2 encoded img:pixel_size img:size_x buffer1)
    c:connection oraw b
    swap buffer1 buffer2
  memory_free buffer1
  memory_free buffer2
  memory_free encoded
  c:connection oraw close
    
method c image_inline id
  arg_rw UIServerContext c ; arg Str id
  c para_in
  c:connection otag "image_inline" id

method c image_copy src_id x0 y0 x1 y1 dest_id xx yy
  arg_rw UIServerContext c ; arg Str src_id ; arg Int x0 y0 x1 y1 ; arg Str dest_id ; arg Int xx yy
  c:connection otag "image_copy" src_id x0 y0 x1 y1 dest_id xx yy

export '. image_define' '. image_inline' '. image_copy'