TYPE binary = BOOLEAN;
gray = [0..255];
color = RECORD
red, green, blue: gray
END;
PROCEDURE OpenWindow(title: ARRAY OF CHAR;
PROCEDURE GetScreenSize(VAR width,height: CARDINAL);
Returns size in pixels
of whole screen
PROCEDURE GetWindowSize(VAR width,height: CARDINAL);
Returns size in pixels
of active window
PROCEDURE SelectWindow(window_num: CARDINAL);
Activate a window
PROCEDURE CloseWindow(window_num: CARDINAL);
Close a window
PROCEDURE SetPixel(c: VECTOR OF color);
All active PEs write one pixel each,
assuming a 2-dim. grid configuration of appropriate size, image will be
truncated or left partly unchanged if PE grid size does not match image size
PROCEDURE Set1Pixel(x,y: CARDINAL; c: color);
Set a single pixel
PROCEDURE Get1Pixel(x,y: CARDINAL; c: color);
Get a single pixel
PROCEDURE Line(x1,y1, x2,y2: CARDINAL);
Draw a line from y1,x1 to y2,x2
PROCEDURE DrawAt(x,y: CARDINAL);
Set position for subsequent drawing
commands (lower left character position, initial: 0,0), position will be update
by each drawing command
PROCEDURE Draw(c: CHAR);
Draw character c in window
PROCEDURE DrawString(s: ARRAY OF CHAR);
Draw string s in window
PROCEDURE DrawInt(i,l: INTEGER);
Draw integer i in window, using
l print spaces
PROCEDURE DrawReal(r: REAL; l: CARDINAL);
Draw real r in window,
using l print spaces
PROCEDURE DrawFixPt(r: REAL; l,m: CARDINAL);
Draw integer i in
window, using l print spaces and m decimals
PROCEDURE DrawBool(b: BOOLEAN);
Draw boolean value b in window