Patch title: Release 91 bulk changes
Abstract:
File: /graphic/vector/shading.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/unsafe.pli"
module "/pliant/graphic/image/prototype.pli"
module "/pliant/graphic/color/gamut.pli"
module "/pliant/math/point.pli"
module "/pliant/math/vector.pli"
module "/pliant/graphic/misc/float.pli"
module "/pliant/graphic/misc/bytes.pli"



module "/pliant/language/unsafe.pli"
module "/pliant/graphic/image/prototype.pli"
module "/pliant/graphic/color/gamut.pli"
module "/pliant/math/point.pli"
module "/pliant/math/vector.pli"
module "/pliant/graphic/misc/float.pli"
module "/pliant/graphic/misc/bytes.pli"



export '. axial_shading'

method p radial_shading p0 r0 c0 p1 r1 c1 g
  oarg_rw ImagePrototype p ; arg Point2 p0 ; arg Float r0 ; arg ColorBuffer c0 ; arg Point2 p1 ; arg Float r1 ; arg ColorBuffer c1 ; arg ColorGamut g
  # FIXME
  var ColorBuffer c
  bytes_fill (addressof:c translate Byte g:dimension) 1 g:transparency
  for (var Int y) 0 p:size_y-1
    for (var Int x) 0 p:size_x-1
      var Point2 pxy := point (p mm_x x) (p mm_y y)
      var Float d0 := abs (norme pxy-p0)-r0
      var Float d1 := abs (norme pxy-p1)-r1
      var Float f := d0/(d0+d1)
      if f=undefined
        f := 0.5
      for (var Int i) 0 g:dimension-1
        c:bytes i := cast (1-f)*c0:bytes:i+f*c1:bytes:i Int
      p write x y 1 addressof:c


export '-' '*' norme
export '. axial_shading' '. radial_shading'