home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Include / Graphics / Sprite.i < prev    next >
Text File  |  1990-08-28  |  605b  |  31 lines
  1. {
  2.     Sprite.i for PCQ Pascal
  3. }
  4.  
  5. const
  6.  
  7.     SPRITE_ATTACHED    = $80;
  8.  
  9. type
  10.  
  11.     SimpleSprite = record
  12.     posctldata    : Address;
  13.     height        : Short;
  14.     x,y        : Short;    { current position }
  15.     num        : Short;
  16.     end;
  17.     SimpleSpritePtr = ^SimpleSprite;
  18.  
  19. Procedure ChangeSprite(vp : Address; s : SimpleSpritePtr; newData : Address);
  20.     External;    { vp is a ViewPortPtr }
  21.  
  22. Procedure FreeSprite(pick : Short);
  23.     External;
  24.  
  25. Function GetSprite(sprite : SimpleSpritePtr; pick : Short) : Short;
  26.     External;
  27.  
  28. Procedure MoveSprite(vp : Address; sprite : SimpleSpritePtr; x, y : Short);
  29.     External;    { vp is a ViewPortPtr }
  30.  
  31.