DIRECTORYTSArtwork,TSGraphic,TSTypes;TSInvisibleImpl: CEDAR PROGRAMIMPORTS TSArtwork = {ObjectFromBranchProc: TYPE = TSArtwork.ObjectFromBranchProc;InvisibleBranch: ObjectFromBranchProc = {-- Ignores the node altogetherobject _ NEW[TSGraphic.ObjectRec];object.paintProc _ InvisibleBranchPaint;object.layoutProc _ InvisibleBranchLayout;};InvisibleBranchLayout: TSGraphic.LayoutProc = {extent _ [TSTypes.zeroDimn, TSTypes.zeroDimn, TSTypes.zeroDimn, TSTypes.zeroDimn];};InvisibleBranchPaint: TSGraphic.PaintProc = {};TSArtwork.Register["Invisible", InvisibleBranch];}.    –  TSInvisibleImpl.mesaCopyright (C) 1984, Xerox Corporation.  All rights reserved.Last Edited by: Rick Beach,  December 3, 1984 8:28:20 pm PST Ê"  ˜ Jšœ™™<Jšœ<™<—J˜ šÏk	˜	Jšœ
˜
Jšœ
˜
Jšœ˜J˜ —šœœ˜Jšœ˜J˜ —Jšœœ"˜<J˜ •Artwork	InvisiblešÏnœÏc˜GJ–	Invisiblešœ	œ˜"J–	Invisiblešœ(˜(J–	Invisiblešœ*˜*J–	Invisiblešœ˜J˜ —šžœ˜/J˜RJ˜J˜ —šžœ˜-J˜J˜ —Jšœ1˜1J˜ Jšœ˜J˜ — …—    T    