line

(procedimiento)
Lenguaje: Pascal   (Versión: Turbo Pascal)

Dibuja una línea

Biblioteca: graph

Declaración: procedure Line(x1, y1, x2, y2: Integer);

Detalles:
Dibuja un rectángulo línea en pantalla, desde las coordenadas (X1, Y1) hasta (X2, Y2). Sólo funciona en modo gráfico.

La línea se dibuja con el estilo de línea actual y el color, según se hayan establecido con SetLineStyle y SetColor. Se puede usar SetWriteMode para determinar si el rectángulo se copiará a la pantalla o se hará un XOR con el contenido de ésta.

No se actualiza la posición de la pantalla gráfica. Por eso,

Line(100, 100, 200, 200);
MoveTo(200, 200);

es equivalente a

MoveTo(100, 100);
LineTo(200, 200);

Para dibujar líneas horizontales, "Bar" es más rápido.


Ejemplo:
uses Crt, Graph;
 
var
  GraphDriver, GraphMode: Integer;
  X1, Y1, X2, Y2: Integer;
begin
  GraphDriver := Detect;
  InitGraph(GraphDriver, GraphMode, ' ');
  if GraphResult<> grOk then
    Halt(1);
  Randomize;
  repeat
    X1 := Random(GetMaxX);
    Y1 := Random(GetMaxY);
    X2 := Random(GetMaxX - X1) + X1;
    Y2 := Random(GetMaxY - Y1) + Y1;
    Line(X1, Y1, X2, Y2);
  until KeyPressed;
  CloseGraph;
end.

Órdenes relacionadas:   Bar   GetViewSettings   InitGraph   LineTo   MoveTo   Rectangle   SetColor   SetLineStyle   SetViewPort  


  Volver al índice de la referencia o al apartado de Pascal