/[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.12 by ahefner, Tue Apr 12 20:43:26 2005 UTC revision 1.13 by ahefner, Thu Apr 21 03:34:58 2005 UTC
# Line 338  Line 338 
338                                  (let ((v (+ v0 (/ (min 0 d) -2))))                                  (let ((v (+ v0 (/ (min 0 d) -2))))
339                                    (setf (output-record-position node)                                    (setf (output-record-position node)
340                                          (if (eq orientation :vertical)                                          (if (eq orientation :vertical)
341                                              (values v u0)                                              (transform-position (medium-transformation stream) v u0)
342                                              (values u0 v)))                                              (transform-position (medium-transformation stream) u0 v)))
343                                    (add-output-record node graph-output-record))                                    (add-output-record node graph-output-record))
344                                  ;;                                  ;;
345                                  (let ((u (+ u0 (car majors)))                                  (let ((u (+ u0 (car majors)))
# Line 401  Line 401 
401  (defmethod layout-graph-edges ((graph standard-graph-output-record)  (defmethod layout-graph-edges ((graph standard-graph-output-record)
402                                 stream arc-drawer arc-drawing-options)                                 stream arc-drawer arc-drawing-options)
403    (with-slots (orientation) graph    (with-slots (orientation) graph
404       ;; We tranformed the position of the nodes when we inserted them into
405       ;; output history, so the bounding rectangles queried below will be
406       ;; transformed. Therefore, disable the transformation now, otherwise
407       ;; the transformation is effectively applied twice to the edges.
408       (with-identity-transformation (stream)
409      (traverse-graph-nodes graph      (traverse-graph-nodes graph
410                            (lambda (node children continuation)                            (lambda (node children continuation)
411                              (unless (eq node graph)                              (unless (eq node graph)
# Line 424  Line 429 
429                                                  (/ (+ x1 x2) 2) from                                                  (/ (+ x1 x2) 2) from
430                                                  (/ (+ u1 u2) 2) to                                                  (/ (+ u1 u2) 2) to
431                                                  arc-drawing-options))))))))                                                  arc-drawing-options))))))))
432                              (map nil continuation children)))))                              (map nil continuation children))))))
433    
434  (defmethod layout-graph-edges :around ((graph-output-record tree-graph-output-record)  (defmethod layout-graph-edges :around ((graph-output-record tree-graph-output-record)
435                                         stream arc-drawer arc-drawing-options)                                         stream arc-drawer arc-drawing-options)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

  ViewVC Help
Powered by ViewVC 1.1.5