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 Σ 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 Returns NIL if lookup fails Κp•NewlineDelimiter –(cedarcode) style™™Icodešœ Οeœ6™BJ™%Jšœ Οnœ%Οk™6Kšœ#Ÿ™&J™—šŸ ˜ Kšœ$˜$—K˜Kšž œŸœŸ œŸ˜(˜KšœŸœ˜!KšœŸœ˜"Kšœ Ÿœ˜KšœŸœŸœ˜)šœŸœŸœ˜ Kšœ˜KšœŸ˜ K˜——KšžœŸœŸœ ˜ KšžœŸœŸœ˜&šžœŸœŸœŸœ˜=KšœŸœ™—KšžœŸœŸœ˜&Kšž œŸœ ˜KšžœŸœ8˜NK˜KšŸœ˜K˜K˜—…—TΒ