#!/usr/bin/perl use Tk; sub import { my ($req, @tab) = @_; my $mw = MainWindow->new; $mw->title($req); $c = $mw->Scrolled("Canvas", -bg => 'black', -height => 400, -width => 600)->pack(); $cannevas = $c->Subwidget("canvas"); $ox = 0; $oy = 0; $i = 0; $max = 0; $size = 0; foreach $y ( @tab ) { if ($max < abs($y)) { $max = abs($y); } $size ++; } $size--; foreach $y ( @tab ) { $cannevas->createLine($ox * (600 / $size), $oy * (400 / $max), $i * (600 / $size), $y * (400 / $max), -width => 1, fill => 'red'); ($ox, $oy) = ($i, $y); $i++; print "$i, 0, $i, $y\n"; } print "@tab -> $req\n"; MainLoop; return 6; }