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


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
abstract
  ['ImagePrototype' is defining the API to deal with pixels 


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 
  var Int size_x := (max (cast (abs x1-x0)*(rx/25.4)/aa_x+(shunt adjust=image_adjust_extend 0.5 adjust=image_adjust_reduce -0.5 0) Int) 1)*aa_x
  var Int size_y := (max (cast (abs y1-y0)*(ry/25.4)/aa_y+(shunt adjust=image_adjust_extend 0.5 adjust=image_adjust_reduce -0.5 0) Int) 1)*aa_y
  p := image_prototype x0 y0 x0+size_x/(rx/25.4)*((x1-x0)/(a

function image_prototype p options -> p2
  arg ImagePrototype p p2 ; arg Str options
  var Float margin := options option "margin" Float 0
  var Float x0 := options option "x0" Float p:x0-margin
  var Float y0 := options option "y0" Float p:y0-margin
  var Float x1 := options option "x1" Float p:x1+margin
  var Float y1 := options option "y1" Float p:y1+margin
  p := image_prototype x0 y0 x0+size_x/(rx/25.4)*((x1-x0)/(a

function image_prototype p options -> p2
  arg ImagePrototype p p2 ; arg Str options
  var Float margin := options option "margin" Float 0
  var Float x0 := options option "x0" Float p:x0-margin
  var Float y0 := options option "y0" Float p:y0-margin
  var Float x1 := options option "x1" Float p:x1+margin
  var Float y1 := options option "y1" Float p:y1+margin
  if not ((options (options option_position "resolution" 0) 
    dpi_x := options option "resolution" Float undefined ; d
    if dpi_x=undefined and p:size_x<>undefined
      dpi_x := p:size_x/(abs p:x1-p:x0)*25.4
    if dpi_y=undefined and p:size_y<>undefined
      dpi_y := p:size_y/(abs p:y1-p:y0)*25.4
  var Int size_x := options option "size_x" Int
  var Int size_y := options option "size_y" Int
  var Link:ColorGamut g :> p gamut
  if g:transparency>0 and (options option "drop_transparency
    var Link:ColorGamut g2 :> color_gamut (replace g:name "+
    if g2=success
      g :> g2
  var Link:ColorGamut g :> p gamut
  if g:transparency>0 and (options option "drop_transparency
    var Link:ColorGamut g2 :> color_gamut (replace g:name "+
    if g2=success
      g :> g2
  if size_x=defined or size_y=defined or dpi_x=undefined or 
  var Int size_x := options option "size_x" Int
  var Int size_y := options option "size_y" Int
  if size_x<>undefined and size_y<>undefined and not (options option "resolution")
    p2 := image_prototype x0 y0 x1 y1 size_x size_y g
  else
    p2 := image_prototype x0 y0 x1 y1 size_x size_y g
  else
    if not ((options (options option_position "resolution" 0) options:len) parse word:"resolution" (var Float dpi_x) (var Float dpi_y) any)
      dpi_x := options option "resolution" Float undefined ; dpi_y := dpi_x
      if dpi_x=undefined and p:size_x<>undefined
        dpi_x := p:size_x/(abs p:x1-p:x0)*25.4
      if dpi_y=undefined and p:size_y<>undefined
        dpi_y := p:size_y/(abs p:y1-p:y0)*25.4
    if not ((options (options option_position "antialiasing"
      aa_x := options option "antialiasing" Int 1 ; aa_y := 
    p2 := image_prototype x0 y0 x1 y1 dpi_x dpi_y aa_x aa_y 
    if not ((options (options option_position "antialiasing"
      aa_x := options option "antialiasing" Int 1 ; aa_y := 
    p2 := image_prototype x0 y0 x1 y1 dpi_x dpi_y aa_x aa_y