Informatika va programmalash

ImageSize (x1,y1,x2,y2: Integer): Word

funksiyasi ekranning (x1,u1) va (x2,u2) nuqta bilan berilgan to‘rtburchak sohasining baytlardagi o‘lchamini beradi.
Tasvirni buferda saqlash uchun
GetImage (x1,y1,x2,y2: Integer; Var BitMap)
protsedurasidan foydaniladi. Bu bilan x1,u1,x2.u2 parametrli sohani BitMap o‘zgaruvchisi bilan aniqlangan xotira-buferga joylashtiradi. BitMap o‘lchamli tasvir sohasi-ImageSize orqali aniqlangan o‘lchamdan kichik bo‘lmasligi kerak.
Tasvirni ekranga chiqarish uchun
PitImage (x1,y1: Integer; Var BitMap; Mode: Word)
protsedurasini chaqirish kerak. Protsedura BitMap buferida saqlangan tasvirni chap yuqori burchagi (x1,y1) nuqtasi bilan berilgan to‘rtburchak sohaga chiqaradi. Bu protseduraning e’tiborli tomoni shundaki, uning yordamida buferdagi tasvirni ekrandagi tasvir bilan qo‘shib yuborish, tasvirni o‘chirish, tasvir ranglarini invertlash amallarini bajarish mumkin. Bu amallar Mode parametri bilan aniqlanadi. Uning qiymati Graph modulida o‘zgarmaslar bilan beriladi:
Const
CopyPut0;
XorPut 1;
ORPut2;
AndPut3;
NotPut4;
Bu o‘zgarmaslarning mohiyati quyidagicha: ekrandagi tasvir xotiradagi 0 va 1 ketma-ketligi (ularning qatlamlari) sifatida beriladi. Yangi tasvirni eski tasvir ustiga chiqarishda pikseldagi ikkilik son o‘rniga yangi ikkilik «joylashadi». CopyPut eski son ustiga yangisini yozidi, ORPut pikselga sonning OR amali, ANDPut mantiqiy AND amali, XORput matiqiy XOR amali natijalari chiqariladi. Notput buferdagi tasvirning 0 qiymatlarini 1 ga, 1 ni 0 ga almashtirib joylashtiradi. Bu rejimlar ichida eng qiziqirlisi XORput bo‘lib, bu rejimda birinchi chop qilishda tasvir paydo bo‘ladi, ikkinchisida tasvir «eski» tasvirni paydo qilib, o‘chib ketadi. Odatda bu rejimda qandaydir shaklni, boshqa tasvir fonida harakatlantirishda ishlatiladi. Boshqa grafika protseduralari ham bu rejimlarda ishlaydi. Buning uchun SetWriteMode (Mode:Word) protsedurasi orqali chop etish rejimi o‘rnatiladi. Rectangle, Line, LineTo, LinRel, Putpixel protseduralar orqali tasvirni paydo qilish va o‘chirish mumkin.