?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. {Картинки к энциклопедии}
  2. Program xup;
  3. uses Crt,Graph;
  4. const
  5.  _n=26;
  6.  numb:array[1..60] of byte = (
  7.                    17,14,39,
  8.                    15,13,18,
  9.                    21,20,36,
  10.                    24,40,37,
  11.                     38,12,11,
  12.                     16,10,9,
  13.                     1,2,8,
  14.                       3,19,5,
  15.                       4,6,7,
  16.                       33,26,22,
  17.                       23,34,35,
  18.                   42,46,45,
  19.                   43,44,48,
  20.                   47,50,49,
  21.                    25,41,31,
  22.                    27,30,28,
  23.                    32,55,29,
  24.                     51,60,57,
  25.                     58,56,59,
  26.                     52,53,54);
  27.  
  28. var
  29.  TF,ZF:File of Char;
  30.  name,name1,name2:string;
  31.  b:array [0..191,0..31] of byte;
  32.  c,cc:char;
  33.  n:Longint;
  34.  gr,modd,i,j,k,m,ix,ixx,iyy:integer;
  35. label
  36.      Laba;
  37.  
  38. begin
  39.   ClrScr;
  40.   n:=0;
  41.   Writeln('Конвертация TIFF-файлов');
  42.   Writeln('(Black & White  224x192)');
  43.   Writeln('в картинки Уфопедии по три'#10#10);
  44.   gr:=detect;
  45.   InitGraph(gr,modd,'d:\tp7\bgi\');
  46. for ixx:=0 to 19 do
  47. begin
  48.   str(ixx+1,Name);
  49.   name2:='d:\'#39'ufo2'#39'\data\xup'+Name+'.dat';
  50.   Assign(ZF,name2);
  51.   rewrite(ZF);
  52.  for iyy:=1 to 3 do begin
  53.   str(numb[iyy+ixx*3],Name);
  54.   name1:='d:\'#39'ufo2'#39'\images\x'+Name+'.tif';
  55.   Assign(TF,name1);
  56.   Reset(TF);
  57.  
  58.   for i:=1 to 194 do read(TF,c);         {read TIFF prefix}
  59.   cc:=#0;
  60.   for i:=0 to 191 do
  61.     for j:=0 to 27 do                     {read & display TIFF screen}
  62.        begin
  63.          read (TF,c);
  64.         { for m:=0 to 7 do putpixel(j*8+m,i,(ord(c) shr (7-m) and 1)*7);}
  65.          mem[$a000+i*5:0000+j]:=ord(c);
  66.          c:=chr(not ord(c));
  67.          write (ZF,c);
  68.        end;
  69.  
  70.   Close(TF);
  71.  end;
  72.   Close(ZF);
  73. end;
  74. {  goto Laba;}
  75.   repeat until KeyPressed;
  76.   CloseGraph;
  77.  
  78. end.