DIRECTORY IPImagerBasic USING [Color, Transformation]; IPOutput: CEDAR DEFINITIONS = BEGIN OPEN IPImagerBasic; Ref: TYPE = REF Rep; Rep: TYPE = RECORD [procs: REF READONLY Procs, data: REF ANY]; Size: TYPE = RECORD[x, y: NAT]; Procs: TYPE = RECORD [ GetTransformation: PROC[self: Ref] RETURNS[Transformation], GetSize: PROC[self: Ref] RETURNS[Size], Show: PROC[self: Ref, color: Color, gen: PROC[PROC[x, y, w, h: INTEGER]]] ]; GetTransformation: PROC[self: Ref] RETURNS[Transformation] = INLINE { RETURN self.procs.GetTransformation[self] }; GetSize: PROC[self: Ref] RETURNS[Size] = INLINE { RETURN self.procs.GetSize[self] }; Show: PROC[self: Ref, color: Color, gen: PROC[PROC[x, y, w, h: INTEGER]]] = INLINE { self.procs.Show[self, color, gen] }; END. HIPOutput.mesa Last changed by: Doug Wyatt, April 11, 1983 3:55 pm Κ‚˜headšœ ™ šœ™Jšœ"™"—J˜šΟk ˜ Jšœœ˜,——šœ œ ˜Jšœœœ˜J˜Jšœœœ˜Jš œœœ œœœœ˜>J˜Jšœœœœ˜J˜šœœœ˜JšΟnœœ œ˜;Jšžœœ œ˜'Jš žœœœœ œ˜IJšœ˜—J˜šžœœ œ˜:Jšœœœ&˜7—J˜šžœœ œ˜&Jšœœœ˜-—J˜š žœœœœ œ˜IJšœœ'˜/—J˜Jšœ˜——…—όΖ