DIRECTORY GFileFormatDefs USING [GFileFont, GFileStyle, GFileObject], NameSymbolTable USING [Name], PairList USING [Relation], Real USING [RoundI], Rope USING [ROPE], Graphics USING [Path], GraphicsBasic USING [Vec]; ReadGriffin: CEDAR DEFINITIONS IMPORTS Real = { ROPE: TYPE = Rope.ROPE; GriffinFileError: SIGNAL[why: ROPE]; ViewType: TYPE = {main, alternate, both}; FontRef: TYPE = REF GFileFormatDefs.GFileFont; StyleRef: TYPE = REF GFileFormatDefs.GFileStyle; ObjectRef: TYPE = REF GFileFormatDefs.GFileObject; PathRef: TYPE = Graphics.Path; CaptionRef: TYPE = REF CaptionRec; CaptionRec: TYPE = RECORD [ position: GraphicsBasic.Vec, text: ROPE]; ColorRef: TYPE = REF ColorRec; ColorRec: TYPE = RECORD [ next: ColorRef, name: ROPE, h, s, b: REAL]; PathStyleRef: TYPE = REF PathStyleRec; PathStyleRec: TYPE = RECORD [ -- empty fields are NIL or 0 next: PathStyleRef, name: NameSymbolTable.Name, areaColor: ColorRef, outlineColor: ColorRef, pathType: ROPE, lineWeight: REAL]; CaptionStyleRef: TYPE = REF CaptionStyleRec; CaptionStyleRec: TYPE = RECORD [ -- empty fields are NIL or 0 next: CaptionStyleRef, name: NameSymbolTable.Name, family: ROPE, size: REAL, face: ROPE, charRotation: ROPE, lineFormatting: ROPE, textColor: ColorRef]; fontMap: PairList.Relation; -- styleMap: PairList.Relation; -- objectMap: PairList.Relation; -- pathMap: PairList.Relation; -- captionMap: PairList.Relation; -- clusterMap: PairList.Relation; -- firstCluster, lastCluster: CARDINAL; colors: ColorRef; colorNumber: CARDINAL; pathStyles: PathStyleRef; pathStyleNumber: CARDINAL; captionStyles: CaptionStyleRef; captionStyleNumber: CARDINAL; ConvertFile: PROCEDURE [fileName: ROPE, view: ViewType _ main]; FixFileName: PROCEDURE [oldname, extension: ROPE] RETURNS [newname:ROPE]; ScalePressToScreenCoord: PROCEDURE [a: REAL] RETURNS [INTEGER] = INLINE { RETURN[Real.RoundI[a*0.03125]]}; }. ¤ReadGriffin.mesa Read Griffin files and convert to Tioga Artwork files Maureen Stone December 9, 1982 4:55 pm Rick Beach, February 29, 1984 8:45:36 pm PST Êœ™Jšœ5™5Jšœ'™'Jšœ-™-J˜—šÏk ˜ Jšœœ&˜;Jšœœ˜Jšœ œ ˜Jšœœ ˜Jšœœœ˜Jšœ œ˜Jšœœ˜J˜—šœ ˜Jšœ ˜—J˜Jšœœœ˜J˜Jšœœœ˜%J˜Jšœ œ˜)Jšœ œœ˜.Jšœ œœ˜0Jšœ œœ˜2Jšœ œ˜Jšœ œœ ˜"šœ œœ˜J˜Jšœœ˜ —Jšœ œœ ˜šœ œœ˜J˜Jšœœ˜ Jšœ œ˜—Jšœœœ˜&šœœœÏc˜:J˜J˜J˜J˜Jšœ œ˜Jšœ œ˜—Jšœœœ˜,šœœœž˜=J˜J˜Jšœœ˜ Jšœœ˜ Jšœœ˜ Jšœœ˜Jšœœ˜J˜J˜—Jšœž˜4Jšœž˜7Jšœž˜:Jšœž˜6Jšœž˜