Subprograme orientate spre salvarea imaginilor aplicație

Functia ImageSize returneaza numarul de octeti necesari salvarii unei imagini. Functia se defineste astfel: Procedura GetImage salveaza o imagine intr-o zona de memorie definita de utilizator. Procedura se defineste astfel: X1, y1 reprezinta coordonatelor coltului stanga sus ale dreptului, iar x2, y2 reprezinta coordonatele coltului dreapta jos ale dreptunghilui ce se salveaza. Se pot salva zone mai mici de 64K octeti. Variabila BitMap referazona in care se face salvarea imaginii.

Primele doua cuvinte ale zonei contin latimea si lungimea zonei dreptunghiuluilare, de aceea dimensiunea obtinuta cu functia GetImage. PutImage Procedura PutImage suprapune regiunea salvata peste ecran. Procedura se defineste astfel: Procedure PutImage (x, y: integer; var: BitMap; BitBlt: word); X, y reprezinta coltul stanga sus al regiunii dreptunghiular de pe ecran unde va fi restabilita imaginea.

Variabila Bitmap contine latimea, lungimea regiunii si harta in biti a imaginii.

Variabila Bitblt descrie operatia binara intre punctele regiunii ce se suprapune pe ecran si punctele ecranului.

Aceasta variabila se defineste astfel: Const NormalPut=0; MOV mutare simpla CopyPut= 1; MOV mutare simpla XORPut=2; XOR sau exclusiv OrPut=3; OR - disjunctie AndPut=4; AND - conjunctie NotPut=5; Not- negatie 8. 2 Aplicatie Programul image realizeaza culorarea ecranului cu albastru, decupeaza o portiune din aceasta si o salveaza in memorie dupa ce sa rezervat spatiu de memorie necesar salvarii, dupa care este restabilita acea portiune (imagine). Uses Graph, Crt; Var gd, gm: integer; P: pointer; Size: word; Begin Gd: =detect; InitGraph (Gd, Gm, c: pgi); If graphresult grOK then Halt (1); SetFillStyle (1. 1); Bar (0. 0. GetMaxX. GetMaxY); Size: =ImageSize (1. 20. 30. 40); GetMen (p, Size); GetImage (10. 20. 30. 40. p^); Readln; ClearDevice; PutImage (100. 100. p^, xorput); Readln; CloseGraph; end. ...