home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 10 / titel / mcga.def < prev    next >
Encoding:
Modula Definition  |  1989-09-06  |  1.5 KB  |  38 lines
  1. (*                        MCGA.DEF                        *)
  2. (*                    (C) 1989 TOOLBOX                    *)
  3. (*       Dieses Modul liefert die Grundlage für die       *)
  4. (*         Programmierung des Modus 13h (MCGA) der        *)
  5. (*       VGA-Karte Definition für TopSpeed Modula-2       *)
  6.  
  7. DEFINITION MODULE MCGA;
  8.  
  9. TYPE ColorRegBuffer = ARRAY[0..255] OF RECORD
  10.                                          r,g,b : SHORTCARD;
  11.                                        END;
  12.  
  13. PROCEDURE plot (x,y, color: CARDINAL);
  14. PROCEDURE getdotcolor (x,y: CARDINAL): CARDINAL;
  15. PROCEDURE initgraphic;
  16. PROCEDURE exitgraphic;
  17. PROCEDURE print (line: ARRAY OF CHAR; color: CARDINAL);
  18. PROCEDURE setcursor (x,y: CARDINAL);
  19. PROCEDURE cursorx(): CARDINAL;
  20. PROCEDURE cursory(): CARDINAL;
  21. PROCEDURE clearscreen (color: CARDINAL);
  22. PROCEDURE colorbox (x1,y1,x2,y2,color: CARDINAL);
  23. PROCEDURE mcgasave (filename: ARRAY OF CHAR);
  24. PROCEDURE mcgaload (filename: ARRAY OF CHAR);
  25. PROCEDURE box(x1,y1,x2,y2,color : CARDINAL);
  26. PROCEDURE line(x1,y1,x2,y2,color : CARDINAL);
  27. PROCEDURE setcolor(nr,red,green,blue : CARDINAL);
  28. PROCEDURE readcolor(nr : CARDINAL;
  29.                     VAR red,green,blue : CARDINAL);
  30. PROCEDURE setcolorblock(StartNr : CARDINAL;
  31.                         CRegBuf : ColorRegBuffer;
  32.                         Nr : CARDINAL);
  33. PROCEDURE readcolorblock(StartNr : CARDINAL;
  34.                          VAR CRegBuf : ColorRegBuffer;
  35.                          Nr : CARDINAL);
  36.  
  37. END MCGA.
  38.