<> <> <> DIRECTORY Rope USING [ROPE], Imager USING [Font], ImagerColor USING [HSV]; StyleDefs: CEDAR DEFINITIONS = BEGIN Color: TYPE = ImagerColor.HSV; Font: TYPE = Imager.Font; JunctionType: TYPE = {round,square,angled}; EndType: TYPE = {round,cyclic,flat,angled}; LineEnd: TYPE = RECORD [type: EndType, dx,dy,a,b,c: REAL]; DashPattern: TYPE = {undashed,dash1,dash2,dash3,dash4,dash5}; Anchor: TYPE = {left,right,center}; StringRotation: TYPE = {or0,or90,or180,or270}; StringType: TYPE = {normal, stack}; StyleHandle: TYPE = REF Style; Style: TYPE = RECORD [ color: Color _ [0,0,0], --major color dashed: DashPattern _ undashed, firstend,lastend: LineEnd _ [round, 0, 0, 0, 0, 0], junctiontype: JunctionType _ round, width: REAL _ 1, fillcolor: Color _ [0,0,0], filled: BOOLEAN _ FALSE, outlined: BOOLEAN _ TRUE, anchor: Anchor _ left, stringRotation: StringRotation _ or0, stringType: StringType _ normal, font: Font _ NIL, fillbackgnd: BOOLEAN _ FALSE, backgndcolor: Color _ [0,0,0], name: Rope.ROPE --stylename ]; lStyle: CARDINAL = SIZE [Style]; CurrentStyle: PROCEDURE RETURNS [StyleHandle]; END.