DIRECTORY CD USING [Position, Layer, ObjectClass, Object]; CDRects: CEDAR DEFINITIONS = BEGIN CreateRect: PROC [size: CD.Position, l: CD.Layer] RETURNS [CD.Object]; IsBareRect: PROC [ob: CD.Object] RETURNS [BOOL] = INLINE { RETURN [ob.class=bareRectClass] }; IsWellRect: PROC [ob: CD.Object] RETURNS [BOOL] = INLINE { RETURN [ob.class=wellRectClass] }; IsSimpleRect: PROC [ob: CD.Object] RETURNS [BOOL] = INLINE { RETURN [ob.class=bareRectClass OR ob.class=wellRectClass] }; UseForCreateRect: PROC [ layer: CD.Layer, createRect: PROC [size: CD.Position, l: CD.Layer] RETURNS [CD.Object] _ NIL, hangExtensionsOn: CD.ObjectClass_NIL ]; CreateBareRect: PROC [size: CD.Position, l: CD.Layer] RETURNS [CD.Object]; bareRectClass: PRIVATE READONLY CD.ObjectClass; wellRectClass: PRIVATE READONLY CD.ObjectClass; END. ìCDRects.mesa A module of ChipNDale Copyright c 1983, 1986, 1987 by Xerox Corporation. All rights reserved. Created by Christian Jacobi, May 3, 1983 10:44 am Last edited by: Christian Jacobi, March 27, 1987 6:58:31 pm PST Basic module for creation of rectangle objects. --Design creation procedures --Create a rect-object --x is considered width, y is considered length --Technology implementor procedures --Create rect of class bareRectClass (not going through class mechanism) Êÿ˜šœ$™$Jšœ Ïmœ=™HJšœ3™3Icode™?J™—šÏk ˜ Jšžœžœ(˜0J˜—JšÏnœžœž œ˜Jšž˜J˜Jšœ/™/J˜JšÏc™J˜š Ÿ œžœžœžœžœžœ ˜GJš ™Jš /™/J˜—š Ÿ œžœžœ žœžœžœ˜:Jšžœ˜J˜—J˜š Ÿ œžœžœ žœžœžœ˜:Jšžœ˜J˜—J˜š Ÿ œžœžœ žœžœžœ˜