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

Ишлатиладиган шрифт ва координаталар. 
Модулнинг ички дастурларини кўриб чиқишдан олдин, уларда рамз 
кўринишини ясаш усули ишлатилишини кўриб ўтсак. Ички дастурлар 
мумкин бўлган 256 рамз образини ўзида сақловчи хотирага юкланган массив 
адресини олишади. Экранга чиқариш керак бўлганда мос процедура керакли 
рамз образини қидириб топади ва унга асосланиб кетма-кет нуқтама-нуқта 
экранга уни чизади. Шундай қилиб, модулнинг матнли имконитларини 
ишлатишнинг керакли шарти мос шрифтни хотирага юқлаш ҳисобланади. 
Матрицали шрифтни ишлаб чиқиш техникаси бу ерда кўриб ўтилмайди, 
чунки агар ШЭҲМ да матнли режимда амалга оширилаѐтган чиқариш 
қониқтирса, сизга мустақил равишда шрифт ишлаб чиқариш керак бўлмайди. 
Уни ясаш учун қуйидаги содда дастурни ишлатиш мумкин. 
 
Uses Graph,dos,Crt; 
Type
Ab=array[0..MaxInt] of Byte; 
Var 
D,R,E:integer; 
P:^ab; 
K,x,y,b,h:byte; 
X0,y0:integer; 
F:File; 
S:String; 
Reg:registers; 
begin 
{График режим инициаланади} 
D:=Detect; 
InitGraph(D,R,‘‘); 
E:=GraphResult; 
If E<>grOK then 
Begin 
Writeln(GrapherrorMsg(E)); 
Halt 
End; 
{Драйверни текширамиз ва шрифт баландлигини берамиз} 
Case D of 

---

182 
CGA: H:=8; 
EGA: H:=14; 
VGA: H:=16; 
Else 
H:=8; 
End; 
{Керакли динамик хотирани олиб қўямиз ва «8хН.fnt» файлини очамиз, 
бу ерда Н-шрифт баландлиги} 
GetMem(P,256*H); 
Str(H,S); 
S:=‘8x‘+s+‘.fnt‘; 
Assign(F,S); 
Rewrite(F,1); 
{Эхо-такрорланиш учун бошланғич координаталарни аниқлаймиз} 
X0:=0; 
Y0:=20; 
{Матнли чиқаришни юқори чап бурчакка йўналтирилиши} 
GotoXY(1,1); 
{Рамзнинг битли образини кўришнинг асосий цикли}