Оберон / Компонентный Паскаль / Вики

Эта страница только для чтения. Вы можете посмотреть её исходный текст, но не можете его изменить. Сообщите администратору, если считаете, что это неправильно.
====== Draw module ======

Module to create images to canvas of HTML5.

CONST\\
 black, white, red, green, blue;\\
 Most common colors.

VAR
 mouseX, mouseY, width, height: INTEGER;\\
 focus: BOOLEAN;\\
 key: CHAR;\\
 keyCode: INTEGER; (* http://keycode.info *)\\
 fontName: ARRAY 64 OF CHAR;\\

**PROCEDURE Start**

Opens a canvas and starts looping the procedure that was set by SetDrawProc. 

**PROCEDURE NoLoop**

Stops looping the procedure that was set by SetDrawProc.

**PROCEDURE Loop**

Reactivates the DrawProc looping that was stopped by NoLoop.

**PROCEDURE Redraw**

Calls only once the DrawProc procedure that was set by SetDrawProc.

**PROCEDURE ColorARGB (alpha, red, green, blue: INTEGER): INTEGER;**

Make color code from four variables from 0-255.


===== Setting up procedures for callbacks =====


**PROCEDURE SetSetupProc(s: CallbackType);**

Setting up a procedure for setting up a model.
      
**PROCEDURE SetDrawProc(d: CallbackType);**

Setting up a procedure for drawing.

**PROCEDURE SetPressedProc(c: CallbackType);**

Setting up a procedure for handling mouse clicks.

**PROCEDURE SetReleasedProc(c: CallbackType);**

Set up a procedure to handle mouse release.

**PROCEDURE SetOutProc(c: CallbackType);**

Setting the procedure for the event of the cursor leaving the canvas.

**PROCEDURE SetOverProc(c: CallbackType);**

Setting up a procedure for the event that the cursor appears over the canvas.

**PROCEDURE SetKeyPressedProc(c: CallbackType);**

Set up a procedure for a keypress event on a keyboard.


===== Common =====


**PROCEDURE SetFrameRate* (fps : INTEGER);**

Specifies the number of frames per second (fps) to be displayed
in the animation. If the processor is not fast enough to maintain
the specified rate, the frame rate will not be achieved.
Setting the frame rate within the Setup procedure is recommended.
The default rate is 60 frames per second. 

**PROCEDURE SetBackground(argb : INTEGER);**

**PROCEDURE SetSize(w, h : INTEGER);**

**PROCEDURE Fill(argb : INTEGER);**

Sets the color used to fill shapes, incl. characters 

**PROCEDURE NoFill;**

Disabl filling shapes. If NoFill are called, nothing will be drawn to the screen. 
**
PROCEDURE Stroke(argb : INTEGER);**

Sets the color used to draw lines and borders around shapes. 
**
PROCEDURE NoStroke;**

Disable drawing the stroke (outline) shapes.
If NoStroke are called, nothing will be drawn to the screen. 

PROCEDURE StrokeWidth(width : INTEGER);

**PROCEDURE Smooth;**
**
PROCEDURE NoSmooth;**

Enables or disables Drawing all geometry with smooth (anti-aliased) edges.


===== Geometric figures =====


PROCEDURE Point(x0, y0: REAL);

PROCEDURE Line(x0, y0, x1, y1: REAL);

PROCEDURE Ellipse(x, y, w, h: REAL);

PROCEDURE Rect(x, y, w, h: REAL);

PROCEDURE RectRounded(x, y, w, h, r: REAL);


===== Geometric shapes with integer arguments =====


PROCEDURE Pointi(x0, y0: INTEGER);

PROCEDURE Linei(x0, y0, x1, y1: INTEGER);

PROCEDURE Ellipsei(x, y, w, h: INTEGER);

PROCEDURE Recti(x, y, w, h: INTEGER);

PROCEDURE RectRoundedi(x, y, w, h, r: INTEGER);


===== Texts =====


PROCEDURE SetFont* (name: ARRAY OF CHAR);

PROCEDURE StringWidth*(mystr: ARRAY OF CHAR; size: INTEGER): INTEGER;

PROCEDURE String(mystr: ARRAY OF CHAR; x, y: REAL; size: INTEGER);

PROCEDURE Stringi(mystr: ARRAY OF CHAR; x, y, size: INTEGER);


===== Images =====


PROCEDURE LoadImage* (name: ARRAY OF CHAR): Image;

PROCEDURE PlaceImage* (image: Image; x, y: REAL);


===== Transformation =====


**PROCEDURE Translate(x, y: REAL);**

Shifts the origin (0, 0) of the coordinates of the canvas
in the specified direction: x to the right, y downwards.

**PROCEDURE PushMatrix;**

**PROCEDURE PopMatrix;**

Pushes or pops the current transformation matrix onto the matrix stack. 
PushMatrix saves the current coordinate system to the stack
and PopMatrix restores the prior coordinate system.

**PROCEDURE Rotate(angle : REAL);**

Rotates the amount specified by the angle parameter.
Angles must be specified in radians (values from 0 to 2π),
or they can be converted from degrees to radians
with the Math.Radians() function.