Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Процедура Bar3D.

  • Объявление:

    Procedure Bar3D(X1, Y1, X2, Y2 : Integer; Depth : Word; Top : Boolean);

  • Описание:

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

  • Замечания:

    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.



Вернуться к оглавлению справочника