Patch title: Release 93 bulk changes
Abstract:
File: /graphic/draw/image.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/compiler.pli"
module "/pliant/math/transform.pli"
module "prototype.pli"
module "/pliant/graphic/image/prototype.pli"
module "/pliant/graphic/image/pixmap.pli"
module "/pliant/graphic/image/packed.pli"
module "/pliant/graphic/image/transparency.pli"
module "/pliant/graphic/color/gamut.pli"
module "/pliant/graphic/vector/outline.pli"
module "/pliant/graphic/vector/font.pli"
module "/pliant/graphic/image/transform.pli"
module "/pliant/graphic/image/convert.pli"
module "/pliant/graphic/image/clip.pli"


type DrawImage
  field Link:ImagePrototype image
  field Link:ImagePrototype draw_image trouble_image
  field Link:Type image_type
  field Str options
  field List:Str warnings
module "/pliant/language/compiler.pli"
module "/pliant/math/transform.pli"
module "prototype.pli"
module "/pliant/graphic/image/prototype.pli"
module "/pliant/graphic/image/pixmap.pli"
module "/pliant/graphic/image/packed.pli"
module "/pliant/graphic/image/transparency.pli"
module "/pliant/graphic/color/gamut.pli"
module "/pliant/graphic/vector/outline.pli"
module "/pliant/graphic/vector/font.pli"
module "/pliant/graphic/image/transform.pli"
module "/pliant/graphic/image/convert.pli"
module "/pliant/graphic/image/clip.pli"


type DrawImage
  field Link:ImagePrototype image
  field Link:ImagePrototype draw_image trouble_image
  field Link:Type image_type
  field Str options
  field List:Str warnings
  field CBool fast_text <- false


method d bind image options
  oarg_rw DrawImage d ; oarg_rw ImagePrototype image ; arg S
  d image :> image
  d draw_image :> image
  d options := options


method d bind image options
  oarg_rw DrawImage d ; oarg_rw ImagePrototype image ; arg S
  d image :> image
  d draw_image :> image
  d options := options
  d fast_text := options option "fast_text"



method d text txt font kerning length t color
  oarg_rw DrawImage d ; arg Str32 txt ; arg Font font ; arg 



method d text txt font kerning length t color
  oarg_rw DrawImage d ; arg Str32 txt ; arg Font font ; arg 
  d:image text txt font kerning length t color
  if d:fast_text
    d:image fast_text txt font kerning length t color
  else
    d:image text txt font kerning length t color



export DrawImage '. bind' '. image' '. image_type' '. draw_i



export DrawImage '. bind' '. image' '. image_type' '. draw_i