Turbo Pascal Documentation

Процедура Bar3D

Модуль Graph

      Функция: Используя текущий тип и цвет  закраски  рисует
трехмерный паралелепипед.
     Описание: Ваr3D(х1, у1,  х2,  у2:  integer;  глубина  :
word; вершина : вооlеаn)
     Примечания:     Рисуется     заполненный     трехмерный
параллепипед. При этом используется тип и цвет закраски, за-
данные с помощью  процедур  SetFillStile  и  SetFillPattern.
Трехмерный  контур  параллепипеда вычерчивается тем цветом и
типом линии, которые установлены процедурами SetLineStyle  и
SetColor.  Параметр  "глубина" представляет собой число эле-
ментов изображения, задающих  глубину  трехмерного  контура.
Если  переменная,  указанная  в качестве параметра "вершина"
принимает истинное значение (Тruе), то для параллепипеда ри-
суется трехмерная вершина, в противном случае вершина не ри-
суется (что  позволяет  рисовать  нескольно  параллепипедов,
расположенных один на другом).
     Типичный параметр глубины можно вычислить, взяв за  ос-
нову 25% ширины параллелепипеда:

     Bar3D(x1, y1, x2, y2, (x2-x1) div 4, TopOn);

     Если при заполнении параллепипеда происходит ошибка, то
функция GraphResult возвращает значение -6.
     Определены следующие константы:

const
   TopOn  = True;
   TopOff = False;

     Ограничения: Должен использоваться графический режим.
     Прочее: См. также  процедуры:  Bar,  GraphResult,  Set-
FillStyle, SetFillPattern, SetLineStyle.
     Пример:

  y0 := 10;
  y1 := 60;
  y2 := 110;
  x1 := 10;
   x2 := 50;
  Bar3D(x1, y0, x2, y1, 10, TopOn);
  Bar3D(x1, y1, x2, y2, 10, TopOff);