home *** CD-ROM | disk | FTP | other *** search
/ TopWare 18: Liquid / Image.iso / liquid / top2124 / gepackt.exe / PASCAL.ZIP / DEFS2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-02-02  |  3.0 KB  |  68 lines
  1. function  SaveMMP(FName : pchar; Xa,Ya,XSize,YSize : word) : integer;
  2.           far; external SpecialDLL;
  3. function  LoadMMP(FName : pchar; Xa,Ya : word) : integer;
  4.           far; external SpecialDLL;
  5. function  SaveICO(FName : pchar; Xa,Ya,XSize,YSize : word) : integer;
  6.           far; external SpecialDLL;
  7. function  LoadICO(FName : pchar; Xa,Ya : word) : integer;
  8.           far; external SpecialDLL;
  9. procedure SetActivePage(Page : word);
  10.           far; external SpecialDLL;
  11. procedure ClearPage(Page : word);
  12.           far; external SpecialDLL;
  13. function  MaskImage(FName : pchar; Xa,Ya,ForceLoad,SourcePage,DestPage : word) : word;
  14.           far; external SpecialDLL;
  15. procedure BlockRGB(Xa,Ya,XSize,YSize,R,G,B : word);
  16.           far; external SpecialDLL;
  17. procedure RGBPutPixel(Xa,Ya,R,G,B : word);
  18.           far; external SpecialDLL;
  19. procedure RGBGetPixel(Xa,Ya : word; var R,G,B : word);
  20.           far; external SpecialDLL;
  21. procedure YuvGetPixel(Xa,Ya : word; var Y,U,V : word);
  22.           far; external SpecialDLL;
  23. procedure YUVPutPixel(Xa,Ya,Y,U,V : word);
  24.           far; external SpecialDLL;
  25. procedure CopyBlock(Xa,Ya,XSize,YSize,Source,Dest : integer);
  26.           far; external SpecialDLL;
  27. procedure MoveBlock(Xa,Ya,XSize,YSize,Xb,Yb,SourceP,DestP : word);
  28.           far; external SpecialDLL;
  29. procedure ColourChange(OlDR,OldG,OLDB,RPercent,GPercent,BPercent : integer);
  30.           far; external SpecialDLL;
  31. function  ColMixImage(FName : pchar; Xa,Ya,ForceLoad,DestPage,OldR,OldG,OldB,NewR,NewG,NewB : word) : word;
  32.           far; external SpecialDLL;
  33. procedure ColourBlock(Xa,Ya,XSize,YSize,Xadd,YAdd,RPercent,GPercent,BPercent : word);
  34.           far; external SpecialDLL;
  35. procedure UpdateRleBlock(Xa,Ya,XSize,YSize,AddRemove : word);
  36.           far; external SpecialDLL;
  37. procedure UpDateRleCircle(Xa,Ya,AddRemove : word);
  38.           far; external SpecialDLL;
  39. function YZoomImage(Factor : word) : word;
  40.           far; external SpecialDLL;
  41. function YZoomBlock(Xa,Ya,Xb,Yb,Factor,UpDown : word) : word;
  42.           far; external SpecialDLL;
  43. function XZoomImage(Factor : integer) : word;
  44.           far; external SpecialDLL;
  45. function XZoomBlock(Xa,Ya,Xb,Yb,Factor,UpDown : word) : word;
  46.           far; external SpecialDLL;
  47. procedure InitVariance(NewV : word);
  48.           far; external SpecialDLL;
  49. procedure InitColours(StyleR,StyleG,StyleB : word);
  50.           far; external SpecialDLL;
  51. procedure DrawCircle(X,Y : word);
  52.           far; external SpecialDLL;
  53. procedure ClearCircle(X,Y : word);
  54.           far; external SpecialDLL;
  55. procedure CopyCircle(X,Y,Source,Dest : word);
  56.           far; external SpecialDLL;
  57. procedure Freememory;
  58.           far; external SpecialDLL;
  59. procedure InitDll(NumberOfPages,CardType : word);
  60.           far; external SpecialDLL;
  61. procedure StoreRle;
  62.           far; external SpecialDLL;
  63. procedure ReStoreRle;
  64.           far; external SpecialDLL;
  65. procedure StoreBlock(Xa,Ya,XSize,YSize : word);
  66.           far; external SpecialDLL;
  67. procedure ReStoreBlock;
  68.           far; external SpecialDLL;