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