home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 502b.lha / PCQ_v1.2 / Include / Graphics / Sprite.i < prev    next >
Text File  |  1991-05-07  |  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.