Для построения прямоугольников и параллелепипедов используется несколько процедур. Первая из них – процедура построения прямоугольника на плоскости:
Rectangle(x1,y1,x2,y2: integer) |
где х 1, у1 – координаты левого верхнего угла, х 2, у2 – координаты правого нижнего угла прямоугольника.
Это очень полезная процедура, с ее помощью, в частности, можно легко построить диаграмму для визуального анализа данных. Область внутри прямоугольника не закрашена и совпадает по цвету с фоном экрана.
Процедура
SetFillStyle(Pattern,Color: Word); |
устанавливает способ закраски.
Более эффективные прямоугольники можно строить с помощью процедуры
Bar (x 1,y1, x 2,y2: integer) |
Она рисует прямоугольник, внутренняя область которого залита по текущему шаблону. Данная процедура обычно используется в деловой графике для построения столбиковых диаграмм. Параметры и - координаты левого и правого нижнего углов прямоугольника. Еще более наглядное представление информации при рисовании диаграмм позволяет получить процедура
|
|
Bar3D(x 1,y1, x 2,y2: integer, D3:word, Top:Boolean) |
С ее помощью можно отобразить параллелепипед, лицевая сторона которого заливается по текущему шаблону, а глубина задается в пикселах параметром D3. Параметр Top задает режим отображения верхней плоскости: true – отображать, false –не отображать. Этот параметр необходим для рисования столбцов, расположенных «один на другом».