Процедура Rectangle
Модуль Graph
Рисует прямоугольник.
Объявление:
Procedure Rectangle(X1, Y1, X2, Y2 : Integer);
Режим:
Замечания:
Точка с координатами (X1, Y1) - верхний левый, а точка с координатами (X2,
Y2) - нижний правый угол прямоугольника.
0 <= X1 < X2 <= GetMaxX
0 <= Y1 < Y2 <= GetMaxY
Рисует прямоугольник текущим типом и цветом линии, как было задано
SetLineStyle и SetColor. Используйте процедуру SetWriteMode, чтобы
определить, какую логическую операцию выполнять для каждой точки линий
прямоугольника при их выводе на экран (MOV или XOR).
Нужно быть в графическом режиме.
Пример:
Uses Crt, Graph;
Var GraphDriver, GraphMode : Integer;
X0, Y0, X1, Y1, X2, Y2 : Integer;
Begin
GraphDriver:=Detect;
InitGraph(GraphDriver, GraphMode, '');
If GraphResult<> grOk Then Halt(1);
X0:=GetMaxX;
Y0:=GetMaxY;
Randomize;
Repeat
X1:=Random(X0);
Y1:=Random(Y0);
X2:=Random(X0 - X1) + X1;
Y2:=Random(Y0 - Y1) + Y1;
Rectangle(X1, Y1, X2, Y2);
Until KeyPressed;
CloseGraph;
End.
См. также: