Процедура Bar3D Pascal-Паскаль

Описание

Bar3D - Рисует параллелепипед, используя текущий стиль и цвет закраски.

Объявление:	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);

Ограничения:

Нужно быть в графическом режиме.

Пример программы для процедуры Bar3D

Uses Graph;
Var Gd, Gm : Integer;
    Y0, Y1, Y2, X1, X2 : Integer;
Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, '');
    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.

Bar
SetFillPattern
SetFillStyle
SetLineStyle