Replace xstringl by stringbox.
[scilab.git] / scilab / modules / metanet / macros / editor / ge_draw_graph.sci
1
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2008 - INRIA - Serge STEER <serge.steer@inria.fr>
4 //
5 // This file must be used under the terms of the CeCILL.
6 // This source file is licensed as described in the file COPYING, which
7 // you should have received as part of this distribution.  The terms
8 // are also available at
9 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
10
11 function ge_draw_graph(GraphList)
12   drawlater()
13   
14   ge_axes_handle=gca();
15   if typeof(ge_axes_handle.user_data)<>' gindex' then
16     set(ge_axes_handle,'user_data',tlist(['gindex','node','edge'],[],[]))
17   end
18
19   gindex=ge_axes_handle.user_data
20   
21   hnodes=[];
22   for k=1:size(GraphList.nodes.graphics.x,'*'), 
23     hnodes(k)=ge_draw_node(k); 
24     //if modulo(k,40)==0 then drawnow();show_pixmap();drawlater(),end
25   end
26   hedges=[];
27   for k=1:size(GraphList.edges.tail,'*'), 
28     hedges(k)=ge_draw_edge(k),
29     //if modulo(k,40)==0 then drawnow();show_pixmap();drawlater(),end
30   end
31   
32   gindex.node=hnodes;gindex.edge=hedges;
33   ge_axes_handle.user_data=gindex;
34   
35   drawnow();show_pixmap();
36 endfunction