Правила форума
Bar3D (процедура) (модуль Graph)Язык:
Русский
English
Bar3D (процедура) (модуль Graph)
Рисует параллелепипед, используя текущий стиль и цвет закраски.
Объявление
Procedure Bar3D(X1, Y1, X2, Y2 : Integer; Depth : Word; Top : Boolean);
Режим
Real, Protected
Замечания
Bar3D рисует закрашенный параллелепипед, используя шаблон и цвет, определенные при обращении к SetFillStyle и SetFillPattern. Трехмерная внешняя граница параллелепипеда рисуется текущим цветом и стилем линии, определенными при вызове процедур SetLineStyle и SetColor. Depth - длина в пикселах трехмерной внешней границы параллелепипеда (глубина параллелепипеда). Если параметр Top равен TopOn, то сверху у параллелепипеда прорисовывается трехмерная верхняя грань, а если Top равно TopOff, то верхня грань не рисуется, что позволяет располагать друг на друге несколько параллелепипедов.
Стандартная глубина может быть вычислена как 25% ширины параллелограмма:
Bar3D(X1, Y1, X2, Y2, (X2 - X1 + 1) Div 4, TopOn);
Ограничения
Нужно быть в графическом режиме.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедуры Bar3D }
var
Gd, Gm : Integer;
Y0, Y1, Y2, X1, X2 : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
if GraphResult <> grOk then
Halt(1);
Y0 := 10;
Y1 := 60;
Y2 := 110;
X1 := 10;
X2 := 50;
Bar3D(X1, Y0, X2, Y1, 10, TopOn);
Bar3D(X1, Y1, X2, Y2, 10, TopOff);
ReadLn;
CloseGraph;
end.
::
::
::
