{ TYPE definitions for using EDWIN from Pascal } pointfm = record x, y : integer end; transfm = array [0..8] of real;