Процедура Bar3D використовується в Паскаль для малювання прямокутних паралелепіпедів.
Малювання прямокутних паралелепіпедів з допомогою процедури Bar3d.
У рядку №19 встановлюємо колір для ліній, з яких буде складатися паралелепіпед.
У рядку №20 встановлюємо тип і товщину ліній, з яких буде складатися паралелепіпед.
У рядку №21 встановлюємо тип і колір заповнення паралелепіпеда. Причому процедура SetFillStyle діє тільки на передню стінку паралелепіпеда.
У рядку №22 записуємо процедуру Bar3D. Після запису цієї процедури в круглих дужках записуються параметри.
Якщо подивитися на рис. то точці «A» відповідають перші 2 параметра процедури Bar3d, що визначають верхній лівий кут передньої стінки паралелепіпеда (у нашому прикладі 100,100). Точці «B» відповідають 3-й і 4-й параметри процедури Bar3d, що визначають правий нижній кут передньої стінки паралелепіпеда (у нашому прикладі 300,500). Відстань «A - C» відповідає 5-му параметру у процедурі Bar3d, який визначає глибину паралелепіпеда (у нашому прикладі 50). Шостий параметр може приймати тільки 2 значення: або TopOn (як в нашому прикладі), або TopOff. TopOn означає, що верхня межа паралелепіпеда викреслюється. TopOff означає що верхня межа паралелепіпеда не креслить (цей варіант використовується, коли необхідно намалювати паралелепіпеди, поставлені один на одного).
