Patch title: Release 94 bulk changes
Abstract:
File: /pliant/graphic/draw/prototype.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/compiler.pli"
submodule "/pliant/language/type/text/str32.pli"
submodule "/pliant/graphic/image/prototype.pli"
submodule "/pliant/graphic/color/gamut.pli"
submodule "/pliant/math/curve.pli"
submodule "/pliant/graphic/vector/outline.pli"
submodule "/pliant/graphic/vector/font.pli"
submodule "/pliant/math/transform.pli"



module "/pliant/language/compiler.pli"
submodule "/pliant/language/type/text/str32.pli"
submodule "/pliant/graphic/image/prototype.pli"
submodule "/pliant/graphic/color/gamut.pli"
submodule "/pliant/math/curve.pli"
submodule "/pliant/graphic/vector/outline.pli"
submodule "/pliant/graphic/vector/font.pli"
submodule "/pliant/math/transform.pli"



method d text txt font kerning length t color
  oarg_rw DrawPrototype d ; arg Str32 txt ; arg Font font ; 
method d text txt font kerning t color
  oarg_rw DrawPrototype d ; arg Str32 txt ; arg Font font ; arg Address kerning ; arg Transform2 t ; arg Address color
  generic
  generic
  var Float spacing := 1
  if length=defined
    spacing := length/(font length txt kerning)
    if spacing=undefined
      spacing := 0
  var Transform2 cur := t
  for (var Int i) 0 txt:len-1
  var Transform2 cur := t
  for (var Int i) 0 txt:len-1
    if kerning<>null
      var Vector2 v ; v x := (kerning map Float i)*font:vector:x ; v y := (kerning map Float i)*font:vector:y
      v := cur v ; cur xt += v x ; cur yt += v y
    var Int num := txt:i number
    d fill (font curves num) outline_evenodd cur color
    var Int num := txt:i number
    d fill (font curves num) outline_evenodd cur color
    var Vector2 v := font vector num
    if kerning<>null
      var Float k := kerning map Float i
      v x *= k ; v y *= k
    if spacing<>1
      v x *= spacing ; v y *= spacing
    v := cur v ; cur xt += v x ; cur yt += v y
    var Vector2 v := cur (font vector num) ; cur xt += v x ; cur yt += v y






method d backdrop options -> image
  oarg_rw DrawPrototype d ; arg Str options ; arg_C ImagePrototype image
  generic
  image :> null map ImagePrototype

method d play draw options
  oarg_rw DrawPrototype d ; oarg_rw DrawPrototype draw ; arg
  generic



method d configure command -> status
  oarg_rw DrawPrototype d ; arg Str command ; arg ExtendedSt
  generic
  status := failure "unknown command"
method d play draw options
  oarg_rw DrawPrototype d ; oarg_rw DrawPrototype draw ; arg
  generic



method d configure command -> status
  oarg_rw DrawPrototype d ; arg Str command ; arg ExtendedSt
  generic
  status := failure "unknown command"