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

Uses 
Type 
T16=array [0..15] of Byte; 
T19=array [0..18] of Byte; 
T16_1=array [0..7,0..15,0..18] of Byte; 
T19_1=array [0..7,0..18,0..15] of Byte; 
Var 
F16:File of t16; 
F19:File of t19; 
C16:t16; 
C19:t19; 
A16:t16_1; 
A19:t19_1 absolute a16; 
X,Y,k,B,S:Byte; 
D,R,E,X0,Y0:Integer; 
begin 
{Графикани инициализациялаймиз} 
D:=Detect; 
InitGraph(D,R,‘‘); 
E:=GraphResult; 
If E<>grOK then 
Begin 
Writeln(GraphErrorMsg(E)); 
Halt; 
End; 
{эхобурилишнинг бошланғич координаталарини берамиз} 
X0:=0; 
Y0:=0; 
{Файлни очамиз} 
Assign(F16,‘8x16.fnt‘); 
Reset(F16); 
Assign(F19,‘8x19.fnt‘); 

---

185 
Rewrite(F19); 
{Ўтказилишнинг асосий цикли} 
While not EOF(F16) do 
Begin 
Read(F16,C16); {Навбатдаги 8х16 образни ўқиймиз} 
{Чапдан-ўнгга-юқоридан-пастга 
8х16 
матрица 
кўринишида 
сканерлаймиз} 
For Y:=0 to 15 do 
For X:=0 to 7 do 
begin 
{Керакли битни белгилаймиз} 
B:=ord((C16[y] and (128 shr X)) <>0); 
If B<>0 then 
PutPixel(x0+x,y0+y,white); 
{19 та бирлар ѐки нолларни ташкил этамиз} 
For k:=0 to 18 do 
A16[x,y,k]:=B; 
End; 
{8ч19 кўринишни кўрамиз} 
For Y:=0 to 18 do 
Begin 
B:=0; 
For X:=0 to 7 do 
Begin 
S:=0; {йиғиндининг бошланғич қиймати} 
For k:=0 to 15 do 
S:=s+a19[x,y,k]; {ҳаммасини йиғамиз} 
{йиғиндини текширамиз} 
If (S>9) then 
Begin {Кўпчилик чамбарлар бўялган-бир кўямиз ва пикселни чизамиз} 
B:=B or (128 shr X); 
PutPixel(x0+9+x,y0+y,white); 
End; 
End; 
C19[y]:=B; 
End; 
{Ташкил этилган образни 8ч19 файлига ѐзамиз} 
Write(F19,C19); 
{эхо-такрорланишни силжитамиз} 
Inc(x0,20); 
If x0>640 then 
Begin 
X0:=0; 
Inc(y0,20); 
End; 

---

186 
End; 
{Дастурни тугатамиз} 
CloseGraph; 
Close(F16); 
Close(F19); 
end 
Дастур 8x16 шрифтнинг ҳар бир образини C16 ўзгарувчига ўқиб олади, 
сўнгра бу образни анализ қилади ва C19 ўзгарувчига 8x19 шрифт ташкил 
этади. Ширифтни ўтказилиш коэффициентларни ўлчаш методи орқали 
амалга оширилади. Методнинг мохияти шундаки, 8x16 шрифтнинг ҳар бир 
пиксели вертикал йўналишда 19 қисмга бўлинади (A16 ўзгарувчиси). Бу 
қисмлар агар пиксел ярқирраса бирлар билан тўлдирилади, акс ҳолда 0 билан 
тўлдирилади. Шундан сўнг A16 ўзгарувчиси 8x19 матрица сифатида кўриб 
ўтилади, қайсики унинг ҳар бир элементи вертикал йўналишда 16 қисмга 
бўлинган (A19 ўзгарувчиси). Бу ўзгарувчи учун ҳар бир пиксел барча 
элементлари йиғиндиси (S ўзгарувчи) топилади. Агар бу йиғинди 9 дан катта 
бўлса, пикселнинг катта қисми 8x19 шрифтда ѐруғланган бўлиши керак ва бу 
пиксел ярқиррок деб эълон қилинади, акс ҳолда ярқиррок эмас.
CRT модули воситаларини имитациялайдиган F_GrText модули ички 
дастурлари улар билан бир хил интерфейсга эга. Энг мухим фарқи шундаки 
уларда ишлатиладиган матнли чиқариш координата тўри юкланилган шрифт 
билан аниқланади. Шу сабаб бу процедуралар шрифтни юклаш фактини 
текширади ва шрифт юкланмаган бўлса, ташлаб юборади. Ширифтни юклаш 
учун фойдаланувчи дастури хотирага нуқтали рамзлар образини 
жойлаштириши керак ва SetFont шрифт рўйхатдан ўтиш процедурасини 
чақириши керак. Бу процедура бажарилгандан сўнг матнли киритиш 
/чиқариш координалари 1 дан MaxChar гача оралиқда горизонтал ўқ учун 
ўзгариши мумкин ва вертикал учун 1 дан MaxLine гача. MaxChar ва MaxLine 
параметрлари қуйидагича аниқланади: 
MaxChar=(GetMaxX+1) div X 
MaxLine=(GetMaxY+1) div Y 
бу ерда Х- кенглик, У- нуқтали рамзлар образининг баландлиги. Мисол, 
VGA адаптер (мослагич) учун 8x8 шрифти юкланганда MaxLine параметри 
60 қийматни олади, 8x19 шрифт учун 25; иккала ҳолатда ҳам MaxChar 
параметри 80 қийматга эга. Бу шуни англатадики биринчи ҳолатда дастур 
80x60 символли матнли экранда ишлайди, 2-си эса 80x25 символлида. 
Экраннинг юқори чап бурчаги (1,1) координатага эга.