?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. program xspriter;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils;
  7.  
  8. {╧ЁхюсЁрчєхЄ TIFF-Їрщы√ юЇюЁьыхэш  ═╦╬-2 т Їрщы ёяЁрщЄют }
  9. //uses Crt,Graph;
  10. const
  11.  Nblock=8;
  12.  fn:array [1..Nblock] of string=('xearth',
  13.                             'xweapon',
  14.                             'xbutton',
  15.                             'xsign',
  16.                             'xparam',
  17.                             'xkey',
  18.                             'xlabel',
  19.                             'xSCAN'
  20.                             );
  21.  fl:array [1..Nblock,1..2] of byte=((24,15),    {ЁрчьхЁ X*Y*8 срщЄ}
  22.                                  (4,2*15),
  23.                                  (4,4+3+4),
  24.                                  (3,3*12),
  25.                                  (3,2*10),
  26.                                  (12,6+2),
  27.                                  (2,2*26),
  28.                                  (1,12)
  29.                                 );
  30. var
  31.  TF,ZF:File of Char;
  32.  name,name1,name2:string;
  33.  fln:array[1..Nblock] of integer;
  34.  b:array [0..(5*64-1),0..31] of byte;
  35.  c:char;
  36.  n:Longint;
  37.  aa,bb,cc,dd:byte;
  38.  gr,modd,i,j,k,m,jj:integer;
  39.  x,y:integer;
  40.  
  41. begin
  42.   //ClrScr;
  43.   n:=0;
  44.   Writeln('╩юэтхЁЄрЎш  TIFF-Їрщыoт');
  45.   Writeln('шуЁютюую юЇюЁьыхэш  ═╦╬-2');
  46.   Writeln('т eфшэ√щ Їрщы ёяЁрщЄют ');
  47.   Name:='..\';
  48.   name2:=Name+'data\xsprites.dat';
  49.   Assign(TF,name2);
  50.   Rewrite(TF);
  51.   jj:=0;
  52. //  gr:=detect;
  53. //  InitGraph(gr,modd,'d:\tp7\bgi\');
  54.  
  55.  for n:=1 to Nblock do begin
  56.   name1:=Name+'images\'+fn[n]+'.tif';
  57.   Assign(ZF,name1);
  58. //  ClearViewPort;
  59.   Reset(ZF);
  60.   x:=fl[n,1];
  61.   y:=fl[n,2];
  62.   fln[n]:=jj;
  63.   jj:=jj+x*y*8;
  64.  
  65.   for i:=1 to 194 do begin
  66.        read(ZF,c);            {read TIF prefix}
  67.        end;
  68.  
  69.   for m:=0 to (y)*8-1 do                       {read TIF screen}
  70.         for i:=0 to x-1 do
  71.           begin
  72.             read(ZF,c);
  73.             {for gr:=0 to 7 do
  74.              putpixel(i*8+gr,m,(ord(c) shr (7-gr) and 1)*14);}
  75.             c:=chr(ord(c) xor $FF);
  76.             write(TF,c);
  77.           end;
  78.   Close(ZF);
  79.   end;
  80.   Close(TF);
  81. //  CloseGraph;
  82. //  ClrScr;
  83.   for i:=1 to Nblock do
  84.    writeln('┴ыюъ уЁрЇшъш ',fn[i],' c рфЁхёр ',fln[i]);
  85.   writeln('Cыхфє■∙шщ рфЁхё ',jj);
  86.   //repeat until KeyPressed;
  87.  
  88. end.
  89.