Accueil de Gladir.com Notes légales de Gladir.com Flux RSS des nouvelles du site Gladir.com - Langage de programmation - Perl - Géométrie - Dessiner un «Treillis» Section du logiciel DOS «MonsterBook» Inventaire de la bibliothèque de Gladir.com Entrée administrateur

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 :

  1. #!/usr/bin/perl
  2.  
  3. use Tk;
  4. use strict;
  5.  
  6. my $mw = MainWindow->new;
  7. $mw->title("Trellis");
  8. my $canvas = $mw->Canvas( -width=>320, -height=>300, -background=>"white");
  9. $canvas->pack(-expand => 1, -fill => 'both');
  10.  
  11. my ($x) = 30;
  12. my ($y) = 40;
  13. my ($t) = 240;
  14. for(my $i = 0;$i < $t; $i+=5) {
  15.  $canvas->createLine($x, $y + $i, $x + $i, $y + $t, -width => 1, -fill=>"black");
  16. }
  17. MainLoop;

Voici en terminant un exemple du résultat de se petit programme:

Dernière mise à jour: Vendredi, le 23 décembre 2011