(FILECREATED "13-May-87 12:04:41" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH039.;3
 2283   

      changes to:  (FNS NODECREATE)
		   (VARS RGPATCH039COMS)

      previous date: " 8-May-87 17:55:13" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH039.;1)


(* Copyright (c) 1987 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT RGPATCH039COMS)

(RPAQQ RGPATCH039COMS
 ((* * rg 5/8/87 fix for bogus fonts in graphs)
			 (* * new for GRAPHERPATCH)
			 (FNS INIT/NODES/FOR/LAYOUT NODECREATE)))
(* * rg 5/8/87 fix for bogus fonts in graphs)


(* * new for GRAPHERPATCH)


(DEFINEQ

(INIT/NODES/FOR/LAYOUT

  [LAMBDA (NS FORMAT ROOTIDS FONT)                           (* Randy.Gobbel " 8-May-87 16:22")

    (for
 GN in
 NS
       do
 [replace
 (GRAPHNODE NODEPOSITION) of
 GN
	       with
 (
NOT
 (
NOT
 (
FMEMB
 (fetch
 (GRAPHNODE NODEID) of
 GN)
					     ROOTIDS]        (* T Used to indicate prior visitation.

							     Roots are already visited)

	    (
OR
 (
IMAGEOBJP
 (fetch
 (GRAPHNODE NODELABEL) of
 GN))
		  (fetch
 (GRAPHNODE NODEFONT) of
 GN)
		  (replace
 (GRAPHNODE NODEFONT) of
 GN with
 FONT)))
    [for
 R in
 ROOTIDS do
 (
COND

				 ((
EQMEMB
 (
QUOTE
 LATTICE)
					    FORMAT)
				   (
LATTICE/BREAK/CYCLES
 (
GETNODEFROMID
 R NODELST)
							   NIL))
				 (T (
FOREST/BREAK/CYCLES
 (
GETNODEFROMID
 R NODELST]
    (for
 GN in
 NODELST
       do
 (replace
 (GRAPHNODE NODEPOSITION) of
 GN with
 NIL)
	    (
SET/LABEL/SIZE
 GN])

(NODECREATE

  [LAMBDA (ID LABEL POS TONODEIDS FROMNODEIDS FONT BORDER LABELSHADE)
                                                             (* Randy.Gobbel "13-May-87 12:04")

                                                             (* creates a node for a grapher.)

    (create
 GRAPHNODE
	      NODEID ← ID
	      NODEPOSITION ← POS
	      NODELABEL ← LABEL
	      NODEFONT ← (
COND

		(FONT)
		((
IMAGEOBJP
 LABEL)
		  NIL)
		(DEFAULT.GRAPH.NODEFONT)
		(T (
FONTNAMELIST
 DEFAULTFONT)))
	      TONODES ← TONODEIDS
	      FROMNODES ← FROMNODEIDS
	      NODEBORDER ← BORDER
	      NODELABELSHADE ← LABELSHADE])
)
(PUTPROPS RGPATCH039 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (570 2202 (INIT/NODES/FOR/LAYOUT 580 . 1560) (NODECREATE 1562 . 2200)))))
STOP