GGCircleCache.mesa
Copyright Ó 1986, 1992 by Xerox Corporation. All rights reserved.
Created by: Ken Pier, August 14, 1986
Last Edited By: Ken Pier, May 22, 1987 10:32:26 am PDT
Bier, February 10, 1987 3:35:25 pm PST
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];
Returns NIL if lookup fails
Remove: PROC [x: Cache, radius: REAL];
RemoveAll: PROC [x: Cache];
DrawCachedCircle: PROC [context: Context, point: Point, circle: CachedCircle];
END.