Section courante

A propos

Section administrative du site

LINE

Ligne
Turbo Pascal 4+ Graph

Syntaxe

Procedure Line(x1,y1,x2,y2:Integer);

Paramètres

Nom Description
x1 Ce paramètre permet d'indiquer la gauche de la ligne
y1 Ce paramètre permet d'indiquer la partie supérieur de la ligne
x2 Ce paramètre permet d'indiquer la droite de la ligne
y2 Ce paramètre permet d'indiquer la partie inférieur de la ligne

Description

Cette procédure permet de tracer une ligne dans un écran graphique.

Remarques

Exemple

L'exemple suivant permet de tracer des lignes de façon aléatoires jusqu'à ce que vous pressiez une touche :

  1. Program LineSamples1;
  2.  
  3. Uses Crt,Graph;
  4.  
  5. Var
  6.  Gd,Gm:Integer;
  7.  
  8. BEGIN
  9.  Gd:=Detect;
  10.  InitGraph(Gd,Gm,' ');
  11.  If(GraphResult<>grOk)Then Halt(1);
  12.  Randomize;
  13.  Repeat
  14.   Line(Random(200),Random(200),Random(200),Random(200));
  15.  Until KeyPressed;
  16.  Readln;
  17.  CloseGraph;
  18. END.

Référence

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 277.

Dernière mise à jour : Dimanche, le 25 janvier 2015