La géométrie s'est également s'amuser à faire des dessins à l'apparence mathématique. Un des classiques dans ce genre, c'est bien sûre dessiner un «Treillis». Voici le code Perl :
- #!/usr/bin/perl
-
- use Tk;
- use strict;
-
- my $mw = MainWindow->new;
- $mw->title("Trellis");
- my $canvas = $mw->Canvas( -width=>320, -height=>300, -background=>"white");
- $canvas->pack(-expand => 1, -fill => 'both');
-
- my ($x) = 30;
- my ($y) = 40;
- my ($t) = 240;
- for(my $i = 0;$i < $t; $i+=5) {
- $canvas->createLine($x, $y + $i, $x + $i, $y + $t, -width => 1, -fill=>"black");
- }
- MainLoop;
Voici en terminant un exemple du résultat de se petit programme:
Dernière mise à jour : Jeudi, le 17 janvier 2019