... si Y sunt coordonate de sfarsit ale liniei.LineRelProcedura LineRel deseneaza olinie de la pozitia pointer-ului actual pana la un punctdat definit de destinatie DX si DY.Culoarealiniei se stabileste cu procedura SetColor, stilul si grosimea se stabilesc cu procedura SetLineStyle. Procedura este definita astfelProcedure LineRel DX, DY integerDX si DY reprezinta distanta in sensul axei x, respectiv y.MoveToProcedura MoveTo muta pointer-ul actual de coordonate x, y. Procedura este definita astfelProcedure MoveTo x, yintegerMoveRelProcedura MoveRel muta pointer-ul actual din pozitia curenta la un punct definit de distantele DX, DY. Procedura este definita astfel.Procedure MoveRel DX, DYintegerDX si DY reprezinta distanta in sensul axei X, respenctiv Y.SetLineStzleProceura SetLineStyle stabileste stilul si grosimea liniei. Procedura este stabilita astfelProcedure SetLineStyle Stil, Model, grosimeord Pentru desenarea unei linii se pot folosi urmatoarele constante predefinite pentru stabilirea stiluluiConstSolidln0-liniecontinuaDottedLn1-linie intrerupta de forma -----CenterLn2-Linie intrerupta de forma -.-.-.DeshedLn3-Linieintrerupta de forma - - - -UserbitLn4-Stil definit de utilizator.Daca stilul variaza intre SolidLn si DashedLn, valoarea variabilei model trebuie sa fie 0. Daca stilul este pozitionat la UserBitLn, stilul liniei este definit de utilizator, si in acest caz variabila model este un numar hexazecimal pe 16 biti care descrie modul de prezentare a liniei 1 semn luminos,0fara semn .Grosimea liniei poate fi stabilita cu urmatoarele constante predefinite. Const Normidth1-grosme normala Thickidth3-Linie groasa.GetLineSettingsProcedura GetLineSetiings returneaza stilul si grosimea liniei utilizate si este definita astfelProcedure GetLinSettings var infollineSetiingTypeInfoLin contine informatii referitoare la linie, avand tipul predefinit LineSettingTypeType LineSettingsTyperecordLineStyleord IstilSPatternord ImodelSThicknessord IgrosimeSEndSetritemode Procedura Setritemode stabileste modul de scriere pe ecran a unei linii. Procedura este definita astfelProcedure Setritemode modscriereintegerModscriere este o variabla de tip intreg si poate lua urmatoarele valori predefinite.Const CopyPut0 XorPut1Valoarea CopyPut inseamna folosirea instructiunii MOV a asamblorului. Valoarea XOrPUT inseamna folosirea instructiunii XOR intre punctele liniilor si punctele actuale din ecran. Astfel doua instructiuni consecutive vor sterge linia, ramanand imaginea anterioara pe ecran. 5.2. AplicatieProgramul linii arata cum se pot apela si utiliza procedurile de trasare a liniilor, cum se pot cere date despre un anumit stil de linie, cum se pot defini stilul utilizator.Program liniiuses crt, graphvar gd, gm, I integerstillinesettingstypebegini0gd-detectinitgra
phgd, gm, ctbptbgi if graphresult grOk then Halt 1randomizesetlinestyledottedln, 0, thickidthgetlinesettingsstilrepeatline randomgatmaxx, randomgetmaxyrandomgetmaxx, randomgatmaxymoveTo100, 200lineRel100, 100lineTo200, 200 cleardevicesetLineStyleuserbitln, 45, normidth rectangle100, 300, 200, 400ii1until i100repeatline random getmaxx, randomgetmaxyrandom getmaxx, randomgetmaxymoveTo100, 200linerel100,100lineTo200, 200 cleardevicesetlinestyleStil, LineStyle,Stil.Pattern, Stil.Thicknessrectangle 100, 300, 200, 400ii1until i1readkeycloseGraphEnd.pHTbx,p6Fh26rx.Rdànlinb8a5t
mHsH5tmHsHmHsH5t5t5CJ tUFHHTbn2 ...
Download