home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PAS_0493.ZIP / GRAFIX.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-04-15  |  1.2 KB  |  29 lines
  1. {─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
  2. Msg  : 444 of 473
  3. From : Grady Werner                        1:114/224.0          13 Apr 93  17:44
  4. To   : All
  5. Subj : Assembly Grafix Routines
  6. ────────────────────────────────────────────────────────────────────────────────
  7. I'm looking for any inline assembly routines for graphis handling.  I need
  8. faster routines for line drawing, pixel plotting, animation, and any other
  9. nifty stuff...  I have palette changing routines down... Put these in your
  10. code for GREAT, FAST RGB Palette Changing... }
  11.  
  12.      Procedure ASetRGBPalette (Color,Red,Green,Blue: byte);
  13.           Begin
  14.                Port[$3C8]:=Color;
  15.                Port[$3C9]:=Red;
  16.                Port[$3C9]:=Green;
  17.                Port[$3C9]:=Blue;
  18.           end;
  19.  
  20. {     This procedure Changes palette colors about 400% faster than the
  21. built-in routines.  Also, a problem with flicker may have been encountered
  22. with Turbo's Putimage functions.  Call this procedure RIGHT BEFORE the
  23. putimage is called... Viola... NO Flicker! }
  24.  
  25.      Procedure WaitScreen;
  26.           Begin
  27.                Repeat Until (Port[$3DA] and $08) = 0;
  28.                Repeat Until (Port[$3DA] and $08) <> 0;
  29.           end;