Patch title: Release 94 bulk changes
Abstract:
File: /pliant/graphic/draw/transform.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/compiler.pli"
module "prototype.pli"
module "misc.pli"



method d image_prototype options -> proto
  oarg DrawTransform d ; arg Str options ; arg ImagePrototyp
  proto := d:draw image_prototype options
  if proto:x0=defined
    var Transform2 r := reverse d:t
    var Float x0 := proto x0
    var Float y0 := proto y0
    var Float x1 := proto x1
    var Float y1 := proto y1
    apply x0 y0 x1 y1 r proto:x0 proto:y0 proto:x1 proto:y1
  
module "/pliant/language/compiler.pli"
module "prototype.pli"
module "misc.pli"



method d image_prototype options -> proto
  oarg DrawTransform d ; arg Str options ; arg ImagePrototyp
  proto := d:draw image_prototype options
  if proto:x0=defined
    var Transform2 r := reverse d:t
    var Float x0 := proto x0
    var Float y0 := proto y0
    var Float x1 := proto x1
    var Float y1 := proto y1
    apply x0 y0 x1 y1 r proto:x0 proto:y0 proto:x1 proto:y1
  
method d backdrop options -> image
  oarg_rw DrawTransform d ; arg Str options ; arg_C ImagePrototype image
  image :> d:draw backdrop options



method d image img t
  oarg_rw DrawTransform d ; oarg_rw ImagePrototype img ; arg
  d:draw image img (compose t d:t)



method d image img t
  oarg_rw DrawTransform d ; oarg_rw ImagePrototype img ; arg
  d:draw image img (compose t d:t)



method d text txt font kerning length t color
  oarg_rw DrawTransform d ; arg Str32 txt ; arg Font font ; 
  d:draw text txt font kerning length (compose t d:t) color
method d text txt font kerning t color
  oarg_rw DrawTransform d ; arg Str32 txt ; arg Font font ; arg Address kerning ; arg Transform2 t ; arg Address color
  d:draw text txt font kerning (compose t d:t) color



export DrawTransform '. bind' '. transform'



export DrawTransform '. bind' '. transform'