/[marvin]/marvin/src/libsip/perl_interface/debug_tk.pl
ViewVC logotype

Diff of /marvin/src/libsip/perl_interface/debug_tk.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by exos, Fri Aug 22 02:45:24 2003 UTC revision 1.3 by exos, Thu Sep 11 05:00:21 2003 UTC
# Line 7  sub import Line 7  sub import
7      my ($req, @tab) = @_;      my ($req, @tab) = @_;
8            
9      my $mw = MainWindow->new;      my $mw = MainWindow->new;
10      $mw->title("Debug");      $mw->title($req);
11      $c = $mw->Scrolled("Canvas", -bg => 'black',      $c = $mw->Scrolled("Canvas", -bg => 'black',
12                         -height => 400,                         -height => 400,
13                         -width => 600)->pack();                         -width => 600)->pack();
# Line 15  sub import Line 15  sub import
15            
16      $ox = 0;      $ox = 0;
17      $oy = 0;      $oy = 0;
18      $i = 10;      $i = 0;
19        $max = 0;
20    
21        $size = 0;
22    
23        foreach $y ( @tab )
24        {
25            if ($max < abs($y))
26            {
27                $max = abs($y);
28            }
29            $size ++;
30        }
31        $size--;
32      foreach $y ( @tab )      foreach $y ( @tab )
33      {      {
34          $cannevas->createLine($ox, $oy, $i, $y,          $cannevas->createLine($ox * (600 / $size), $oy * (400 / $max),
35                               -width => 1,                                $i * (600 / $size), $y * (400 / $max),
36                               fill => 'red');                                -width => 1,
37                                  fill => 'red');
38          ($ox, $oy) = ($i, $y);          ($ox, $oy) = ($i, $y);
39          $i += 10;          $i++;
40          print "$i, 0, $i, $y\n";          print "$i, 0, $i, $y\n";
41      }      }
42    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26