Subprograme orientate spre poligoane și hașurări aplicație proceduri și funcții

Procedura Bar deseneaza un dreptunghi si il hasureaza cumodelul si culoarea satabilite cu procedura SetFillPattern sau SetFillStzle. Procedura este definita astfel: Procedure Bar (x1, y1, x2, y1: integer); X1 si Y1 reprezinta coordonatele coltului stanga sus ale dreptunghiului.

X2 si Y2 reprezinta coordonatele coltului dreapta jos ale dreptunghiului.

Bar3d Procedura Bar3d deseneaza un parasesipiped dreptunghic si il hasureaza cu modelul si culoarea actuala.

Procedura este definita astfel: Procedura Bar3d (x1, y1, x2, y2: integer; ad: word; top: boolean); X1 si Y1 reprezinta coordonatele coltului stanga sus al corpului.

X2 si Y2 reprezinta coordonatele coltului dreapta jos al corpului.

DrawPolv Procedura DrawPolv deseneaza olinie poligonala si este definita astfel: Procedure DrawPolv (nrpct: word; var puncte); Nrpct reprezinta numarul varfurilor, iar variabila puncte este untabel ale carui elemente sunt de tip predefinit PoinzType care reprezinta coordonatele (x, y) ale varfurilor. Tipul PointType este definit astfel: Type PoinType= record x, y: integer; End; In cazul in care se doreste obtinerea unui poligon inchis de n varfuri, variabila puncte trebuie sa fie un tablou de n+1 elemente astfel incat coordonatele primului punct si coordonatele ultimului punct sa coincida.

FillPolv Procedura FillPolv deseneaza si hasureaza un poligon si este definta astfel: Procedure FillPolv (nrpct: word; var puncte); Nrpct reprezinta numarul varfurilor, iar variabila puncte este un tabel ale carui elemente sunt de tip predefinit Pointtypeb, care reprezintacooronatele (x, y) ale varfurilor. Conturulpoligonului este formt din linii ale caror stil este determinat de procedura SetFillPattern sau SetFillStyl.

FloodFill Procedura FloodFill hasureaza cu modelul actual o zona inchisa si este definita astfel: Procedure FloodFill (x, y: integer; c: word); x, y reprezinta coordonatele unui punct interior zonei inchise, iar c reprezinta culoarea de hasurare, avand valori de la 0 pana la valoarea returnata de functia GetmaxColor.

SetFillStyle Procedura SetFillStyle fixeaza modelul de hasurare utilizat si culoarea de hasurare.

Procedura este definita astfel: Procedure SetFillStyle (m: word; c: word); m defineste modul de hasurare, iar c defineste culoarea de hasurare.

Pentru definirea modului de hasurare se pot utiliza urmatoarele constante predefinite: Const EmptyFill=0; SolidFill=1; Linefill=2; LtSlashFill=3; SlashSill=4; BkSlashFill=5; LtBkSlashFill=6; HatchFill=7; XhatchFill=8; InterLeaveFill=9; WideDotFill=10; CloseDotFill=11; UserFill=12; Hasurarea poate fi realizata pentru poligon, dreptunghi, paralelipiped, sector de cerc, elipsa.

GetFillSettings Procedura GetFillSettings permite utilizatorului sa obtina informatii despre modelul actual de hasurare si de culoare, informatii care au fost fixate anterior cu procedura SerFillStyle sau ...