Графикаси касб-ҳунар коллежлари учун ўқув қулланма

For k:=0 to 255 do 
Begin 
{Узилиш воситалари орқали навбатдаги рамзни чиқарамиз $10, $A 
функция (рамзни атрибутсиз чиқариш)} 
With Reg do 
Begin 
Ah:=$A; 
Al:=k; 
Bh:=0; 
Cx:=1; 
Intr($10,Reg); 
End; 
{Яратилган кўринишни чапдан-ўнгга-юқоридан-пастга сканерлаймиз} 
For Y:=0 to H-1 do 
Begin 
B:=0; {Навбатдаги байтнинг бошланғич қиймати} 
For X:=0 to 7 do 
If GetPixel(X,Y)<>GetBkColor then 
Begin 
{Шрифт байтини ташкил этамиз} 
B:=B or (128shr X); 
{Экраннинг юқори чап бурчаги рамзини ўчирамиз} 
PutPixel(X,Y,GetBkColor); 
{ва уни пастроққа такрорлаймиз} 
PutPixel(x0+x,y0+y,White); 
End; 

---

183 
P^[k*H+Y]:=B; {Байтни эслаб қоламиз} 
End; 
{Эхо-такрорланиш рамзи ўрнини ҳаракатлантирамиз} 
Inc(x0,10); 
If x0>GetMaxX then 
Begin 
X0:=0; 
Inc(y0,20); 
End; 
End; 
{Шрифтни файлга ѐзамиз ва дастурни тугатамиз} 
BlockWrite(F,P^,256*H); 
Close(F); 
CloseGraph 
End. 
 
Бу дастурда калитли параметрлардан бири – шрифт баландлигини (H 
ўзгарувчи) юкланадиган драйвер тури анализи асосида аникланади, EGA ва 
VGA адаптер (мослагич) ларида график режим – 640 пиксел горизонтал 
бўйича рухсат этиш бир хил амалга оширилади. Бу ҳар бир рамз образи 
нуқтали кенглиги 640/80=8 пикселда аниқланади. (матнли қатор максимал 
узунлиги 80 рамз) График экран баландлиги мос равишда рамз образи 
баландлиги билан фарқланади: CGA учун 200 қатор разврѐткада 200/25=8 
пиксел рамз баландлигини беради, EGA учун 350/25=14 пиксел, VGA учун 
480/25=19 пиксел. VGA адаптер (мослагич) матнли режимда 720x400 
пикселли рухсат этишни таъминлайди, шунинг учун 9x16 ҳажмли шрифт 
ишлатилмайди. Аммо ҳар бир рамзнинг нуқтали образи 8x16 бит матрицада 
аниқланади, чунки бу ҳолатда қўшимча 9-пиксел фон рангида рамздан ўнгда 
автоматик горизонталига чиқарилади ва қаторда рамзларни бир-биридан 
ажратиш учун хизмат қилади.
2-Расм. 8х16 шрифти 8х19 шрифтига рамзни ўтказиш. 

---

184 
Юқорида кўрсатилган дастурни компиляциядан ўтказгандан сўнг 
жорий каталогда иккилик файл ҳосил бўлади. У ўзида 256 рамзнинг 
образларини сақлайди. Бу образлар матнли режимда хабарларни чиқаришда 
ишлатилади, демак, рамзларни график воситалар орқали чизиш учун сиз бу 
файлни хотирага юклашингиз мумкин.
Таъкидлаш лозимки, VGA адаптер (мослагич) учун 8x16 стандарт
шрифти 480/16=30 матнли қаторни таъминлайди, яъни бу шрифт билан 
экранга чиқариш матнли режимга нисбатан кичикроқ бўлади. Агар VGA 
адаптер (мослагич учун) янада аниқроқ матнли режим иммитациясини 
олмоқчи бўлсангиз дастур томонидан тузилган 8x16.fnt файлни 8x19.fnt га 
ўтказиш мумкин. Ҳар бир образ баландлигини 19 пикселга ошириш матнли 
чиқариш имитациясини тўлиқ таъминлайди. Бундай ўтказишни қуйидаги 
дастур амалга оширади.