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. ŒGriffin style types and manipulating routines Stone+Tiberi October 18, 1979 11:16 AM Last Edited by: Stone, January 19, 1983 3:52 pm ÊÅ˜J˜Jšœ-™-Jšœ'™'Jšœ/™/šÏk ˜ Jšœœœ˜Jšœœ˜Jšœœœ˜—J˜Jšœœ˜ Jš˜Jšœœœ˜Jšœœ˜J˜Jšœœ˜+J˜Jšœ œ˜+J˜Jšœ œœœ˜:J˜Jšœ œ,˜=J˜Jšœœ˜#J˜Jšœœ˜.Jšœœ˜#J˜Jšœ œœ˜J˜šœœ˜J˜JšœÏc ˜&J˜J˜3J˜#Jšœœ˜J˜Jšœœ˜Jšœ œ˜J˜Jšœ%˜%J˜ Jšœ œ˜Jšœ œ˜J˜Jšœœž˜J˜—J˜Jšœœœ ˜ J˜JšÏnœ œœ˜.J˜J˜Jšœ˜J˜—…—Z«