DIRECTORY FunctionCache, GGBasicTypes, Imager; GGCircleCache: CEDAR DEFINITIONS = BEGIN Point: TYPE = GGBasicTypes.Point; Cache: TYPE = FunctionCache.Cache; Context: TYPE = Imager.Context; CachedCircle: TYPE = REF CachedCircleObj; CachedCircleObj: TYPE = RECORD [ bitmap: Imager.SampleMap, cw, ch: INT ]; Create: PROC [] RETURNS [Cache]; Insert: PROC [x: Cache, radius: REAL]; Lookup: PROC [x: Cache, radius: REAL] RETURNS [CachedCircle]; Remove: PROC [x: Cache, radius: REAL]; RemoveAll: PROC [x: Cache]; DrawCachedCircle: PROC [context: Context, point: Point, circle: CachedCircle]; END. ϊGGCircleCache.mesa Copyright c 1986 by Xerox Corporation. All rights reserved. Created by: Ken Pier, August 14, 1986 Last Edited By: Ken Pier, August 15, 1986 11:18:11 am PDT Bier, February 10, 1987 3:35:25 pm PST Returns NIL if lookup fails Κ0˜™Icodešœ Οmœ1™