Правила форума
Rectangle (процедура) (модуль Graph)Язык:
Русский
English
Rectangle (процедура) (модуль Graph)
Рисует прямоугольник, используя текущий тип и цвет линии.
Объявление
Procedure Rectangle(X1, Y1, X2, Y2 : Integer);
Режим
Real, Protected
Замечания
Точка с координатами (X1, Y1) - верхний левый, а точка с координатами (X2, Y2) - нижний правый угол прямоугольника.
0 <= X1 < X2 <= GetMaxX
0 <= Y1 < Y2 <= GetMaxY
Рисует прямоугольник текущим типом и цветом линии, как было задано SetLineStyle и SetColor. Используйте процедуру SetWriteMode, чтобы определить, какую логическую операцию выполнять для каждой точки линий прямоугольника при их выводе на экран (MOV или XOR).
Ограничения
Нужно быть в графическом режиме.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедуры Rectangle }
uses Crt, Graph;
var
GraphDriver, GraphMode : Integer;
X0, Y0, X1, Y1, X2, Y2 : Integer;
begin
GraphDriver := Detect;
InitGraph(GraphDriver, GraphMode, 'X:\BP');
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.
var
GraphDriver, GraphMode : Integer;
X0, Y0, X1, Y1, X2, Y2 : Integer;
begin
GraphDriver := Detect;
InitGraph(GraphDriver, GraphMode, 'X:\BP');
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.
::
::
::
