/[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.4 by exos, Thu Sep 11 21:06:23 2003 UTC revision 1.5 by exos, Fri Sep 12 03:06:18 2003 UTC
# Line 40  sub import Line 40  sub import
40      $max -= $min;      $max -= $min;
41      foreach $y ( @tab )      foreach $y ( @tab )
42      {      {
43          $cannevas->createLine($ox * (600 / $size), ($oy - $min) * (400 / $max),          $cannevas->createLine($ox * (600 / $size), 400 - ($oy - $min) * (400 / $max),
44                                $i * (600 / $size), ($y - $min) * (400 / $max),                                $i * (600 / $size), 400 - ($y - $min) * (400 / $max),
45                                -width => 1,                                -width => 1,
46                                fill => 'red');                                fill => 'red');
47          ($ox, $oy) = ($i, $y);          ($ox, $oy) = ($i, $y);

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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