/[mcclim]/mcclim/graph-formatting.lisp
ViewVC logotype

Diff of /mcclim/graph-formatting.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by ahefner, Sat Apr 23 20:02:01 2005 UTC revision 1.15 by ahefner, Fri May 13 03:00:25 2005 UTC
# Line 312  Line 312 
312                   (walk (node depth)                   (walk (node depth)
313                     (unless (graph-node-minor-size node)                     (unless (graph-node-minor-size node)
314                       (when (>= depth (length generation-sizes))                       (when (>= depth (length generation-sizes))
315                         (setf generation-sizes (adjust-array generation-sizes (ceiling (* depth 1.2)))))                         (setf generation-sizes (adjust-array generation-sizes (ceiling (* depth 1.2)) :initial-element 0)))
316                       (setf (aref generation-sizes depth)                       (setf (aref generation-sizes depth)
317                             (max (aref generation-sizes depth) (node-major-dimension node)))                             (max (aref generation-sizes depth) (node-major-dimension node)))
318                       (setf (graph-node-minor-size node) 0)                       (setf (graph-node-minor-size node) 0)

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

  ViewVC Help
Powered by ViewVC 1.1.5