Patch title: Release 85 bulk changes
Abstract:
File: /pliant/graphic/image/prototype.pli
Key:
    Removed line
    Added line
   
abstract
  ['ImagePrototype' is defining the API to deal with pixels 


abstract
  ['ImagePrototype' is defining the API to deal with pixels 


method p fill x y size_x size_y pixel
  oarg_rw ImagePrototype p ; arg Int x y size_x size_y ; arg
  check size_x>0 and size_y>0 and x>=0 and x+p:size_x<=size_
  for (var Int i) y y+size_y-1
    p fill x i size_x pixel
if false
  method p fill x y size_x size_y pixel
    oarg_rw ImagePrototype p ; arg Int x y size_x size_y ; arg Address pixel
    check size_x>0 and size_y>0 and x>=0 and x+p:size_x<=size_x and y>=0 and y+size_y<=p:size_y
    for (var Int i) y y+size_y-1
      p fill x i size_x pixel


function image_prototype x0 y0 x1 y1 size_x size_y gamut -> 
  arg Float x0 y0 x1 y1 ; arg Int size_x size_y ; oarg Color
  check exists:gamut
  p size_x := size_x
  p size_y := size_y
  p gamut :> gamut
  p x0 := x0
  p y0 := y0
  p x1 := x1
  p y1 := y1


function image_prototype x0 y0 x1 y1 size_x size_y gamut -> 
  arg Float x0 y0 x1 y1 ; arg Int size_x size_y ; oarg Color
  check exists:gamut
  p size_x := size_x
  p size_y := size_y
  p gamut :> gamut
  p x0 := x0
  p y0 := y0
  p x1 := x1
  p y1 := y1
  p options := ""
  p complete


function image_prototype x0 y0 x1 y1 rx ry aa_x aa_y adjust 
  arg Float x0 y0 x1 y1 rx ry ; arg Int aa_x aa_y adjust ; o
  check adjust>=image_adjust_extend and adjust<=image_adjust
  var Int size_x := (max (cast (abs x1-x0)*(rx/25.4)+(shunt 
  var Int size_y := (max (cast (abs y1-y0)*(ry/25.4)+(shunt 
  p := image_prototype x0 y0 x0+size_x/(rx/25.4)*((x1-x0)/(a
  p complete


function image_prototype x0 y0 x1 y1 rx ry aa_x aa_y adjust 
  arg Float x0 y0 x1 y1 rx ry ; arg Int aa_x aa_y adjust ; o
  check adjust>=image_adjust_extend and adjust<=image_adjust
  var Int size_x := (max (cast (abs x1-x0)*(rx/25.4)+(shunt 
  var Int size_y := (max (cast (abs y1-y0)*(ry/25.4)+(shunt 
  p := image_prototype x0 y0 x0+size_x/(rx/25.4)*((x1-x0)/(a

method p index_x x -> i
  arg ImagePrototype p ; arg Float x ; arg Int i
  i := cast (x-p:x0)/(p:x1-p:x0)*p:size_x Int

method p index_y y -> i
  arg ImagePrototype p ; arg Float y ; arg Int i
  i := cast (y-p:y0)/(p:y1-p:y0)*p:size_y Int