home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / GFXFX2.ZIP / UNITINT.ZIP / U_PAL.INT < prev    next >
Text File  |  1995-02-14  |  1KB  |  32 lines
  1.  
  2. (*
  3. ** Palette unit
  4. **
  5. ** All fades are proportional/interpolated, which means all colors will
  6. ** reach their destenation color at the same time.
  7. **
  8. ** By Bas van Gaalen
  9. *)
  10.  
  11. unit u_pal;
  12.  
  13. interface
  14.  
  15. type
  16.   rgb_rec=record r,g,b:shortint; end;
  17.   pal_type=array[0..255] of rgb_rec;
  18.  
  19. procedure setpal(var pal:pal_type);                   { set complete palette }
  20. procedure getpal(var pal:pal_type);                   { get complete palette }
  21. procedure setrgb(c,r,g,b:byte);         { set rgb-values of one single color }
  22. procedure getrgb(c:byte; var r,g,b:byte); { get rgb-values of one single clr }
  23. procedure clearpal;                             { clear current pal to black }
  24. procedure fadedown;                         { fade current pal down to black }
  25. procedure fademax;                           { fade pal to maximum intensity }
  26. procedure fadeup(pal:pal_type);                       { fade up to given pal }
  27. procedure fadepal(pal:pal_type);             { fade current pal to given pal }
  28. procedure cyclepal(sidx,eidx:byte; dir:shortint);        { cycle current pal }
  29.  
  30. implementation
  31.  
  32.