This should be fixed. Let me know if you have any further problems.<br><br><div><span class="gmail_quote">On 3/22/05, <b class="gmail_sendername">Thibault Langlois</b> <<a href="mailto:tl@di.fc.ul.pt">tl@di.fc.ul.pt</a>
> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><br>Hello,<br><br>I would like to be able to scale a graph:<br><br>(defmethod plot ((object tree) stream)
<br>  (with-scaling (stream 0.7)<br>    (draw-graph (list (root-node object))<br>                #'draw-node-colors<br>                :stream stream)))<br><br>where draw-graph is directly inspired from an example<br>in allegro CLIM manual:
<br><br>(defun draw-graph (root-nodes draw-node-function &rest keys)<br>  (apply #'format-graph-from-roots<br>         root-nodes<br>         #'(lambda (node s)<br>             (multiple-value-bind ()<br>                
(with-output-as-presentation (s node 'node)<br>                  
(funcall draw-node-function node s))))<br>         #'(lambda (n)<br>             (if (visible-p n)<br>                 (children n)))<br>         keys))<br>and draw-node-colors draws a node using draw-rectangle*.<br><br>
The problem is that when the scaling factor is not 1 the nodes are not<br>correctly placed (although they are correctly scaled) with respect to arcs.<br><br>Any ideas ?<br><br>Thanks.<br><br>Thibault<br><br>_______________________________________________
<br>mcclim-devel mailing list<br><a href="mailto:mcclim-devel@common-lisp.net">mcclim-devel@common-lisp.net</a><br><a href="http://common-lisp.net/cgi-bin/mailman/listinfo/mcclim-devel">http://common-lisp.net/cgi-bin/mailman/listinfo/mcclim-devel
</a><br></blockquote></div><br>