diff options
Diffstat (limited to 'doc/exemple_rotation.pl')
| -rwxr-xr-x | doc/exemple_rotation.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/doc/exemple_rotation.pl b/doc/exemple_rotation.pl index 6090221..0859209 100755 --- a/doc/exemple_rotation.pl +++ b/doc/exemple_rotation.pl @@ -19,6 +19,8 @@ BEGIN { unshift @INC, ".", "../src"; } +use strict; + use Tk; use Math::Trig; @@ -28,9 +30,9 @@ use MTools::Transform::MRotation; new MTools (800, 600, "Exemple de rotation"); -my $background = new MTools::GUI::MRect (1, 0, 0, 800, 600, -filled => 1, -fillcolor => lightblue); +my $background = new MTools::GUI::MRect (1, 0, 0, 800, 600, -filled => 1, -fillcolor => "lightblue"); -my $barre = new MTools::GUI::MRect (1, 400, 300, 200, 20, -fillcolor => pink); +my $barre = new MTools::GUI::MRect (1, 400, 300, 200, 20, -fillcolor => "pink"); $barre->rotate(-(pi/2), 400, 300); my $rotation = new MTools::Transform::MRotation($barre, 0, 400, 300); |