Re: Re: [mcclim-devel] Drawing graphs & scaling

On Wed, 2005-04-20 at 23:38 -0400, Andy Hefner wrote:

This should be fixed. Let me know if you have any further problems.

It is fixed ! Thanks a lot. Here is a screenshot: http://www.di.fc.ul.pt/~tl/clim-scaled-graphs.png

Thibault

On 3/22/05, Thibault Langlois <tl@di.fc.ul.pt > wrote:

    Hello,

    I would like to be able to scale a graph:

    (defmethod plot ((object tree) stream) 
      (with-scaling (stream 0.7)
        (draw-graph (list (root-node object))
                    #'draw-node-colors
                    :stream stream)))

    where draw-graph is directly inspired from an example
    in allegro CLIM manual: 

    (defun draw-graph (root-nodes draw-node-function &rest keys)
      (apply #'format-graph-from-roots
             root-nodes
             #'(lambda (node s)
                 (multiple-value-bind ()
                     (with-output-as-presentation (s node 'node)
                       (funcall draw-node-function node s))))
             #'(lambda (n)
                 (if (visible-p n)
                     (children n)))
             keys))
    and draw-node-colors draws a node using draw-rectangle*.

    The problem is that when the scaling factor is not 1 the nodes
    are not
    correctly placed (although they are correctly scaled) with
    respect to arcs.

    Any ideas ?

    Thanks.

    Thibault

    _______________________________________________ 
    mcclim-devel mailing list
    mcclim-devel@common-lisp.net
    http://common-lisp.net/cgi-bin/mailman/listinfo/mcclim-devel