DIRECTORYRope,TextNode,TSArtwork,TSGraphic,TSObject,TSOps,TSOutput,TSTranslate,TSTranslatePrivate,TSTypes;TSArtworkImpl: CEDAR MONITORIMPORTS Rope, TSOps, TSOutput, TSTranslate, TSTranslatePrivateEXPORTS TSArtwork = {OPEN TSTypes;ObjectFromBranchProc: TYPE = TSArtwork.ObjectFromBranchProc;ROPE: TYPE = Rope.ROPE;ARec: TYPE = RECORD [artworkClassName: ROPE,objectFromBranchProc: ObjectFromBranchProc];AList: LIST OF ARec _ NIL;Register: PUBLIC ENTRY PROCEDURE [artworkClassName: Rope.ROPE,objectFromBranchProc: ObjectFromBranchProc] = {ENABLE UNWIND => NULL;AList _ CONS[[artworkClassName, objectFromBranchProc], AList];};Lookup: PUBLIC ENTRY PROCEDURE [artworkClassName: ROPE]RETURNS [ObjectFromBranchProc] = {ENABLE UNWIND => NULL;FOR a: LIST OF ARec _ AList, a.rest UNTIL a=NIL DOIF a.first.artworkClassName.Equal[artworkClassName] THEN RETURN[a.first.objectFromBranchProc];ENDLOOP;RETURN[CreateTypesetObject];};CreateTypesetObject: PUBLIC ObjectFromBranchProc = {object _ NEW[TSGraphic.ObjectRec];object.paintProc _ TypesetObjectPaint;object.layoutProc _ TypesetObjectLayout;object.data _ NEW[TypesetObjectRec _ [node: node]];};TypesetObjectRec: TYPE = RECORD [node: TextNode.Ref,vlist: TSObject.ItemList];TypesetObjectLayout: TSGraphic.LayoutProc = TRUSTED {data: REF TypesetObjectRec _ NARROW[self.data];box: TSObject.Box;data.vlist _ TSTranslate.TreeToVlist[data.node].galley;box _ TSOps.GetSlimBoxFrom[data.vlist];extent _ box.extent;};TypesetObjectPaint: TSGraphic.PaintProc = {data: REF TypesetObjectRec _ NARROW[self.data];box: TSObject.Box _ TSOps.GetSlimBoxFrom[data.vlist];TSOutput.BoxOut[NARROW[context], originX, originY, box^];};}.Michael Plass, September 15, 1982 9:45 am. ENABLE UNWIND => NULL.Michael Plass, December 8, 1982 3:22 pm.  Changed TypesetObjectLayout to return dimensions instead of flexes.Rick Beach, May 16, 1983 9:56 am. Moved NumberOfBoxes and FirstBoxOf to TSOps.   z  TSArtworkImpl.mesaMichael Plass,  December 8, 1982 3:22 pmLast Edited by: Beach, December 5, 1984 4:40:58 pm PST Êu  –"cedar" style˜ JšÏc™Jš(™(J™6šÏk	˜	J˜J˜	J˜
J˜
J˜	J˜J˜	J˜J˜J˜J˜ —Jšœž˜Jšžœ7˜>Jšžœ˜Jšžœ	˜J˜ Jšœžœ"˜<Jšžœžœžœ˜J˜ šœžœžœ˜Jšœžœ˜J˜*J˜J˜ —Jšœžœžœžœ˜J˜ šÏnœžœžœž	œ˜"Jšœžœ˜J˜*Jšœžœžœžœ˜Jšœžœ2˜>J˜J˜ —š
Ÿœžœžœž	œžœ˜7Jšžœžœžœžœ˜8šžœžœžœžœžœž˜2Jšžœ2žœžœ˜^Jšžœ˜—Jšžœ˜J˜J˜ —šŸœžœ˜4Jšœ	žœ˜"J˜&J˜(Jšœžœ"˜3J˜J˜ —šœžœžœ˜!J˜J˜J˜J˜ —šŸœžœ˜5Jšœžœžœ˜/J˜J˜7Jšœ'˜'J˜J˜J˜ —šŸœ˜+Jšœžœžœ˜/Jšœ5˜5Jšœžœ#˜9J˜J˜ —J˜J˜ Jšœ+žœžœžœ˜AJšœm˜mJ˜N— …—    ¶  
¥  