Langage de programmation - Turbo Pascal - Référence de procédures et de fonctions

LINETO	Ligne à
Turbo Pascal 4+	Graph

Syntaxe

Procedure LineTo(x,y:Integer);

Paramètres

Nom	Description
x	Ce paramètre permet d'indiquer la position horizontale
y	Ce paramètre permet d'indiquer la position verticale

Description

Cette procédure permet de traçer une ligne à partir de la position courante jusqu'à l'endroit absolue indiquer dans un écran graphique.

Remarques

La procédure LineTo dessine une ligne dans le style et l'épaisseur définis par SetLineStyle et utilise la couleur définie par SetColor. Utilisez la procédure SetWriteMode pour déterminer si la ligne est copiée ou qu'une opération XOR est effectué dans l'écran.
Notez que



MoveTo(100,100);

LineTo(200,200);

est équivalent à



Line (100, 100, 200, 200);

La première méthode est plus lente et utilise plus de code. Utilisez LineTo uniquement lorsque le pointeur actuel se trouve à l'un des extrémités de la ligne. Utilisez LineRel pour dessiner une ligne à une distance relative du pointeur de coordonnée courant. Notez que la deuxième méthode ne modifie pas la valeur du pointeur actuel.
La procédure LineTo déplacer le pointeur actuel sur (X,Y).
La procédure LineTo doit être utilisé en mode graphique.

Exemple

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



Program LineToSamples1;

 
Uses Crt,Graph;

 
Var

 Gd,Gm:Integer;

 
BEGIN

 Gd:=Detect;

 InitGraph(Gd,Gm,' ');

 If GraphResult <> grOk Then Halt(1);

 Randomize;

 Repeat

  LineTo(Random(200),Random(200));

 Until KeyPressed;

 ReadLn;

 CloseGraph;

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 279.

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

Section courante

A propos

Section administrative du site

LINETO