Предыдущая страница реферата | 15  16  17  18  19  20  21  22  23  24  25 | Следующая страница реферата



Bk1,Bk2,Mode:Byte;

Inverse:Boolean;

procedure SetPoints;

begin

x1:=0;x2:=GetMaxX;

y1:=0;y2:=GetMaxY;

Bk1:=0;Bk2:=0;

Inverse:=False;

Mode:=1;

end;

{ X1,Y1,X2,Y2 - the size of output screen }

{ Bk1,Bk2 - the colours of the both backgrounds }

{ Inverse - normal (false) or invert (true) colour of the printing copy }

{ Mode: 1 - double density 120 points/inch }

{ 2 - high speed 120 points/inch }

{ 3 - high density 240 points/inch }

{ 0, 4, 5 - 80 points/inch }

{ 6 - 90 points/inch }

{ For nonFX EPSON - printers Mode = 1 }

var ScanLine:integer;{ current printing string }

n1,n2 :Byte; { special data for printer }

{ The construction of the byte for the printing graphics }

function ConstructByte(x,y:integer):byte;

const bits:array[0..7] of byte=(128,64,32,16,8,4,2,1);

var p :word; { the colour of the pixel }

CByte,Bit:byte; { byte and the bites number }

YY :integer; { the state of the current pixel }

begin

CByte:=0;

for Bit:=0 to 7 do

begin

YY:=Y+Bit;

P:=GetPixel(X,YY);

if (YY<=Y2) and (P<>bk1) and (P<>bk2) then Inc(CByte,Bits[Bit]);

end;

ConstructByte:=CByte;

end;

{ The graphics string output }

procedure DoLine;

var XPixel :integer; { the current X - position }

PrintByte:byte; { the byte, which code 8 pixels }

begin

if Mode=1 then Write(Lst,#27'L')

else Write(Lst,#27'*',chr(mode));

Write(Lst,chr(n1),chr(n2));

for XPixel:=X1 to X2 do

begin

PrintByte:=ConstructByte(XPixel,ScanLine);

if Inverse then PrintByte:=not PrintByte;

Write(Lst,chr(PrintByte));

end;

Write(Lst,#10);

end;

label quit;

begin

SetPoints;

mode:=mode mod 7;

if mode in [0,5] then mode:=4;

Write(Lst,#27'3'#24);

n1:=Lo(succ(X2-X1));n2:=Hi(succ(X2-X1));

ScanLine:=Y1;

while ScanLine<Y2 do

begin

if KeyPressed and (ReadKey=#27) then Goto Quit;

DoLine;

Inc(ScanLine,8);

end;

quit:Write(Lst,#27#2);

end;

{ Определение знака выражения }

function Sgn(v:real):integer;

begin

if v<0 then Sgn:=-1

else

Sgn:=1;

if v=0 then Sgn:=0;

end;

{ Функция расчета времени счета }

function DefTime:string;

var cw,mw,sw,sdw:word;

cs,ms,ss,sds:string;

begin

GetTime(cw,mw,sw,sdw);

str(cw,cs);str(mw,ms);str(sw,ss);str(sdw,sds);

DefTime:=cs+':'+ms+':'+ss+'.'+sds;

end;

{ Процедура вывода на экран времени счета }

procedure TimeOut;

var ST:string;

begin

ST:=' Время счета : '+DefTime;

Рекомендуем скачать другие рефераты по теме: мировая торговля, банк курсовых работ бесплатно.

Предыдущая страница реферата | 15  16  17  18  19  20  21  22  23  24  25 | Следующая страница реферата