home *** CD-ROM | disk | FTP | other *** search
/ Visions 7: People / Visions 7: People.iso / pc / macutils / graphics / graphicc / pluginsd / samplefi.p < prev    next >
Encoding:
Text File  |  1994-12-12  |  521 b   |  33 lines
  1. unit SampleFilter;
  2.  
  3. interface
  4.  
  5.     uses
  6.         Header;
  7.  
  8.     procedure Main (FilterPtr: T_FilterPtr);
  9.  
  10. implementation
  11.  
  12.     type
  13.         T_ByteArr = packed array[0..10000] of Byte;
  14.         T_BytePtr = ^T_ByteArr;
  15.  
  16.     procedure Main (FilterPtr: T_FilterPtr);
  17.  
  18.         var
  19.             bytePtr: T_BytePtr;
  20.             i: Longint;
  21.  
  22.     begin
  23.  
  24. { The Data in FilterPtr^.dataHdl is locked !!! }
  25.     bytePtr := T_BytePtr(FilterPtr^.srcDataHdl^);
  26.  
  27.     for i := 0 to FilterPtr^.srcDataSize - 1 do
  28.         bytePtr^[i] := BXOR(bytePtr^[i], $FF); { Invert-Sample }
  29.  
  30.     FilterPtr^.success := 1;
  31.     end;
  32.  
  33. end.