Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. Program xdemospr1;
  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('в демо-флик-файлы (часть 1)'#10#10);
  21.   gr:=CGA;
  22.   InitGraph(gr,modd,'d:\tp7\bgi\');
  23.   name2:='d:\'#39'ufo2'#39'\data\xdemos6'+Name+'.dat';
  24.   Assign(ZF,name2);
  25.   rewrite(ZF);
  26.   for ixx:=1 to 56 do begin
  27.   str(ixx+ix*8,Name);
  28.   name1:='d:\'#39'ufo2'#39'\xdemo\Xs'+Name+'.tif';
  29.   Assign(TF,name1);
  30.   Reset(TF);
  31.  
  32.   for i:=1 to 194 do read(TF,c);         {read TIFF prefix}
  33.   cc:=#0;
  34.   for i:=0 to 47 do
  35.     for j:=0 to 5 do                     {read & display TIFF screen}
  36.        begin
  37.          read (TF,c);
  38.          for m:=0 to 7 do putpixel(j*8+m,i,(ord(c) shr (7-m) and 1)*7);
  39.          c:=chr(not ord(c));
  40.          if (cc='э') and (c='э') then
  41.                    begin
  42.                      dec (c);
  43.                      writeln(#7+'Warning: #ED #ED');
  44.                    end;
  45.          cc:=c;
  46.          write (ZF,c);
  47.        end;
  48.  
  49.   Close(TF);
  50.   end;
  51.  
  52.   Close(ZF);
  53. {  goto Laba;}
  54.   repeat until KeyPressed;
  55.   CloseGraph;
  56.  
  57. end.