Типы
Modifiers Set
Color =
RECORD END;
Transform =
RECORD END;
Timer =
POINTER TO TimerDesc;
TimerDesc =
RECORD END;
Bitmap =
POINTER TO BitmapDesc;
BitmapDesc =
RECORD
w: INTEGER;
h: INTEGER
END;
Window =
POINTER TO WindowDesc;
WindowDesc =
RECORD(BitmapDesc)
winH: INTEGER; initX: INTEGER;
initY: INTEGER;
fsW: INTEGER;
fsH: INTEGER
END;
(* Window position upon its creation *)
(* Window position upon its creation *)
(* Fullscreen size *)
(* Fullscreen size *)
This is a window.
Event =
RECORD
type: INTEGER;
time: REAL;
x: INTEGER;
y: INTEGER;
z: INTEGER;
w: INTEGER;
h: INTEGER;
dx: INTEGER;
dy: INTEGER;
dz: INTEGER;
dw: INTEGER;
button: INTEGER;
buttons: SET;
count: LONGINT;
key: INTEGER;
ch: CHAR;
mod: SET;
repeat: BOOLEAN;
window: Window;
timer: Timer
END;
(* What mouse buttons are pressed *)
(* Timer counter *)
(* Physical key code *)
(* Typed character for event.type = char. *)
(* Key modifiers *)
FontMessage =
POINTER TO FontMessageDesc;
FontMessageDesc =
RECORD END;
FontDrawMsg =
POINTER TO FontDrawMsgDesc;
FontDrawMsgDesc =
RECORD(FontMessage) END;
Font =
POINTER TO FontDesc;
FontDesc =
RECORD
loaded: BOOLEAN
END;
MonoFont =
POINTER TO MonoFontDesc;
MonoFontDesc =
RECORD(FontDesc)
charW: INTEGER;
charH: INTEGER
END;
Переменные
Done:
BOOLEAN;
Процедуры
PROCEDURE
Circle (x: INTEGER;
y: INTEGER;
r: INTEGER;
color: Color);
PROCEDURE
CircleF (x: REAL;
y: REAL;
r: REAL;
color: Color);
PROCEDURE
ClearBitmap (bmp: Bitmap);
PROCEDURE
ClearScreen;
PROCEDURE
ClearToColor (c: Color);
PROCEDURE
CloseWindow (W: Window);
PROCEDURE
ColorToRGB (color: Color;
VAR r: INTEGER;
VAR g: INTEGER;
VAR b: INTEGER);
PROCEDURE
ColorToRGBA (color: Color;
VAR r: INTEGER;
VAR g: INTEGER;
VAR b: INTEGER;
VAR a: INTEGER);
PROCEDURE
ConvertMemoryBitmaps;
PROCEDURE
Delay (n: INTEGER);
PROCEDURE
DelayF (n: REAL);
PROCEDURE
Draw (bmp: Bitmap;
x: INTEGER;
y: INTEGER);
PROCEDURE
DrawEx (bmp: Bitmap;
sx: INTEGER;
sy: INTEGER;
sw: INTEGER;
sh: INTEGER;
dx: INTEGER;
dy: INTEGER;
dw: INTEGER;
dh: INTEGER;
flip: SET);
PROCEDURE
DrawFlip (bmp: Bitmap;
x: INTEGER;
y: INTEGER;
flip: SET);
PROCEDURE
DrawPart (bmp: Bitmap;
sx: INTEGER;
sy: INTEGER;
sw: INTEGER;
sh: INTEGER;
dx: INTEGER;
dy: INTEGER);
PROCEDURE
DrawPartFlip (bmp: Bitmap;
sx: INTEGER;
sy: INTEGER;
sw: INTEGER;
sh: INTEGER;
dx: INTEGER;
dy: INTEGER;
flags: SET);
PROCEDURE
DrawRotated (bmp: Bitmap;
cx: INTEGER;
cy: INTEGER;
dx: INTEGER;
dy: INTEGER;
angle: REAL;
flip: SET);
PROCEDURE
DrawScaledRotated (bmp: Bitmap;
cx: INTEGER;
cy: INTEGER;
dx: INTEGER;
dy: INTEGER;
xScale: REAL;
yScale: REAL;
angle: REAL;
flip: SET);
PROCEDURE
DropNextEvent;
PROCEDURE
FillCircle (x: INTEGER;
y: INTEGER;
r: INTEGER;
color: Color);
PROCEDURE
FillCircleF (x: REAL;
y: REAL;
r: REAL;
color: Color);
PROCEDURE
FillRect (x1: INTEGER;
y1: INTEGER;
x2: INTEGER;
y2: INTEGER;
color: Color);
PROCEDURE
FillRectF (x1: REAL;
y1: REAL;
x2: REAL;
y2: REAL;
color: Color);
PROCEDURE
Flip;
PROCEDURE
GetClip (VAR x: INTEGER;
VAR y: INTEGER;
VAR w: INTEGER;
VAR h: INTEGER);
PROCEDURE
GetDesktopResolution (VAR w: INTEGER;
VAR h: INTEGER);
PROCEDURE
GetMonoFontSize (font: Font;
VAR charW: INTEGER;
VAR charH: INTEGER);
PROCEDURE
GetScreen (): Window;
PROCEDURE
GetScreenSize (VAR width: INTEGER;
VAR height: INTEGER);
PROCEDURE
GetTarget (): Bitmap;
PROCEDURE
GetTargetSize (VAR width: INTEGER;
VAR height: INTEGER);
PROCEDURE
GetWindowOptions (W: Window): SET;
PROCEDURE
GetWindowZoom (W: Window): REAL;
PROCEDURE
HLine (x1: INTEGER;
y: INTEGER;
x2: INTEGER;
color: Color);
PROCEDURE
HasEvents (): BOOLEAN;
PROCEDURE
KeyPressed (): BOOLEAN;
PROCEDURE
Line (x1: INTEGER;
y1: INTEGER;
x2: INTEGER;
y2: INTEGER;
color: Color);
PROCEDURE
LoadBitmap (fname: ARRAY OF CHAR): Bitmap;
PROCEDURE
LoadFont (fname: ARRAY OF CHAR): Font;
PROCEDURE
LoadFontBitmap (f: Font);
PROCEDURE
LoadFontInfo (fname: ARRAY OF CHAR): Font;
PROCEDURE
MakeCol (VAR color: Color;
r: INTEGER;
g: INTEGER;
b: INTEGER);
PROCEDURE
MakeRGBA (VAR color: Color;
r: INTEGER;
g: INTEGER;
b: INTEGER;
a: INTEGER);
PROCEDURE
NewBitmap (w: INTEGER;
h: INTEGER): Bitmap;
PROCEDURE
NewTimer (speed: REAL): Timer;
PROCEDURE
NewWindow (x: INTEGER;
y: INTEGER;
w: INTEGER;
h: INTEGER;
title: ARRAY OF CHAR;
options: SET): Window;
PROCEDURE
Pause;
PROCEDURE
PeekEvent (VAR event: Event): BOOLEAN;
PROCEDURE
PutPixel (x: INTEGER;
y: INTEGER;
c: Color);
PROCEDURE
PutPixel2 (x: INTEGER;
y: INTEGER;
c: Color);
PROCEDURE
ReadKey (): CHAR;
PROCEDURE
Rect (x1: INTEGER;
y1: INTEGER;
x2: INTEGER;
y2: INTEGER;
color: Color);
PROCEDURE
RectF (x1: REAL;
y1: REAL;
x2: REAL;
y2: REAL;
color: Color);
PROCEDURE
ResumeTimer (timer: Timer);
PROCEDURE
SetClip (x: INTEGER;
y: INTEGER;
w: INTEGER;
h: INTEGER);
PROCEDURE
SetNewWindowScale (x: REAL;
y: REAL);
PROCEDURE
SetNewWindowTitle (title: ARRAY OF CHAR);
PROCEDURE
SetNewWindowZoom (zoom: INTEGER);
PROCEDURE
SetNewWindowZoomF (zoom: REAL);
PROCEDURE
SetScale (x: REAL;
y: REAL);
PROCEDURE
SetSizeStep (w: INTEGER;
h: INTEGER);
PROCEDURE
SetThisWindowTitle (W: Window;
title: ARRAY OF CHAR);
PROCEDURE
SetTitle (title: ARRAY OF CHAR);
PROCEDURE
SetWindowFullscreenSize (win: Window;
width: INTEGER;
height: INTEGER);
PROCEDURE
SetWindowOption (W: Window;
key: INTEGER;
on: BOOLEAN);
PROCEDURE
SetWindowScale (W: Window;
x: REAL;
y: REAL);
PROCEDURE
SetWindowZoom (W: Window;
zoom: INTEGER);
PROCEDURE
SetWindowZoomF (W: Window;
zoom: REAL);
PROCEDURE
SetZoom (zoom: INTEGER);
PROCEDURE
SetZoomF (zoom: REAL);
PROCEDURE
Settings (w: INTEGER;
h: INTEGER;
flags: SET);
PROCEDURE
ShowMouse (show: BOOLEAN);
PROCEDURE
ShowWindowMouse (W: Window;
show: BOOLEAN);
PROCEDURE
StartTimer (timer: Timer);
PROCEDURE
StopTimer (timer: Timer);
PROCEDURE
SwitchToFS (win: Window);
PROCEDURE
SwitchToWindow (win: Window);
PROCEDURE
Target (bitmap: Bitmap);
PROCEDURE
TargetScreen;
PROCEDURE
ThickCircle (x: INTEGER;
y: INTEGER;
r: INTEGER;
color: Color;
thickness: INTEGER);
PROCEDURE
ThickCircleF (x: REAL;
y: REAL;
r: REAL;
color: Color;
thickness: REAL);
PROCEDURE
ThickLine (x1: INTEGER;
y1: INTEGER;
x2: INTEGER;
y2: INTEGER;
color: Color;
thickness: INTEGER);
PROCEDURE
ThickLineF (x1: REAL;
y1: REAL;
x2: REAL;
y2: REAL;
color: Color;
thickness: REAL);
PROCEDURE
ThickRect (x1: INTEGER;
y1: INTEGER;
x2: INTEGER;
y2: INTEGER;
color: Color;
thickness: INTEGER);
PROCEDURE
ThickRectF (x1: REAL;
y1: REAL;
x2: REAL;
y2: REAL;
color: Color;
thickness: REAL);
PROCEDURE
ToggleFS (win: Window);
PROCEDURE
UnsetClip;
PROCEDURE
VLine (x: INTEGER;
y1: INTEGER;
y2: INTEGER;
color: Color);
PROCEDURE
WaitEvent (VAR event: Event);
Clipboard
Time
PROCEDURE
Time (): REAL;
Window Icons
Init
PROCEDURE
Close;
PROCEDURE
Init;
(* Window size in real pixels *)