33 lines
693 B
Plaintext
33 lines
693 B
Plaintext
FOREIGN MODULE Vga;
|
|
|
|
TYPE EGAcolour = (black, blue, green, cyan, red, pink, brown, white,
|
|
GREY, BLUE, GREEN, CYAN, RED, MAGENTA, YELLOW, WHITE);
|
|
|
|
PROCEDURE Initialize () : BOOLEAN;
|
|
|
|
PROCEDURE MaxWidth () : CARDINAL;
|
|
|
|
PROCEDURE MaxHeight () : CARDINAL;
|
|
|
|
PROCEDURE Clear;
|
|
|
|
PROCEDURE SetColour (colour : CARDINAL);
|
|
|
|
PROCEDURE SetEGAcolour (colour : CARDINAL);
|
|
|
|
PROCEDURE SetRGB (red, green, blue : CARDINAL);
|
|
|
|
PROCEDURE DrawLine (x0, y0, dx, dy : CARDINAL);
|
|
|
|
PROCEDURE Plot (x, y : CARDINAL);
|
|
|
|
PROCEDURE ThisColour (x, y : CARDINAL) : CARDINAL;
|
|
|
|
PROCEDURE SetMode (newmode : CARDINAL);
|
|
|
|
PROCEDURE GetMode () : CARDINAL;
|
|
|
|
PROCEDURE GetKey (VAR ch : CHAR);
|
|
|
|
END Vga.
|