rectangle

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

Dibuja un rectángulo

Biblioteca: graph

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

Detalles:
Dibuja un rectángulo en pantalla, con el color actual y el tipo de línea actual. Sólo funciona en modo gráfico.

Las coordenadas (X1, Y1) definen la esquina superior izquierda del rectángulo, y (X2, Y2) definen la esquina inferior derecha (0 <= X1
El rectángulo 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.

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;
    Rectangle(X1, Y1, X2, Y2);
  until KeyPressed;
  CloseGraph;
end.

Órdenes relacionadas:   Bar   GetViewSettings   InitGraph   Line   SetColor   SetLineStyle   SetViewPort  


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