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(); |
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 |
|
|