Patch title: Release 92 bulk changes
Abstract:
File: /math/transform.pli
Key:
    Removed line
    Added line
   
submodule "point.pli"
submodule "vector.pli"
submodule "functions.pli"
module "matrix.pli"


function compose t1 t2 -> t
  arg Transform2 t1 t2 t
submodule "point.pli"
submodule "vector.pli"
submodule "functions.pli"
module "matrix.pli"


function compose t1 t2 -> t
  arg Transform2 t1 t2 t
  t := transform t2:matrix*t1:matrix
  if t1:level<=transform_translate and t2:level<=transform_translate
    t xx := 1
    t xy := 0
    t xt := t1:xt+t2:xt
    t yx := 0
    t yy := 1
    t yt := t1:yt+t2:yt
    t level := shunt t:xt<>0 or t:yt<>0 transform_translate transform_identity
  else
    t := transform t2:matrix*t1:matrix


function reverse t -> inv
  arg Transform2 t inv


function reverse t -> inv
  arg Transform2 t inv
  inv := transform t:matrix^(-1)
  if t:level<=transform_translate
    inv := t
    inv xt := -(t xt)
    inv yt := -(t yt)
  else  
    inv := transform t:matrix^(-1)



export Transform2 '. compute' transform '' '. matrix' compos



export Transform2 '. compute' transform '' '. matrix' compos