Patch title: Release 94 bulk changes
Abstract:
File: /pliant/graphic/layout/helper/draw.pli
Key:
    Removed line
    Added line
module "/pliant/language/unsafe.pli"
module "/pliant/graphic/draw/prototype.pli"
module "/pliant/graphic/vector/font.pli"
module "/pliant/math/curve.pli"
module "/pliant/graphic/layout/prototype.pli"


method d rectangle x0 y0 x1 y1 round thickness color
  oarg_rw DrawPrototype d ; arg Float x0 y0 x1 y1 ; arg Float round thickness ; arg Address color
  (var Array:Curve curves) size := shunt thickness=defined 2 1
  var Pointer:Curve c :> curves 0 ; var CurvePoint p
  p := curve_point x0+round y0 false ; p tg_in -1 0 ; p tg_out 1 0 ; c += p
  p := curve_point x1-round y0 false ; p tg_in -1 0 ; p tg_out 1 0 ; c += p
  p := curve_point x1 y0+round false ; p tg_in 0 -1 ; p tg_out 0 1 ; c += p
  p := curve_point x1 y1-round false ; p tg_in 0 -1 ; p tg_out 0 1 ; c += p
  p := curve_point x1-round y1 false ; p tg_in 1 0 ; p tg_out -1 0 ; c += p
  p := curve_point x0+round y1 false ; p tg_in 1 0 ; p tg_out -1 0 ; c += p
  p := curve_point x0 y1-round false ; p tg_in 0 1 ; p tg_out 0 -1 ; c += p
  p := curve_point x0 y0+round false ; p tg_in 0 1 ; p tg_out 0 -1 ; c += p
  c compute outline
  if thickness=defined
    var Pointer:Curve c :> curves 1
    p := curve_point x0+round y0+thickness false ; p tg_in -1 0 ; p tg_out 1 0 ; c += p
    p := curve_point x1-round y0+thickness false ; p tg_in -1 0 ; p tg_out 1 0 ; c += p
    p := curve_point x1-thickness y0+round false ; p tg_in 0 -1 ; p tg_out 0 1 ; c += p
    p := curve_point x1-thickness y1-round false ; p tg_in 0 -1 ; p tg_out 0 1 ; c += p
    p := curve_point x1-round y1-thickness false ; p tg_in 1 0 ; p tg_out -1 0 ; c += p
    p := curve_point x0+round y1-thickness false ; p tg_in 1 0 ; p tg_out -1 0 ; c += p
    p := curve_point x0+thickness y1-round false ; p tg_in 0 1 ; p tg_out 0 -1 ; c += p
    p := curve_point x0+thickness y0+round false ; p tg_in 0 1 ; p tg_out 0 -1 ; c += p
    c compute outline
  d fill curves fill_evenodd transform color


export '. rectangle'