?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. Program xdemospr2;
  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('в демо-флик-файлы (часть 2)'#10#10);
  21.   gr:=CGA;
  22.   InitGraph(gr,modd,'d:\tp7\bgi\');
  23. {Title 128x112}
  24.   name1:='d:\'#39'ufo2'#39'\xdemo\Xtitle.tif';
  25.   Assign(TF,name1);
  26.   Reset(TF);
  27.   name2:='d:\'#39'ufo2'#39'\data\xtitle.dat';
  28.   Assign(ZF,name2);
  29.   rewrite(ZF);
  30.   for i:=1 to 194 do read(TF,c);         {read TIFF prefix}
  31.   cc:=#0;
  32.   for i:=0 to 111 do
  33.     for j:=0 to 15 do                     {read & display TIFF screen}
  34.        begin
  35.          read (TF,c);
  36.          for m:=0 to 7 do putpixel(j*8+m,i,(ord(c) shr (7-m) and 1)*7);
  37.          c:=chr(not ord(c));
  38.          if (cc='э') and (c='э') then
  39.                    begin
  40.                      dec (c);
  41.                      writeln(#7+'Warning: #ED #ED');
  42.                    end;
  43.          cc:=c;
  44.          write (ZF,c);
  45.        end;
  46.  
  47.   Close(TF);
  48.   Close(ZF);
  49.  
  50. {Fliks}
  51.   name2:='d:\'#39'ufo2'#39'\data\xdemos7'+Name+'.dat';
  52.   Assign(ZF,name2);
  53.   rewrite(ZF);
  54.   for ixx:=1 to 56 do begin
  55.   str(ixx+ix*8,Name);
  56.   name1:='d:\'#39'ufo2'#39'\xdemo\Xx'+Name+'.tif';
  57.   Assign(TF,name1);
  58.   Reset(TF);
  59.  
  60.   for i:=1 to 194 do read(TF,c);         {read TIFF prefix}
  61.   cc:=#0;
  62.   for i:=0 to 47 do
  63.     for j:=0 to 5 do                     {read & display TIFF screen}
  64.        begin
  65.          read (TF,c);
  66.          for m:=0 to 7 do putpixel(j*8+m,i,(ord(c) shr (7-m) and 1)*7);
  67.          c:=chr(not ord(c));
  68.          if (cc='э') and (c='э') then
  69.                    begin
  70.                      dec (c);
  71.                      writeln(#7+'Warning: #ED #ED');
  72.                    end;
  73.          cc:=c;
  74.          write (ZF,c);
  75.        end;
  76.  
  77.   Close(TF);
  78.   end;
  79.  
  80.   Close(ZF);
  81. {  goto Laba;}
  82.   repeat until KeyPressed;
  83.   CloseGraph;
  84.  
  85. end.