home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / pascal / surpas.arc / GRAPHICS.PAS < prev    next >
Pascal/Delphi Source File  |  1980-01-01  |  1KB  |  18 lines
  1. (*$K-*)
  2. PROCEDURE GRAPH(FUNC: INTEGER);            EXTERNAL 'GRAPHICS.BIN';
  3. PROCEDURE CRTMODE(M: INTEGER);            BEGIN GRAPH(0) END;
  4. PROCEDURE WINDOW(X1,Y1,X2,Y2: INTEGER);        BEGIN GRAPH(1) END;
  5. PROCEDURE BCOLOR(C: INTEGER);            BEGIN GRAPH(2) END;
  6. PROCEDURE PCOLOR(C: INTEGER);            BEGIN GRAPH(3) END;
  7. PROCEDURE FCOLOR(C: INTEGER);            BEGIN GRAPH(4) END;
  8. PROCEDURE COLORMAP(C0,C1,C2,C3: INTEGER);    BEGIN GRAPH(5) END;
  9. PROCEDURE FILLSCREEN(C: INTEGER);        BEGIN GRAPH(6) END;
  10. PROCEDURE MOVETO(X,Y: INTEGER);            BEGIN GRAPH(7) END;
  11. PROCEDURE MOVEBY(DX,DY: INTEGER);        BEGIN GRAPH(8) END;
  12. PROCEDURE LINETO(X,Y: INTEGER);            BEGIN GRAPH(9) END;
  13. PROCEDURE LINEBY(DX,DY: INTEGER);        BEGIN GRAPH(10) END;
  14. PROCEDURE PLOTAT(X,Y: INTEGER);            BEGIN GRAPH(11) END;
  15. PROCEDURE PLOTBY(DX,DY: INTEGER);        BEGIN GRAPH(12) END;
  16. PROCEDURE PAINT(X,Y,FC,BC: INTEGER);        BEGIN GRAPH(13) END;
  17. FUNCTION POINT(X,Y: INTEGER): INTEGER;      BEGIN GRAPH(14) END;
  18.