File: graph-huge.e

package info (click to toggle)
entity 1.0.1-8
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 5,604 kB
  • ctags: 5,394
  • sloc: ansic: 64,242; sh: 7,377; makefile: 776; perl: 319
file content (18 lines) | stat: -rw-r--r-- 315 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
<object>

  <window ondelete="entity:exit">
   <graph name="mine" expand="true"/>
  </window>

  <perl> <![CDATA[
  my $graph = enode ("graph.mine");

  for ($i = 0; $i < 30000; $i++)
    {
      $xml .= qq!<graph-point type="point" x="$i" y="$i" />!;
    }

  $graph->append_xml ($xml);
   
  ]]></perl>
</object>