212
const
TopOn = True;
TopOff = False;
Сызу кезінде ағымдағы түзу стилі (SetLineStyle) жəне түс (Set-Color) қолданылады. Алдыңғы жақ ағымдағы толтыру стилімен боялады (SetFillStyle).
Процедура көбіне бағаналық диаграмма салғанда қолданы-лады. Параллелепипедтің боялмаған жақтарынан бейненің басқа элементтері көрініп тұрады.
Келесі программа Bar3D процедурасын қолданудың түрлі мүмкіндіктерін көрсетеді.
uses Graph,CRT;
var
d,r,e: Integer;
begin
{Графиканы іске қосамыз}
d:=Detect;
Ini-tGraph(d,r,'');
e:=GraphResult;
if e <> grOk then WriteLn(GraphErrorMsg(e));
else
begin
{Жоғарғы жағы бар бағана:}
Bar3D (80, 100, 120, 180, 15, TopOn); {Жоғарғы жағы жоқ бағана:}
Ваг3D (150, 150, 190, 180, 15,
TopOff);
{Бұл бағана келесі бағана үстінде тұр, ол түссіз:}
Bar3D (230, 50, 250, 150, 15, TopOn); Bar3D (220, 150, 260, 180, 15, TopOn);
{Бұл бағананың жоғарғы жағы жоқ, сондықтан ол үстіне қойылған бағанаға кедергі жасамайды:}
Bar3D (300, 150, 340, 180, 15, TopOff); SetLineStyle(3,0,1); SetColor(Yellow);
213
SetFillStyle(LtSlashFill,Yellow); Bar3D (300, 50, 340, 150, 15, TopOn); if ReadKey=#0 then d:=ord(ReadKey); CloseGraph;
end
end.
FillPoly процедурасы тұйық көпбұрыштың шекарасын сызып, бояйды. Тақырыбы:
Достарыңызбен бөлісу: |
