(FILECREATED "13-Feb-87 16:19:06" ("compiled on " {QV}1.3K>NEXT>KOTOGRAPHERPATCHES.;4) "12-Nov-85 14:59:23" tcompl'd in "Koto / Loops / NoteCards 1.3k 27-Jan-87 ..." dated "27-Jan-87 17:55:26") (FILECREATED "13-Feb-87 16:18:03" {QV}1.3K>NEXT>KOTOGRAPHERPATCHES.;4 3238 changes to: (FNS DRAWAREABOX) (VARS KOTOGRAPHERPATCHESCOMS) previous date: "10-Feb-87 13:02:57" {QV}1.3K>NEXT>KOTOGRAPHERPATCHES.;3) MARK/GRAPH/NODE D1 (P 0 ORIGINAL-NODEBORDER I 0 NODE F 1 BORDER.FOR.MARKING F 2 LABELSHADE.FOR.MARKING) BQgð³,@@Q¿QHð¥@i ¿Rgðµ @R(56Q SET/LABEL/SIZE) (64Q DON'T 3 DON'T) () DRAWAREABOX D1 (I 7 TEXTURE I 6 W I 5 OP I 4 BORDER I 3 BOXHEIGHT I 2 BOXWIDTH I 1 BOXBOTTOM I 0 BOXLEFT) @ABCDEF (12Q NC.DrawInnerBox) NIL () (PRETTYCOMPRINT KOTOGRAPHERPATCHESCOMS) (RPAQQ KOTOGRAPHERPATCHESCOMS ((* * Fixes to GRAPHER) (FILES (FROM LISPUSERS) GRAPHER) (* * rht&pmi 2/6/87: Fix to problem of GRAPHER miscomputing label sizes of virtual nodes) (FNS MARK/GRAPH/NODE) (* * rht&pmi 12/13/87: Replace BITBLTs with NC.DrawInnerBox. BITBLT does not behave correctly for Interpress printers.) (FNS DRAWAREABOX))) (FILESLOAD (FROM LISPUSERS) GRAPHER) (PUTPROPS KOTOGRAPHERPATCHES COPYRIGHT ("Xerox Corporation" 1987)) NIL