← Back to branch summary

~ubuntu-branches/debian/squeeze/maxima/squeeze

« back to all changes in this revision

Viewing changes to share/contrib/graphs/draw_graph.mac

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2010-04-30 13:30:33 UTC
  • mto: This revision was merged to the branch mainline in revision 12.
  • Revision ID: james.westby@ubuntu.com-20100430133033-wtewap0zdnmsix1y
Tags: upstream-5.21.1
Import upstream version 5.21.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
share/contrib/graphs/draw_graph.mac
118
118
   dimension : 2,
119
119
   transform : false,
120
120
   scene,
121
 
   loops : []
 
121
   loops : [],
 
122
   normalize_positions : true
122
123
  ],
123
124
 
124
125
  if not(is_graph(G)) and not(is_digraph(G)) then
162
163
    dimension : length(second(first(v_pos))),
163
164
 
164
165
    /* Normalize positions into [-1,1]x[-1,1] */
165
 
    if length(v_pos)>1 and dimensions=2 then block(
 
166
    if normalize_positions=true and length(v_pos)>1 and dimensions=2 then block(
166
167
      [x_list : map(first, map(second, v_pos)),
167
168
       y_list : map(second, map(second, v_pos)),
168
169
       x_min, x_max, y_min, y_max],
179
180
           v_pos)),
180
181
 
181
182
    /* Setup edges */
 
183
    if edge_coloring=true then edge_coloring: edge_coloring(G),
182
184
    if show_edges#[] then (
183
185
      for e in edges(G) do
184
186
        if not(member(e, show_edges)) then
214
216
       edge_partition)),
215
217
 
216
218
    /* Setup vertices */
 
219
    if vertex_coloring=true then vertex_coloring: vertex_coloring(G),
217
220
    if show_vertices#[] then block(
218
221
      [show_vertices1 : flatten(show_vertices)],
219
222
      for v in vertices(G) do