...jos ale dreptunghiului.Bar3dProcedura Bar3d deseneaza un parasesipiped dreptunghic si il hasureaza cu modelul si culoarea actuala. Procedura este definita astfelProcedura Bar3d x1,y1,x2,y2integer adord topbooleanX1 si Y1 reprezinta coordonatele coltului stanga sus al corpului .X2 si Y2 reprezinta coordonatele coltului dreapta jos al corpului.DraPolvProcedura DraPolv deseneaza olinie poligonala si este definita astfelProcedure DraPolv nrpctord 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 astfelType PoinType recordx,yintegerEndIn cazul in care se doreste obtinerea unui poligon inchis de n varfuri, variabila puncte trebuie sa fie un tablou de n1 elemente astfel incat coordonatele primului punct si coordonatele ultimului punct sa coincida.FillPolvProcedura FillPolv deseneaza si hasureaza un poligon si este definta astfelProcedure FillPolvnrpctord var puncteNrpct 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.FloodFillProcedura FloodFill hasureaza cu modelul actual o zona inchisa si este definita astfelProcedure FloodFillx,yintegercordx,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 astfelProcedure SetFillStylemordcordm defineste modul de hasurare, iar c defineste culoarea de hasurare.Pentru definirea modului de hasurare se pot utiliza urmatoarele constante predefiniteConstEmptyFill0SolidFill1Linefill2LtSla
shFill3SlashSill4BkSlashFill5LtBkSlashFill6HatchFil
l7XhatchFill8InterLeaveFill9ideDotFill10CloseDotFil
l11UserFill12Hasurarea poate fi realizata pentru poligon, dreptunghi, paralelipiped, sector de cerc, elipsa.GetFillSettingsProcedura GetFillSettings permite utilizatorului sa obtina informatii despre modelul actual de hasurare si de culoare, informatii care au fost fixate anterior cu procedura SerFillStyle sau SetFillPattern.Procedura este definita astfelProcedure GetFillSetting var infohasFillSettingsTyipeInfohas este de tip predefinit FillSettingstype si va contine informatii referitoare la hasurare. Tipul FillSettingsType este defint astfelType FillSettingstyperecordPatternordColorordEndSetFill
PattenProcedura SetFillPattern ofera utilizatorului posibilitatea de a defini un model propriu de hasurare. Procedura este definita astfelProcedure SetFillPattern mFillPatternType cordM este de tip predefinit FillPatternType si descrie modelul de hasurare folosind un tabel de optocteti, adica un tabel bidimensional de 8X8 biti.C defineste culoarea de hasurare.Tipul SetFillPatern este definit astfelType FillPatternTypearrayi1..8s of byte GetFillPatternProcedura GetFillPattern permite obtinerea informatiilor despre ultimul model de hasurare stabilit printr-un apel de procedura SetFillpattern. Procedura este definita astfel Procedure getfillPatter var mFillPatternTypeM este de tip predefinit FillPatterntype si va contine modelul utilizatorului.7.2 Aplicatieprogram poligonuses crt,graphconsttriunghi array i1..4s of pointtypeX50Y100, X100 Y100, X150Y150, X50Y100var Gd,gm,I,idthintegerChcharFillinfo FillSettingsTypeBeginGddetectInitgraphgb,gm,ctbptb
giIf graphresultgrOk then halt1RepeatOutTextXY10.0.apasatiOutTextXY 10.10.1-Bar 2-Bar3D 3-Triunghi 4-HasurareTriunghi 5-reptunghi 6-HasurareDreptunghiOutText 10.470.0-iesireChreadkey...
Download