Parent Directory | Revision Log | 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); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |