?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. Program xdemo;
  2. uses Crt,Graph;
  3. const
  4.   ZXname : string = 'fromIBM C'#0#64#0#27#0#27#206#104;
  5. var
  6.  TF,ZF:File of Char;
  7.  name,name1,name2:string;
  8.  b:array [0..191,0..31] of byte;
  9.  c,cc:char;
  10.  n:Longint;
  11.  gr,modd,i,j,k,m,ix,ixx:integer;
  12. label
  13.      Laba;
  14.  
  15. begin
  16.   ClrScr;
  17.   n:=0;
  18.   Writeln('Конвертация TIFF-файлов');
  19.   Writeln('(Black & White  128х128)');
  20.   Writeln('в демо-файлы'#10#10);
  21.   gr:=CGA;
  22.   InitGraph(gr,modd,'d:\tp7\bgi\');
  23. Laba:  for ix:=0 to 2 do begin
  24.   str(ix,Name);
  25.   name2:='d:\'#39'ufo2'#39'\data\xdemo'+Name+'.dat';
  26.   Assign(ZF,name2);
  27.   rewrite(ZF);
  28.   for ixx:=1 to 8 do begin
  29.   str(ixx+ix*8,Name);
  30.   name1:='d:\'#39'ufo2'#39'\xdemo\XD'+Name+'.tif';
  31.   Assign(TF,name1);
  32.   Reset(TF);
  33.  
  34.   for i:=1 to 194 do read(TF,c);         {read TIFF prefix}
  35.   cc:=#0;
  36.   for i:=0 to 127 do
  37.     for j:=0 to 15 do                     {read & display TIFF screen}
  38.        begin
  39.          read (TF,c);
  40.          for m:=0 to 7 do putpixel(j*8+m,i,(ord(c) shr (7-m) and 1)*7);
  41.          c:=chr(not ord(c));
  42.          if (cc='э') and (c='э') then
  43.                    begin
  44.                      inc (c);
  45.                      writeln('Warning: #ED #ED');
  46.                    end;
  47.          cc:=c;
  48.          write (ZF,c);
  49.        end;
  50.  
  51.   Close(TF);
  52.   end;
  53.  
  54.   Close(ZF);
  55.   end;
  56. {  goto Laba;}
  57.   repeat until KeyPressed;
  58.   CloseGraph;
  59.  
  60. end.